Oakland CPM Archive/oakcpm.iso/cpm/list/banner.lbr/POSTER.BZS/POSTER.BAS

BASIC Source File | 1987-08-29 | 19KB | 726 lines

10 REM ********************************************************
20 REM Correction made on July 5, 1981 by   E. L. Plantz      *
30 REM Wrong Variable used in line 1060-should be Q1 not X3   *
40 REM Also added printer support via LPRINTs.                *
50 REM ********************************************************
90 DIM S1$(80)
100 PRINT
110 PRINT
120 PRINT
130 PRINT
140 PRINT
150 PRINT "            *****POSTER*****"
160 PRINT
170 PRINT "A PROGRAM TO PRINT MESSAGES IN BLOCK CHARACTERS!!!"
180 PRINT
190 PRINT
200 PRINT "DO YOU WISH INSTRUCTIONS (Y OR N)";
210 INPUT Z6$
220 IF Z6$="y" THEN 270
225 IF Z6$="n" THEN 440
230 IF Z6$="Y" THEN 270
235 IF Z6$="N" THEN 440
240 PRINT "PLEASE INPUT EITHER 'Y' OR 'N'."
250 GOTO 210
260 PRINT
270 PRINT
280 PRINT "THE AVAILABLE CHARACTERS FOR MESSAGES INCLUDE:"
290 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-:.,'!/\&+=<>?*"
300 PRINT "AND 'SPACE'.  HOWEVER, IF YOU PLAN TO USE A 'SPACE'"
310 PRINT "AS THE FIRST CHARACTER OF A MESSAGE, REPLACE THAT"
320 PRINT "SINGLE 'SPACE' WITH A '%' IN THAT FIRST POSITION ONLY."
330 PRINT "THE MAXIMUM MESSAGE LENGTH IS 72 CHARACTERS."
340 PRINT "TERMINAL (T) MODE FORMATS BLOCK CHARACTERS AT 6 PER"
350 PRINT "LINE; LINEPRINTER (L) MODE FORMATS AT 13 BLOCK CHARACTERS"
360 PRINT "PER LINE."
410 PRINT
420 PRINT "SORRY THAT MORE INFO ISN'T AVAILABLE ABOUT THIS PROGRAM..."
430 PRINT "EXPERIMENT AND HAVE FUN!!!"
440 PRINT
450 PRINT "PROGRAM'S ORIGINAL TITLE:  OMICRON III (VERSION 1)"
460 PRINT
470 PRINT
480 GOTO 500
490 GOTO 100
500 PRINT
510 PRINT "DO YOU PLAN TO VIEW YOUR OUTPUT AT YOUR TERMINAL OR AT THE"
520 PRINT "LINEPRINTER (T OR L)";
530 INPUT X4$
540 IF X4$="t" THEN 580
545 IF X4$="l" THEN 600
550 IF X4$="T" THEN 580
555 IF X4$="L" THEN 600
560 PRINT "PLEASE INPUT EITHER 'T' OR 'L'."
570 GOTO 530
580 LET X3=6
590 GOTO 610
600 LET X3=13
610 PRINT
620 PRINT
630 PRINT "WHAT SIZE CHARACTERS DO YOU DESIRE (1 OR 2)";
640 INPUT D7
650 IF D7=1492 THEN 770
660 IF D7 <> 1 THEN 680
670 IF D7 <> 2 THEN 710
680 IF D7=2 THEN 730
690 PRINT "PLEASE INPUT EITHER '1' OR '2'."
700 GOTO 640
710 IF D7=1 THEN 750
720 GOTO 690
730 LET R1=2
740 GOTO 830
750 LET R1=1
760 GOTO 830
770 PRINT
780 PRINT "INPUT YOUR SPECIAL LETTER SIZE CODE."
790 INPUT D9
800 LET R1=D9
810 GOTO 830
820 DIM S1$(75)
830 LET H1=1
840 PRINT
850 PRINT
860 PRINT "HOW MANY BLANK LINES DO YOU WANT BETWEEN LINES"
870 PRINT "OF BLOCK CHARACTERS (MUST BE A POSITIVE INTEGER)";
880 INPUT H4
890 LET Z1=H4
900 PRINT
910 PRINT
920 GOTO 2850
930 PRINT "PLEASE INPUT YOUR MESSAGE ON THE FOLLOWING LINE:"
940 LET I1$="%"
950 INPUT I1$
960 FOR Q2=1 TO 12
970 PRINT
980 NEXT Q2
990 LET Q1=LEN(I1$)
1000 FOR B1=1 TO Q1
1010 LET S1$(B1)=MID$(I1$,B1,1)
1020 NEXT B1
1030 FOR F1=1 TO Q1 STEP X3
1040 FOR E1=1 TO 8
1050 FOR D1=1 TO R1
1060 FOR C1=1 TO Q1
1070 IF C1>1 THEN 1090
1080 LET P1=H1
1090 LET X1$=S1$(P1)
1100 IF X1$="%" THEN 2680
1110 IF X1$="A" THEN 1660
1120 IF X1$="B" THEN 1680
1130 IF X1$="C" THEN 1700
1140 IF X1$="D" THEN 1720
1150 IF X1$="E" THEN 1740
1160 IF X1$="F" THEN 1760
1170 IF X1$="G" THEN 1780
1180 IF X1$="H" THEN 1800
1190 IF X1$="I" THEN 1820
1200 IF X1$="J" THEN 1840
1210 IF X1$="K" THEN 1860
1220 IF X1$="L" THEN 1880
1230 IF X1$="M" THEN 1900
1240 IF X1$="N" THEN 1920
1250 IF X1$="O" THEN 1940
1260 IF X1$="P" THEN 1960
1270 IF X1$="Q" THEN 1980
1280 IF X1$="R" THEN 2000
1290 IF X1$="S" THEN 2020
1300 IF X1$="T" THEN 2040
1310 IF X1$="U" THEN 2060
1320 IF X1$="V" THEN 2080
1330 IF X1$="W" THEN 2100
1340 IF X1$="X" THEN 2120
1350 IF X1$="Y" THEN 2140
1360 IF X1$="Z" THEN 2160
1370 IF X1$="1" THEN 2180
1380 IF X1$="2" THEN 2200
1390 IF X1$="3" THEN 2220
1400 IF X1$="4" THEN 2240
1410 IF X1$="5" THEN 2260
1420 IF X1$="6" THEN 2280
1430 IF X1$="7" THEN 2300
1440 IF X1$="8" THEN 2320
1450 IF X1$="9" THEN 2340
1460 IF X1$="0" THEN 2360
1470 IF X1$="-" THEN 2380
1480 IF X1$=":" THEN 2400
1490 IF X1$="." THEN 2420
1500 IF X1$="," THEN 2440
1510 IF X1$="'" THEN 2460
1520 IF X1$="!" THEN 2480
1530 IF X1$="*" THEN 2500
1540 IF X1$="&" THEN 2520
1550 IF X1$="+" THEN 2540
1560 IF X1$="=" THEN 2580
1570 IF X1$="<" THEN 2600
1580 IF X1$=">" THEN 2620
1590 IF X1$="\" THEN 2640
1600 IF X1$="?" THEN 2660
1610 IF X1$=" " THEN 2680
1620 PRINT "SORRY, THE CHARACTER '"X1$"' IS NOT AVAILABLE FOR USE"
1630 PRINT "IN MESSAGES.  PLEASE INPUT A NEW MESSAGE:"
1640 LET H1=1
1650 GOTO 940
1660 LET ZZ$=A$(E1)
1670 GOTO 2700
1680 LET ZZ$=B$(E1)
1690 GOTO 2700
1700 LET ZZ$=C$(E1)
1710 GOTO 2700
1720 LET ZZ$=D$(E1)
1730 GOTO 2700
1740 LET ZZ$=E$(E1)
1750 GOTO 2700
1760 LET ZZ$=F$(E1)
1770 GOTO 2700
1780 LET ZZ$=G$(E1)
1790 GOTO 2700
1800 LET ZZ$=H$(E1)
1810 GOTO 2700
1820 LET ZZ$=I$(E1)
1830 GOTO 2700
1840 LET ZZ$=J$(E1)
1850 GOTO 2700
1860 LET ZZ$=K$(E1)
1870 GOTO 2700
1880 LET ZZ$=L$(E1)
1890 GOTO 2700
1900 LET ZZ$=M$(E1)
1910 GOTO 2700
1920 LET ZZ$=N$(E1)
1930 GOTO 2700
1940 LET ZZ$=O$(E1)
1950 GOTO 2700
1960 LET ZZ$=P$(E1)
1970 GOTO 2700
1980 LET ZZ$=Q$(E1)
1990 GOTO 2700
2000 LET ZZ$=R$(E1)
2010 GOTO 2700
2020 LET ZZ$=S$(E1)
2030 GOTO 2700
2040 LET ZZ$=T$(E1)
2050 GOTO 2700
2060 LET ZZ$=U$(E1)
2070 GOTO 2700
2080 LET ZZ$=V$(E1)
2090 GOTO 2700
2100 LET ZZ$=W$(E1)
2110 GOTO 2700
2120 LET ZZ$=X$(E1)
2130 GOTO 2700
2140 LET ZZ$=Y$(E1)
2150 GOTO 2700
2160 LET ZZ$=Z$(E1)
2170 GOTO 2700
2180 LET ZZ$=B5$(E1)
2190 GOTO 2700
2200 LET ZZ$=C5$(E1)
2210 GOTO 2700
2220 LET ZZ$=D5$(E1)
2230 GOTO 2700
2240 LET ZZ$=E5$(E1)
2250 GOTO 2700
2260 LET ZZ$=F5$(E1)
2270 GOTO 2700
2280 LET ZZ$=G5$(E1)
2290 GOTO 2700
2300 LET ZZ$=H5$(E1)
2310 GOTO 2700
2320 LET ZZ$=I5$(E1)
2330 GOTO 2700
2340 LET ZZ$=J5$(E1)
2350 GOTO 2700
2360 LET ZZ$=A5$(E1)
2370 GOTO 2700
2380 LET ZZ$=K5$(E1)
2390 GOTO 2700
2400 LET ZZ$=L5$(E1)
2410 GOTO 2700
2420 LET ZZ$=M5$(E1)
2430 GOTO 2700
2440 LET ZZ$=N5$(E1)
2450 GOTO 2700
2460 LET ZZ$=O5$(E1)
2470 GOTO 2700
2480 LET ZZ$=P5$(E1)
2490 GOTO 2700
2500 LET ZZ$=Q5$(E1)
2510 GOTO 2700
2520 LET ZZ$=R5$(E1)
2530 GOTO 2700
2540 LET ZZ$=S5$(E1)
2550 GOTO 2700
2560 LET ZZ$=T5$(E1)
2570 GOTO 2700
2580 LET ZZ$=U5$(E1)
2590 GOTO 2700
2600 LET ZZ$=V5$(E1)
2610 GOTO 2700
2620 LET ZZ$=W5$(E1)
2630 GOTO 2700
2640 LET ZZ$=X5$(E1)
2650 GOTO 2700
2660 LET ZZ$=Y5$(E1)
2670 GOTO 2700
2680 LET ZZ$=Z5$(E1)
2690 GOTO 2700
2700 IF X4$ = "l" OR X4$="L" GOTO 2705
2702 PRINT ZZ$;
2703 PRINT "   ";
2704 GOTO 2710
2705 LPRINT ZZ$;
2706 LPRINT "   ";
2710 LET P1=P1+1
2720 NEXT C1
2725 GOSUB 15000
2740 NEXT D1
2750 NEXT E1
2760 LET H1=H1+X3
2770 FOR T1=1 TO Z1
2780 GOSUB 10000
2790 NEXT T1
2800 NEXT F1
2810 FOR Q3=1 TO 11
2820 GOSUB 10000
2830 NEXT Q3
2840 GOTO 7020
2850 LET A$(1)=" AAAAAA "
2860 LET A$(2)="AAAAAAAA"
2870 LET A$(3)="AA    AA"
2880 LET A$(4)="AAAAAAAA"
2890 LET A$(5)="AAAAAAAA"
2900 LET A$(6)="AA    AA"
2910 LET A$(7)="AA    AA"
2920 LET A$(8)="AA    AA"
2930 LET B$(1)="BBBBBBB "
2940 LET B$(2)="BBBBBBBB"
2950 LET B$(3)="BB    BB"
2960 LET B$(4)="BBBBBBBB"
2970 LET B$(5)="BBBBBBB "
2980 LET B$(6)="BB    BB"
2990 LET B$(7)="BBBBBBBB"
3000 LET B$(8)="BBBBBBB "
3010 LET C$(1)=" CCCCCC "
3020 LET C$(2)="CCCCCCCC"
3030 LET C$(3)="CC    CC"
3040 LET C$(4)="CC      "
3050 LET C$(5)="CC      "
3060 LET C$(6)="CC    CC"
3070 LET C$(7)="CCCCCCCC"
3080 LET C$(8)=" CCCCCC "
3090 LET D$(1)="DDDDDDD "
3100 LET D$(2)="DDDDDDDD"
3110 LET D$(3)="DD    DD"
3120 LET D$(4)="DD    DD"
3130 LET D$(5)="DD    DD"
3140 LET D$(6)="DD    DD"
3150 LET D$(7)="DDDDDDDD"
3160 LET D$(8)="DDDDDDD "
3170 LET E$(1)="EEEEEEEE"
3180 LET E$(2)="EEEEEEEE"
3190 LET E$(3)="EE      "
3200 LET E$(4)="EEEEE   "
3210 LET E$(5)="EEEEE   "
3220 LET E$(6)="EE      "
3230 LET E$(7)="EEEEEEEE"
3240 LET E$(8)="EEEEEEEE"
3250 LET F$(1)="FFFFFFFF"
3260 LET F$(2)="FFFFFFFF"
3270 LET F$(3)="FF      "
3280 LET F$(4)="FFFFF   "
3290 LET F$(5)="FFFFF   "
3300 LET F$(6)="FF      "
3310 LET F$(7)="FF      "
3320 LET F$(8)="FF      "
3330 LET G$(1)=" GGGGGG "
3340 LET G$(2)="GGGGGGGG"
3350 LET G$(3)="GG    GG"
3360 LET G$(4)="GG      "
3370 LET G$(5)="GG  GGGG"
3380 LET G$(6)="GG    GG"
3390 LET G$(7)="GGGGGGGG"
3400 LET G$(8)=" GGGGGG "
3410 LET H$(1)="HH    HH"
3420 LET H$(2)="HH    HH"
3430 LET H$(3)="HH    HH"
3440 LET H$(4)="HHHHHHHH"
3450 LET H$(5)="HHHHHHHH"
3460 LET H$(6)="HH    HH"
3470 LET H$(7)="HH    HH"
3480 LET H$(8)="HH    HH"
3490 LET I$(1)="IIIIIIII"
3500 LET I$(2)="IIIIIIII"
3510 LET I$(3)="   II   "
3520 LET I$(4)="   II   "
3530 LET I$(5)="   II   "
3540 LET I$(6)="   II   "
3550 LET I$(7)="IIIIIIII"
3560 LET I$(8)="IIIIIIII"
3570 LET J$(1)="  JJJJJJ"
3580 LET J$(2)="  JJJJJJ"
3590 LET J$(3)="    JJ  "
3600 LET J$(4)="    JJ  "
3610 LET J$(5)="    JJ  "
3620 LET J$(6)="JJ  JJ  "
3630 LET J$(7)="JJJJJJ  "
3640 LET J$(8)=" JJJJ   "
3650 LET K$(1)="KK    KK"
3660 LET K$(2)="KK   KK "
3670 LET K$(3)="KK  KK  "
3680 LET K$(4)="KK KK   "
3690 LET K$(5)="KKKKK   "
3700 LET K$(6)="KKK KK  "
3710 LET K$(7)="KK   KK "
3720 LET K$(8)="KK    KK"
3730 LET L$(1)="LL      "
3740 LET L$(2)="LL      "
3750 LET L$(3)="LL      "
3760 LET L$(4)="LL      "
3770 LET L$(5)="LL      "
3780 LET L$(6)="LL      "
3790 LET L$(7)="LLLLLLLL"
3800 LET L$(8)="LLLLLLLL"
3810 LET M$(1)="MM    MM"
3820 LET M$(2)="MMM  MMM"
3830 LET M$(3)="MM MM MM"
3840 LET M$(4)="MM MM MM"
3850 LET M$(5)="MM    MM"
3860 LET M$(6)="MM    MM"
3870 LET M$(7)="MM    MM"
3880 LET M$(8)="MM    MM"
3890 LET N$(1)="NN    NN"
3900 LET N$(2)="NNN   NN"
3910 LET N$(3)="NN N  NN"
3920 LET N$(4)="NN NN NN"
3930 LET N$(5)="NN NN NN"
3940 LET N$(6)="NN  N NN"
3950 LET N$(7)="NN   NNN"
3960 LET N$(8)="NN    NN"
3970 LET O$(1)=" OOOOOO "
3980 LET O$(2)="OOOOOOOO"
3990 LET O$(3)="OO    OO"
4000 LET O$(4)="OO    OO"
4010 LET O$(5)="OO    OO"
4020 LET O$(6)="OO    OO"
4030 LET O$(7)="OOOOOOOO"
4040 LET O$(8)=" OOOOOO "
4050 LET P$(1)="PPPPPPP "
4060 LET P$(2)="PPPPPPPP"
4070 LET P$(3)="PP    PP"
4080 LET P$(4)="PPPPPPPP"
4090 LET P$(5)="PPPPPPP "
4100 LET P$(6)="PP      "
4110 LET P$(7)="PP      "
4120 LET P$(8)="PP      "
4130 LET Q$(1)=" QQQQQQ "
4140 LET Q$(2)="QQQQQQQQ"
4150 LET Q$(3)="QQ    QQ"
4160 LET Q$(4)="QQ    QQ"
4170 LET Q$(5)="QQ QQ QQ"
4180 LET Q$(6)="QQ  QQQQ"
4190 LET Q$(7)="QQQQQQQQ"
4200 LET Q$(8)=" QQQQQQ "
4210 LET R$(1)="RRRRRRR "
4220 LET R$(2)="RRRRRRRR"
4230 LET R$(3)="RR    RR"
4240 LET R$(4)="RRRRRRRR"
4250 LET R$(5)="RRRRRRR "
4260 LET R$(6)="RR  RR  "
4270 LET R$(7)="RR   RR "
4280 LET R$(8)="RR    RR"
4290 LET S$(1)=" SSSSSS "
4300 LET S$(2)="SSSSSSSS"
4310 LET S$(3)="SS    SS"
4320 LET S$(4)=" SSS    "
4330 LET S$(5)="   SSS  "
4340 LET S$(6)="SS   SSS"
4350 LET S$(7)="SSSSSSSS"
4360 LET S$(8)=" SSSSSS "
4370 LET T$(1)="TTTTTTTT"
4380 LET T$(2)="TTTTTTTT"
4390 LET T$(3)="   TT   "
4400 LET T$(4)="   TT   "
4410 LET T$(5)="   TT   "
4420 LET T$(6)="   TT   "
4430 LET T$(7)="   TT   "
4440 LET T$(8)="   TT   "
4450 LET U$(1)="UU    UU"
4460 LET U$(2)="UU    UU"
4470 LET U$(3)="UU    UU"
4480 LET U$(4)="UU    UU"
4490 LET U$(5)="UU    UU"
4500 LET U$(6)="UU    UU"
4510 LET U$(7)="UUUUUUUU"
4520 LET U$(8)=" UUUUUU "
4530 LET V$(1)="VV    VV"
4540 LET V$(2)="VV    VV"
4550 LET V$(3)="VV    VV"
4560 LET V$(4)="VV    VV"
4570 LET V$(5)="VV    VV"
4580 LET V$(6)=" VV  VV "
4590 LET V$(7)="  VVVV  "
4600 LET V$(8)="   VV   "
4610 LET W$(1)="WW    WW"
4620 LET W$(2)="WW    WW"
4630 LET W$(3)="WW    WW"
4640 LET W$(4)="WW    WW"
4650 LET W$(5)="WW WW WW"
4660 LET W$(6)="WW WW WW"
4670 LET W$(7)="WWW  WWW"
4680 LET W$(8)="WW    WW"
4690 LET X$(1)="XX    XX"
4700 LET X$(2)=" XX  XX "
4710 LET X$(3)="  XXXX  "
4720 LET X$(4)="   XX   "
4730 LET X$(5)="   XX   "
4740 LET X$(6)="  XXXX  "
4750 LET X$(7)=" XX  XX "
4760 LET X$(8)="XX    XX"
4770 LET Y$(1)="YY    YY"
4780 LET Y$(2)="YY    YY"
4790 LET Y$(3)=" YY  YY "
4800 LET Y$(4)="  YYYY  "
4810 LET Y$(5)="   YY   "
4820 LET Y$(6)="   YY   "
4830 LET Y$(7)="   YY   "
4840 LET Y$(8)="   YY   "
4850 LET Z$(1)="ZZZZZZZZ"
4860 LET Z$(2)="ZZZZZZZZ"
4870 LET Z$(3)="    ZZZ "
4880 LET Z$(4)="   ZZ   "
4890 LET Z$(5)="  ZZ    "
4900 LET Z$(6)=" ZZZ    "
4910 LET Z$(7)="ZZZZZZZZ"
4920 LET Z$(8)="ZZZZZZZZ"
4930 LET A5$(1)="  0000  "
4940 LET A5$(2)=" 000000 "
4950 LET A5$(3)="00    00"
4960 LET A5$(4)="00    00"
4970 LET A5$(5)="00    00"
4980 LET A5$(6)="00    00"
4990 LET A5$(7)=" 000000 "
5000 LET A5$(8)="  0000  "
5010 LET B5$(1)="   11   "
5020 LET B5$(2)="  111   "
5030 LET B5$(3)="   11   "
5040 LET B5$(4)="   11   "
5050 LET B5$(5)="   11   "
5060 LET B5$(6)="   11   "
5070 LET B5$(7)="11111111"
5080 LET B5$(8)="11111111"
5090 LET C5$(1)=" 222222 "
5100 LET C5$(2)="22222222"
5110 LET C5$(3)="22    22"
5120 LET C5$(4)="     22 "
5130 LET C5$(5)="   222  "
5140 LET C5$(6)=" 222    "
5150 LET C5$(7)="22222222"
5160 LET C5$(8)="22222222"
5170 LET D5$(1)=" 333333 "
5180 LET D5$(2)="33333333"
5190 LET D5$(3)="33    33"
5200 LET D5$(4)="    333 "
5210 LET D5$(5)="    333 "
5220 LET D5$(6)="33    33"
5230 LET D5$(7)="33333333"
5240 LET D5$(8)=" 333333 "
5250 LET E5$(1)="     44 "
5260 LET E5$(2)="    444 "
5270 LET E5$(3)="   4444 "
5280 LET E5$(4)="  44 44 "
5290 LET E5$(5)=" 4444444"
5300 LET E5$(6)="44444444"
5310 LET E5$(7)="     44 "
5320 LET E5$(8)="     44 "
5330 LET F5$(1)="55555555"
5340 LET F5$(2)="55555555"
5350 LET F5$(3)="55      "
5360 LET F5$(4)="5555555 "
5370 LET F5$(5)="      55"
5380 LET F5$(6)="55    55"
5390 LET F5$(7)="55555555"
5400 LET F5$(8)=" 555555 "
5410 LET G5$(1)="    66  "
5420 LET G5$(2)="   66   "
5430 LET G5$(3)="  66    "
5440 LET G5$(4)=" 666666 "
5450 LET G5$(5)="66666666"
5460 LET G5$(6)="66    66"
5470 LET G5$(7)="66666666"
5480 LET G5$(8)=" 666666 "
5490 LET H5$(1)="77777777"
5500 LET H5$(2)="77777777"
5510 LET H5$(3)="     77 "
5520 LET H5$(4)="    77  "
5530 LET H5$(5)="   77   "
5540 LET H5$(6)="  77    "
5550 LET H5$(7)="  77    "
5560 LET H5$(8)="  77    "
5570 LET I5$(1)=" 888888 "
5580 LET I5$(2)="88888888"
5590 LET I5$(3)="88    88"
5600 LET I5$(4)=" 888888 "
5610 LET I5$(5)=" 888888 "
5620 LET I5$(6)="88    88"
5630 LET I5$(7)="88888888"
5640 LET I5$(8)=" 888888 "
5650 LET J5$(1)=" 999999 "
5660 LET J5$(2)="99999999"
5670 LET J5$(3)="99    99"
5680 LET J5$(4)="99999999"
5690 LET J5$(5)=" 999999 "
5700 LET J5$(6)="    99  "
5710 LET J5$(7)="   99   "
5720 LET J5$(8)="  99    "
5730 LET K5$(1)="        "
5740 LET K5$(2)="        "
5750 LET K5$(3)="        "
5760 LET K5$(4)=" ------ "
5770 LET K5$(5)="        "
5780 LET K5$(6)="        "
5790 LET K5$(7)="        "
5800 LET K5$(8)="        "
5810 LET L5$(1)="        "
5820 LET L5$(2)="        "
5830 LET L5$(3)="   ::   "
5840 LET L5$(4)="        "
5850 LET L5$(5)="        "
5860 LET L5$(6)="   ::   "
5870 LET L5$(7)="        "
5880 LET L5$(8)="        "
5890 LET M5$(1)="        "
5900 LET M5$(2)="        "
5910 LET M5$(3)="        "
5920 LET M5$(4)="        "
5930 LET M5$(5)="        "
5940 LET M5$(6)="        "
5950 LET M5$(7)="  ...   "
5960 LET M5$(8)="  ...   "
5970 LET N5$(1)="        "
5980 LET N5$(2)="        "
5990 LET N5$(3)="        "
6000 LET N5$(4)="        "
6010 LET N5$(5)="  ,,,   "
6020 LET N5$(6)="  ,,,   "
6030 LET N5$(7)="   ,,   "
6040 LET N5$(8)="  ,,    "
6050 LET O5$(1)="     '' "
6060 LET O5$(2)="    ''  "
6070 LET O5$(3)="   ''   "
6080 LET O5$(4)="  ''    "
6090 LET O5$(5)="        "
6100 LET O5$(6)="        "
6110 LET O5$(7)="        "
6120 LET O5$(8)="        "
6130 LET P5$(1)="   !!   "
6140 LET P5$(2)="   !!   "
6150 LET P5$(3)="   !!   "
6160 LET P5$(4)="   !!   "
6170 LET P5$(5)="   !!   "
6180 LET P5$(6)="        "
6190 LET P5$(7)="   !!   "
6200 LET P5$(8)="   !!   "
6210 LET Q5$(1)="        "
6220 LET Q5$(2)="*  *  * "
6230 LET Q5$(3)=" * * *  "
6240 LET Q5$(4)="******* "
6250 LET Q5$(5)=" * * *  "
6260 LET Q5$(6)="*  *  * "
6270 LET Q5$(7)="        "
6280 LET Q5$(8)="        "
6290 LET R5$(1)="  &&&&  "
6300 LET R5$(2)=" &    & "
6310 LET R5$(3)=" &    & "
6320 LET R5$(4)="  &&&&  "
6330 LET R5$(5)=" &  &   "
6340 LET R5$(6)="&    & &"
6350 LET R5$(7)="&     & "
6360 LET R5$(8)=" &&&&& &"
6370 LET S5$(1)="        "
6380 LET S5$(2)="   +    "
6390 LET S5$(3)="   +    "
6400 LET S5$(4)="+++++++ "
6410 LET S5$(5)="   +    "
6420 LET S5$(6)="   +    "
6430 LET S5$(7)="        "
6440 LET S5$(8)="        "
6450 LET T5$(1)="        "
6460 LET T5$(2)="      / "
6470 LET T5$(3)="     /  "
6480 LET T5$(4)="    /   "
6490 LET T5$(5)="   /    "
6500 LET T5$(6)="  /     "
6510 LET T5$(7)=" /      "
6520 LET T5$(8)="        "
6530 LET U5$(1)="        "
6540 LET U5$(2)="        "
6550 LET U5$(3)=" ====== "
6560 LET U5$(4)="        "
6570 LET U5$(5)="        "
6580 LET U5$(6)=" ====== "
6590 LET U5$(7)="        "
6600 LET U5$(8)="        "
6610 LET V5$(1)="      < "
6620 LET V5$(2)="    <   "
6630 LET V5$(3)="  <     "
6640 LET V5$(4)="<<<<<<<<"
6650 LET V5$(5)="<<<<<<<<"
6660 LET V5$(6)="  <     "
6670 LET V5$(7)="    <   "
6680 LET V5$(8)="      < "
6690 LET W5$(1)=" >      "
6700 LET W5$(2)="   >    "
6710 LET W5$(3)="     >  "
6720 LET W5$(4)=">>>>>>>>"
6730 LET W5$(5)=">>>>>>>>"
6740 LET W5$(6)="     >  "
6750 LET W5$(7)="   >    "
6760 LET W5$(8)=" >      "
6770 LET X5$(1)="        "
6780 LET X5$(2)=" \      "
6790 LET X5$(3)="  \     "
6800 LET X5$(4)="   \    "
6810 LET X5$(5)="    \   "
6820 LET X5$(6)="     \  "
6830 LET X5$(7)="      \ "
6840 LET X5$(8)="        "
6850 LET Y5$(1)=" ?????? "
6860 LET Y5$(2)="????????"
6870 LET Y5$(3)="??    ??"
6880 LET Y5$(4)="     ?? "
6890 LET Y5$(5)="    ??  "
6900 LET Y5$(6)="        "
6910 LET Y5$(7)="    ??  "
6920 LET Y5$(8)="    ??  "
6930 LET Z5$(1)="        "
6940 LET Z5$(2)="        "
6950 LET Z5$(3)="        "
6960 LET Z5$(4)="        "
6970 LET Z5$(5)="        "
6980 LET Z5$(6)="        "
6990 LET Z5$(7)="        "
7000 LET Z5$(8)="        "
7010 GOTO 930
7020 PRINT
7030 PRINT
7040 PRINT "DO YOU WANT TO DO ANOTHER ONE (Y/N)  "
7050 PRINT
7055 INPUT H9$
7057 IF H9$ = "y" GOTO 500
7058 IF H9$ = "Y" GOTO 500
7060 IF H9$ = "n" THEN END
7070 IF H9$ = "N" THEN END
10000 IF X4$ = "l" GOTO 11000
10010 IF X4$ = "L" GOTO 11000
10030 PRINT
10040 RETURN
11000 LPRINT
11005 RETURN
15000 IF X4$ = "l" GOTO 17000
15010 IF X4$ = "L" GOTO 17000
15030 PRINT " "
15040 RETURN
17000 LPRINT " "
17010 RETURN
20000 END