Software Du Jour/SoftwareDuJour.iso/COMPUTER/PRINTER/BANNER.ARC/BANNER.BAS

BASIC Source File | 1985-08-07 | 10.4 KB | 380 lines

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