1: DECLARE SUB LoadFont (F$) 2: DECLARE SUB Font (t$) 3: DIM SHARED Txt(255) AS STRING 'COPY THIS 4: LoadFont "FONT.FNT" 'THE SUB LoadFont (Change FONT.FNT to your font's filename) 5: 'Also Copy the SUB Font (Use it in place of print) 6: 7: SCREEN 12 8: 10 SX = 0: SY = 0: ss$ = "": C = 0 9: LOCATE 1, 1: INPUT "Text->", ss$ 10: LOCATE 2, 1: INPUT "StartX->", SX 11: LOCATE 3, 1: INPUT "StartY->", SY 12: LOCATE 4, 1: INPUT "Color->", C 13: IF SX = 0 AND SY = 0 THEN END 14: IF C = 0 THEN C = 15 15: SXY$ = "M" + STR$(SX) + "," + STR$(SY) + "C" + STR$(C) 16: DRAW "BX" + VARPTR$(SXY$) 17: Font1 ss$ 18: 19: SUB Font (t$) 20: FOR qww = 1 TO LEN(t$) 21: DRAW "X" + VARPTR$(Txt(ASC(MID$(t$, qww, 1)))) 22: NEXT qww 23: END SUB 24: 25: SUB LoadFont (F$) 26: x = FREEFILE 27: OPEN F$ FOR INPUT AS #x 28: ads = 0 29: DO UNTIL EOF(x) 30: LINE INPUT #x, a$ 31: Txt(ads) = a$ 32: ads = ads + 1 33: LOOP 34: CLOSE x 35: END SUB 36: 37: SUB MakeFont (F$) 38: SCREEN 12 39: DIM YN AS STRING * 1 40: ln = 32 41: 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 42: FOR QW = 1 TO 32: PRINT #1, : NEXT QW 43: 122 FOR t = ln TO 255 44: 11 CLS 45: LINE (0, 0)-(33, 33), 15, B 46: DRAW "BM2,30" 47: LOCATE 1, 10: PRINT "CHARECTAR:"; CHR$(t) 48: LOCATE 5, 1: INPUT "DRAW:", DRW$ 49: DRAW "X" + VARPTR$(DRW$): DRAW "X" + VARPTR$(DRW$) 50: 112 LOCATE 6, 1: INPUT "IS THIS RIGHT"; YN 51: IF UCASE$(YN) = "Y" THEN PRINT #1, DRW$ ELSE GOTO 11 52: NEXT t 53: CLOSE 1 54: END SUB 55: |