Sample Code
DOWNLOAD "TEST.BAS"
str1$ = ""
J = 0
y = 50
CODEPAGE 1252
SIZE 4,3
GAP 0,0
DIRECTION 1
CLS
TEXT 10,10,"COUR.TTF",0,12,12,"CODEPAGE 1252"
FOR I=32 TO 255
str1$=str1$+CHR$(I) + " "
J=J+1
IF J=16 THEN GOSUB drawTEXT
NEXT
PRINT 1
END
drawTEXT:
TEXT 10,y,"COUR.TTF",0,12,12,str1$
str1$=""
J=0
y=y+40
RETURN
EOP
TEST