DECLARE SUB Font1 (T$)
OPEN "c:\ascii.fnt" FOR INPUT AS #1
DIM SHARED Txt(255) AS STRING
ads = 0
DO UNTIL EOF(1)
LINE INPUT #1, a$
Txt(ads) = a$
ads = ads + 1
LOOP
SCREEN 12
10 SX = 0: SY = 0: ss$ = "": C = 0
Q = 1
LOCATE 2 - Q, 1: INPUT "StartX->", SX
LOCATE 3 - Q, 1: INPUT "StartY->", SY
LOCATE 4 - Q, 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$)
CLS
TOP:
SXY$ = "M" + STR$(SX) + "," + STR$(SY) + "C" + STR$(C)
DRAW "BX" + VARPTR$(SXY$)
Font1 TIME$
B$ = TIME$
DO UNTIL TIME$ <> B$: LOOP
LINE (SX - 20, SY - 20)-(SX * 2, SY + 20), 0, BF
GOTO TOP

SUB Font1 (T$)
FOR qww = 1 TO LEN(T$)
DRAW "X" + VARPTR$(Txt(ASC(MID$(T$, qww, 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