1
0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-05-31 12:41:29 +00:00
PLASMA/src/samplesrc/tiletest.pla

16 lines
281 B
Plaintext

include "inc/cmdsys.plh"
include "inc/hgrlib.plh"
include "inc/hgrtile.plh"
include "inc/hgrfont.plh"
sysflags reshgr1 // Reserve HGR page 1
hgrMode(hgrPage1)
tileDrawBuf(hgrPage1)
hgrPutStr(5, 1, "Hello HiRes Tile Demo")
getc
tileFromText(0, @hgrFont)
getc
hgrMode(hgrOff)
done