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