38 lines
799 B
Plaintext
38 lines
799 B
Plaintext
_runtimePath_ "../runtime"
|
|
_runtimeStart_ &h7FFF
|
|
_codeRomType_ ROMv3
|
|
|
|
load font, ../../res/font/Bold/Bold.tga, 0, &h2A00
|
|
load font, ../../res/font/Adv/Adv.tga, 1, &h0C00
|
|
load font, ../../res/font/Scifi/Scifi.tga, 2, &h3C00
|
|
load font, ../../res/font/Prac/Prac.tga, 3, &h0300
|
|
load font, ../../res/font/Sinc/Sinc.tga, 4, &h0F00
|
|
|
|
set FGBG_COLOUR, &h3F00
|
|
cls
|
|
|
|
for i=0 to 4
|
|
set FONT_ID, i
|
|
print "ABCDEFGHIJKLMNOPQRSTUVWXYZ !?. 0123456789"
|
|
next i
|
|
|
|
s$ = "External fonts can be usedin exactly the same way as the internal font!"
|
|
|
|
for i=0 to 10
|
|
set FONT_ID, i % 5
|
|
print s$
|
|
wait 60
|
|
next i
|
|
|
|
scroll off 'stop text scrolling
|
|
cls init 'initialise video indirection table
|
|
|
|
forever:
|
|
r = rnd(5)
|
|
set FONT_ID, r
|
|
x = rnd(160) : y = rnd(120)
|
|
at x, y : print "Text"
|
|
goto forever
|
|
|
|
end
|