ZXTape! 0Created with Ramsoft MakeTZXthinker c@{6c~B<|~<|BB<<~~<|~~~~~~~~`f`ff`|f|ff|?>f|f||f`~|`~~`~~f~?|<`fff~<``fB!! <@<~~|!!B@Bb@~~x$B@BR<`~~x!~~@~J`~~|!!B@BFB``fBB~BB><`|f<`|fZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvqqqqqqqqqqqqqqqqqqqqqqvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvrrrrrrrrrvvrrvrrrrrrrrrrrrvvvvvvrrrrrrrrrvrrrrrrrrrrrrrrrrvvvvvvrrrrrrvrrvrrrrrrrrrrvrrrvvvvvvvvrrrrrrvrrvrrrrrrrrrrvrrrrrvvvvvvrrrrrrvrrvrrrrrrrrrrvrrrrrvvvvvvrrrrrrvrrrrrrrrrrrrrvrrrrrvvvvvvrrrrrrvrrrrrrrrrrrrrvrrrrrvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvrrrrrrrrvvvvvvpppppvppppppppvvvvrrrrrrrvvvvvvvvvvvvvvvvvvvvvvvvvrrrrrrrvvvvllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv8888888888888888888888888888888888888888888888888888888888888888#cc# <@L(8Fx]\\\]\z}]ßc\3fX![!`@P!!88O K SR PW  1984 Ian Hook an ATLANTIS game ]49999O:scip=0:ian=0:t$="-1":SCAN=0:TIME=0:screen=0  "press play on recorder" "" (#"thinker"16384@,25500c -23659k\,0 2E21,0;" ":"":21,0;" ":"":THE THINKER 0 AV20,0;" " FSCREEN=1:4260 P1190:7 Z1,10 ,10 ,2,1,10 ,10 ,2,4,3,3,5,4,6,7,5,8,502,502,9 d3,3,3,3,6,6,6,6,9 ,9 ,9 ,9 ,12 ,12 ,12 ,12 ,15,15,15,15 n10 ,13 ,16,19,10 ,13 ,16,19,10 ,13 ,16,19,10 ,13 ,16,19,10 ,13 ,16,19 x Q=2 W=5 7:0:7 8MOVE=1630^:MOVE A BLOCK  ***SET UP TABLES***** A(7,6) T=176 I=16 A(T,I)=20 I  T  T=26 I=25 B 'CHANGE TO READ A(T,I) LATER  A(T,I)=B I "T ,T=26 6I=165 @A(T,I)=20 JI TT ^********************* h******NEXT TABLE****** r | B(7,6) T=26 I=25 B(T,I) I T   *******NEXT TABLE**** C(7,6) T=26 I=25 C(T,I) I T  & 0SCAN AND INITIAL PRINT : D N[DONE1=0:DONE10=0:DONE2=0:DONE4=0:DONE3=0:DONE5=0 X8BLOCK4=980:BLOCK2=1010:BLOCK1=1000 bBLOCK9=1070.:BLOCK5=1030:BLOCK3=1020:BLOCK10=780 :BLOCK6=1040:BLOCK7=1050:BLOCK8=1060$ lT=26 vI=25 &A(T,I)=1DONE1=0BLOCK1 )A(T,I)=10 DONE10=0BLOCK10 'A(T,I)=2DONE2=0:BLOCK2 &A(T,I)=4DONE4=0BLOCK4 &A(T,I)=3DONE3=0BLOCK3 &A(T,I)=5DONE5=0BLOCK5 A(T,I)=6BLOCK6 A(T,I)=7BLOCK7 A(T,I)=8BLOCK8 A(T,I)=9 BLOCK9 I T SCREEN=0 MOVE:***********  X=B(T,I):Y=C(T,I) 2:X,Y;""  X+1,Y;" " *!X+2,Y;" ";10 ;" " 4X+3,Y;" " >X+4,Y;" " HX+5,Y;"" RDONE10=1: \X=B(T,I):Y=C(T,I) f6:X,Y;"" pX+1,Y;" " zX+2,Y;"";q;"" X+3,Y;" " X+4,Y;" " X+5,Y;""    / A WAY TO USE THE SAME PRINT ROUTINES TWICE  &DONE4=1:Q=4:0860\  LINE 1270=BLOCK4 %DONE1=1:Q=1:860\ %DONE2=1:Q=2:860\ DONE3=1:1090B %DONE5=1:Q=5:860\ &DONE6=1:W=6:1140t &DONE7=1:W=7:1140t $&DONE8=1:W=8:1140t .6A(T,I)=9 DONE9=1:W=9 :1140t 8below is block 3 BX=B(T,I):Y=C(T,I) L5:X,Y;"" V!X+1,Y;" ";3;" " `X+2,Y;"" j tX=B(T,I):Y=C(T,I) ~4:X,Y;"" X+1,Y;"";W;"" X+2,Y;""  ******GRAPHICS******** !50000P:0,0; "A",11111111 "A"+1,11111111 T=27 "A"+T,00000000 T T=05 "B"+T,00000000 T  T=67 "B"+T,11111111 T ("C",11111111 2"C"+1,11111111 <T=27 F"C"+T,10000000 PT ZT=07 d"D"+T,10000000 nT xT=07 "E"+T,00000001 T t=01 "F"+T,11111111 T T=27 "F"+T,00000001 T T=05 "G"+T,10000000 T T=67 "G"+T,11111111 T T=05 "H"+T,00000001 "T ,T=67 6"H"+T,11111111 @T J2920h :brick wall T ^{7:21,2;" PLEASE ENTER BLOCK NUMBER ":JUMP=0:AUTOMOVE=4640 :LOOP=4:SCAN=0 hM$=:M$=""M$="y" mm$="Q":goes=0 nm$="Q"80P rM=M$-480 |PM>9 M<0SCAN=SCAN+1:M>9 M<04470v:TIMER #.4L,m:m=0m=10 H7:21,2;"DIRECTION USE CURSOR ARROWS":LOOP=5 V$= v$="Q":goes=0 v$="Q"80P V=V$-480 PV>8V<5SCAN=SCAN+1:V>8V<54470v:TIMER  .4L,v qBLANK=1800:BLANK1=1870N:BLANK10=2150f:BLANK3=2450 :BLANK4=2720 :ERROR=3350   T=26 I=25 A(T,I)=MBLANK I:T  ERROR A(T,I)=502:BLANK ,A(T+1,I)=50 &1M=1M=2M=4M=5BLANK1 0M=10 BLANK10 :M=3BLANK3 D=M=6M=7M=8M=9 2720 :BLANK4 NNEXT IS BLANK1+++++++ X J=B(T,I) b Y=C(T,I) lL=05 v 7 J+L,Y;" " L .q=M:q=NUMBER IN BLOCK 8V=5V=7V=8A(T+1,I)=502 V=5Y=C(T,I)-3 V=5X=B(T,I) V=5A(T,I-1)=M %V=5A(T+1,I-1)=M V=8Y=C(T,I)+3 V=8X=B(T,I) V=8A(T,I+1)=M %V=8A(T+1,I+1)=M V=6Y=C(T,I) V=6X=B(T,I)+3  V=6A(T+1,I)=M V=6A(T+2,I)=M  V=7Y=C(T,I) *V=7A(T,I)=M 4V=7X=B(T,I)-3 >V=7A(T-1,I)=M H 0870f R 3250 \ 1630^ f+++++ BLANK 10 ======= p z A=05 B(T,I)+A,C(T,I);" " A V=5Y=C(T,I)-3 V=5A(T,I)=M V=5X=B(T,I) V=5A(T,I-1)=M %V=5A(T+1,I-1)=M Pv=5A(T+1,I+1)=502:V=5A(T,I+1)=502 V=8X=B(T,I) V=8Y=C(T,I)+3 V=8A(T,I+2)=M %V=8A(T+1,I+2)=M $V=8A(T+1,I)=502 V=6Y=C(T,I) V=6X=B(T,I)+3 V=6A(T+2,I)=M $%V=6A(T+2,I+1)=M .$V=6A(T,I+1)=502 8V=7Y=C(T,I) BV=7A(T,I)=M LV=7X=B(T,I)-3 VV=7A(T-1,I)=M `%V=7A(T-1,I+1)=M jPV=7A(T+1,I)=502:V=7A(T+1,I+1)=502 t 0790 ~ 3250 1630^ ^^^^^^^ BLANK 3"""""""  A=02 B(T,I)+A,C(T,I);" " A V=5Y=C(T,I)-3 V=5X=B(T,I) $V=5A(T,I+1)=502 V=5A(T,I-1)=M V=5A(T,I)=M V=8Y=C(T,I)+3 V=8X=B(T,I) V=8A(T,I+2)=M V=8A(T,I+1)=M V=6Y=C(T,I) (V=6X=B(T,I)+3 2$V=6A(T,I+1)=502 <V=6A(T+1,I)=M F%V=6A(T+1,I+1)=M PV=7Y=C(T,I) ZV=7X=B(T,I)-3 d$V=7A(T,I+1)=502 nV=7A(T-1,I)=M x%V=7A(T-1,I+1)=M 1100L 3250 1630^  ++++ BLANK 4 +++++ W=M Z=02 B(T,I)+Z,C(T,I);" " Z V=5Y=C(T,I)-3 V=5X=B(T,I) V=5A(T,I-1)=M V=8Y=C(T,I)+3 V=8X=B(T,I) V=8A(T,I+1)=M V=6Y=C(T,I) V=6A(T+1,I)=M "V=6X=B(T,I)+3 ,V=7Y=C(T,I) 6V=7X=B(T,I)-3 @V=7A(T-1,I)=M J 1150~ T 3250 ^ 1630^ h rscip>02980 |goes=0  brick wall   T=02 "I"+T,11100111 T "I"+3,00000000 "I"+4,00000000 T=57 "I"+T,01111110~ T T=9 22 2,T;"" T "J"+0,11100000 &"J"+1,11100111 0"J"+2,11100111 :"J"+3,00000111 D"J"+4,00000111 N"J"+5,11100111 X"J"+6,11100111 b"J"+7,11100000 lT=318 vT,9 ;"" T,22;"" T #18,10 ;" " scip=1  goes=goes+1 7:1 2,0;"Number of" 3,0;"moves so" 4,0;"far is " 1:1 6,2;goes 0:0  0  =========ERROR TRAP==== TA(6,3)=10 A(6,4)=10 4210r:ITS BEEN DONE *MESSAGE=6000p 45M=1M=2M=4M=53530 >M=10 3790 HM=33670V RV=53450z \V=63470 fV=73490 pV=83510 z%A(T,I-1)50238902 1810 %A(T+1,I)50238902 1810 %A(T-1,I)50238902 1810 %A(T,I+1)50238902 1810 ........1,2,4,5 V=53580 V=63600 V=73620$ V=836408 EA(T,I-1)502A(T+1,I-1)50238902  1810 %A(T+2,I)50238902  1810 $%A(T-1,I)50238902 . 1810 8EA(T,I+1)502A(T+1,I+1)50238902 B 1810 L V///////////3//////// `V=53450z jV=83740 tV=63720 ~V=73760 EA(T+1,I)502A(T+1,I+1)50238902  1810 %A(T,I+2)50238902  1810 EA(T-1,I)502A(T-1,I+1)50238902  1810  _______10_______ V=53580 V=63840 V=73760 V=83860 EA(T+2,I)502A(T+2,I+1)50238902  1810 EA(T,I+2)502A(T+1,I+2)50238902  1810 ( 2BJUMP>0AUTOMOVE=AUTOMOVE+10 :JUMP>0AUTOMOVE <".3,2.5 :scip=1 Ft=15:t P.8L,-4.9 Z50000P dian=32920h nian=3ian=0 x"Sorry you can't do that" 5"Are you sure that wasn't deliberate?" 3" Remember you have been warned!" q$ ian=ian+1 12 ,4;q$ t=1130:t ian=34070  1190  5600  1630^ 0:0:7 50100 7:7 t=115:t 50000P 7:0 "321,1;" 1982 Sinclair Research Ltd." ,t=1100d:t 69.25~,5:.25~,7:.25~,9 @9.5,17:.25~,9 :.5,17 J;.25~,9 :1.5@,17:.25~,17 Tc.25~,19:.25~,21:.25~,17:.25~,19:.5,21 ^:.25~,17:.5,19:.9ffff,17 h rITS BEEN DONE! |50000P 59980L 84850:TOCCATA AND CANCAN  4250 37:0:50000P:0,0; !"The object of the exercise is" "to move the red block out" !"through the gap by moving the" ""blocks around.Zero moves block" "10 the rest are as numbered" : #"If you feel a new start may be" !"in order.Press CAPS SHIFT and" """Q"" keys simultaneously." t=1300,:t 50000P @scip=0:ian=0:t$="-1":SCAN=0:TIME=0 J502:SO THAT AFTER SCREEN DUMP COMPLETE LINE 105 READS CORRECT DATA -13 ,5;"Choose a level (1 to 5)" t$= t$>"5"4370 &t$<"1"4370 0!50000P:0,0; : T$="1" DT$="2"TIME=502 NT$="3"TIME=30 XT$="4"TIME=15 bT$="5"TIME=5 l v   TIMER ROUTINE  !T$="1"LOOP=41640h !T$="1"LOOP=51690 SCAN=TIME4590 LOOP=41640h LOOP=51690   AUTOMOVE  ]21,0;" ":JUMP=1:M=5:TEST=3410R  M=M+1 &T=26:I=25  A(T,I)=MAUTOMOVE I:T  V=5:TEST *V=6:TEST 4V=7:TEST >V=8:TEST HM=2TEST=3790 RM=2M=10 \!M=10 AUTOMOVE=4640  fM=10 4610 pM=9 TEST=3670V z M=9 AUTOMOVE=4640  M=9 M=2 M=24600 M=3TEST=3530 M=5TEST=3530 M=5M=0 M=2TEST=3790 M=2M=9 AUTOMOVE=4640   4600 SCREEN=1  MUSIC  X=0 8.1}L,-2:.1}L,-4:1,-2 M.1}L,-2:.1}L,-4:.1}L,-5:.15~,-6 1,-10 $.8L,-9 :23624H\,1:254,1:.2~L,-7:23624H\,23:254,3:.2~L,-4 .23624H\,31:254,4:.17~.z,-5:23624H\,39':254,5:.17~.z,-7:23624H\,40(:254,6 823624H\,568:254,0:.4L,-2:23624H\,15:254,1:.4L,-2:23624H\,15:254,2:.2~L,-2:23624H\,23:254,3 B23624H\,31:254,4:.17~.z,0:23624H\,39':254,5:.17~.z,-5:23624H\,40(:254,6:.17~.z,-4:23624H\,480:254,7 L23624H\,568:254,6:.4L,-7:23624H\,480:254,5:.4L,-7:23624H\,40(:254,4:.2~L,-7:23624H\,39':254,3 V23624H\,31:254,2:.17~.z,-4:23624H\,23:254,1:.17~.z,-5:23624H\,15:254,0:.17~.z,-7:23624H\,15:254,5:.17~.z,-9 :23624H\,40(:254,2 `23624H\,23:254,0:.17~.z,3:23624H\,15:254,7:.17~.z,2:23624H\,568:254,6:.17~.z,0:23624H\,480:254,5:.17~.z,-2:23624H\,40(:254,4 j23624H\,39':254,2:.17~.z,-4:23624H\,23:254,1:.17~.z,-5:23624H\,15:254,6:.17~.z,-7:23624H\,480:254,4:23624H\,39' kL1:11 ,0;"zero":11 ,24;"restarts":502 lp=1 10 m p$=:p$="0"goes=0:0:20,0;" ": 60< o.5:7:1:4:2:5:6:3:0:1:6:3:5:7: qp r911 ,0;" ":11 ,24;" " t 4900$ ciaT-1caimcree"" thinker c@@c @Bb |P.&~!@6# x !X68# x !@6# x 1 Dπ`@<` < D0 H@  `>?@DP@P$`@0>?@?>0PDPPpL??@  >@>`Dp`HT ?0!@>?p@HH@Dd0?A8??` >0PPDPBD~>i  C 8@```B`AD   <@ ?p@ ?` ?`@ }0 ? @ `??` 8 p? >? ??? ?? <?0? ` ??x@??<?p0|8x? 8s?ǁ?xx?@`xxpCǀxp x?0p ~<ǀx/p  _0x 8x ?yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyxxxxxxyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy8888888888888888888888888888888888888888888888888888888888888888!D!<@