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