This can be quite useful if you are using fonts or need to know what ASCII number a character is.
hide mouse
perform checklist for fonts
txtfont$ = "fixedsys"
sync on
DO
set text font txtfont$,0
fontexist=0
repeat
print "Enter a font name, type LIST to view a list of all available fonts or type Q to quit. >"
input font$
if upper$(font$) = "Q" then end
if upper$(font$) = "LIST"
cls
print "Number of fonts available: ";checklist quantity()
for x = 0 to checklist quantity() step 26
for i = 1 to 26
rem safety
if x+i > checklist quantity() then exit
print checklist string$(x+i)
next i
print "<Press ENTER to continue>"
sync:wait key:cls
next x
else
for x = 1 to checklist quantity()
if upper$(font$) = upper$(checklist string$(x)) then fontexist=1 : exit
next x
if fontexist=0 then print "Font does not exist."
endif
until fontexist=1
cls
for s= 1 to 30
for i = 1 to 255
x = (i/20)*20
y = i - int(i/20)*20
ink rgb(255,255,0),0
set text font "arial",1
set text size 12
text x*2.4+10,y*22+46,str$(i)+". "
ink rgb(255,255,255),0
set text font FONT$,s
set text size 20
text x*2.4+30,y*22+40,chr$(i)
next i
set text font txtfont$,1
sync
print "Press ENTER to display the next character set, or type Q to quit. >"
print "Font: " ; font$ ; " Character Set: " ; s
sync
input continue$
if upper$(continue$) = "Q" then s=30
cls
next s
LOOP
"With games, we create these elaborate worlds in our minds, and the computer is there to do the bookkeeping." - Will Wright
