MysteryBox; u; = THE MYSTERY BOX Peter J Simmons YThis program contains unresolved errors; see the file MYSTERYB.TXT. [JimG] $f=047/:a:"A"+f,a:f 0,0,0,24,24,0,0,0,0,24,60<,126~,126~,60<,24,0,0,16,568,84T,16,16,16,0,0,8,8,8,42*,28,8,0,0,0,8,4,126~,4,8,0,0,16,32 ,126~,32 ,16,0,0 ls=100d a=6:b=11 :b$="d" (/7:0:7:0:0: 2x(5):y(5) 7 2200 <#r=0:ts=0:sc=0 P:2000 Zf=51611 :0;f,9 ;" ":f:6,9 ;" ";15,9 ;" " dDf=714:0;7;f,9 ;" ":f n1;0;a,b;b$ x#1000:pick random positions }def=-1 ="o"2080 :900 ="1"1400x '="0"0.05|L,25:250 "9"130 a,b;" " a=6b=b+1:b$="" !b=19a=a+1:b$="" !a=15b=b-1:b$="" !b=10 a=a-1:b$="" +a=6b=10 b=b+1:b$="" 11;0;a,b;b$:0.05|L,-40( 140 ga1=0:r1=0:n1=0:s1=0:e1=0:w1=0:z=0:p=a:q=b:j=p:k=q a=6300, b=19400 a=15500 "b=10 600X ,j=j-1:c=6 6f=1np ;c+1y(f)375w @b=x(f)1100L J7c=6(x(f)+1=bx(f)-1=b)r1=1 Yb-1=x(f)e1=1 ^b+1=x(f)w1=1 wf=npr1=11200 |f ~e1w1800  $c=c+1:c<143106 )s1=1:def=def+1:1300 k=20:c=19 f=1np c-1x(f)475 a=y(f)1100L 8c=19(y(f)+1=ay(f)-1=a)r1=1 a-1=y(f)s1=1 a+1=y(f)n1=1 f=npr1=11200 f n1s1800  $c=c-1:c>11 410 )w1=1:def=def+1:1300 j=16:c=15 f=1np c-1y(f)575? b=x(f)1100L 8c=15(x(f)+1=bx(f)-1=b)r1=1 !b+1=x(f)w1=1 &b-1=x(f)e1=1 ?f=npr1=11200 Df Fe1w1800  I#c=c-1:c>7510 N)n1=1:def=def+1:1300 Xk=9 :c=10 bf=1np gc+1x(f)675 la=y(f)1100L v8c=10 (y(f)+1=ay(f)-1=a)r1=1 a+1=y(f)n1=1 a-1=y(f)s1=1 f=npr1=11200 f n1s1800  $c=c+1:c<18610b )e1=1:def=def+1:1300 *(w1e1)(n1s1)1200 4%w1a=c:c=b:w1=0:410 >%s1b=c:c=a:s1=0:3106 H%n1b=c:c=a:n1=0:510 R-e1=1a=c:c=b:e1=0:610b u=7:v=11 a$="" (u,v)=480a$=""  u,v;a$ c$=:c$=""950  c$="5"v>11 v=v-1  c$="6"u<14u=u+1 c$="7"u>7u=u-1  c$="8"v<18v=v+1 a$="" (u,v)=480a$=""  u,v;"?" 0.01z# =,20 ="i"u,v;a$:2060 :  ="p";u,v;"":2060 : ="u"u,v;"":2060 :  910 f=1np 7x(f)=(*8)+11 :y(f)=(*8)+7 f=11050 6n=1f-1:x(f)=x(n)y(f)=y(n)1010 n f . Vj,k;7;0;"A" t:sc=sc+1:13 ,6;sc:a=p:b=q:130 j,k;7;0;"R" :sc=sc+1:13 ,6;sc:a=p:b=q:130 def>9 def=9 0;6;j,k;def (<w1e10;6;a,(9 *w1)+(20*e1);def 2<n1s10;6;(5*n1)+(16*s1),b;def <:sc=sc+2:13 ,6;sc:a=p:b=q:130 x wr=0 321,2;"O.K. I'LL NOW CHECK POSITIONS" )f=13:0.5,0:f 21,0,, f=1np &(y(f),x(f))480wr=wr+1 f wr01470 521,0;"ALL POSITIONS CORRECT WELL DONE" Cf=040(2:0.01z# =,f:0.01z# =,f+2:f  1520 \21,0;1;wr;" WRONG . UNLUCKY":0.2~L,-10 :0.6,-30 B1;1,1;"CORRECT";2,0;"POSITIONS" /f=714:f,11 ;"":f !f=1np:y(f),x(f);"":f sc=sc+(wr*10 ) 21,0;" YOU USED ";sc;" POINTS UP",:f=1200:f:21,1;" PRESS ANY KEY " =""1530  80P ts=ts+sc:sc=0 /r=r+1:r=6r=5:21004 V3;1,13 ;"THE";2,11 ;"MYSTERY";3,13 ;"BOX" 5,0;"ROUND ";r;8,0;"TOTAL";9 ,0;"SCORE ";ts;12 ,0;"SCORE";13 ,0;"THIS ";sc;14,0;"ROUND";17,0;"No.";18,0;"PEGS ";np ]2;18,12 ;"LOWEST";19,9 ;"SCORE SO FAR";20,14;ls 3,23;"KEYS"  Kf=520:f,21;" ":f:5,22;"9 move";6,27;"laser";8,22;"0 fire";9 ,27;"laser";11 ,22;"O place";12 ,26;"a peg";14,22;"1 press";15,24;"when ";np;16,24;"pegs in";17,24;"position"   f=520:f,21;" ":f:5,21;"move the ?";6,21;"with the";7,21;"cursor keys";9 ,21;"p place peg";11 ,21;"u remove """;13 ,21;"i skip" * 4'0.1}L,0:0.3,10 >518,0;" FIVE ROUNDS ARE UP . SCORE ";ts Hts