DECLARE SUB LoadFont (F$)
DECLARE SUB Font (t$)
DIM SHARED Txt(255) AS STRING  'COPY THIS
LoadFont "FONT.FNT"            'THE SUB LoadFont  (Change FONT.FNT to your font's filename)
                               'Also Copy the SUB Font (Use it in place of print)

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

SUB LoadFont (F$)
x = FREEFILE
OPEN F$ FOR INPUT AS #x
ads = 0
DO UNTIL EOF(x)
LINE INPUT #x, a$
Txt(ads) = a$
ads = ads + 1
LOOP
CLOSE x
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