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