ZXTape! 2 Logic ProblemsBeap Associated Publishers Ltd. Audrey Driggs1983EnglishPuzzle- ROM LoaderOriginalTZXed by Guy BearmanLOGIC &"LOADING":"GRRR!UMPH!" 3J$="":K$=" ":QQ=ç:T="255":P="129" YT,T,T,P,T,"225",P,T,"241",P,"231","185",P,"231","157",P,T,"143",P,T,"135",T,T,T 5N=ç̰"7":A:"A"+N,A:A:"B"+N,A:A:"C"+N,A:N XF=:H=F+F:I=:V=H+H:K=H+I:W=V+H:D=I+V:O=V+V:Y=V+K:E=K+K:C=E+Y:L=E*I:A=ç "23658",O:G=E+E:U=E+I:JJ="3300":OO=A:MM="5134":SS="250":x=F:AA=A:B=D+D:Q=E+F:R=C-H:M=A:N=F:Z=V:X=F:J=A:T=A:S=A:P=F:PP="1340":RR="3050" L(R,W) D$=" oOooo O  CHART OO " E$=" ooOo  O LOGIC OO"  QQ=F"710" "7100":Z=V ZF:F::D:E,A;"BEAP ASSOCIATED PUBLISHERS LTD.";B,W;" 1983 AUDREY DRIGGS":N=ASS:N :"THIS PROGRAM GIVES YOU A CHART"'"TO USE IN SOLVING LOGIC PROBLEMS"''"YOU WILL BE ABLE TO ENTER THE"'"NAMES AND IF YOU ENTER THE CODE"'"GIVEN WITH MANY OF THE PROBLEMS" O"IN THE MAGAZINE, YOU WILL BE"'"SCORED 1 POINT FOR EACH CORRECT"'"""YES"" MARK ENTERED IN THE 3"'"BLOCKS ON THE LEFT OF THE CHART."'"YOU CAN ALSO SEE THE ANSWERS"'"MARKED IN THESE 3 BLOCKS."'"15 IS A PERFECT SCORE."''"IF TIME RUNS OUT BEFORE YOU"'"FINISH, YOU CAN SAVE THE"'"PROBLEM ON TAPE AND CONTINUE"'"LATER, OR YOU CAN COPY THE" Q"SCREEN ON A PRINTER."''"HAPPY PUZZLING!":"PRESS ENTER TO CONTINUE ";W$:QQ=F &:E,H;"ARE YOU RESTORING A PUZZLE?" "JJ:OO=FD:D::A:"3200":PP *F:H::D:F,W;"WELCOME TO LOGIC CHART" 'N=AL+F:Y,N;"";B+H,N-(L+F);"":N lN=FQ:C-F,n-32 ;"";C-F,N-F;"";V,N;E$;Q,N-(C+K);D$:.01z# =,-G:N:C-F,Q;"##########":M=L "BZ=V:G,H;"ENTER CODE FROM THE MAGAZINE?":P=F:JJ:.15~,V: $AA=AD:D::A:OO=AL*L (\T=FI:.15~,A:RR+L:C,D;"PLEASE TYPE SET ";T:"ENTER: ";A$:A$K"3090":"808" *X=A:N=FK:X=X+A$(N):N +.Z=VX="275"Z=IX=SS+GZ=HX="265""815" ."3090":"808" /3RR+L:.15~,-D:C,A;"IS THIS CORRECT?";C;A$ 0JJ:OO=A:"808" F"N=FK:L(P,W)=A$(N)-Z:P=P+F:N HZ=Z-F:P=P+F:T:J=F:P=F AA=AD:D::A SN=FR:N,O;J$:N:N=FQ:N,B;J$:N:N=FK:N,G;J$:N:W,O;K$;" ";K$;E+H,O;K$ N=FR:N=WN=E+HN 0N,D;(O*O+N):N:A,O;"RSTUV MNOPQ GHIJK" AA=A"6100":AA=FRR:C,A;"IF LATER YOU WANT A CLEAN CHART,"'"YOU WILL BE ABLE TO KEEP THE"'"NAMES. JUST ENTER 1 FROM MENU":"PRESS ENTER TO CONTINUE"; W$ P[RR:C,D;"- START OF PUZZLE -";G+F,A;"PLACE CURSOR ON TO BE MARKED":"PRESS ENTER";W$ <RR:U,E+W;"ENTER:";B+F,B;"S TO SAVE";B+H,B;"0 FOR MENU";R,B;"4 TO COPY SCREEN":C,A;"USE 5,6,7,8 TO MOVE CURSOR"''"ENTER 1 TO MAKE CHART ENTRY" AZ=U:X=B:Z,X;"" BW$=:L:=""PP+W C="4""5400":PP DD="0"1,Z,X;"":Z=U:X=B:1,Z,X;"":RR:"5110" E="S""3100":PP F&="1"RR:"4060":"1372":"1383" H N=Z:P=X IX=X+(="8"XO) KZ=Z+(="6"ZF) Z/1,Z,X;"";1,N,P;"":PP+W \M=AZ,X;" ":PP gSRR+L:R,B;"ENTER:";C,A;"(Y)=YES (N)=NO (X)= ERASE 1 "''"(Z)=ERASE Y (AND 's)" hA$=:L:="""1384" j0="Y"C$="":P$="":S$="":"2002":PP l="N"z,x;"":"1396" m="X"z,x;"":"1396" n+="Z"C$="":P$="":S$=J$:"2002":PP s "1384" tRR:XL(Z,T)=FS=S-F:L(Z,T)=A: &N=UC-F:N,B;" ":N 7N=CC+H:N,A;" ":N: #F;"INVALID ENTRY":L+E:"": J=FL(W,F)=S RR:C,A;"THE PUZZLE IS SAVED IN 2 PARTS"'"FOR 2ND PART, LEAVE TAPE RUNNING"'"AND RE-PRESS ANY KEY":"L"L():RR:"M":#F;"STOP TAPE":"G":"": rE,D;"PLEASE START TAPE":"L"L()::U,A;"LOADING":"M":S=L(W,F):QQ=F:J=F:AA=F:#F;"STOP TAPE":"G":"": #F;" ENTER Y OR N" W$=:B:="""3302" ="Y"OO=F:"": ="N"OO=A:"":  "3302" M=A $XWZQ)+(IZU) 'X>UXWZ<12 ) X>CZW#F;"TOO LONG":L+E:"":"6190" `2N>R.15~,-B:N-Q,G;"...........";(O*O+N) jNR.15~,-B:N,A;A$ tN>RN-Q,G;A$  N:AA=F: 8A$>G:E,E;"TOO LONG";E+H,Y;"START AGAIN":L+C:SS  1:"":Q=W:P=I:X=E A$=" ":N=VA-F NIH,N+F,B;"O" NHQ,N+H,B;"o" N=VN=HV,N,B;"o" P,N-F,B+H;"O"  N,B+H;A$ NIP,N+F,B+H;"o" n,B;A$;n-H,B;A$ n=Hn+F,B;A$ N F,B+F;A$;A,B+H;A$ P=P+F:P=WP=F z=z+F:Q=Q+F:Q>WQ=F N=XL+EH:.01z# =,N:N Q:"" z=BQ=E+F: X=X+K:"7108"  N=FW:N: *Z=Z+F:Z="60" 4 N:"7200" (p afhivkwdoy e clgu xbq rmz js< JK CPSD oOooo O  CHART OO E ooOo  O LOGIC OOAWVGRRR!UMPH!@PV0 8 <<  x1?@8BB 88' !7 DBB @DD #v@|?DBB DD@@f@?DB B DD8 @@@?@8<@< 88`@ `@@ ? ?>`\0 ?~?Á?>@ ?y>?8??G`  E$B`0 !&???y>@r;?y>;8:B@P0E"DA```@!1A?#????8y>@~{;y>ǟ?8v"@ DA` @@ ɀA?π??8y>{;>;8"0@ A0@A@? $AH`??<?8y>{?x`" E`@A0@A `A?!$8?? <?xy>?BD`@!0A H0!? "? 8?y>x?߀90BB #!A?DX0B C G?> ?y>??8???O` G4B p!L,hBG0 H1B!O@pF@  g($`0@"|( `B<_x&@` b` $@0B` ÃO9C`8C4"00@B~ ?|! 0#g > #@f8B x?A#0`C9 `a@c!8$ P<B<# @?@C< `&3!8"Hx `"}|@ 3 @|/p (81@@O?@ !p`>70 p |' p0X}@|88888888888888888888888888888888<<<<<<<<<<<<<<8<;888888888888888::::::::::::::::<888888888888888::::::::::::::::8888888888888888>>>>>>>>>>>>>>>><888888888888888<<<<<<<<<<<<<<<<8888888888888888999888888888888888888888888888889998888899888888888888889999888889989999999988888888999999999999899999999999888888889999999999999999999999998888888889999999999989999999999888888888899999999999888889998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888988888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888 CODER A1:1::7:10 ,1;"BEAP ASSOCIATED PUBLISHERS LTD.";14,6;" 1983 AUDREY DRIGGS":N=1250:N M$(3,1) 23562 \,70F 23658j\,8 255,255,24,129,255,568,129,255,120x,129,231,255,129,231,255,129,231,120x,129,255,568,255,255,24 =n=07:A:"A"+N,A:A:"B"+N,A:A:"C"+N,A:N  T$="" #1:2::7 (d8,10 ;"CODE FINDER";11 ,14;"FOR";14,6;"LOGIC PROBLEMS CHART" 2"PRESS ENTER ";A$: 4I=(49150) <1:1::7 A5700D: Fr10 ,9 ;"DO YOU WANT TO";12 ,6;"SEE THE INSTRUCTIONS?";14,9 ;"(ENTER Y OR N)" H A$=:30:=""72H I"Y"Ʀ"N"72H J="Y":100d L%:5512:5520:142 dr5500|:16,0;"THIS IS THE"'"CHART."''"YOU SHOULD KNOW THE ""YES"""'"SQUARES FOR THESE 3 BLOCKS" nW" PRESS ENTER ";A$:R$=" ":N=111 :N,19;R$:N xL60<:16,0;" "'" ":2040:5520 19,0;"THESE ARE THE LINE NUMBERS."'"STARTING WITH LINE ONE, A ""Y"""'"MARK WILL APPEAR.";1,13 ;"";1,19;"" " PRESS ENTER ";A$:2040:1,19;" ";20,0;"THEN JUST FOLLOW INSTRUCTIONS.":" PRESS ENTER ";A$:2040 U(17) M$(3,1) YA=0:Q=0:T=0:L=1:N=0:P=13 :X=8:Z=1 S3,0;"BLOCK 1";9 ,0;"BLOCK 2";15,0;"BLOCK 3" 2050 nD$""1,20;"PROBLEM:";3,20;D$:N=2020+D$-1:4,N;"_":N 2500  5500| iR$=" ":19,0;R$;20,0;R$;21,0;R$: 7,20;"PRESS";8,20;"ENTER TO";9 ,20;"MOVE SQUARE";11 ,20;"ENTER";12 ,20;"Y WHEN";13 ,20;"CORRECT";16,20;"ENTER 0";17,20;"TO EXIT": 3500 SL64700\:X=X+1:L=7:P=13 :Z=2::3500 _L12 L>5Z8=2:4700\:L=13 :P=13 :X=X+1:3500 .L18L>12 Z=3:4700\ 2040:19,0;"THE CODE IS: ";U(1);U(2);U(3);U(4);U(5);" ";U(7);U(8);U(9 );U(10 );U(11 );" ";U(13 );U(14);U(15);U(16);U(17) ( 5000 2T=520,0;"INVALID CODE!";21,0;"ERROR IN BLOCK: ";M$(1);" ";M$(2);" ";M$(3) <+#1;"COPY SCREEN TO PRINTER? (Y/N) " @"A$=:30:=""2624@ B"Y"Ʀ"N"2624@ P ="Y""": Q="N""":2650Z R%#1;"COPY AGAIN? (ENTER Y/N) " S"A$=:30:=""2643S T"Y"Ʀ"N"2642R X="Y"""::2642R Z#"":#1;"START AGAIN? (Y/N)" \"A$=:30:=""2652\ ^"Y"Ʀ"N"2652\ nQ="Y"N=0:T$=""::5700D::5512:5520:142 x:23562 \,5 z1:2::7 |*10 ,12 ;"GOODBYE!":150 ~67:7::0::23562 \,5: 520,0;"LINE ";L;": POSITION ""Y"" MARK" L,P;"" 320,0;"POSITION SQUARE & ENTER ""Y""" "ENTER: ";A$ !A$"Y"A$"0"A$""3530 A$="0":2650Z CA$="Y"U(L)= P-X:Q=0:L=L+1:P=13 :3566 ;P16A$=""L,13 ;T$:P=P+1:3510 GP>16A$=""L,13 ;T$:Q=Q+1:P=13 :3510 T=1T=0: /L=6L=12 L=18P=13 : 3510 \Z=1LL=1 ^Z=2LL=7 `Z=3LL=13 eE2040:20,0;"IS BLOCK ";Z;" CORRECT? (ENTER Y/N)" f"A$=:30:=""4710f p"Y"Ʀ"N"4710f z="Y"2040: W="N"2040:20,0;"ENTER LINE NO. FOR CORRECTION: ":"ENTER: ";A$ &A=A$:ALL+42740 DL=A$:L,13 ;T$:L,P;"":T=1:2040:3520  4709e 3M$(1)="-":M$(2)="-":M$(3)="-" ]U(1)+U(2)+U(3)+U(4)+U(5)35#T=5:M$(1)="1" _U(7)+U(8)+U(9 )+U(10 )+U(11 )30T=5:M$(2)="2" bU(13 )+U(14)+U(15)+U(16)+U(17)25T=5:M$(3)="3"  |MN=111 :N,19;T$:N:N=15:N,25;T$:N eN=117:N,13 ;T$:N:6,13 ;" ";12 ,13 ;" ": N=117 N=6N N=12 N N<10 N,12 ;N N10 N,11 ;N N: D6,8;"PLEASE TYPE NAME";8,6;"OR NUMBER OF PROBLEM";10 ,12 ;"AND ENTER";12 ,5;"(MAXIMUM: 11 CHARACTERS)";20,6;"(PRESS ENTER IF NONE)" FM"ENTER: ";D$:D$>11 #1;"TOO LONG!":40(:"":5702F HD$>1 K D$="": aiDX qtlp x z R  TA