DECLARE SUB Font1 (T$)
OPEN "C:\ascii.fnt" FOR INPUT AS #1
DIM SHARED txt1(0 TO 100) AS STRING
DIM SHARED Txt2(0 TO 100) AS STRING
FOR Q = 0 TO 33: LINE INPUT #1, D$: NEXT Q
FOR ads = 34 TO 98
LINE INPUT #1, txt1(ads)
NEXT ads
'FOR ad = 0 TO 100
'LINE INPUT #1, Txt2(ad)
'PRINT ad + ads
'NEXT ad
SCREEN 12
10 SX = 0: SY = 0: ss$ = "": C = 0
LOCATE 1, 1: INPUT "Text->", ss$
LOCATE 2, 1: INPUT "StartX->", SX
LOCATE 3, 1: INPUT "StartY->", SY
LOCATE 4, 1: INPUT "Color->", C
IF SX = 0 AND SY = 0 THEN END
IF C = 0 THEN C = 15
SXY$ = "M" + STR$(SX) + "," + STR$(SY) + "C" + STR$(C)
DRAW "BX" + VARPTR$(SXY$)
Font1 ss$

SUB Font1 (T$)
FOR qww = 1 TO LEN(T$)
'OPEN f$ FOR INPUT AS #1
'FOR a = 0 TO ASC(MID$(T$, qww, 1)): LINE INPUT #1, d$: NEXT a
IF ASC(MID$(T$, qww, 1)) < 101 THEN DRAW "X" + VARPTR$(txt1(ASC(MID$(T$, qww, 1))))
CLOSE 1
NEXT qww
END SUB

SUB MakeFont (f$)
SCREEN 12
DIM YN AS STRING * 1
ln = 32
OPEN f$ FOR RANDOM AS #1: IF LOF(1) = 0 THEN CLOSE 1: OPEN f$ FOR OUTPUT AS #1 ELSE CLOSE 1: OPEN f$ FOR INPUT AS #1: ln = 0: DO UNTIL EOF(1): LINE INPUT #1, aaas$: ln = ln + 1: LOOP: CLOSE 1: OPEN f$ FOR APPEND AS #1: GOTO 122
FOR QW = 1 TO 32: PRINT #1, : NEXT QW
122 FOR T = ln TO 255
11 CLS
LINE (0, 0)-(33, 33), 15, B
DRAW "BM2,30"
LOCATE 1, 10: PRINT "CHARECTAR:"; CHR$(T)
LOCATE 5, 1: INPUT "DRAW:", DRW$
DRAW "X" + VARPTR$(DRW$): DRAW "X" + VARPTR$(DRW$)
112 LOCATE 6, 1: INPUT "IS THIS RIGHT"; YN
IF UCASE$(YN) = "Y" THEN PRINT #1, DRW$ ELSE GOTO 11
NEXT T
CLOSE 1
END SUB