10 'Program must be copied exactly with exception
20 'of rems.If you prefer to make some changes,
30 'type program as written, if it works (it should)
40 'save it and then you may be able to do some
50 'small changes.
60 REM********** 5 IN ROW **********
70 CALL &BC02:SYMBOL AFTER 32
80 fla=0:GOSUB 1340
90 '********** JJ VINOPAL **********
100 '********* 22 GROONGAL ST *******
110 '********** MAYFIELD WEST *******
120 '1********** N.S.W. 2304 ********
130 MODE 1:INK 0,0:INK 1,24:INK 2,6:INK 3,11
140 :BORDER 0:PAPER 0:PEN 1:i$=CHR$(24)
150 ON BREAK GOSUB 1300:PEN 1:GOSUB 1290
160 GOSUB 860:GOSUB 1290:GOSUB 1650:GOSUB 290
170 :GOSUB 460:GOSUB 1290:GOSUB 290:GOSUB 1290
180 GOSUB 590:GOSUB 1290:GOSUB 290:GOSUB 1290
190 '
200 REM****** I win ******
210 IF posi>3 THEN GOSUB 440:PRINT " I win ! ":GOTO 1170
220 GOTO 170
230 '
240 REM****** select ******
250 :spot=hor
260 :spot=spot+set:IF hor(spot)<>y THEN RETURN
270 calk=calk+1:GOTO 260
280 '
290 :REM****** board ******
300 LOCATE 1,1:PEN 1:ZONE 6
310 PRINT,"1 2 3  4 5 6 7 8";:PEN 3
320 PRINT" FIVE IND":PEN 1:PRINT
330 FOR hor=1 TO 8:PRINT TAB(4);hor;
340 FOR ver=2 TO 9:mark=hor(hor*10+ver)
350 IF mark=comp THEN GOSUB 1500
360 SOUND 1,200+(hor*10),1,15
370 IF mark=hum THEN PEN 2:GOSUB 1550
380 IF mark=207 THEN PEN 3:GOSUB 1600
390 PEN 1:NEXT:PRINT CHR$(8);hor:PRINT:NEXT
400 PRINT,"1 2 3 4 5 6 7 8";:PEN 3
410 PRINT " A ROW !!":RETURN
420 '
430 REM****** ink ******
440 :LOCATE 28,10:INK 2,8,24:PEN 2:RETURN
450 '
460 :REM****** input ******
470 GOSUB 1290
480 :PEN 2:LOCATE 2,21:PRINT base$:LOCATE 2,22:PRINT bases
490 LOCATE 2,23:PRINT base$:PEN 1:PRINT CHR$(22);CHR$(1)
500 LOCATE 5,22:PRINT"Please enter your move ";
510 LOCATE 29,22:INPUT MOV:PRINT CHR$(22);CHR$(0):MOV=MOV+1
520 IF MOV<12 OR MOV>89 THEN 480
530 IF hor(MOV)<>207 THEN 480
540 y=hum:PEN 2:LOCATE 2,21:PRINT bases:LOCATE 2,22:PRINT bases
550 LOCATE 2,23:PRINT base$:PRINT CHR$(22);CHR$(1)
560 PEN 1:LOCATE 5,22:PRINT"Wait for me or else!";
570 PRINT CHR$(22);CHR$(0):hor(MOV)=y:RETURN
580 '
590 :REM****** main ******
600 REM****** H win ******
610 GOSUB 1220
620 IF posi>3 THEN GOSUB 440:PRINT " You win ! " :GOTO 1170
630 stim=res
640 :IF stim<>2 THEN y=comp
650 IF stim=2 THEN y=hum
660 MOV=0:hum1=0:posi=0
670 FOR hor=12 TO 89:mark=0
680 IF hor(hor1<>207 THEN 720
690 GOSUB 1050
700 IF mark<=huml THEN 720
710 huml=mark:MOV=hor
720 :NEXT
730 IF huml<>0 THEN 820
740 stim=stim+1:IF stim<>4 THEN 640
750 hor=res
760 :MOV=CINT(RND*771+12
770 IF hor(MOV)=207 THEN 820
780 hor=hor+1:IF hor<100 THEN 760
790 '
800 REM`*** draw ******
810 GOSUB 440:PRINT "It's draw!":GOTO 1170
820 :hor(MOV)=comp:y=comp
830 GOSUB 1220
840 RETURN
850 '
860 :REM****** title ******
870 CLS:base$=STRING$(37,227):wals=STRING$(9,227)
880 IF fla=1 THEN 890 ELSE DIM hor(100),x(4)
890 x(1)=1:x(2)=9:x(3)=10:x(4)=11
900 FOR comp=1 TO 8:FOR ver=2 TO 9
910 hor(comp*10+ver)=207:NEXT:NEXT
920 hum=249:comp=225:GOSUB 1770
930 INK 0,0:INK 1,24:INK 2,6:INK 3,11
940 PEN#1,0:PRINT#1:PRINT#1:PRINT#1
950 PRINT#1," *:[ FIVE I N A R 0 W7*":PRINT#1
960 PRINT#1:PEN#1,1:PRINT#1," By J.J."t$" @1986":PEN#1,2
970 LOCATE#1,1,12:PRINT#1," "is" Ente r 'Y' -if you want the "i$
980 PRINT#1:PRINT#1," "i$" first move ..'N' if you don't!! ";i$
990 res=ASC(b$)-72:set=0:set=set+1
1000 :a$=INKEY$:IF a$=""THEN 1000
1010 CLS:IF a$="y"OR a$="Y"THEN RETURN
1020 FOR j=1 TO CINT(RND*12):READ y:NEXT:y=y+30:hor(y)=comp:RETURN
1030 '
1040 REM *** H calcul ******
1050 :FOR x=res TO 4:calk=0:set=x(x)
1060 GOSUB 250:set=-set:GOSUB 250
1070 IF calk>posi THEN huml=0:posi=calk
1080 IF posi<>calk THEN 1110
1090 IF stim=res AND posi<4 OR (stim=2 OR stim=3) AND posi<2 THEN 1110
1100 mark=mark+1
1110 :NEXT:RETURN
1120 '
1130 REM`*** data ******
1140 DATA &19,&E,&5,&24,&10,&11,&4,8418,&36,&1A,&1B,&2D
1150 '
1160 REM****** end ******
1170 :FOR s=1 TO 21:SOUND 1,140+15*s,22-s,14
1180 SOUND 1,930,22-s,14:SOUND 1,240,22-s,14
1190 NEXT:CALL &BC02:LOCATE 29,22:PRINT" NEW GAME?"
1200 CALL &BB18:fla=1:GOTO 130
1210 '
1220 :REM****** CALCUL ******
1230 hor=MOV:posi=0:FOR x=res TO 4:calk=0:set=x(x)
1240 GOSUB 250:set=-set:GOSUB 250
1250 IF calk>posi THEN posi=calk
1260 NEXT:RETURN
1270 '
1280 REM****** sound ******
1290 :SOUND 1,11,5,15:SOUND 2,21,5,15:RETURN
1300 :INK 0,0:INK 1,13:MODE 2:PAPER 1:PEN 0:CLS:LIST
1310 :RUN 140
1320 '
1330 REM****** symbols ******
1340 :SYMBOL 225,60,36,231,165,189,90,24,102
1350 SYMBOL 216,128,124,32,16,8,5,5,5
1360 SYMBOL 217,8,16,32,64,128,4,2,1
1370 SYMBOL 218,0,0,0,16,0,18,127,128
1380 SYMBOL 219,0,0,0,1,1,36,251;4
1390 SYMBOL 220,0,0,0,192,52,138,133,64
1400 SYMBOL 221,16,8,4,4,2,2,225,30
1410 SYMBOL 222,21,133,68,56,0,0,0,0
1420 SYMBOL 223,33,1,130,124,0,0,0,0
1430 SYMBOL 224,64,32,32,16,16,8,8,0
1440 SYMBOL 226,0,24,24,24,66
1450 SYMBOL 249,28,28,72,62,9,24,164,70
1460 SYMBOL 250,12,0,64,8,9,8,128,130
1470 SYMBOL 227,254,254,254,0,239,239,239,0
1480 RETURN
1490 '
1500 :REM`*** picturel ******
1510 PRINT CHR$(128)::PRINT CHR$(22);CHR$(1);
1520 PRINT CHR$(8);CHR$(225);:PEN 2:PRINT CHR$(8);CHR$(226);
1530 PRINT" ";CHR$(221;CHR$(0)::RETURN
1540 '
1550 :REM****** picture2 ******
1560 PEN 1:PRINT CHR$(128);:PRINT CHR$(22):CHR$(1);
1570 PRINT CHR$(8);CHR$(249);:PEN 3:PRINT CHR$(8);CHR$(250);
1580 PRINT" ";CHR$(22);CHR$(0);:RETURN
1590 '
1600 :REM****** lot ******
1610 PRINT CHR$(128);:PRINT CHR$(22);CHR$(1);
1620 PRINT CHR$(8);CHRS(207);:PEN 2:PRINT CHR$(8);CHR$(144);
1630 PRINT" ":CHR$(22):CHR$(0);:RETURN
1640
1650 :REM`*** sign ******
1660 PEN 3:LOCATE 28,4:PRINT iS"Newcastle":LOCATE 28,5:PRINT" Amstrad ";i$
1670 LOCATE 28,6:PRINT is" Users ":LOCATE 28,7:PRINT" Group ";i$
1680 LOCATE 28,9:PRINT wal$:LOCATE 28,11:PRINT wal$
1690 LOCATE 28,8:PRINT is" ":LOCATE 28,10:PRINT i$wal$
1700 LOCATE 28,3:PRINT is" ":LOCATE 28,15:PRINT" "t$" ";i$
1710 LOCATE 28,13:PRINT i$" "CHR$(164)"1986"
1720 LOCATE 28,14:PRINT" J.J. ";i$
1730 LOCATE 28,12:PRINT is" ":LOCATE 28,17:PRINT" ";i$
1740 LOCATE 28,16:PRINT $"Australia";$ :RETURN
1750 '
1760 REM******* title a ******
1770 :LOCATE 18,8:FOR w=216 TO 221:PRINT CHR$(w);:NEXT
1780 LOCATE 18,9:PRINT CHR$(222)CHR$(223 )" "CHR$(224)" "
1790 t$="VINOPAL":ORIGIN 0,0:TAG:x=142:y =380
1800 FOR t=1 TO 16
1810 PLOT -10,-10,VAL(MID$("132123133212312123",t,1)):ty=y-t*6
1820 IF t<6 THEN MOVE x-t*24,ty:PRINT"JJV";:MOVE x+310+t*24,ty:PRINT"JJV";
1830 MOVE x+96-t*12,ty:PRINT"1986 JJ";:MOVE x+182+t*12,ty:PRINT t$;
1840 SOUND 1,14,1,9:NEXT:b$=MID$(t$,2,1):TAGOFF
1850 WINDOW#1,1,40,10,25:PAPER#1,3:PEN#1,1:CLS#1
1860 RETURN








10 'Program must be copied exactly with exception
20 'of rems.If you prefer to make some changes,
30 'type program as written,if it works (it should)
40 'save it and then you may be able to do some
50 'small changes.
60 REM ****** TWIST CUBE  *********
70 REM ****** copyrights (c) ******
80 REM ******  J.J.VINOPAL   ******
90 REM ****** ++++++++++++++ ******
100 REM ****** MAYFIELD WEST ******
110 REM ****** NSW     2304  ******
120 REM
130 CALL-&43FE:MODE 1:INK 0,0:INK 1,6:INK 2,9:INK 3,26
140 ON BREAK GOSUB 1780
150 REM
160 REM ********* dimensions **********
170 DIM b(16),c(4):tw=0:b=1:c=0:x=0:d$="J.J.VINOPAL":m$=CHR$(11)
180 f$=STRING$(38,32):e$=MID$(d$,6,1):k$=CHR$(8):j$=CHR$(10)
190 zl$=(CHR$(22)+CHR$(1)):z0$=(CHR$(22)+CHR$(0)):ol$=CHR$(15)
200 il$=CHR$(24):GOSUB 1240:GOSUB 1920
210 CALL-&43FE:MODE 1:INK 0.0:INK 1,6:INK 2,9:INK 3,26
220 WINDOW#1,9,28,4,24:WINDOW#2,30,39,12,18:WINDOW#3,6,9,4,24
230 PEN#1,1:PAPER#1,3:CLS#1:PAPER#3,3:CLS#3
240 u$="M.J.LINHART":d=ASC(e$)-72:GOSUB 1100
250 REM
260 REM ************ made array ***Mt*
270 FOR b=1 TO 4:b(b)=CINT(b/2):b(b+4)=CINT(b/2)
280 b(b+8)=CINT(b/2)+2:b(b+12)=CINT(b/2)+2
290 NEXT
300 IF d=1 THEN GOSUB 420 ELSE CALL &4006
310 REM
320 REM ********** twistiRs ***********
330 PEN 1:IF tw<11 THEN LOCATE 21,2:PRINT"randomly twistine":tw=tw+1
340 SOUND 1,12,1,15:1F tw<11 THEN x=CINT (RND*12)
350 IF tw>10 THEN GOSUB 500
360 IF x<2 OR x=5 OR x=9 OR x>12 THEN 34 0
370 GOSUB 640
380 IF tw<10 THEN LOCATE 23,3:PRINT"twist"tw" times"
390 GOSUB 420:tw=tw+1
400 GOTO 340
410 REM
420 REM ********** print board ***********
430 BORDER 0:LOCATE #1,1,3
440 FOR b=1 TO 16:GOSUB 800:REM 2 b(b)
450 SOUND 1,999,1,15
460 IF b/4=INT(b/4) THEN GOSUB 1160:REM 1-9
470 NEXT
480 RETURN
490 REM
500 REM ********** input ***********
510 PEN 3
520 IF tw>10 THEN GOSUB 690:CALL &BB9C:LOCATE 15,2:PRINT"Your twist it "tw-11" times":CALL &BB9C
530 IF tw<11 THEN RETURN
540 PRINT" "f$
550 LOCATE 31,5:PRINT"CHOICE?":LOCATE 31,6:PRINT"<1-9 >"
560 PEN 1:LOCATE 29,20:PRINT d$:LOCATE 29,22:PRINT u$
570 a$=INKEY$:IF a$="" THEN 570
580 x=VAL(a$):IF x<1 OR x>9 THEN 570
590 SOUND 1,800,10,15
600 IF x<4 THEN x=x+1:RETURN
610 IF x<7 THEN x=x+2:RETURN
620 x=x+3:RETURN
630 REM
640 REM *********** twist **********
650 c(1)=b(x):c(2)=b(x+4):c(3)=b(x+3):c(41=b(x-1)
660 b(x)=c(4):b(x+4)=c(1):b(x+3)=c(2):b(x-1)=c(3)
670 RETURN
680 REM
690 REM ********** check ************
700 sc=0:IF b(1)=1 AND b(2)=1 AND b(5)=1 AND b(6)=1 THEN sc=sc+1
710 IF b(3)=2 AND b(4)=2 AND b(7)=2 AND b(7)=2 THEN sc=sc+1
720 IF b(9)=3 AND b(10)=3 AND b(13)=3 AND b(14)=3 THEN sc=sc+1
730 IF b(11)=4 AND b(12)=4 AND b(15)=4 AND b(16)=4 THEN sc=sc+1
740 IF sc<>4 THEN RETURN
750 REM
760 REM ********** end ***********
770 INK 3,1,3:PEN 3:PRINT"good":PRINT"bY e! 11"
780 GOSUB 2230:CALL-17640:RUN
790 REM
800 REM ******** picture **********
810 wi=1:IF b(b)=1 THEN GOSUB 880
820 IF b(b)=2 THEN GOSUB 930
830 IF b(b)=3 THEN GOSUB 980
840 IF b(b)=4 THEN GOSUB 1030
850 RETURN
860 REM
870 REM ******** draw 4 signs *********
880 PRINTftwi," "j$k$k$" "m$k$k$:
890 PRINT#wi,z1$ol$"1"CHR$(129)+CHR$(130)j$k$k$CHR$(132)+CHR$(135)m$;
900 PRINT#wi,k$ol$"2"CHR$(131)j$k$k$CHR$(133)+CHR$(136)k$k$;
910 PRINT#wi,ol$"0"CHR$(134)+CHR$(137);
920 PRINT#wi,z0$m$" ";:RETURN
930 PRINT#wi," "j$k$k$" "m$k$k$;
940 PRINT#wi,z1$ol$"0"CHR$(140)+CHR$(141)j$k$k$CHR$(143)+CHR$(145)12$;
950 PRINT#wi,k$k$ol$"1"CHR$(139)k$J$CHR$(144)+CHR$(138)m$k$ol$"2";
960 PRINT#wi,CHR$(142)j$k$k$CHR$(137)+CHR$(137);
970 PRINT#wi,z0$m$" ";:RETURN
980 PRINT#wi," "i$k$k$" "m$k$k$;
990 PRINT#wi,z1$(31$"2"CHR$(149)+CHR$(151)j$k$k$CHR$(153)+CHR$(156)m$;
1000 PRINT#wi,ol$"0"k$k$CHR$(148)+CHR$(150)j$k$k$CHR$(155)+CHR$(158);
1010 PRINT#wi,m$ol$"1"k$k$CHR$(147)+CHR$(152)j$k$k$CHR$(154)+CHR$(157);
1020 PRINT#wi,z0$m$" ";:RETURN
1030 PRINT#wi," "j$k$k$" "m$k$k$;
1040 PRINT#wi,z1$ol$"1"CHR$(160)+CHR$(163)j$k$k$CHR$(166)+CHR$(170)m$;
1050 PRINT#wi,k$k$ol$"2"CHR$(161)+CHR$(164)k$J$k$CHR$(168)+CHR$(169)m$k$;
1060 PRINT#wi,ol$"0"k$CHR$(162)+CHR$(165)k$j$k$CHR$(167)+CHR$(171);
1070 PRINT#wi,z0$m$" ";:RETURN
1080 REM
1090 REM ******** side signs **********
1100 PAPER#2,3:CLS#2
1110 PEN#2,2:LOCATE#2,2,2:wi=2:GOSUB 890:LOCATE#2,6,2:GOSUB 940
1120 LOCATE#2,2,5:GOSUB 990:LOCATE#2,6,5:GOSUB 1040
1130 PEN#wi3O:FOR dd=1 TO 7:LOCATE#2,9,dd:PRINT#wi,i1$" "il$;:NEXT
1140 RETURN
1150 REM
1160 REM ************ heading 1-9 ****** *****
1170 PEN#1,2:IF b=4 THEN PRINT#1,J$j$" "b-3" "b-2" "b-1
1180 IF b=8 THEN PRINT#1,j$j$" "b-4" "b-3" "b-2
1190 IF b=12 THEN PRINT#1,j$j$" "b-5" "b-4" "b-3
1200 PEN#1,1:PRINT#1
1210 RETURN
1220 REM
1230 REM ********* define symbols *********
1240 SYMBOL AFTER 128
1250 SYMBOL 246,128,124,32,16,8,5,5,5
1260 SYMBOL 247,8,16,32,64,128,4,2,1
1270 SYMBOL 248,0,0,0,16,0,18,127,128
1280 SYMBOL 249,0,0,0,1,1,36,251,4
1290 SYMBOL 250,0,0,0,192,52,138,133,64
1300 SYMBOL 251,16,8,4,4,2,2,225,30
1310 SYMBOL 252,21,133,68,56,0,0,0,0
1320 SYMBOL 253,33,1,130,124,0,0,0,0
1330 SYMBOL 254,64,32,32,16,16,8,9,0
1340 SYMBOL 129,0,1,3,2,2,2,2,2'g
1350 SYMBOL 130,0,2,255,17,17,17,17,17'g
1360 SYMBOL 131,252,252'r
1370 SYMBOL 132,255,127,127,199,131'g
1380 SYMBOL 133,0,0,128,0,0,16'r
1390 SYMBOL 134,0,0,0,56,68,68,68,56'b
1400 SYMBOL 135,255,255,255,226,193'g
1410 SYMBOL 136,0,0,0,1,0,8'r
1420 SYMBOL 137,0,0,0,28,34,34,34,28'A-b-g
1430 SYMBOL 139,10,16'r
1440 SYMBOL 140,0,0,120,120,48,50,50,255 11 'b
1450 SYMBOL 141,0,255,34,34,34,34,34,255 'b
1460 SYMBOL 142,82'g
1470 SYMBOL 143,170,255,255,99,221'b
1480 SYMBOL 144,85,0,0,128,0,8'r
1490 SYMBOL 145,183,193,255,227,221'b
1500 SYMBOL 138,72,54,0,0,0,8'r
1510 SYMBOL 147,2,0,0,0,1'r
1520 SYMBOL 148,0,0,0,0,240'b
1530 SYMBOL 149,0,7,15,240,6,15,15,8'A
1540 SYMBOL 150,0,0,0,0,132'b
1550 SYMBOL 151,0,240,248,96,48.120,248,8'g
1560 SYMBOL 152,0,0,0,128,64,128'r
1570 SYMBOL 153,127,191,223,58,42,57'A
1580 SYMBOL 154,0,64,0.0,16'r
1590 SYMBOL 155,0,0,0,129,129,128,200,126'b
1600 SYMBOL 156,254,253,251,92,84,156'g
1610 SYMBOL 157,0,2,0,0,8'r
1620 SYMBOL 158,0,0,0,129,129,1,35,254'b
1630 SYMBOL 160,147,224,128,64,64,64,64,64'r
1640 SYMBOL 161,0,22,96,1'g
1650 SYMBOL 162,0,0,2,4,8,10,17,16'b
1660 SYMBOL 163,248,0,0,64,0,64,0,64'r
1670 SYMBOL 164,0,12,0,16'g
1680 SYMBOL 165,0,240,72,4,66,10,81,33'b
1690 SYMBOL 166,106,64,32,0,32'r
1700 SYMBOL 167,21,16,17,122,140,136,142,113'b
1710 SYMBOL 168,0,0,0,0,0,33'g
1720 SYMBOL 169,64,0,0,0,0,16'g
1730 SYMBOL 170,128'r
1740 SYMBOL 171,21,161,81,10,66,4,72,240'lb
1750 RETURN
1760 REM
1770 REM ************ inks **************
1780 CALL &BC02:MODE 2:INK 2,13:INK 1,26:PEN 1:LIST
1790 REM
1800 REM ******** title a *********
1810 :LOCATE 18,8:FOR w=246 TO 251:PRINT CHR$(w);:NEXT
1820 LOCATE 18,9:PRINT CHR$(252)CHR$(253)" "CHR$(254)" "
1830 t$=RIGHT$(d$,7):w$="LINHART":ORIGIN0,0:TAG:x=142:y=380
1840 FOR t=1 TO 16
1850 PLOT -10,-10,VAL(MID$("132123133212312123",t,1)):ty=y-t*6
1860 IF t<6 THEN MOVE x-t*24,ty:PRINT"JJV";:MOVE x+310+t*24,ty:PRINT"MJL";
1870 MOVE x+96-t*12,ty:PRINT t$;:MOVE x+162+t*12,tv:PRINT w$;
1880 SOUND 1,14,1,9:NEXT:TAGOFF
1890 WINDOW#1,1,40,10,25:PAPER#1,3:PEN#1,1:CLS#1
1900 RETURN
1910 REM
1920 REM ********* title b ***********
1930 CLS.:i$=CHR$(24)
1940 GOSUB 1800
1950 INK 0,0:INK 1,24:INK 2,6:INK 3,11
1960 PEN#1,0:PRINT#1:PRINT#1:PRINT#1
1970 PRINT#1," *C TWIST I N A C U B E ]*":PRINT#1
1980 PRINT#1:PEN#1,1:PRINT#I," y J.J."t$" @1986":PEN#1,2
1990 LOCATE#1,1,12:PRINT#1," "i$" Ent er 'Y' for instructions "i$
2000 PRINT#1:PRINT#1," "i$" Enter 'N' if you don't need it! ";i$
2010 :a$=INKEY$:IF a$=""THEN 2010
2020 CLS:IF a$="y"OR a$="Y"THEN GOTO 2060
2030 RETURN
2040 REM
2050 REM ******** instructions board *********
2060 MODE 1:CLS:PRINT"Instructions"
2070 PRINT:PRINT CHR$(238)STRING$(38,198)CHR$(238)
2080 FOR s=4 TO 23:LOCATE 1,s:PRINT CHR$(197):LOCATE 40,5:PRINT CHR$(199):NEXT
2090 LOCATE 1,24:PRINT CHR$(238)STRING$(38,196)CHR$(238)
2100 LOCATE 12,25:PRINT "J.Vino p a1"i$
2110 WINDOW #4,3,38,5,22:PAPER #4,1:PEN #4,2:CLS#4
2120 REM
2130 REM *******instructions ********
2140 PRINT#4:PRINT#4
2150 PRINT#4," YOU MUST TWIST CLOCKWIS E NEST OF":PRINT#4
2160 PRINT#4,"4 SIGNS SO AS TO FINALLY ARRIVE AT":PRINT#4
2170 PRINT#4," THE SMALL PICTURE ON THE RIGHT. IT":PRINT#4
2180 PRINT#4," IS LIKE A 2D RUBIC CUBE. THE TOP ":PRINT#4
2190 PRINT#4," LEFT MUST BE 4 CARS, TOP RIGHT 4":PRINT#4
2200 PRINT#4," TRAINS, BOTTOM LEFT 4 TANKS AND ":PRINT#4
2210 PRINT#4," BOTTOM RIGHT 4 BICYCLES. JJV"
2220 GOSUB 2230:CALL &BB18:RETURN
2230 REM
2240 REM ****** sound ******
2250 :ENT -1,1,-7,8,1,7,8,8,1,1,8,1,7:SOUND 1,60,770,9,0,1
2260 ENT -5,4,1,1,4,-1,1
2270 FOR w=1 TO 2:RESTORE
2300:FOR n=0 TO 14
2280 READ p:SOUND 2,p*2,30,14-w*3,,5:NEXT:NEXT
2290 p=0:w=0:n=0:RETURN
2300 DATA 119,119,126,134,134,142,150,179,189;213,239,239,179,189,213