ZXTape! 2ALojixVirgin Steve Webb1983ROM+CotL-DS from orig. tape N@"N@<>B|<~|B~BB~||@B$BD@@BB@bB@BB@B|(<|B~|RB|||@BBB@|B@JB@BB@BB$BB@@B@FZ@BB~<<>B|<~@B~B$~||<B<<<B>|<>B<BB|NJN~B@@BBB$DBFBBB@B@DB><<<>B<>BB@@B@@BBB@|B<|BB|@@~@B~@@@BB@ZB@~~B<~$B>8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888880# # <@RT8\\\^]\/]N\pX![!@@P!!88 W K SR P"":23613=\,23730\-5:" "16384@,20000 N:" "16384@,20000 N:23613=\,23730\-5:1615O 2 0 4ꏏPLACE/REMOVE/CLEAR 8$4,1;"PRESS: " :$5,1;" P-TO PLACE " <%6,1;" A PIECE. " >$7,1;" R-TO REMOVE " @$8,1;" A PIECE. " B$9 ,1;" C-T0 CLEAR " D%10 ,1;" THE BOARD. " i""105i n="p"130 s="r"800  x="c"2395[ } 110n ꏏ?PIECE $1,1;" " #2,1;" " #3,1;" " $4,1;"WHICH PIECE DO " $5,1;"YOU WANT TO " $6,1;"PLACE? " #7,1;" " #8,1;" " #9 ,1;" " $10 ,1;" " ""155 U$(1)="0" U$(1)= 9U$(1)<97aůU$(1)>114r160 K=U$(1)-96` D=K*3-2 B$(1,K)="0"205 *1,1;"PIECE ";U$;" IS ON " $2,1;"THE BOARD. " .5,1 502 4K=1K=2K=3K=4A=2 4K=5K=6K=7K=8A=6 8K=9 K=10 K=11 K=12 A=10 9K=13 K=14K=15K=16A=14 #K=17K=18A=18 AK=1K=5K=9 K=13 K=17B=17 BK=2K=6K=10 K=14K=18B=21 7K=3K=7K=11 K=15B=25 7K=4K=8K=12 K=16B=29 ꏏ4/5678/9 %2,0;" CONTROL KEYS. " $4,1;"9-ROTATE PIECE." $5,1;"5 TO 8 TO MOVE " %6,1;"FLASHING CURSOR." $7,1;"4 TO PLACE THE " $8,1;"CENTRE OF THE "  $9 ,1;"PIECE AT THE "  $10 ,1;"CURSOR. " ""275 VV=(X,Y)-568 X,Y;"":10 ="4"430 ="5"315; "="6"325E '="7"335O ,="8"345Y 1="9"386 2VV 3X,Y;¯A$(XX-10 ,YY) 4 5 5 0 6 280 8ꏏMOVINGCURSOR ; Y=Y-1 @ 350^ E X=X+1 J 350^ O X=X-1 T 350^ Y Y=Y+1 ^X<12 X=12 cX>21X=21 hY<2Y=2 mY>11 Y=11 nVV rXX,YY;¯A$(XX-10 ,YY) w XX=X:YY=Y | 280 ꏏROTATION INA INA=INA+1 INA=6INA=1  C=C+3 C=13 C=1 A,B;C$(C,DD+2) (A+1,B;C$(C+1,DD+2) (A+2,B;C$(C+2,DD+2)  5 .2~L,4  0  281 ꏏCANPIECEGO VV M=X-11  N=Y-1 X,Y;¯A$(XX-10 ,YY) /K$(1,13)=C$(C,DD+2) 7K$(2,13)=C$(C+1,DD+2) 7K$(3,13)=C$(C+2,DD+2) /L$(1,13)=A$(M,NN+2) 7L$(2,13)=A$(M+1,NN+2) 7L$(3,13)=A$(M+2,NN+2)  I=1  J=1 K$(I,J)" "485  490 L$(I,J)""522   J=J+1 J=4505  475  J=1  I=I+1 I=4540  475  )1,1;"PIECE ";U$;" CANNOT "  $2,1;"GO THERE. " .73333,1 INA  C=1 A,B;C$(C,DD+2) (A+1,B;C$(C+1,DD+2) (A+2,B;C$(C+2,DD+2)  502 ꏏPIECECANGO D$(1,K)=M E$(1,K)=N ! I=1 & J=1 +Q=U$(1)+47/ 0 R=0 5K$(I,J)" "575? : 580D ?A$(M,N+R)=Q D J=J+1 I R=R+1 NJ=4600X S 5655 X J=1 ] R=0 b I=I+1 g M=M+1 lI=4630v q 5655 v 7 { A,B;" " A+1,B;" " A+2,B;" " ꏏPUTPIECEONSCREEN INB INB=INB+1 INB=6INB=1 B$(1,K)="1"  M=X-1  N=Y-1  I=1  J=1 K$(I,J)" "690  695  M,N;Q  J=J+1  N=N+1 J=4715  680  J=1  N=N-3  I=I+1  M=M+1 I=4745  680 .5,20  C=1  502  ꏏREMOVE """802" $$1,1;" " &$2,1;" " ($3,1;" " *$4,1;"WHICH PIECE DO " ,$5,1;"YOU WANT TO " .%6,1;"REMOVE? " 0$7,1;" " 2$8,1;" " 4$9 ,1;" " 6%10 ,1;" " 8U$(1)= :9U$(1)<97aůU$(1)>114r815/ <K=U$(1)-96` >D=K*3-2 CB$(1,K)="1"850R H)1,1;"PIECE ";U$;" IS NOT " J$2,1;"ON THE BOARD. " M 502 RB$(1,K)="0" WM=D$(1,K) \N=E$(1,K) a/L$(1,13)=A$(M,NN+2) f7L$(2,13)=A$(M+1,NN+2) k7L$(3,13)=A$(M+2,NN+2) p I=1 u J=1 { V=L$(I,J) |W=U$(1) }V=W+47/900  910  L$(I,J)=""  A$(M,N)=""  J=J+1 J=4930  N=N+1  890z  J=1  I=I+1 I=4960  N=N-2  M=M+1  890z  N=N-2  M=M-2 MM=M+10 NN=N  I=1  J=1 L$(I,J)=162988 WW=(MM,NN)-568 WW MM,NN;L$(I,J)  J=J+1 NN=NN+1 J=4982  974  J=1 NN=NN-3 MM=MM+1  I=I+1 I=4995  974  0  MM,NN;""  978 4K=1K=2K=3K=4A=2 4K=5K=6K=7K=8A=6 8K=9 K=10 K=11 K=12 A=10 9K=13 K=14K=15K=16A=14 #K=17K=18A=18 AK=1K=5K=9 K=13 K=17B=17 BK=2K=6K=10 K=14K=18B=21 7K=3K=7K=11 K=15B=25 INA  INA=INA+1  INA=6INA=1  7K=4K=8K=12 K=16B=29 A,B;C$(1,DD+2) &A+1,B;C$(2,DD+2) &A+2,B;C$(3,DD+2)  C=1 $.3,40( 8 502 O 7 T 0  SET UDC  A=65A83S X=07 ROW:A+X,ROW X A 4Q255,195,189,189,129,189,189,255 9Q255,131,189,131,189,189,131,255 >Q255,195,189,191,191,189,195,255 CQ255,135,187,189,189,187,135,255 HQ255,129,191,131,191,191,129,255 MQ255,129,191,131,191,191,191,255 RQ255,195,189,191,177,189,195,255 WQ255,189,189,129,189,189,189,255 \Q255,193,247,247,247,247,193,255 aQ255,253,253,253,189,189,195,255 fQ255,187,183,143,183,187,189,255 kQ255,191,191,191,191,191,129,255 pQ255,189,153,165,189,189,189,255 uQ255,189,157,173,181,185,189,255 zQ255,195,189,189,189,189,195,255 Q255,131,189,189,131,191,191,255 Q255,195,189,189,173,181,195,255 Q255,131,189,189,131,187,189,255 Q255,129,129,129,129,129,129,255 A$(12 ,12 ) B$(1,18) C$(12 ,60<) D$(1,18) E$(1,18) K$(3,3) L$(3,3)  U$(1) LC$(1)=" " LC$(2)=" " $LC$(3)=" " )LC$(4)=" " .LC$(5)=" " 3LC$(6)=" " 8LC$(7)=" " =LC$(8)=" " BLC$(9 )=" " GMC$(10 )=" " LMC$(11 )=" " QMC$(12 )=" " [U$="0" \ 7 ] 7 ^ `"B$(1)="000000000000000000" e X=12 j Y=2 o XX=12 t YY=2 yA$(1)=" " ~A$(12 )=" " N=211 A$(N)=" " N 0 N=12 21 ,N,2;A$(N-10 ,211 ) N M=1 N=1 D=1 C=1 IN=1 A=2184 B=17294 IN A,B;C$(C,DD+2) (A+1,B;C$(C+1,DD+2) (A+2,B;C$(C+2,DD+2) D=D+3 IN=IN+1 IN=6IN=1 B C=1 A 0 A=2 B=17 C=1 D=1 INA=1  INB=1 502 0 Z$(1) Z$(1)= 23560\ ""5010 =""5020  4500  N@@ N @ N@7@ N:" "16384@,20000 N:" "16384@,20000 N:23613=\,23730\-5:1615O  N@7@ N  N@7@ N:" "16384@,20000 N:" "16384@,20000 N:23613=\,23730\-5:1615O