Nuke Wasteo Nuclear Waste by Joseph Donnelly, from Sinclair User 11 (Feb.1983)*NOTE*:This program was listed in the mag as being for the 16K Spectrum, but was actually a ZX-81 program, so lines marked in had to be changed. JimG.  3000 9moves=0:23658j\,8:added for CAPS  FAST  dl=8 1000  SLOW  21,23;"moves" 21,29;moves 21,4;"FROM "; i$ (i$; 2 " TO "; <u$ Fu$ Pmoves=moves+1 Z21,29;moves di=i$-64@:i=i$-28 nu=u$-64@:u=u$-28 pcheck entry is valid s<u=i-5u=i-1u=i+1u=i+5120x u 500 x i$=a$(i) }$i$(5)=c$(6)500 u$=a$(u) $u$(5)c$(6)500 x=i$(12) y=i$(34) x,y;c$(6) x=u$(12) y=u$(34) x,y;i$(5) a$(u,5)=a$(i,5) a$(i,5)=c$(6) 2000 17 921,0;"Invalid entry Press any key "  4e4@ 621,0;" "  moves=moves-1  17 set up board <f$="@@@ @@@ @@@ @@@ @@@":"A" changed to "@" $g$=" " f=1186  f$,f$,f$  g$,g$,g$ f $ f$,f$,f$ ) z=1 .f=0196 8n=1266 B(f,n;(z+64@):f,n;(z+156) L z=z+1 Vn `f  place rods a$(20,5)  c$(6) c$(1)="Z" c$(2)="Y" c$(3)="X" c$(4)="W" c$(5)="" c$(6)=" "  c=1 !position and rods set "f=218 ,a$(f,5)=c$(c) 1 c=c+1 6 c<1c>4c=1 @f J!a$(1,5)=c$(6) O"a$(19,5)=c$(6) T"a$(20,5)=c$(5) Y m=1 ^f=1196 hn=2266 rf,n;a$(m,5) | m=m+1 n f  l=1 f=1206 n=2266 a$(l,12)=f a$(l,34)=n  l=l+1 n f d$=" **DANGER LEVEL**" l$=" 3 2 1 0" l=1̱d$ l,29;d$(l);" ";l$(l) l  goto check boxes Lu=7u=8u=9 u=12 u=13 u=142200 .u=17u=18u=192210 +u=2u=3u=42220 "u=6u=11 2230 #u=10 u=152240 u=12250  u=52260 u=172270  u=202280 * $check boxes left right up and down a$(u,5)=a$(u-5,5)a$(u,5)=a$(u-1,5)a$(u,5)=a$(u+1,5)a$(u,5)=a$(u+5,5)2500  ya$(u,5)=a$(u-5,5)a$(u,5)=a$(u-1,5)a$(u,5)=a$(u+1,5)2500  ya$(u,5)=a$(u-1,5)a$(u,5)=a$(u+1,5)a$(u,5)=a$(u+5,5)2500  ya$(u,5)=a$(u-5,5)a$(u,5)=a$(u+1,5)a$(u,5)=a$(u+5,5)2500  ya$(u,5)=a$(u-5,5)a$(u,5)=a$(u-1,5)a$(u,5)=a$(u+5,5)2500  Ua$(u,5)=a$(u+1,5)a$(u,5)=a$(u+5,5)2500  Ua$(u,5)=a$(u-1,5)a$(u,5)=a$(u+5,5)2500  Ea$(u,5)=a$(u-5)a$(u,5)=a$(u+1)2500  Ma$(u,5)=a$(u-5)a$(u,5)=a$(u-1,5)2500  plot danger level f=dldl+10 f>40(2530 921-f/2,60</2;"*":60,f f dl=dl+10 dl<39'  711 ,2;"YOU TOOK ";moves;" MOVES AND DIED" $13 ,6;"PRESS ANY KEY." 4e4@  5 instructions "0,6;"NUCLEAR WASTE" s2,0;"THE OBJECT IS TO TRY AND MOVE THE  AT BOX T TO THE EMPTY BOX AT A. YOU MAY MOVE ONE BOX UP " N5,0;"DOWN LEFT OR RIGHT BUT NOT MORE THAN ONE BOX OR DIAGONAL." q8,0;"THE BLACK BOXES ARE TO KEEP RODSOF THE SAME TYPE FROM REACTING WITH EACH OTHER. WHEN MOVING" M11 ,0;"TRY TO KEEP RODS OF THE SAME TYPE IN DIAGONAL BOXES." v13 ,0;"WHEN THEY ARE WITHIN ONE BOX OF EACH OTHER AND NOT DIAGONAL YOU ARE IN DANGER. IF YOU PASS LEVEL" ?16,0;"3 YOU WILL DIE FROM BEING OVER EXPOSED. " c19,0;"PRESS ANY KEY TO START AND BE AS QUICK AS YOU CAN. GOOD LUCK...."  4e4@   5 #( "Nuclear" #)