1: DECLARE SUB Font1 (T$, f$) 2: ads = 0 3: SCREEN 12 4: 10 SX = 0: SY = 0: ss$ = "": C = 0 5: LOCATE 1, 1: INPUT "Text->", ss$ 6: LOCATE 2, 1: INPUT "StartX->", SX 7: LOCATE 3, 1: INPUT "StartY->", SY 8: LOCATE 4, 1: INPUT "Color->", C 9: IF SX = 0 AND SY = 0 THEN END 10: IF C = 0 THEN C = 15 11: SXY$ = "M" + STR$(SX) + "," + STR$(SY) + "C" + STR$(C) 12: DRAW "BX" + VARPTR$(SXY$) 13: Font1 ss$, "C:\ASCII.FNT" 14: 15: SUB Font1 (T$, f$) 16: FOR qww = 1 TO LEN(T$) 17: OPEN f$ FOR INPUT AS #1 18: FOR a = 0 TO ASC(MID$(T$, qww, 1)): LINE INPUT #1, d$: NEXT a 19: d$ = d$ + "br8" 20: DRAW "X" + VARPTR$(d$) 21: CLOSE 1 22: NEXT qww 23: END SUB 24: 25: SUB MakeFont (f$) 26: SCREEN 12 27: DIM YN AS STRING * 1 28: ln = 32 29: 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 30: FOR QW = 1 TO 32: PRINT #1, : NEXT QW 31: 122 FOR T = ln TO 255 32: 11 CLS 33: LINE (0, 0)-(33, 33), 15, B 34: DRAW "BM2,30" 35: LOCATE 1, 10: PRINT "CHARECTAR:"; CHR$(T) 36: LOCATE 5, 1: INPUT "DRAW:", DRW$ 37: DRAW "X" + VARPTR$(DRW$): DRAW "X" + VARPTR$(DRW$) 38: 112 LOCATE 6, 1: INPUT "IS THIS RIGHT"; YN 39: IF UCASE$(YN) = "Y" THEN PRINT #1, DRW$ ELSE GOTO 11 40: NEXT T 41: CLOSE 1 42: END SUB 43: |