P ?z8J?T"Dz! 6XD:\n|5792001 n t=0:c=c+q$ n=1̱q$ s=q$(n):t=t+s n Xtq20,5;" Incorrect addition ":c=c-q$:.25~,20:2001 `q$>320,5;" Too many numbers ":c=c-q$:.25~,20:2001  k=1̱q$ n=1̱k$  `k$(n)=q$(k)20,5;" Number duplicated ":c=c-q$:.25~,20:2001 *n 4k 5q$=12110> 6xq$=2q$(1)=q$(2)c=c-q$:20,5;" Number duplicated ":.25~,20:2001 7q$=22110> 8q$=3q$(1)=q$(3)q$(2)=q$(3)c=c-q$:20,5;" Number duplicated ":.25~,20:2001 >k$=k$+q$:4000 Rk$=9 3000 fc>85000 p 502: *20,5;" One Number left " /(5,3)="1"l=1:3030 %(5,21)="7"3030 %(5,24)="8"3030 %(5,27)="9"3030 "One dice or two? ";l !l<1l>23010  m=1̱q$ +r=0:q=q$(m):q=9 r=1 n=120x143 2:q*24-8-r,n:.01z# =,30:24,0:7:q*24-8-r,n-24:24,0:.01z# =,30 ;n:.25~,40( @m T g$="" n=3273 (5,n)=" "5030 n$=(5,n):g$=g$+n$ n g$=""5060 gg=g$:q>9 5036 n=1gg  .01z# =,10 :q=g$(n) n n=1gg m=1gg m=n5040 ).01z# =,20:q=(g$(n)+g$(m)) m n q12 6030 015,10 -f$/2;"Well done ";f$  200 X3:2,12 ;"TOP TEN":n=110 bsc:2,12 ;"TOP TEN" !Hn=110 !R46+n,3;n;6;d(n);12 ;d$(n) !\n !f #(3d(11 ):d$(11 ,12 ):ts=1000 #<:n=110 :d(n)=1000:d$(n)="Spectrum":n #P1:1:7: #U^:3,13 ;"BOXES";8,8;"by C R Gardner";13 ,11 ;"Wokingham" #d350^::1,12 ;"~BOXES~":3,2;"This game of boxes is based on the ancient game of ~Shut the Box~. Played on a simple board, the object is to cover all the numbers. Numbers can only be covered if they add up to the total of the two dice. e.g. With a score of eleven, boxes 9 & 2 or 8, 1 & 2 etc could be closed." #nC20,3;1;"Press any key to continue":0: #3,2;"The computer will not accept any illegal moves and will roll the dice for you. It also keeps a ~Top Ten~ of the best scores.  Take care! Your final score is the sequence of numbers left uncovered and not their total." #C20,3;1;"Press any key to continue":0: #ȯ3,2;"To tell the computer which boxes to close enter the number when prompted by the computer." i.e. To close boxes 9 & 2 enter 92 or 29. To close boxes 8,2 & 1 enter 128, 281 or any combination of the three. No punctuation is required when entering the numbers., A maximum of three boxes can be closed at any one time." #C20,3;1;"Press any key to continue":0: '6*"m";1;"boxes"5:*"m";1;"boxes": ':"boxes"5  <#ljcxyq ts reFMfCK08947Y ZXN6G12356Q9: ĉ Spectrum Spectrum Spectrum Spectrum Spectrum Spectrum Spectrum Spectrum Spectrum Spectrum 1 ^  #M[zMV MRbMnr3xDzM/+MDz ?zP>v><<|B|BB|>BB<DHpHDB@~BfZBBBBbRJFB