ZXTape! 0Created with Ramsoft MakeTZX SHIFT  i  Ea=23613=\+256*23614>\:a,0:a+1,0 9900& H2;6;1;21,5;"SHIFT SHAFT IS LOADING" 0:6,0:"" &COPYRIGHT &V"T",31:"T"+1,63?:"T"+2,112p:"T"+3,224 &^"T"+4,224:"T"+5,112p:"T"+6,63?:"T"+7,31 &R"U",0:"U"+1,15:"U"+2,15:"U"+3,3 &\"U"+4,1:"U"+5,0:"U"+6,127:"U"+7,127 &V"S",0:"S"+1,254:"S"+2,254:"S"+3,128 &`"S"+4,192:"S"+5,224:"S"+6,240:"S"+7,240 &0:0:7: &22,7;"PUBLISHED BY ";1;"" &!3,22;1;"" &35,5;1;" 1984 I.J Humphreys." &16,6;2;"ALL RIGHTS RESERVED" &&9 ,7;"COPYRIGHT WARNING" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the":"copyright, of SHIFT SHAFT." :"Please note that unauthorised":"copying, hiring and lending or":"broadcasting of this software":"is strictly prohibited." & VSHAFT ?>'/ ?64000:""64000 .236066\,245:236077\,250 N$(8,12 ):V$(8,5):O$(9 ,8):HE=9 :9320h$:9090#:7160:7000X:HE=0:7160:7210* 0:23658j\,8:D(5,25):C$(2,3):S$(2,5):F(2):K$="":X(2):Y(2) T$="PLAYER":C$(1)="500":C$(2)="500":S$(1)="00000":S$(2)="00000":COL=7:P=0:DIR=1:A$="":ARR=4 7:1:7: CI=15:D(I,3)=7:D(I,24)=7:I .0,0;" " ?a=121:a,0;" ":a Ea=4214:a,1;" ":a /21,0;" " [6;1;1;21,1;"CLOCK1:500";21,14;"CLOCK2:500" (I=12:PL=I:4802:I 7N=021:6;N,25;" ":N N=02111 :N,25;1;7;T$;N/11 +1:N+1,26;"DICE";N+3,27;"ij";N+4,27;"kl":N+6,25;"MOVES:0":N+8,26;"SCORE":N+9 ,26;"00000":N A=12:215,152-P*88X:18,0:0,-17:-18,0:0,17:P=1:A f23659k\,1:2;7;1;22,0;" 1 OR 2 PLAYER GAME (1/2)? " =""25 ("1"Ʀ"2")25 @="1"T$="SPECCY ":0,25;1;T$:FL=1 ="2"FL=0 "f23659k\,1:7;2;1;22,0;" COMPUTER INITIALISATION! " #A=1174 $B=4213 &6C=(A/4)+1:D(C,B)=(*15)+1 '_D(C,B)>8D(C,B)=9 :D(C,B+1)=0:D(C,B+2)=(*5):43+ (D(C,B+1)=(*5) *D(C,B+2)=D(C,B+1) +.02{# =,20:D(C,B+1);A,B;O$(D(C,B),12);A+1,B;O$(D(C,B),34);A+2,B;O$(D(C,B),56) ,DD(C,B+2);A+3,B;"";(123{+D(C,B+2)):B:A - 4000 223659k\,1 5P=P:T$="PLAYER" 6N22,0;2;1;T$;P+1;" TO THROW DICE (KEY 'T')" 7gP=0FL=1T$="SPECCY ":2;7;1;22,0;T$:K$="T":60< 8.4L,25 9 1100L :K$= <K$"T"568 F,A=130:M=(*6)+1 HEP*11 +3,27;" ";P*11 +4,27;" " K..005y# =,20:1000+(M*10 ) MA P P*11 +6,31;M Z]23659k\,1:22,0;2;1;"SHIFT ARROW TO SHAFT TO BE MOVED" _K$="" aCOMO=0 b-FL=1P=08000@:106j cc2;0,ARR;A$((DIRDIR=2)+1(DIRDIR=2)+2):.07}\(,10 d-FL=1P=01100L:105i e 1100L fK$= g)(K$"Z"K$"X")K$13 101e h 107k j!ARR=COMOCDIR=DIRK$=13 k0,ARR;" " n:K$="Z"DIR+1=3ARR=ARR-3:DIR=0 x:K$="X"DIR+1=3ARR=ARR+3:DIR=0 (K$=13 250+(502*DIR) ARR>19ARR=4 ARR<4ARR=19 +DIR=DIR+1:DIR=3DIR=1 99c  3000 ,GI=12:X(I)=ARRY(I)=11,-10 :95_ -I .POS=5:.1}L,20:I=14:D(I,ARR)=D(I+1,ARR):D(I,ARR+1)=D(I+1,ARR+1):D(I,ARR+2)=D(I+1,ARR+2):I /0I=12:X(I)=ARRY(I)=Y(I)-4 0I 1 2000 664500,ARR:I=172:RR=64000:D(5,ARR+1);20,ARR;O$(D(5,ARR),II+1):I @\20,ARR;D(5,ARR+2);"";(123{+D(5,ARR+2)):M=M-1 E 365m ^HI=12:X(I)=ARRY(I)=171,-10 :95_ _I `POS=1:.1}L,20:I=52-1:D(I,ARR)=D(I-1,ARR):D(I,ARR+1)=D(I-1,ARR+1):D(I,ARR+2)=D(I-1,ARR+2):I a0I=12:X(I)=ARRY(I)=Y(I)+4 bI c 2000 h64500,ARR:I=71-2:RR=64250:1,ARR;D(1,ARR+1);O$(D(1,ARR),II+1):I k[4,ARR;D(1,ARR+2);"";(123{+D(1,ARR+2)):M=M-1 m 3000 o 4000 rM080P |,P*11 +6,31;"0":502 GP*11 +3,27;"ij";P*11 +4,27;"kl": GP*11 +3,27;"m ";P*11 +4,27;" m": P*11 +3,27;"ij";P*11 +4,27;"kl";1;P*11 +3,27;"m ";P*11 +4,27;" m": GP*11 +3,27;"mm";P*11 +4,27;"mm": 1;P*11 +3,27;"mm";P*11 +3,27;"ij";P*11 +4,27;"mm";P*11 +4,27;"kl": $GP*11 +3,27;"nn";P*11 +4,27;"mm": LR.002xn,0:1;6;21,8+P*13 ;C$(P+1) VC=C$(P+1)-1 ` P$="000"+C e#C$(P+1)=P$(P$-2̱P$) jC=023659k\,1:2;1;22,0;"TIME-OUT...PLAYER";P+1;" BACK TO START":PL=P+1:C$(PL)="500":4499:4000 t "D(POS,ARR)=(*12 )+1 " D(POS,ARR+1)=(*5) qD(POS,ARR)>8D(POS,ARR)=9 :D(POS,ARR+1)=0:D(POS,ARR+2)=(*5):2040 'D(POS,ARR+2)=D(POS,ARR+1)  I=112 4WY=(*5):WX=((*4)*3)+7 &D(WY+1,WX)=83032 I  I=110 R=(*5) ۄ.003xD,25:R;WY*4+1,WX;"uv";WY*4+2,WX;"wx";WY*4+3,WX;"yz":I=9 3050 I 4030  I=10 :R=13:WY*4+R,WX;"":R:D(WY+1,WX)=0:WX=WX-3+6*(1P):D(WY+1,WX)=8:R=D(WY+1,WX+2):3035 RX(1)=X(2)Y(1)=Y(2)PL=(*2)+1:4800 X(1)=19ƫ(Y(1),X(1)+3)15 Y(1)*25+X(1)+3Y(2)*25+X(2)F(1)=F(1)+1:COL=1:PL=1:C=C$(1):C$(1)="500":MOV=3:6000p:4015:5000 X(2)=4ƫ(Y(2),X(2)-2)15Y(2)*25+X(2)-3Y(1)*25+X(1)F(2)=F(2)+1:COL=1:PL=2:C=C$(2):C$(2)="500":MOV=-3:6000p:4015:5000 (Y(1),X(1))-568=D((Y(1)/4)+1,X(1)+5)MOV=3:PL=1:4012:4000 (Y(2),X(2))-568=D((Y(2)/4)+1,X(2)-1)MOV=-3:PL=2:4012:4000 }D((Y(1)/4)+1,X(1)+3)=7PL=1:SPR=4:MOV=3:DIT=-2:4008 ~D((Y(2)/4)+1,X(2)-3)=7PL=2:SPR=-2:MOV=-3:DIT=2:4008  D((Y(PL)/4)+1,X(PL)+MOV)=0:I=1183:((X(PL)+SPR)*8)+DIT,(22-Y(PL))*8-1:D((Y(PL)/4)+1,X(PL)+SPR):0,-I:DIT=DIT+DIT/2:Z=13:.001wn,20:Z:I BI=02:Y(PL)+I,X(PL)+SPR/2;" ":I:4012 0:4000 +I=120:.002xn,0:I gX(PL)=1X(PL)=22I=02:1;7;Y(PL)+I,X(PL);" ":I:4020 +I=02:Y(PL)+I,X(PL);"":I :X(PL)=X(PL)+MOV:I=1491542:MI=D((Y(PL)/4)+1,X(PL)+2):COL;MI;Y(PL)+(I-149)/2,X(PL);I;Y(PL)+(I-149)/2,X(PL)+1;(I+1):I:COL;MI;Y(PL)+1,X(PL)+1;(91[+MI)  COL=7 fD((Y(PL)/4)+1,X(PL))<6C=D((Y(PL)/4)+1,X(PL))*100d:6000p ëI=12:D((Y(I)/4)+1,X(I))=6D((Y(I)/4)+1,X(I))=8PL=I:23659k\,1:4490+D((Y(I)/4)+1,X(I)) I ^D((Y(PL)/4)+1,X(PL))=9 :D((Y(PL)/4)+1,X(PL)+1)=0  T22,0;2;1;"UH,OH YOU'VE MET A SHAFT MONSTER":4499 H22,0;2;1;"ZZZAPPO.. A WIZARD WIPES YOU OUT" 23659k\,2 3X(PL)=1X(PL)=22H$=" ":4540  H$="" ~I=02:2;Y(PL)+I,X(PL);"":Z=5020-1:.002xn,Z:Z:1;Y(PL)+I,X(PL);H$:I  4040 PL=1X(PL)=1 PL=2X(PL)=22 $Y(PL)=(*5)*4+1 %(Y(PL),X(PL))5794800 jMI=(*5):MI;Y(PL),X(PL);"";Y(PL)+1,X(PL);"";(91[+MI);Y(PL)+2,X(PL);"" $ -I=12:F(I)=55020 I  4800 b23659k\,1:2;1;22,0;"PLAYER";I;" WINS SCORE:";S$(I) EFL=1I=12;1;22,0;" SPECCY" 23659k\,2 A=1300,:A  0 !S$(I)>V$(8)7100 7160:7210* Q2;1;21,0;1;" ANOTHER GO (Y/N)? " ="N"0 ="Y"4  5030 p S=C+S$(PL) uP$="00000"+S zS$(PL)=P$(P$-4̱P$) v.05|L,15:.05|L,17::.07}\(,20:1;9 +(PL-1)*11 ,26;S$(PL)  X"NUM=64400:MEM=64140 bA=18 lB=011 v*N$(A,B+1)=(MEM):MEM=MEM+1 x".01z# =,B:.02{# =,B+1 {B @C=04:V$(A,C+1)=(NUM):NUM=NUM+1:C A  V$(8)=S$(I)  T$=S$(I) A=71-1 aS$(I)>V$(A)T$=V$(A):V$(A)=V$(A+1):V$(A+1)=T$:N$(A+1)=N$(A):7150 N$(A+1)=" ":7160 A N$(A+1)=" " /1:1:1:0::7 0HE,0;"" i"";2;1;1;" ";0;1;7;0;""  i"";2;1;1;" ";1;7;0;0;"" i"";2;1;1;" ";1;7;0;0;""  $"" % *Z=2172 >e"";1;Z/2;")";N$(Z/2);0;"";1;V$(Z/2);0;"" H$"" RZ W2A=18:N$(A,1)=" "7400 YA \Z7;2;1;1;21,0;" PRESS ANY KEY TO CONTINUE! " f 0 p .W=10 :EY=A*2+3:EX=8 U2;7;1;21,0;" PLAYER";I;"- INPUT YOUR NAME! " NFL=1I=12;1;7;21,3;" SPECCY"  7620 B=112 "FL=1I=17600 K$= A1;EY,EX;"":.02{# =,20:Z:1;EY,EX;" " K$=07415 Z=15:Z K$(13 )7457! .K$=(13 )N$(A,1)=" "7420  7510V !'K$=(12 )EX87420 $CK$=(12 )EX>7EX=EX-1:B=B-2:7500L .1;EY,EX;K$ 8 N$(A,B)=K$ BEX=EX+1 LB V  W=W-1 W0K$="":7420 K$:W=7:7447 #"S","P","E","C","C","Y",13 @023659k\,2:VAL=22:DIR=1 BKX(1)19X(1)+3=X(2)1100L:8180 E?X(1)=19COMO=19:1100L: 8300l : JA=15 ^(D(A,X(1)+3)=6D(A,X(1)+3)=8)ƫ(Y(1),X(1))=D(A,X(1)+5)+568VE=3:E=2:F=1:OP=1:8400 hu(Y(1),X(1))=D(A,X(1)+5)+568VE=3:E=1:F=2:OP=1:8400 r[D(A,X(1)+3)=7VE=3:E=1:F=2:OP=1:8400 1100L:A VAL22 A=15 (D(A,X(2)-3)=6D(A,X(2)-3)=8)ƫ(Y(2),X(2))=D(A,X(2)-1)+568VE=-3:E=1:F=2:OP=2:8405 v(Y(2),X(2))=D(A,X(2)-1)+568VE=-3:E=2:F=1:OP=2:8405 \D(A,X(2)-3)=7VE=-3:F=1:E=2:OP=2:8405 1100L:A VAL22  8200 K$="X" IY(2)=1COMO=X(1)+3:CDIR=2:1100L: JY(2)=17COMO=X(1)+3:CDIR=1:1100L:  8005E EX(1)+310 CDIR=1:1100L: &CDIR=2:1100L: oqY(1)=1(X(2)=19Y(2)=17)COMO=X(2)-3:CDIR=1:8360 pqY(1)=17(X(2)=19Y(2)=1)COMO=X(2)-3:CDIR=2:8360 qBY(2)=1X(2)=19CDIR=2:8360 rCY(2)=17X(2)=19CDIR=1:8360 s.Y(1)=1CDIR=2:8360 t/Y(1)=17CDIR=1:8360 v!X(2)=228360 xA=04 {>(A*4+1,X(1)+3)=158350 *A*4+1>Y(1)8340 bY(1)-(A*4)+119+ARRK$="Z":1100L: 1100L:K$="X": 'Z=X(1)+3193 (D((Y(1)-1)/4+1,Z)=6D((Y(1)-1)/4+1,Z)=8)ƫ(Y(1),X(1))-568=D((Y(1)-1)/4+1,Z+1)VE=Z-X(1):8403 1100L:Z RX(OP)+VE=X((OP-1)+1)Y((OP-1)+1)=1CDIR=2 SX(OP)+VE=X((OP-1)+1)Y((OP-1)+1)=17CDIR=1 /(A-1)*4+1>Y(OP)8420 dY(OP)-(A-1)*4+1ARRK$="X":COMO=X(OP)+VE:8470! ! COMO=ARR ! 1100L !  #I=19 :O$(I):I # $hR"dc","ec","fc","gc","hc","","opqrst","uvwxyz","" e A KARPOV I JONES J BON -1200011000 M dc ec fc gc hc opqrst uvwxyz #ueb lNSS ! @@@:G#wy #:G>G# y(y( $|H  !!@X X:G#~#:G>G# A KARPOV I JONES J BOND S HUMPHREYS C SINCLAIR H PACKARD P WRIGHT M SMITH H HOAAAAAAAAAA!WW:G>G+wy +:G+ y(y( R%|O(!R!ZZ:G>G+~+:G+ 120001100010000090000800007000060000500007000060000$$$~$$~$>(> >bd&F(*D:  >>> < >>>BB<DHpHDB@@@@@~BfZBBBBbRJFBo^x7&>>?>p@@@@@@@@@@//////??  ` >o^x7&>>?>pp p(@@@@ H?~ߠ@߯>~c`p|~@@HD EabD>5Ǐ|?>j~|V