1: DECLARE SUB GetFnt (a!, bg!, os!, f$) 2: SCREEN 12: CLS 3: OPEN "C:\ASCII.FNT" FOR OUTPUT AS #1 4: FOR c = 0 TO 31: PRINT #1, "": NEXT c 5: FOR q = 32 TO 170 6: IF q = 0 THEN d = 32 ELSE d = q 7: LOCATE 1, 1: PRINT CHR$(d); 8: GetFnt 33, 15, 33, lt$ 9: PRINT #1, lt$ 10: CLS 11: DRAW "X" + VARPTR$(lt$) 12: NEXT q 13: CLOSE 1 14: 15: SUB GetFnt (a, bg, os, f$) 16: 'LINE (d * 8, m)-((d + 1) * 8, 15 + m), 1, B 17: d = a - os: u = 15: r = 0 18: FOR x = (d) * 8 TO (1 + d) * 8 19: FOR y = 0 + m TO 15 + m 20: u = u - 1 21: IF POINT(x, y) = bg THEN ELSE GOTO 10 22: uh$ = LTRIM$(RTRIM$(STR$(u))) 23: ur$ = LTRIM$(RTRIM$(STR$(u - 1))) 24: lt$ = lt$ + "BU" + uh$ + "DBD" + ur$ 25: PSET (x, y), 14 26: 10 NEXT y 27: r = r + 1: u = 15 28: lt$ = lt$ + "br" 29: NEXT x 30: f$ = lt$ 31: END SUB 32: |