home *** CD-ROM | disk | FTP | other *** search
- 1 CLS
- 10 GOTO 2700
- 20 FOR X=1 TO 4:LPRINT:NEXT X
- 25 RETURN
- 40 FOR X=1 TO 16:LPRINT :NEXT X
- 45 RETURN
- 100 REM
- 101 REM ----------- A -----------
- 102 REM
- 105 B=63
- 110 FOR X=1 TO 4
- 115 LPRINT STRING$(B,"#")
- 120 B=B+4
- 125 NEXT X
- 130 FOR X=1 TO 8:LPRINT TAB(33)STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
- 135 FOR X=1 TO 4
- 140 B=B-4
- 145 LPRINT STRING$(B,"#")
- 150 NEXT X:GOSUB 20:RETURN
- 200 REM
- 201 REM-------------- B ----------
- 202 REM
- 205 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 210 FOR X=1 TO 8
- 215 LPRINT STRING$(16,"#")TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#")
- 220 NEXT X
- 225 A=0:B=72
- 230 FOR X=1 TO 2
- 235 A=A+4
- 240 LPRINT TAB(A)STRING$(B,"#")
- 245 B=B-8
- 250 NEXT X
- 255 B=44:C=24
- 260 FOR X=1 TO 2
- 265 A=A+4
- 270 LPRINT TAB(A)STRING$(C,"#")TAB(B)STRING$(C,"#")
- 275 B=B+4:C=C-8
- 280 NEXT X:GOSUB 20:RETURN
- 300 REM
- 301 REM ----------- C -----------
- 302 REM
- 305 A=16:B=48
- 310 FOR X=1 TO 4
- 315 LPRINT TAB(A)STRING$(B,"#")
- 320 A=A-4:B=B+8
- 325 NEXT X
- 330 FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
- 335 B=16
- 340 FOR X=1 TO 4
- 341 A=A+4
- 345 LPRINT TAB(A) STRING$(B,"#") TAB(60) STRING$(B,"#")
- 350 B=B-4
- 355 NEXT X:GOSUB 20:RETURN
- 400 REM
- 401 REM ------------ D ---------
- 402 REM
- 405 B=79:C=0
- 410 FOR X=1 TO 4 :LPRINT STRING$(79,"#"):NEXT X
- 415 FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
- 420 FOR X=1 TO 4
- 425 B=B-8:C=C+4
- 430 LPRINT TAB(C)STRING$(B,"#")
- 435 NEXT X:GOSUB 20:RETURN
- 500 REM
- 501 REM ----------------- E --------------
- 502 REM
- 505 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 510 FOR X=1 TO 8
- 515 LPRINT STRING$(16,"#")TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#")
- 520 NEXT X
- 525 FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
- 530 GOSUB 20:RETURN
- 600 REM
- 601 REM ------------- F -------------
- 602 REM
- 605 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 610 FOR X=1 TO 8:LPRINT TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
- 615 FOR X=1 TO 4:LPRINT TAB(64)STRING$(16,"#"):NEXT X
- 620 GOSUB 20:RETURN
- 700 REM
- 701 REM ------------- G ------------------
- 702 REM
- 705 A=16:B=48
- 710 FOR X=1 TO 4
- 715 LPRINT TAB(A)STRING$(B,"#")
- 716 A=A-4:B=B+8
- 720 NEXT X
- 725 FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
- 730 FOR X=1 TO 4
- 731 LPRINT STRING$(16,"#")TAB(24)STRING$(16,"#")TAB(64)STRING$(16,"#")
- 732 NEXT X
- 735 B=36:C=20
- 736 FOR X=1 TO 4
- 739 A=A+4
- 740 LPRINT TAB(A)STRING$(B,"#")TAB(56)STRING$(C,"#")
- 741 B=B-4:C=C-4
- 745 NEXT X:GOSUB 20:RETURN
- 800 REM
- 801 REM ------------ H ----------------
- 802 REM
- 805 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 810 FOR X=1 TO 8:LPRINT TAB(32)STRING$(16,"#"):NEXT X
- 815 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 820 GOSUB 20:RETURN
- 900 REM
- 901 REM ------------ I --------------
- 902 REM
- 905 FOR X=1 TO 2:LPRINT STRING$(16,"#")TAB(64) STRING$(16,"#"):NEXT X
- 910 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 915 FOR X=1 TO 2:LPRINT STRING$(16,"#")TAB(64) STRING$(16,"#"):NEXT X
- 920 GOSUB 20:RETURN
- 1000 REM
- 1001 REM ------------- J ---------------
- 1002 REM
- 1005 A=16:B=16
- 1010 FOR X=1 TO 4
- 1015 LPRINT TAB(A)STRING$(B,"#")
- 1020 A=A-4:B=B+4
- 1021 NEXT X
- 1025 FOR X=1 TO 8:LPRINT STRING$(16,"#"):NEXT X
- 1030 B=76
- 1040 FOR X=1 TO 4
- 1041 A=A + 4
- 1045 LPRINT TAB(A)STRING$(B,"#")
- 1050 B=B-4
- 1055 NEXT X:GOSUB 20:RETURN
- 1100 REM
- 1101 REM --------------- K --------------
- 1102 REM
- 1105 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 1110 A=32:B=44:C=16
- 1115 FOR X=1 TO 3
- 1120 LPRINT TAB(A)STRING$(C,"#")
- 1125 C=C+8:A=A-4
- 1130 NEXT X
- 1135 FOR X=1 TO 5
- 1140 LPRINT TAB(A)STRING$(16,"#")TAB(B)STRING$(16,"#")
- 1145 A=A-4:B=B+4
- 1150 NEXT X
- 1155 FOR X=1 TO 4
- 1160 LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#")
- 1165 NEXT X:GOSUB 20:RETURN
- 1200 REM
- 1201 REM -------------- L -------------------
- 1202 REM
- 1205 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 1215 FOR X=1 TO 12:LPRINT STRING$(16,"#"):NEXT X
- 1220 GOSUB 20:RETURN
- 1300 REM
- 1301 REM --------------- M -----------------
- 1302 REM
- 1305 A=56
- 1310 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 1315 FOR X=1 TO 4
- 1320 LPRINT TAB(A)STRING$(16,"#")
- 1325 A=A-4
- 1330 NEXT X
- 1335 FOR X=1 TO 4
- 1340 A=A+4
- 1345 LPRINT TAB(A)STRING$(16,"#")
- 1350 NEXT X
- 1355 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 1360 GOSUB 20:RETURN
- 1400 REM
- 1401 REM ------------- N -----------------
- 1402 REM
- 1405 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 1410 B=56
- 1415 FOR X=1 TO 8
- 1420 LPRINT TAB(B)STRING$(15,"#")
- 1425 B=B-4
- 1430 NEXT X
- 1435 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 1440 GOSUB 20:RETURN
- 1500 REM
- 1501 REM --------------- O -------------
- 1502 REM
- 1505 A=16:B=48
- 1510 FOR X=1 TO 4
- 1515 LPRINT TAB(A)STRING$(B,"#")
- 1520 A=A-4:B=B+8
- 1525 NEXT X
- 1530 FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
- 1540 FOR X=1 TO 4
- 1545 A=A+4:B=B-8
- 1550 LPRINT TAB(A)STRING$(B,"#")
- 1555 NEXT X:GOSUB 20:RETURN
- 1600 REM
- 1601 REM --------------- P -----------------
- 1602 REM
- 1605 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 1610 A=36:B=40
- 1615 FOR X=1 TO 8:LPRINT TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
- 1620 FOR X=1 TO 4
- 1625 LPRINT TAB(A)STRING$(B,"#")
- 1630 A=A+4:B=B-8
- 1635 NEXT X :GOSUB 20:RETURN
- 1700 REM
- 1701 REM ----------------- Q ------------------
- 1702 REM
- 1705 A=16:B=48
- 1710 FOR X=1 TO 4
- 1715 LPRINT TAB(A)STRING$(B,"#")
- 1720 A=A-4:B=B+8
- 1725 NEXT X
- 1730 FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
- 1735 FOR X=1 TO 2
- 1740 A=A+4:B=B-8
- 1745 LPRINT TAB(A)STRING$(B,"#")
- 1750 NEXT X
- 1755 B=68
- 1760 FOR X=1 TO 4
- 1765 IF X > 2 THEN 1780
- 1770 LPRINT STRING$(B,"#")
- 1771 B=B-4
- 1775 NEXT X:GOSUB 20:RETURN
- 1780 B=16:GOTO 1770
- 1800 REM
- 1801 REM -------------- R ----------------
- 1802 REM
- 1805 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 1810 A=32:B=16
- 1815 FOR X=1 TO 5
- 1820 LPRINT TAB(A)STRING$(B,"#")TAB(64)STRING$(16,"#")
- 1825 A=A-4:B=B+4
- 1830 NEXT X
- 1835 FOR X=1 TO 3
- 1840 LPRINT TAB(A)STRING$(16,"#")TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#")
- 1845 A=A-4
- 1850 NEXT X
- 1855 A=36:B=40
- 1856 FOR X=1 TO 4
- 1860 LPRINT STRING$(16,"#")TAB(A)STRING$(B,"#")
- 1865 A=A+4:B=B-8
- 1870 NEXT X:GOSUB 20:RETURN
- 1900 REM
- 1901 REM -------------- S -------------------
- 1902 REM
- 1905 A=16:B=8:C=16:D=48
- 1910 FOR X=1 TO 4
- 1915 LPRINT TAB(A) STRING$(B,"#") TAB(D)STRING$(C,"#")
- 1920 A=A-4:B=B+4:C=C+8:D=D-4
- 1925 NEXT X
- 1930 FOR X=1 TO 8
- 1935 LPRINT STRING$(16,"#") TAB(33)STRING$(16,"#")TAB(64)STRING$(16,"#")
- 1940 NEXT X
- 1945 A=4:B=20:C=41:D=56
- 1950 FOR X=1 TO 4
- 1955 LPRINT TAB(A)STRING$(C,"#")TAB(D)STRING$(B,"#")
- 1960 A=A+4:B=B-4:C=C-8
- 1965 NEXT X
- 1970 GOSUB 20:RETURN
- 2000 REM
- 2001 REM ---------------- T ------------------
- 2002 REM
- 2005 FOR X=1 TO 6:LPRINT TAB(64)STRING$(16,"#"):NEXT X
- 2010 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 2015 FOR X=1 TO 6:LPRINT TAB(64)STRING$(16,"#"):NEXT X
- 2020 GOSUB 20:RETURN
- 2100 REM
- 2101 REM ----------------- U -----------------
- 2102 REM
- 2105 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 2110 FOR X=1 TO 8:LPRINT STRING$(16,"#"):NEXT X
- 2115 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 2120 GOSUB 20:RETURN
- 2200 REM
- 2201 REM ---------------- V -----------------
- 2202 REM
- 2205 C=16:B=63
- 2210 FOR X=1 TO 4
- 2215 LPRINT TAB(C)STRING$(B,"#")
- 2220 C=C-4:B=B+4
- 2225 NEXT X
- 2230 FOR X=1 TO 8:LPRINT STRING$(16,"#"):NEXT X
- 2235 FOR X=1 TO 4
- 2240 C=C+4:B=B-4
- 2245 LPRINT TAB(C)STRING$(B,"#")
- 2250 NEXT X:GOSUB 20:RETURN
- 2300 REM
- 2301 REM ------------- W ------------------
- 2302 REM
- 2305 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 2310 A=4
- 2315 FOR X=1 TO 4
- 2320 LPRINT TAB(A)STRING$(16,"#")
- 2325 A=A+4
- 2330 NEXT X
- 2335 FOR X=1 TO 4
- 2340 A=A-4
- 2345 LPRINT TAB(A)STRING$(16,"#")
- 2350 NEXT X
- 2355 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
- 2360 GOSUB 20:RETURN
- 2400 REM
- 2401 REM ---------------- X ---------------
- 2402 REM
- 2405 FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
- 2410 A=8:B=56
- 2415 FOR X=1 TO 2
- 2420 LPRINT TAB(A)STRING$(16,"#")TAB(B)STRING$(16,"#")
- 2425 A=A+8:B=B-8
- 2430 NEXT X
- 2435 C=32
- 2440 FOR X=1 TO 2
- 2445 LPRINT TAB(A)STRING$(C,"#")
- 2450 A=A+8:C=C-16:NEXT X
- 2455 FOR X=1 TO 2:A=A-8:C=C+16
- 2460 LPRINT TAB(A)STRING$(C,"#")
- 2465 NEXT X
- 2470 FOR X=1 TO 2:A=A-8:B=B+8
- 2475 LPRINT TAB(A)STRING$(16,"#")TAB(B)STRING$(16,"#")
- 2480 NEXT X
- 2485 FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
- 2490 GOSUB 20:RETURN
- 2500 REM -------------- Y -------------
- 2502 REM
- 2505 FOR X=1 TO 4:LPRINT TAB(64)STRING$(16,"#"):NEXT X
- 2510 A=56
- 2515 FOR X=1 TO 2
- 2520 LPRINT TAB(A)STRING$(16,"#")
- 2525 A=A-8:NEXT X
- 2530 B=56
- 2531 FOR X=1 TO 2:LPRINT STRING$(B,"#"):B=B-8:NEXT X
- 2532 FOR X=1 TO 2:B=B+8:LPRINT STRING$(B,"#"):NEXT X
- 2535 FOR X=1 TO 2
- 2540 A=A+8:LPRINT TAB(A)STRING$(16,"#"):NEXT X
- 2550 FOR X=1 TO 4:LPRINT TAB(64)STRING$(16,"#"):NEXT X
- 2555 GOSUB 20:RETURN
- 2600 REM
- 2601 REM ----------- Z ---------------
- 2602 REM
- 2605 A=20
- 2610 FOR X=1 TO 4:LPRINT STRING$(A,"#")TAB(64)STRING$(16,"#"):A=A+4:NEXT X
- 2615 A=20
- 2620 FOR X=1 TO 7
- 2625 LPRINT STRING$(16,"#")TAB(A)STRING$(16,"#")TAB(64)STRING$(16,"#")
- 2630 A=A+4:NEXT X
- 2635 B=32
- 2640 FOR X=1 TO 5:LPRINT STRING$(16,"#")TAB(A)STRING$(B,"#")
- 2645 A=A+4:B=B-4:NEXT X:GOSUB 20:RETURN
- 2700 REM ----- PICKING LETTERS -----
- 2710 CLS:PRINT "ENTER THE LETTER AND NOTHING ELSE. PRESS <Esc> TO CHAIN CAT."
- 2720 A$=INKEY$:IF A$="" THEN 2720
- 2721 PRINT A$;
- 2725 IF ASC(A$)=13 THEN PRINT "INVALID OPTION, BUD!!":GOTO 2720
- 2726 IF ASC(A$)=32 THEN GOSUB 40:GOTO 2720
- 2727 IF ASC(A$)=27 THEN CHAIN"CAT
- 2730 IF ASC(A$)<65 OR ASC(A$)>90 THEN PRINT "I CAN'T PRINT THAT LETTER ON THE PRINTER":GOTO 2720
- 2740 IF A$="A" THEN GOSUB 100
- 2750 IF A$="B" THEN GOSUB 200
- 2760 IF A$="C" THEN GOSUB 300
- 2770 IF A$="D" THEN GOSUB 400
- 2780 IF A$="E" THEN GOSUB 500
- 2790 IF A$="F" THEN GOSUB 600
- 2800 IF A$="G" THEN GOSUB 700
- 2810 IF A$="H" THEN GOSUB 800
- 2820 IF A$="I" THEN GOSUB 900
- 2830 IF A$="J" THEN GOSUB 1000
- 2840 IF A$="K" THEN GOSUB 1100
- 2850 IF A$="L" THEN GOSUB 1200
- 2860 IF A$="M" THEN GOSUB 1300
- 2870 IF A$="N" THEN GOSUB 1400
- 2875 IF A$="Y" THEN GOSUB 2500
- 2880 IF A$="O" THEN GOSUB 1500
- 2890 IF A$="P" THEN GOSUB 1600
- 2900 IF A$="Q" THEN GOSUB 1700
- 2910 IF A$="R" THEN GOSUB 1800
- 2920 IF A$="S" THEN GOSUB 1900
- 2930 IF A$="T" THEN GOSUB 2000
- 2940 IF A$="U" THEN GOSUB 2100
- 2950 IF A$="V" THEN GOSUB 2200
- 2960 IF A$="W" THEN GOSUB 2300
- 2970 IF A$="X" THEN GOSUB 2400
- 2980 IF A$="Z" THEN GOSUB 2600
- 2990 GOTO 2720
- EN GOSUB 2200
- 2960 IF A$="W" THEN GOSUB 2300
- 2970 IF A$="X" THEN GOSUB 2400
- 2980 IF A$="Z" THEN GOSUB 2