ZXTape! 0Created with Ramsoft MakeTZXcribbage ~>ZO 0:0:6 dEa=65535:65535,85U:b=65535:65535,a xb=85U65367W:23676|\,255:'''''':z$=" Loading Cribbage Let tape run":9980&:"" R32599W:z$=" Sorry, Cribbage needs 48K- Let tape run- Loading reviews" '''''':9980&:"reviews"  &;:vec=(23637U\+256*23638V\+9 ):z$:vec=23633Q\+256*23634R\:vec,244:vec+1,9 : &k >;;!*Q\s#rOF(  *\K\ 88'0 :k\ ͈ ͈ ! ֥_ b>?K6\!;\ˆ &o))) y!(= :k\ ͈ ͈ ! >w$w$=  >w$w$= #C\"\Y缧:ٰ"2":ڼ::"21","10";ٰ"9";"PRESS A KEY": ("23637"+"256"*"23638"+"6"): '"cribbage"1 Z5 Loading Cribbage Let tape rune\cribbage2 ?p??p)6ApCRIBBAGE BY P.ERENTZ 8000@: gm=0:gy=0 bo=(*2) b$(2) 6l$="OK I've chosen. Which two do youwant in the box" me=0:yo=0 $s(z()=((z-1)/13 ) r(z()=z-13 *s(z) =s$(6):s(6):f(6):r(6):b(6) Ds$(1)="":s$(2)="":s$(3)="":s$(4)="" (a(5):m(6) -bx=bo 06:6:1: 1Fbx=08,6;7;0;" My box, my deal " 2Fbx=18,6;7;0;"Your box, your deal" 710 ,10 ;1;5;1;"S";5;1;"H";5;1;"U";1;5;"F";5;1;"F";1;5;"L";5;1;"I";1;5;"N";5;1;"G" dc(535):d(13 ) ni=1524:c(i)=i:i xi=52440(-1 r=(i*+1) d(535-i)=c(r) j=ri-1 c(j)=c(j+1) j i 4:4  i=15 j=6i+1-1 Hr(d(j))>r(d(j-1))d1=d(j-1):d(j-1)=d(j):d(j)=d1 j i 6:0:4200h ́7:0:6,0;"Please study your hand whilst I choose my two cards for";:bx=01;" my box " "bx=11;" your box" 6:x=11 i=712 &s=1+((d(i)-1)/13 ) y=5*i-34" c(i)=d(i)-s*13 +13 110 ,y+2;7;0;i-6 "c=((s-1)/2)*2 &7:c:4000+10 *c(i) ,i  hi=0 i=15 j=6i+1-1 aa=1:k=16 k=i439 k=j439 c(aa)=d(k):aa=aa+1 k c(5)=d(i) c(6)=d(j) k=16 s(k)=s(c(k)) r(k)=r(c(k))  f(k)=r(k) r(k)>10 f(k)=10 &k X p=0 bTs(1)=s(2)s(2)=s(3)s(3)=s(4)p=p+4.2fff Pf(1)+f(2)+f(3)+f(4)=15p=p+2.4:710 :f(1)+f(2)+f(3)=15p=p+2.3333 :f(1)+f(2)+f(4)=15p=p+2.3333 :f(1)+f(3)+f(4)=15p=p+2.3333 :f(2)+f(3)+f(4)=15p=p+2.3333 k=14 r(k)=11 p=p+.25~ k NYr(1)=r(2)+1r(2)=r(4)+1p=p+11.7;333:882r OYr(1)=r(3)+1r(3)=r(4)+1p=p+11.7;333:882r Pwr(1)=r(2)+1r(2)=r(3)+1r(3)=r(4)+1p=p+5.2&fff:882r QXr(2)=r(3)+1r(3)=r(4)+1p=p+3.7l:882r RXr(1)=r(2)+1r(2)=r(3)+1p=p+3.7l:882r T0r(1)=r(4)p=p+12 :882r V2r(1)=r(3)p=p+6.13D(:865a W2r(2)=r(4)p=p+6.13D(:865a Y'r(1)=r(2)p=p+2.17 G Z'r(2)=r(3)p=p+2.17 G ['r(3)=r(4)p=p+2.17 G al=13 hFr(l)1r(l)12 r(l)=r(l+1)+1p=p+.73333 i2r(l)=2r(l+1)=1p=p+.25~ j4r(l)=13 r(l+1)=12 p=p+.25~ k*r(l)=r(l+1)+2p=p+.25~ ql rl=13 sk=4l+1-1 v5f(k)+f(l)<15f(k)+f(l)>5p=p+.17~.z w#f(k)+f(l)=15p=p+2.3333 x%f(k)+f(l)=5p=p+.5 yk zl  q=0 :r(5)=r(6)r(5)>5q=q+2.6&fff :r(5)=r(6)r(5)<6q=q+2.3333 -r(5)-r(6)=1q=q+.73333 .r(5)-r(6)=2q=q+.25~ &s(5)=s(6)q=q+.15~ /f(5)+f(6)=15q=q+2.5 -f(5)+f(6)=5q=q+.5 "f(5)=5q=q+.5 "f(6)=5q=q+.5 $r(5)=11 q=q+.25~ $r(6)=11 q=q+.25~ bx=1p=p-q bx=0p=p+q -p>hihi=p:k=16:m(k)=c(k):k j i {23659k\,0:22,0;7;0;l$;1;"?";0;" ":23659k\,2 0:b$(1)=:b$(1)"1"b$(1)"2"b$(1)"3"b$(1)"4"b$(1)"5"b$(1)"6"1051 v23659k\,0:22,0;7;0;l$;" ";b$(1);" and";1;"?":23659k\,2 "O10 ,5*b$(1)-2;7;0;1;b$(1) $0:b$(2)=:b$(2)"1"b$(2)"2"b$(2)"3"b$(2)"4"b$(2)"5"b$(2)"6"1060$ %%b$(1)=b$(2)1060$ &v23659k\,0:22,0;7;0;l$;" ";b$(1);" and ";b$(2):23659k\,2 'O10 ,5*b$(2)-2;7;0;1;b$(2) ) 10 .23659k\,0:22,0;" ";22,0;0;"Press Y to continue,N to choose again.":23659k\,2 80:y$= 9y$="n"10 ,5*b$(1)-2;7;0;0;b$(1):10 ,5*b$(2)-2;7;0;b$(2):1050 :y$="y"1084< ; 10808 VJb$(1)="6"c$=b$(1):b$(1)=b$(2):b$(2)=c$ `Jb$(2)="5"c$=b$(2):b$(2)=b$(1):b$(1)=c$ y 4: j=b$(1)+6 )d=d(j):d(j)=d(11 ):d(11 )=d j=b$(2)+6 )d=d(j):d(j)=d(12 ):d(12 )=d 5x=0:y=23:6:0:4200h $3,31-yo;7;yo  x=18 ,7:0:19,0;"YOUR" 20,0;"HAND" i=710 &s=1+((d(i)-1)/13 ) y=3*i-16 c(i)=d(i)-s*13 +13 "c=((s-1)/2)*2 c(i)=1a$="A" &c(i)>1c(i)<10 a$=c(i) c(i)=10 a$="" c(i)=11 a$="J" c(i)=12 a$="Q" c(i)=13 a$="K" 2x-1,y+1;4;0;i-6  7:c  x,y;"" x+1,y;"";a$;"" x+2,y;"";s$(s);"" x+3,y;""  i  E13 ,28;7;0;"THE";14,28;"CUT" s=1+s(d(13 )):r=r(d(13 )):x=15:y=27:7:ٺ((s-1)/2)*2:4000+10 *r r=11 8,3;7;0;1;"2 FOR HIS NOB!":150:8,3;4;" " >r=11 bx=0me=me+2:ps=2:4208p (>r=11 bx=1yo=yo+2:ps=2:4209q xi=14 s(i)=s(m(i))+1 r(i)=r(m(i)) r(i)<11 f(i)=r(i) r(i)>10 f(i)=10 i bpr=0:rn=0:myg=0:yog=0:cp=1:sc=0:mc=4:yc=4 %n(12 ):q(8):p(8) bx=02500  x=0 me>120x3900< yo>120x3900< 2mc=0yog=0myg=1:2500  cpl=0:i=14 n(i)=12090* r=r(i):f=f(i) sc+f>312090* cpl=cpl+1 *i .cpl=0yog=1yc>08,0;0;"GO for 1 ":me=me+1:ps=1:4208p:41484:2500 /cpl=0yog=18,0;0;"GO for 1 ":me=me+1:ps=1:4208p:41484:2000 0cpl=0yc=0yog=08,0;0;"GO ":100d:8,0;"1 for you ":yo=yo+1:ps=1:4209q:41484:2000 1cpl=0yc=08,0;0;"GO for 1 ":me=me+1:ps=1:4208p:41484:2000 2Kcpl=08,2;0;" GO ":myg=1:2500 4ps=0:hi=-100d >i=14 @ v=0 Cn(i)=12410j Hs=s(i):r=r(i):f=f(i) Ssc+f>312410j Tcpl=12400` Usc=02305 VJcp>1q(cp)=r:3500 :pr>0v=v+pr-.1}L:2136X W5cp>2q(cp)=r:rn=0:3400H :v=v+rn ff+sc=15v=v+2 pf+sc=5v=v-1 zf+sc=31v=v+2 f+sc=21v=v-1 f+f+sc=15v=v-1 f+f+sc=31v=v-1 fr=13 q(cp-1)=12 sc<12 v=v-0.9ffff:sc=11 v=v-1:2240 dr=2q(cp-1)=1sc<27v=v-0.9ffff:sc=26v=v-1:2240 r=22210 r=13 2211 sr-q(cp-1)=1sc+f+r-2<32 v=v-1.1 :sc+f+r-2=31v=v-1:2240 er=12 q(cp-1)=13 sc<12 v=v-.9ffff:sc=11 v=v-1:2240 dr=1q(cp-1)=2sc<28v=v-0.9ffff:sc=27v=v-1:2240 r=12 2217 r=12220 sq(cp-1)-r=1sc+f+r-1<32 v=v-1.1 :sc+r+f-1=31v=v-1:2240 er=13 q(cp-1)=11 sc<12 v=v-.9ffff:sc=11 v=v-1:2240 er=12 q(cp-1)=10 sc<12 v=v-.9ffff:sc=11 v=v-1:2240 r>11 2240 gr-q(cp-1)=2sc+f+r-1<32 v=v-0.9ffff:sc+f+r-1=31v=v-1 er=11 q(cp-1)=13 sc<12 v=v-.9ffff:sc=11 v=v-1:2240 er=10 q(cp-1)=12 sc<12 v=v-.9ffff:sc=11 v=v-1:2240 r=11 2240 r=10 2240 gq(cp-1)-r=2sc+f+r+1<32 v=v-0.9ffff:sc+f+r+1=31v=v-1 f5v=v+r/100d $r1=0:r2=0:r3=0 j=14 n(j)=12300 i=j2300 sr3=0r(i)=r(j)sc+3*f(i)<32 v=v+.6:r3=1:sc+3*f(i)=31v=v+.2~L Cr1=0sc+10 +f+f(j)=31v=v+.5:r1=1 :r2=0sc+f+f(j)=31v=v+.5:r2=0 j  2400` r=4v=v+yc*0.08}# = v=v+f(i)/1000 r=5v=v-yc*1 $r1=0:r2=0:r3=0 j=14 n(j)=12380L i=j2380L Tr1=0r(i)-r(j)=1r(i)>5v=v+(5-yc)*.1}L:r1=1 $-yc=0f(i)+f(j)=15v=v+2 &9r2=0f(i)+f(j)=5v=v+.5:r2=1 )5r3=0r(i)=r(j)v=v+.12}u[*yc:r3=1 Lj `=v>hihi=v:a=s:b=r:e=f:d=i:cpl>1rn1=rn:pr1=pr ji tsc=sc+e:n(d)=1:mc=mc-1:q(cp)=b:x=0:y=(3-mc)*5:s=a:ٺ((s-1)/2)*2:4000+10 *b x;cpl=1cp>2rn=0:3400H :ps=ps+rn z;cpl=1cp>1pr=0:3500 :ps=ps+pr ~$cpl>1cp>2ps=ps+rn1 $cpl>1cp>1ps=ps+pr1 sc=15ps=ps+2 sc=31ps=ps+2 cp=cp+1 ?sc<31mc=0yc=0ps=ps+1:2449 4sc<31mc=0yog=1ps=ps+1 ^0:8,0;" ":8,0;sc;:ps>0;" for ";ps;" " "ps>0me=me+ps:4208p $mc=0yc=03100 =sc<31yog=1mc=041484:2500 %sc<31yog=12000 $sc<31yc>02500 &sc<31yog=1:2000 0sc=31yc>041484:2500 %sc=3141484:2000 me>120x3900< yo>120x3900< #mc=0yc=03000 %yc=0yog=1:2000 H#0;4;0;"Your turn-which card? (G for GO)":0 w$=:"":1 4w$"g"w$"1"w$"2"w$"3"w$"4"2504 w$"g"2525 i=710 n(i)=12513 "sc+r(d(i))<32 2504 i Kmyg=0yog=1:8,2;0;" GO ":2000 tmyg=18,0;0;"GO for 1 ":ps=1:yo=yo+1:4209q:41484:2000 w=w$+6 n(w)=12504 ps=0 s=s(d(w))+1:r=r(d(w)) f=r:f>10 f=10 sc+f>312504 n(w)=1 4y=(w-6)*3+2:4:4300 dx=10 :y=(4-yc)*5:7:ٺ((s-1)/2)*2:4000+10 *r 1sc=sc+f:sc=15sc=31ps=ps+2  q(cp)=r Fcp>1pr=0:3500 :ps=ps+pr:pr>02605- (.cp>2rn=0:3400H :ps=ps+rn -cp=cp+1:yc=yc-1 /?sc<31mc=0yc=0ps=ps+1:26102 04sc<31myg=1yc=0ps=ps+1 2`0:8,0;" ":8,0;sc;:ps>0;" for ";ps;" " <"ps>0yo=yo+ps:4209q =$mc=0yc=03100 A=myg=1sc<31yc=041484:2000 F&myg=1sc<312500 Zsc<312000 d%sc=3141484:2000 me>120x3900< yo>120x3900< !502:41528:4: s=1+s(d(13 )):r=r(d(13 )):x=15:y=27:7:ٺ((s-1)/2)*2:4000+10 *r !6:0:4200h #bx=03200 &i=14:a(i)=m(i):a(5)=d(13 ):i:x=5:4900$:to=pr+nb+ft+rn+st:4,0;0;"My hand scores ";to 0ps=to:me=me+to 1&4208p:me>120x38902 :8200 :4: ;s=1+s(d(13 )):r=r(d(13 )):x=15:y=27:7:ٺ((s-1)/2)*2:4000+10 *r ?6:0:4200h Da(1)=d(7):a(2)=d(8):a(3)=d(9 ):a(4)=d(10 ):a(5)=d(13 ):x=5:4900$:to=pr+nb+ft+rn+st:4,0;0;"Your hand scores ";to Nps=to:yo=yo+to S86:0:4209q:yo>120x38913 Xa(1)=d(11 ):a(2)=d(12 ):a(3)=m(5):a(4)=m(6):a(5)=d(13 ):x=15:4900$:st=5*((st/5)):to=pr+nb+ft+rn+st:14,0;0;"Your box scores ";to bps=to:yo=yo+to l86:0:4209q:yo>120x38913 { 8200 bx=0:480 a(1)=d(7):a(2)=d(8):a(3)=d(9 ):a(4)=d(10 ):a(5)=d(13 ):x=5:4900$:to=pr+nb+ft+rn+st:4,0;0;"Your hand scores ";to ps=to:yo=yo+to 87:0:4209q:yo>120x38913 8200 :4: 6:0:4200h s=1+s(d(13 )):r=r(d(13 )):x=15:y=27:7:ٺ((s-1)/2)*2:4000+10 *r i=14:a(i)=m(i):a(5)=d(13 ):i:x=5:4900$:to=pr+nb+ft+rn+st:4,0;0;"My hand scores ";to ps=to:me=me+to /7:4208p:me>120x38902 a(1)=d(11 ):a(2)=d(12 ):a(3)=m(5):a(4)=m(6):a(5)=d(13 ):x=15:4900$:st=5*((st/5)):to=pr+nb+ft+rn+st:14,0;0;"My box scores ";to ps=to:me=me+to /7:4208p:me>120x38902 "8200 :bx=1:480 I%(q(cp)-q(cp-1))>cp-1 J%(q(cp)-q(cp-2))>cp-1 K-(q(cp-1)-q(cp-2))>cp-1 Lq(cp)=q(cp-1) Mq(cp)=q(cp-2) Nq(cp-1)=q(cp-2) R rn=0 Sj=1cp-2 Tk=18 U p(k)=q(k) Vk Wk=cp-1j-1 \l=jk f@p(l)2q(cp)=q(cp-1)q(cp-1)=q(cp-2)pr=pr+4 jcp>3q(cp)=q(cp-1)q(cp-1)=q(cp-2)q(cp-2)=q(cp-3)pr=pr+6  27:0:me>120x12 ,0;1;"GAME OVER-I've won ":gm=gm+1:;1;" PRESS A KEY ":0:7::3911G 37:0:yo>120x12 ,0;1;"GAME OVER-you've won":gy=gy+1:;1;" PRESS A KEY ":0:7::3910F <7:0:me>120x8,0;1;"GAME OVER-I've won ":gm=gm+1:;1;" PRESS A KEY ":0:7::3911G =yo>120x8,0;1;"GAME OVER-you've won":gy=gy+1:;1;" PRESS A KEY ":0:7: F+"You've won by ";121y-me:3912H G"I've won by ";121y-yo H6:0:1,7;"":2,7;;" OVERALL SCORE ":3,7;"" Jb4,7;" ME ";7;" ";6;" GAME ";:gm14,20;;"S" Kx4,23;"":5,7;" YOU ";7;" ";6;" GAME ";:gy15,20;"S" L=5,23;"":4,15-(gm);7;gm M&5,15-(gy);7;gy N&6,7;"" nbo=(bo-1) x12 ,0;8;9 ;" Press P to play again or Press I for Instructions or Press L to LOAD next section" -a$=:a$="i"a$="I"8000@:3960x a$="p"a$="P"15 9a$="l"a$="L":10 ,8;"START THE TAPE":""  3970 x,y;"" x+1,y;"A " x+2,y;" " x+3,y;" ";s$(s);" " x+4,y;" " x+5,y;" A" x+6,y;""  x,y;"" x+1,y;"2 " x+2,y;" ";s$(s);" " x+3,y;" " x+4,y;" ";s$(s);" " x+5,y;" 2" x+6,y;""  x,y;"" x+1,y;"3 " x+2,y;" ";s$(s);" " x+3,y;" ";s$(s);" " x+4,y;" ";s$(s);" " x+5,y;" 3" x+6,y;""  x,y;"" x+1,y;"4 " &x+2,y;"";s$(s);" ";s$(s);"" x+3,y;" " &x+4,y;"";s$(s);" ";s$(s);"" x+5,y;" 4" x+6,y;""  x,y;"" x+1,y;"5 " &x+2,y;"";s$(s);" ";s$(s);"" x+3,y;" ";s$(s);" " &x+4,y;"";s$(s);" ";s$(s);"" x+5,y;" 5" x+6,y;""  x,y;"" x+1,y;"6 " &x+2,y;"";s$(s);" ";s$(s);"" &x+3,y;"";s$(s);" ";s$(s);"" &x+4,y;"";s$(s);" ";s$(s);"" x+5,y;" 6" x+6,y;""  x,y;"" x+1,y;"7 " &x+2,y;"";s$(s);" ";s$(s);"" (x+3,y;"";s$(s);s$(s);s$(s);"" &x+4,y;"";s$(s);" ";s$(s);"" x+5,y;" 7" x+6,y;""  x,y;"" x+1,y;"8 " (x+2,y;"";s$(s);s$(s);s$(s);"" &x+3,y;"";s$(s);" ";s$(s);"" (x+4,y;"";s$(s);s$(s);s$(s);"" x+5,y;" 8" x+6,y;""  x,y;"" x+1,y;"9 " (x+2,y;"";s$(s);s$(s);s$(s);"" (x+3,y;"";s$(s);s$(s);s$(s);"" (x+4,y;"";s$(s);s$(s);s$(s);"" x+5,y;" 9" x+6,y;""  x,y;"" x+1,y;"";s$(s);" " (x+2,y;"";s$(s);s$(s);s$(s);"" &x+3,y;"";s$(s);" ";s$(s);"" (x+4,y;"";s$(s);s$(s);s$(s);""  x+5,y;" ";s$(s);""  x+6,y;""   x,y;"" x+1,y;"J";s$(s);" " x+2,y;"" x+3,y;"" x+4,y;"" x+5,y;" ";s$(s);"J" x+6,y;""  x,y;"" x+1,y;"Q";s$(s);" " x+2,y;"" x+3,y;"" x+4,y;"" x+5,y;" ";s$(s);"Q" x+6,y;""  "x,y;"" #x+1,y;"K";s$(s);" " $x+2,y;"" %x+3,y;"" &x+4,y;"" 'x+5,y;" ";s$(s);"K" (x+6,y;"" ) 4Jyog=0:myg=0:cp=1:sc=0:p(8):q(8) 8 x=0 9i=3-mc0-1 :y=i*5:4170J ;i < x=10 =i=3-yc0-1 >y=i*5:4170J ?i @ J x,y;1;5;"" K(x+1,y;1;5;"" L(x+2,y;1;5;"" M(x+3,y;1;5;"" N(x+4,y;1;5;"" O(x+5,y;1;5;"" P(x+6,y;1;5;"" Q h)x=0:y=23:x,y;"" i2x+1,y;"ME ";7;" ";6;"" jx+2,y;" " k2x+3,y;"YOU ";7;" ";6;"" lx+4,y;"" m$1,31-me;7;me n$3,31-yo;7;yo o pkk=ps-10-1:.1}L,-10 :1,31-(me-k);0;7;me-k:k: qjk=ps-10-1:.1}L,10 :3,31-(yo-k);0;7;yo-k:k: 18,y;" " 19,y;" " 20,y;" " 21,y;" " 17,y;" "  $<pr=0:rn=0:st=0:ft=0:nb=0 i=15 )s(i)=((a(i)-1)/13 )+1 #r(i)=a(i)-13 *(s(i)-1) r(i)<11 f(i)=r(i) r(i)>10 f(i)=10 i ts(1)=s(2)s(2)=s(3)s(3)=s(4)st=4:s(4)=s(5)st=5 i=14 ,r(i)=11 s(i)=s(5)nb=1 i i=14 `y=i*5-5:s=s(i):7:ٺ((s-1)/2)*2:4000+10 *r(i) i j=41-1  i=1j r(i)05400 Mr(1)=r(2)+1r(2)=r(3)+1rn=rn+3 Mr(1)=r(2)+1r(2)=r(4)+1rn=rn+3 Mr(1)=r(2)+1r(2)=r(5)+1rn=rn+3 Mr(1)=r(3)+1r(3)=r(4)+1rn=rn+3 Mr(1)=r(3)+1r(3)=r(5)+1rn=rn+3 Mr(1)=r(4)+1r(4)=r(5)+1rn=rn+3 Mr(2)=r(3)+1r(3)=r(4)+1rn=rn+3 Mr(2)=r(3)+1r(3)=r(5)+1rn=rn+3 Mr(2)=r(4)+1r(4)=r(5)+1rn=rn+3 Mr(3)=r(4)+1r(4)=r(5)+1rn=rn+3 0r(1)=r(4)pr=12 :5500| "0r(2)=r(5)pr=12 :5500| $Fr(1)=r(3)r(4)=r(5)pr=8:5500| %Fr(1)=r(2)r(3)=r(5)pr=8:5500| 'i=13 ,+r(i)=r(i+2)pr=6:5500| 1i 6i=14 @"r(i)=r(i+1)pr=pr+2 Ji |Yf(1)+f(2)+f(3)+f(4)+f(5)=15ft=2:5700D Ef(1)+f(2)+f(3)+f(4)=15ft=ft+2 Ef(1)+f(2)+f(3)+f(5)=15ft=ft+2 Ef(1)+f(2)+f(4)+f(5)=15ft=ft+2 Ef(1)+f(3)+f(4)+f(5)=15ft=ft+2 Ef(2)+f(3)+f(4)+f(5)=15ft=ft+2 :f(1)+f(2)+f(3)=15ft=ft+2 :f(1)+f(2)+f(4)=15ft=ft+2 :f(1)+f(2)+f(5)=15ft=ft+2 :f(1)+f(3)+f(5)=15ft=ft+2 :f(1)+f(3)+f(4)=15ft=ft+2 :f(1)+f(5)+f(4)=15ft=ft+2 :f(2)+f(3)+f(4)=15ft=ft+2 :f(2)+f(3)+f(5)=15ft=ft+2 :f(2)+f(4)+f(5)=15ft=ft+2 :f(3)+f(4)+f(5)=15ft=ft+2 i=14 j=i+15 #f(i)+f(j)=15ft=ft+2 j i p ?"char""a":9990': @7:7:9 ::1,8;2;"";2,8;2;"";2;"";0;"";1;" CRIBBAGE ";2;"";0;"";2;"";3,8;2;"";5,9 ;0;"by P.A.Erentz" J'"You play against the computer. Cards score twice- First in playand again in the final count. Every combination totaling 15 scores 2. Pairs score 2, trebles6, and four of a kind 12. Runs score the number of cards in therun, and need not be played in sequence. A flush only counts inthe final show of the hand."''"The scoring will be done by the computer, you will be pleased tohear!" T 8200 ^:"You contribute 2 of your 6 cardsto the 'box', an extra hand thatscores for each player in alter-ation."''"During play you select a card bypressing the number appearing above it. If you cannot play a legal card then press 'G' for 'Go'. The running total of cardsplayed must not exceed 31. If both players 'Go' than the last to play scores 1, unless exactly31 is reached, which scores 2. The total goes back to zero and play continues till all cards have been played." h'"An extra card is cut which can be combined with any hand in thefinal show. If it's a Jack it scores 2. First to 121 wins." T:7:0:#0;1;" PRESS ANY KEY TO BEGIN ":0:  7#0;" Press a Key":10 :0: 'Y缧:ٰ"2":ڼ::"21","10";ٰ"9";"PRESS A KEY": ("23637"+"256"*"23638"+"6"): 'R;;_"\`X:\GOxƀO>@0q#= >2\v!͵v!͵:\( >8DDDDD8x"D"D"x>@"@"@.. '1:"cribbage2"7999?:"char""a",168 char X?6>kk>>>kLRRRRLm!@1{$(ea III$$$' 䯃mmmreviews 99H; (1:1:9 :32767 }RAMTOP IS MOVED - YOU ARE ADVISED TO FOLLOW THE CHAIN-ING UNTIL YOU LEAVE THE REVIEW SECTION TO AVOID UNUSUAL EFFECTS G10 ,7;"SOFTWARE REVIEWS"''11 ;1;" LOADING " :10 ;"LET TAPE RUN " "" '"reviews"1 YWallies $[ $!d@>R;;_"\`X:\GOxƀO>@0q#= >2\v!͵v!͵:\( >8DDDDD8x"D"D"x>@"@"@   THEN PRESS ANY KEY e# #  <@,c]\\]+]]cc*]3c d d$\, x͡OX![!@P!!{(Gx~n5p[!|{"\ P"ٰ"2":"Wallies""23296","9345 K SR P"ٰ"2":"Wallies""23296","9345" 7h="d":a=h::#ç;ٰ"7";h;"PRESS A KEY":"23310" ç:ç:ٰ"6"::a #;h;"Page ";a/h:ç ="s"ç:"23296":"20" #x=:x<"4"x>"0"a=(x-"0")*h # x>"3"a=h (5x="q""32767":"10","8";"START THE TAPE":"" 2h d"8",+;"Everyone's a Wally";"8";"from Mikrogen"''h;" 48K Only"''" Press 2 or 3 for pages or"'" Hold S for - Q to Quit": Z"This sequel to Pyjamarama is even more colourful and complex.You get large sprites and highlydetailed playing screens, as we now expect from Wally, but this time you can control the other members of Wally's gang as well,indeed you must switch from one to the other, using each one's individual skills, to perform the tasks in the game." ҿ'"There are six characters in all,and you can control only one at a time. The others wander off under their own steam, and you have to go and find them if you want to change identities." a'"Most of the activity takes placein the village, but you stumble into arcade sequences too.": ,P"Personally, I feel that this multi-personality aspect is an unlikeable gimmick. It removes the emotional identification with the character that makes most adventure games work. Also it makes the puzzles harder to solve, as the right action won'twork if performed by the wrong member of the gang, leading to FRUSTRATION." 6>'"There is a 'hit' record on one side of the cassette, which is amistake. We had lots of trouble hyperLOADing the other side and only managed at the 4th attempt by tweaking the speed control. If yours won't LOAD, refer not to 'the Spectrum manual' but to the sale of goods act. They mustthink everyone's a wally." @ Wallies $[23296[ 9345$ [$ ves the emotional identification with the character that makes most adventure games work. Also it ll <<|~fx|>>>>>>w>>>>>>>NN~UU===pp8pp@BuwNN===xxxм=.x.x.xƼ= м= =wNN ہہ  qqqFc00F c00Fc0;c0ccc Fcc0Fc`GcF 000F00?<xCR;;_"\`X:\GOxƀO>@0q#= >2\v!͵v!͵:\( >8DDDDD8x"D"D"x>@"@"@   THEN PRESS ANY KEY  # #  <@dc]\\].]]cc-]cdd$\dxfX![!@P!!{(Gxp[!|{"\ P%ٰ"2":"JewelPower""23296","9 K SR P%ٰ"2":"JewelPower""23296","9345" 7h="d":a=h::#ç;ٰ"7";h;"PRESS A KEY":"23310" ç:ç:ٰ"6"::a #;h;"Page ";a/h:ç ="s""7":"23296":"20" #x=:x<"4"x>"0"a=(x-"0")*h # x>"3"a=h (5x="q""32767":"10","8";"START THE TAPE":"" 2h dx"8",ç;" Jewel of Power from Slogger"''h;" 48K Only"''" Press 2 or 3 for pages or"'" Hold S for - Q to Quit": "This offering from a new companyis an enormous graphic adventurewith a claimed 120 scenes and a vocabulary of 700 words. Some ofthe screens even have animated effects. The special morons map that we reviewers (but not you purchasers) get runs to seven A4pages. Lots for your money." Ұ'"The graphics screens flash up speedily enough and they are redrawn to show the effect of an'open door' command. In some locations enormous faces appear and vanish." ܹ' "There are some awkward features.I had a great deal of trouble in the scene illustrated, tryingto open a door which I knew was there but couldn't name to suit": ,"the program until I realised that it wanted 'trap door' and not 'trapdoor'. This fussiness about syntax is common enough inadventures but is disappearing from the better ones nowadays." 6$'"Slogger's practice of handing out comprehensive crib sheets with maps to reviewers is to be applauded, as it means the help columns in the magazines will bewell informed. If that's not enough, punters get Slogger's own phone number with the game, to call if you're really stuck." @'"Slogger needs to upgrade their tape duplication. Only one side of the review copy would LOAD, even though it's SAVEd in the normal Spectrum format.": JewelPower$[23296[ 9345$ [$ Hold S for - Q to Quit": 0the normal Spectrum format.": 2@????????? @ @ @@ @@D8D88x8(8@8x8x<D888@8888D8 8@xD8D@8888 8D8h88@88@88(DD D0D00 xDD 0DDTD@xD D0@TR;;_"\`X:\GOxƀO>@0q#= >2\v!͵v!͵:\( >8DDDDD8x"D"D"x>@"@"@   THEN PRESS ANY KEY  # #  <@c8]\\]+]]cc*]ec"d"d$\6a^RWX![!@P!!{(Gx~n5p[!|{"\ P"ٰ"2":"Softaid""23296","9345 K SR P"ٰ"2":"Softaid""23296","9345" 7h="d":a=h::#ç;ٰ"7";h;"PRESS A KEY":"23310" ç:ç:ٰ"6"::a #;h;"Page ";a/h:ç ="s"ç:"23296":"20" #x=:x<"4"x>"0"a=(x-"0")*h # x>"3"a=h (5x="q""32767":"10","8";"START THE TAPE":"" 2h dr"8",;" Softaid from Everybody"''h;"48K Mostly"''" Press 2 or 3 for pages or"'" Hold S for - Q to Quit": 3"You may already have a copy of this software counterpart of theBand-Aid audio hit. If so, then buy another for a friend. Not only does most of the money go to relieve the famine in Africa,but you get a tremendous bargainto boot. Its a better deal than the original record, and you getthat thrown in!" c'"Included are: Ant attack from Quicksilva, Gilligans Gold from Ocean, 3D Tank Duel from Real Time, Sorcery from Virgin, The Pyramid from Fantasy, Kokotoni Wilf from Elite (in our snap), Spellbound from Beyond, Starbikefrom The Edge, Jack and the BeanStalk from Thor, Horace Goes Skiing from Melbourne House, andof course the Band-Aid single."  ,"I have a lot of software for theSpectrum, as most new games are sent us for review more or less automatically, but amongst my several hundred tapes I have no copy of four of the ten games onthis tape. I expect there are a few you are missing, too." 6E'"These programs have all been in the charts at one time or other,and if any one of them is absentfrom your collection, it will beworth the fiver for that programalone. Forget about the charity aspect and exercise your basest motives. There's over fifty quidworth of games here for a give- away price. You cannot go wrong." @X"Softaid is top of the charts as I write, and every sale helps tofeed the starving.": Softaid $[23296[ 9345$ [$ rrrrrrrreeeeeeeeeeeeee. I expect there are a few you are missing, too." 0 Yֽ<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< M&ۿf pr$` XM*~$` +dۛ~f۶4?<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<=;Tǀ}~~ _?ֽ>??7{?? <?555??DD?<Xx))xmmm?ZZs?<--< [[01Ap~ ?@QC00?<6~ּ<<<<<<W`c8< 8gF:8ü(FFFFFFQTo?lc88||||| >?J{|^ ?q JJJJJJ_|/_8~0|||||p6njR?}?t]8868 RRRRRRo/o?0p |||||p0bxp}xƅdY880bbbbbb3 73|XXXXX~~q<p}p4Mppq><<<<<<`c8>xap}Eppap  O                Channel4 $[  $!d@>R;;_"\`X:\GOxƀO>@0q#= >2\v!͵v!͵:\( >8DDDDD8x"D"D"x>@"@"@   THEN PRESS ANY KEY  # #  <@(c9]\\],]]cc+]fccc$\(aJ3OX![!@P!!{(Gx~n5p[!|{"\ P#ٰ"2":"Channel4""23296","934 K SR P#ٰ"2":"Channel4""23296","9345" 7h="d":a=h::#ç;ٰ"7";h;"PRESS A KEY":"23310" ç:ç:ٰ"6"::a #;h;"Page ";a/h:ç ="s"ç:"23296":"20" #x=:x<"4"x>"0"a=(x-"0")*h # x>"3"a=h (4x="q""32599":"10","8";"START THE TAPE":"" 2h dj"8",ç;"Channel 4 Software Transmissions"''" Press 2 or 3 for pages or"'" Hold S for - Q to Quit": "Linked to the '4 Computer Buffs'series, these transmissions take place on the day following the channel four program. Unlikesimilar broadcast software from the BBC, the Buff's stuff is notsent in tedious 'basicode' but in the proper format for the target machine designated." '"Although this means that many ofthe transmissions are in some kind of useless 'atari' format, at least the Spectrum ones are not limited to the pedestrian gait of the basicode subset." ܧ'"The March 19th transmission was made up of 18 minutes of class progs from Melbourne House and MicroMega. Much of this was justblatant advertising, as might be": ,"expected, but interesting, like the 'Mugsy's Revenge' preview (press S) which was actually animated. There were playable bits as well, though, in the form of two screens of 'Sir Lancelot' and one of 'Jasper'." 6'"Obviously the hope is that you will like the sample screens so much that you buy the game, but free games, even truncated ones,of this quality are not to be sneezed upon." @'"The Buff's transmission quality is excellent, and even the fast loader routine on 'Jasper' came over OK. I used a video recorder(on the timer, 10 AM is much tooearly) and dubbed a further copyto cassette and it STILL LOADs.": Channel4 $[23296[ 9345$ [$ owing the channel four program. Unlikesimilar broadcast software from the BBC, the Buff's stuff is notsent in tedious 'basicode' but in th??g?9g???''L@?xA?@???s'?g ?@?6E?>@???? ُ>#ngg ?@?>A?@??P??8!x?D o?,`(𪪿ds:%3_?D <o 0? *!5W??_D/ ;?(~?>*   ??tD /(?P!` ?*9& ?`Gxc ?@_?? ??@?p  B?~~#?@_?_? ?@|@ BN/??@_??0? @?UP :_??o??@"%?0~_??<w>???@?_???0;@?!!?_?? ?@??@_?? ??>??88pp``XxxxxxWp8888PPp8888PPPp8888pxxxxxxx0WPpppppPPpppp8PPPp8888ppxxxxxxxWTPPPPPPPpppppPPPppp88ppxxxx`I|TTPPPPPPPPPPPPPPPPPP88ppx`hh`Q`TTPPxxxxxxxxPPPPPPPP888`hh`z``TPPxxxxxxxxxxxxxxxP88 8`hh`z``TPPPPPPPPxxxxxxxxxP88 zz8`hh`z```pPPPPPPPPPPPPPxxxP88Bzz8`hh`P```p8888PPpPPPPPPPPPP88BBz8`hh`P```pppppPPpppppPPPpPPppBBB8`hh`p```pppppPPpppppPPPppp`pBBB8`hh`p```pppppPPpppppPPPppp`pBB8`hh`p```pppppPPpppppPPPppp8pp8p8`hh`p```pppppPPpppppPPPppp8pppp8`hh`p```pppppPPpppppPPPppp8pppp8`hh`00``pppppPPpppppPPPpppppppp8`hh`0``ppppppPPpppppPPPppppppppp`hh`````888pppppppppPPPpppppppp8`hh`````PPPP8888ppppPPPpppppppp8```````TTPPPPPPPPP88pppppp8pp888```````TThhhhPPPPPPPPP88888888888888``TTThXkkhhhhhPPPPPPPP88888888888TTTThXXXXXkkhhhhhhPPP88888888888TTPPhXXpppXppXXkkkhhh:solitaire (#-G d!INITIALISE VARIABLES   n1XJUMPED=ç:YJUMPED=ç:JUMPS=ç:PEGS=32 xP(7,7) <Z=17:Y=17:P(Z,Y)=2:Y:Z P(4,4)= INSTRUCTIONS  ç:ç::2:6 ܜç,9 ;"*************";,9 ;"* *";2,9 ;"* SOLITAIRE *";3,9 ;"* *";4,9 ;"*************" ç:8,ç;"The ancient european game of logic. The game commences with across shaped peg board having pegs in every hole but the centre." y'"The objective of the game is to remove all the pegs barr one, and to leave the last peg in thecentre of the board." Fڼ;7;21,3;"PRESS ANY KEY TO CONTINUE.":0 "8,ç;31'"Pegs are removed by 'jumping' one peg over another into an empty hole and removing the jumped peg. Only horizontal and" ,"vertical jumps are permitted:no diagonal jumping is allowed. Youmay only jump 1 peg at a time: jumping over holes is not allowed. " 6ç @7,ç;"Use keys 5-8 to position the flashing cursor over the piece you wish to move and press 'J'. Next,position the cursor over" Jn"the hole you wish to jump into and press 'J'. The spectrum checks jumps and rejects illegalmoves.";ç ^Q31'31'"If you cannot move,or simply wish to resign,press 'R'." hç DRAW BOARD  7:7: 6:2:0,6;16;,6;" ";2,6;" ";3,6;16;4,6;" ";5,6;" ";6,6;16 S6,ç;22'" "'" "'22 J10 ,ç;" "'" "'22 J13 ,ç;" "'" "'22 16,6;" ";17,6;" ";18,6;16;19,6;" ";20,6;" ";21,6;16 &%0,127:480,0 :0,480:80P,0:0,-480:480,0:0,-80P:-480,0:0,-47/:-80P,0:0,47/:-480,0:0,80P Du 7:9 :9 ,23;"MOVES ";JUMPS;12 ,23;"PEGS LEFT";13 ,23;".....=";PEGS N.02{# =,12 XMOVE INPUT  bKEYM=1:FROMX=4:FROMY=4:TOY=4:TOX=4:FLASHX=4:FLASHY=4:NONFLASHX=4:NONFLASHY=4 l&6:P(4,4):1 v'P(4,4)=1650 E10 ,10 ;"";11 ,10 ;"":0:660 :10 ,10 ;"";11 ,10 ;"":0 KEYM=1 KEYPRESS VERIFICATION  M$=:M$=""670 m$="r"m$="R"2000 M$="J"M$="j"1100L yMOVE=5*(M$=8)+8*(M$=9 )+7*(M$=11 )+6*(M$=10 ): SPECTRUM+ CURSORS  M$>"4"M$<"9"MOVE=M$ MOVE=0670 *MOVE=5MOVE=8850R  VERTICAL MOVE  $NONFLASHY=FLASHY:NONFLASHX=FLASHX  =FLASHY=FLASHY+1*(MOVE=7)-1*(MOVE=6) *b(FLASHX<3FLASHX>5)FLASHY=FLASHY-1*(FLASHY=6)+1*(FLASHY=2) >b(FLASHX>2FLASHX<6)FLASHY=FLASHY-1*(FLASHY=8)+1*(FLASHY=0) H 910 RHORIZONTAL MOVE  \$NONFLASHX=FLASHX:NONFLASHY=FLASHY f=FLASHX=FLASHX+1*(MOVE=8)-1*(MOVE=5) pb(FLASHY<3FLASHY>5)FLASHX=FLASHX-1*(FLASHX=6)+1*(FLASHX=2) b(FLASHY>2FLASHY<6)FLASHX=FLASHX-1*(FLASHX=8)+1*(FLASHX=0) "ERASE" OLD CURSOR  40:P(NONFLASHX,NONFLASHY)=1940 2;22-3*NONFLASHY,3*NONFLASHX-2;"";23-3*NONFLASHY,3*NONFLASHX-2;"":950 {ټ;22-3*NONFLASHY,3*NONFLASHX-2;"";23-3*NONFLASHY,3*NONFLASHX-2;"" PRINT NEW "CURSOR"  )P(FLASHX,FLASHY)=1980 ʄۼ;2;22-3*FLASHY,3*FLASHX-2;"";23-3*FLASHY,3*FLASHX-2;"":1000 sۼ;ټ;22-3*FLASHY,3*FLASHX-2;"";23-3*FLASHY,3*FLASHX-2;"" .02{# =,12 :660 LJUMP CO-ORDINATES  VKEYM11130j `]FROMX=FLASHX:FROMY=FLASHY:.25~,24:.25~,12 :KEYM=0:660 j@TOX=FLASHX:TOY=FLASHY:.25~,24:.25~,12 VALIDATE MOVE  AP(FROMX,FROMY)=1P(TOX,TOY)=21300 ]FROMX=TOXXJUMPED=FROMX:YJUMPED=FROMY+1*(TOY>FROMY)-1*(TOYFROMX)-1*(TOX7;9 ,29;JUMPS;13 ,29;PEGS;" " @CHECK FOR COMPLETION  J9PEGS=1P(4,4)=23000 T PEGS=12000 ^ 655 GAME NOT WON  7:2:8,23;"YOU MADE";9 ,23;JUMPS;" MOVES";10 ,23;"LEAVING";11 ,23;PEGS;" PEGS";12 ,23;ç;13 ,23;ç Ij=12:2060 :i=19 :a$:b$:װa$,b$:i:j 42070:i=112 :a$:b$:װa$,b$:i  T".2","4",".2","2",".2","5","1.4","4",".4","11",".2","9",".2","9",".2","7",".2","5" o".2","7",".2","4",".2","12",".6","9",".2","4",".2","2",".2","7",".6","4",".2","2",".2","0",".2","2","1.4","4" 4 3070 GAME WON  :2:2:1;8,23;"WELL DONE" ]9 ,23;"COMPLETED";10 ,23;"IN ";JUMPS;11 ,23;"MOVES " 43050 :i=128:a$:b$:װa$,b$:i ".3","0",".15","-3",".15","0","1","2",".15","-5",".15","-3",".3","0",".3","2",".3","7",".15","9",".15","2",".3","7",".3","9","1.4","2" ".3","0",".15","-3",".15","0","1","2",".15","-5",".15","-3",".3","0",".3","2",".3","7",".15","9",".15","2",".3","7",".3","9","1","11" >12 ,23;"TRY AGAIN";13 ,23;"(Y OR N)" ?R$=:R$="n"R$="N":10 ,8;"START THE TAPE":"" &R$="y"R$="Y"400 0 3090 #("""a":9990': 'Y缧:ٰ"2":ڼ::"21","10";ٰ"9";"PRESS A KEY": ("23637"+"256"*"23638"+"6"): 'R;;_"\`X:\GOxƀO>@0q#= >2\v!͵v!͵:\( >8DDDDD8x"D"D"x>@"@"@.. '/"solitaire"9000(#:"udgs""a",168 jumpejumpeumpegeyromromoolashlashonflashonflashovM udgs X3;}ܾ};pokecraft j Ar!l 10 `1:1:1:1:5:4:6:2:1:=""5 a$=:0: )9990':0:7:0:  a=1 G:a*100d:#1;6;" Page ";a;" ENTER=Next SPACE=Back" (""40( 2(5:a$=" "a>1a=a-1 <0a$=13 a<19a=a+1:30 FX(a$="l"a$="L")a=191:1::10 ,8;"START THE TAPE":"" Pa$" "a=19a=1 Z 30 d3z$=" A New Bug?":'''''''':9980&: tz$=" The Spectrum has been around a long time now- ages in terms of computer life expectancy. One computer year is worth 3 dog years, which as you know are worth seven human years. That makes the Spectrum over 65, about time for the case to turn grey. It's a spritely old codger though, due to regular games of 'Daley's Decathalon'.":9980&: ,dz$=" During this period, most of the Spectrum's often charming and entertaining bugs have been extensively documented in various books and magazines. The Spectrum is not as badly afflicted as its detracters make out, however, and few of the bugs actually have any important effect on the working of a program. ":9980&: oz$=" The ones that are important are the '-65536' bug, which renders this number as -1 when it figures in some types of calculation (try to PRINT INT -65536) and the division error which causes the calculation of many fractions to be wrongly rounded (try PRINT 1/2-.5). These bugs can lead to puzzling and intractable mistakes.":9980&: tz$=" Un-important bugs are those that effect only the formatting of text, like the CHR$ 9 and CHR$ 8 errors. These are cursor control characters for cursor right and left (backspace). The first doesn't work at all, and the second fails when you try to backspace from screen line 1 to line 0, and worse if you try it from line 0 to -1!.":9980&: Xrz$=" The entertaining bug is the 'Scroll?' bug that reprints the last direct command entered and then a string of garbage including most of the Spectrum keywords when you reply to 'Scroll?' by pressing both caps shift and symbol shift together twice and then pressing any other key. Oddly enough this doesn't seem to do any harm.":9980&: qz$=" More esoteric are errors that cause SCREEN$ and STR$ to store too many results, supplanting any figure already stored and about to be calculated with the result of the STR$ or SCREEN$ function. These bugs can lead to mistakes that matter, but they can be easily cured by using the function to define a variable, which can then be":9980&:  `z$=" used in a calculation separate from the function call, and hence not upset by it. "+13 +" Bugs which actually cause the computer to crash are not very likely to produce a mistaken calculation! Still, this can be worse than a mistake even in fiscal arithmetic, especially if you program for a living.":9980&: rz$=" If you use the CLOSE # command without first opening the stream you are about to close, then you are likely to reset the computer if you use a stream number higher than 3. As the OPEN # command is only useful with microdrives, CLOSE should be avoided on unexpanded machines. When microdrives are fitted, this bug disappears.":9980&: uz$=" Another lethal bug, which I have not seen described before elsewhere (can this be yet another first?), is the RESTORE bug. RESTORE can be used alone or with a line number, but the ROM doesn't check that this number is a legal line number. If you RESTORE 65000 it will be accepted, but the computer will hang up looking for line 65000.":9980&: Lpz$=" Any number above 62222 will fail in this way if entered as a direct command, and sometimes an even lower number will fail within a program. There is of course no reason to use so big a number with RESTORE, but care must be taken when select- ing DATA by computed RESTOREs to ensure that this limit is not exceeded accidentally.":9980&: 5'''''''':z$=" Poking Around":9980&: tz$=" The omission of the systems variables from the new manual issued with the Spectrum Plus was a mistake, as they are the most useful part of the larger manual that came with the original Spectrum. Those four pages are thumbed grey in my own copy, though much of the rest remains unread. Many of the mag's tricks require them.":9980&: xmz$=" You may have noticed the POKEs in line 3 in Wizard Prang's bit in this issue (if you don't look at the listings then you are missing half the magazine). These transfer the address in the NXTLIN variable, which points to the location of the line following line 3, to the VARS variable, which points to the end of the program.":9980&: uz$=" This tells the BASIC that the program ends after line 3. By itself this would only cause trouble, as there is no end of program marker. There should be a byte equal to 128 instead of the next line number. This detail is put right by the CLEAR command following the POKEs, which places the marker in the location VARS points to.":9980&: @tz$=" This trick can be performed in reverse too, to remove all of a program above a given line. To do this, you poke the PROG variable, which points to the beginning of the program, with NXTLIN, then STOP. This removes everything up to and including the line that does the POKEs. It's actually still there, but it will neither LIST nor SAVE.":9980&: sz$=" If you had stored the original PROG in a couple of variables you could now POKE it back in and get the 'deleted' part of the program back. The only way to really delete it and reclaim the memory is to use NEW, which will remove the whole thing, of course, so this technique should only be used to shorten a prog for saving.":9980&: cz$=" For those with Pluses, here are the System variables addresses: VARS 23627 and 23628 PROG 23635 and 23636 NXTLIN 23637 and 23638 Each requires two locations to store a two byte address, but you need not calculate the decimal equivalent, just move the two bytes from one place to the other.":9980&: l'''''':z$=" Press 'L' to LOAD the next section of the magazine."+13 +13 +" Press any other key to read this section again.":9980&: #( &;:vec=(23637U\+256*23638V\+9 ):z$:vec=23633Q\+256*23634R\:vec,244:vec+1,9 : &k >;;!*Q\s#rOF(  *\K\ 88'0 :k\ ͈ ͈ ! ֥_ b>?K6\!;\ˆ &o))) y!(= :k\ ͈ ͈ ! >w$w$=  >w$w$= #C\"\Y缧:ٰ"2":ڼ::"21","10";ٰ"9";"PRESS A KEY": ("23637"+"256"*"23638"+"6"): 'Y缧:ٰ"2":ڼ::"21","10";ٰ"9";"PRESS A KEY": ("23637"+"256"*"23638"+"6"): 'R;;_"\`X:\GOxƀO>@0q#= >2\v!͵v!͵:\( >8DDDDD8x"D"D"x>@"@"@.. '"pokecraft"10 ae\Z A New Bug?A survey  X Use LIST 2 azine Ltd. *6\$:[O [![[[K[>#xG= >8{O= :[O  "8 9820\&:30 E9990':0:0:1:1:7:9820\& Er$(24):n=124:r$(n)="X":n:23658j\,8 dF:Z$="00060102Spectrum Computing":B:Z$="03010202READERS SURVEY":B nP7,0;"This is your chance to influencethe future of the magazine." x'"We hope that you will spare a few minutes to let us know a little more about you, your computer and your opinions."''"This should help us to identify possible areas of improvement." 3''"The next page will explain how it all works." w: z$="00020202CARDS & CODES":b '''"You will have noticed that the top corner of the backing card is a postcard."''"We would like you answer the questions coming up in this program, fill in the card and return it to us." 7 '"This program will explain how tofill in the card." '"What's in it for you?"''"Well, apart from a magazine moreattuned to your needs, the first5 cards picked at random on 5th July will receive a FREE 6 issuesubscription to this magazine." w ,$:z$="00000202NOW FOR THE WORK":b 6r$(1)="S":m$="16K":bb=65534:65534,127:65534=127m$="48K":65534,bb:r$(1)="F" @'''"You are running this on a ";m$;'"machine. (You probably know thisalready, but the program had to check this so that we would knowtoo!)" J.'"When did you first start using aSpectrum?" Tz$="12020303A B C D E":b ^l15,1;"This July Jan 1983 1982"'" Year to Dec to"'" 1984 June";14;"1984" ha5:r$(3)=k$: eq$="Did you upgrade from 16K?":m$="16K"q$="Do you think it you will upgradethis machine to 48K?" Fz$="08000404UPGRADES":b:15,0;q$:a2:r$(2)=k$: -R$(1)="S"R$(4)="N":442  z$="00010202SPECTRUM PLUS?":b ''''"IS THIS A SPECTRUM+ ?" a2:r$(4)=k$: 0z$="00000102HOW MANY ISSUES HAVE YOU SEEN?":b H''''"About how many other issues of Spectrum Computing have you run?" ''" A None apart from this one,"''" B One previous issue,"''" C 2 or 3 other issues,"''" D between 4 and 10,"''" E more than 10.":a5:r$(5)=k$: yz$="03000304ISSUE 15":b:12 ,0;"Do you think you will buy the next issue in July?":a2:r$(6)=k$: z$="00040202PERIPHERALS":b ̳'''"Do you use a joystick?"'''" A No"''" B yes with INTERFACE II,"''" C yes with Kempston interface,"''" D a mechanical joystick,"''" E any other type." a5:r$(7)=k$: z$="00000404PRINTERS":b 8,0;"Do you use a printer?"'''" A No"''" B ZX Printer,"''" C Alphacom,"''" D Full width printer"''" E other." a5:r$(8)=k$: Z$="00020204STORAGE MEDIA":B 5,0;"Do you have any way of storing programs or data other than on normal cassettes?"'''" A No"''" B ZX Microdrive,"''" C Wafadrive,"''" D discs,"''" E other." a5:r$(9 )=k$: Xz$="05010504MODEMS":b b@12 ,6;"DO YOU USE A MODEM?":a2:r$(10 )=k$: "Which parts of the magazine are of the most interest to YOU?"''"Please select the answer which best describes your feelings." '" A Great, let's have more."''" B Quite good. Keep it going."''" C Neutral (or haven't seen it)"''" D Less of this for me please."''" E Irritating. Drop it." L2000:z$="18000102What do you think about":b:n=11 17+(r$(5)"A")*4:a$:vv=1+(a$<16):z$="2000vv02"+a$:b:8000@:n Z"the arcade games?","the editorials?","Hacker's Hangout?","Wizard Prang?","the cartoon?" ښ"the software reviews?","the strategy games?","the utility programs?","the hardware reviews?","the readers' letters?","The all adventure issue (No.12)?" #:z$="00000202MORE ABOUT YOU.":b '''"How old are you?"'''" A 12 or under,"''" B 13 to 16,"''" C 17 to 24,"''" D 25 or over,"''" E The magazine is used by a family or other mixed age group." a5:r$(23)=k$: z$="00000402SOFTWARE":b:'''"Have you bought a Spectrum tape for more than `6.00 in the last two months?"''"If so, what sort was the last one you bought?" 0''" A No."''" B Yes, an arcade game."''" C Yes, an adventure."''" D Yes, a utility program."''" E Yes, but another sort." :a5:r$(24)=k$:   finish %:z$="00000202FILLING UP BOXES":b: C''"Please fill the boxes like this."''"1";11 ,30;"24" x=820064@:y=104h13632 :x,y:480,0:0,-16:-480,0:0,16:16,0:0,-16:16,0:0,16:y:x pz$="05010202"+r$(13)+" "+r$(46)+" "+r$(79 )+" "+r$(10 12 ):b vz$="09010202"+r$(13 15)+" "+r$(1618)+" "+r$(1921)+" "+r$(2224):b _'''"When you have filled all the squares please press any key forthe last four questions."  9001)# GN=1521:N,0;" ":N 12 ,0;"Q1 What sort of new feature would you like us to start?"''"Q2 What sort of utility would you like to see?"''"Q3 Which educational topic would be useful to you?" '"Q4 Any other comments."  c#1;0,0;"Please write your answers on thecard. Press a key when finished." o 9001)# p|:z$="00000102If you have filled in the form,":b:z$="02000102cut it out and posted it then":b:z$="03000420THANKYOU":b zU#1;0,0;"PRESS R TO RUN THIS AGAIN OR"'"PRESS Q TO QUIT." '9001)#:K$"R"K$"Q"6020  K$="R"  @a5:.3,10 *("C"-k$):r$(n)=k$:20,0;" ": #' #(B#1;1,0;" PRESS ANY KEY " #)K$=:K$=""9001)# #*""9002*# #+ #>#1;0,2;"PRESS Y for YES or N for NO." #'9001)#:k$"Y"k$"N"9110# # #8#1;1,5;"PRESS A, B, C, D, OR E" #'9001)#:k$>"E"k$<"A"9210# $ &\fprog=23635S\+256*23636T\:a2=9100#:a5=9200#:W=9000(#:b=9900&: &"23296[,z$(56) &"23297[,z$(78) &:23299[,175+23297[-8*z$(2) &*23298[,8*z$(34) &z$=z$(9 ) &z=1̱z$ &23300[,z$(z)-32 &(prog+34") &c23298[,((23298[)+8*23296[)*((23298[+8*23296[)<256) &z & 1: 'Y缧:ٰ"2":ڼ::"21","10";ٰ"9";"PRESS A KEY": ("23637"+"256"*"23638"+"6"): 'R;;_"\`X:\GOxƀO>@0q#= >2\v!͵v!͵:\( >8DDDDD8x"D"D"x>@"@"@.. '"survey"10 ro]##w(#b&&<@ M48KQDid you upgrade from 16K?A The all adventure issue (No.12)?K XXXXXXXXXXXXXXXXXXXXXXXXZSpectrum Computing/