ISOTOPE W(W({Y(eIsotopes by John Pitcher from Sinclair User #41) (Aug'85U) Dangerous radioactive material lies buried in the weedat the bottom of the ocean. The sub is ready and waiting. Bring the canisters up to the ship before the time runs out; but beware the blue octopi - their tentacled touch is deadly. Y236099\,10 :23658j\,8:9000(#:8900":2000:25 8900":2000 )5::23624H\,8:1 (6000p:6050 x1=x:y1=y 2y1,x1;" ";y1+1,x;" " $32766=1903000 nx=x+(57342=190)-(57342=189):y=y+(65022=190)-(64510=190) pu=11510 y=y+(y<1)-(y>16) x=x-(x>30)+(x<0) l=60000` m(y,x)40(ū(y+1,x)40(ū(y,x+1)40(ū(y+1,x+1)40(7000X &0;y,x;"";y+1,x;"" ti=15000 ]ti<100d21,16;7;" ":ti<10 21,15;7;" "  pu=11500 /ti=ti-1:21,14;7;ti B 1000 %y+2,x;"";y+3,x;""  Jy1+2,x1;5;" ";y1+3,x1;" "  50::7:23624H\,15::1 &0,12 ;1;"ISOTOPE" 2,0;6;"In this game you (the minisub) must rescue canisters full of Radioactive Isotopes.Pick up thecanisters from amongst the weed and take them to your ship above" x7,0;4;"You must complete this task in a certain time or the Isotopes will become too dangerous." ~10 ,0;3;"Unfortunately the Isotopes are placed in Blue Octopus infested waters and you must avoid them." W19,3;"Q=up;A=down;O=left;P=right";18,7;"SPACE=pick up/drop" H14,12 ;4;" ";2;" ";7;" " H15,12 ;4;" ";2;" ";7;" " 316,0;" OCTOPUS WEED CAN SUB"  in=0 021,0;" PRESS KEY (S) TO PLAY" 814,3;5;"";15,3;"" H0,12 ;in;"ISOTOPE":in=in+1:in=8in=0  6 ="s"Ŧ="S"2090* 814,3;5;"";15,3;""  6:2051 *5::1:0: y=163010 y=13100 y16y1 E(y+2,x)42*ū(y+2,x+1)42*3190v ̞pu=1:60230F,(*6)+16:n=10 15010 :60228D,n:l=60227C:n:y+2,x;" ";y+3,x;" ":1  $x<10 x>20pu=0 &Ay1+2,x1;" ";y1+3,x1;" " +n60230F,(*6)+16:n=15010 -10 :60228D,n:l=60227C:n:1 0pu=0:sc=sc+100d:21,26;7;sc:5:can=can+1:puf=ft-can:can=ft+14000 v DONE n:8,11 ;"WELL DONE!";10 ,3;"YOU HAVE RECOVERED ALL THE RADIOACTIVE ISOTOPES." 014,7;1;"YOUR TIME WAS ";ti <16,11 ;2;1;"BONUS ";ti:sc=sc+ti 6n=9 90Z:60181,n:l=60179:n C#0;" PRESS A KEY TO MOVE ON TO NEXT RECOVERY SITE" 1:0 Kcan=0:ft=ft+1:puf=ft:pc=pc-3:ft=9 ft=9 pc<1pc=1 V:y=1:ti=200+502*ft:z=z+1:8900":x=15:30 =:10 ,7;1;2;"YOU ARE OUT OF TIME" 12 ,4;"THE RADIOACTIVE ISOPTOPES HAVE REACHED A DANGEROUSLY HIGH LEVEL"''" MISSION ABANDONED" @n=1309 -1:60181,n:l=60179:n 600X:7200  pMm=0puf:n=pcpc+puf*33:18,n;2;"":n:m qMm=0puf:n=pcpc+puf*33:19,n;2;"":n:m ri4:n=032 3:16,n;"":n:n=032 3:17,n;"":n s`n=032 3:18,n;"":n:n=032 3:19,n;"":n t 0: 20,0;6;l$ e21,0;7;l$:21,0;7;"SUBS=";li;" TIME= ";ti;" SCORE= ";sc "0,10 ;" "  XD60139,40(:li=li-1:21,5;7;li ] car=can bl=60201) lli=07200  v/pu=0:y=1:x=16::30  )0:23624H\,0:300, *H20,0;0;6;" GAME OVER " 460230F,17:n=019:60228D,170:21,0;0;l$:l=3280 :60227C:n:1 >o60181,255:7,5;5;"WELL DONE A GOOD TRY":n=04:l=60179:n C 1 HH30:10 ,5;4;"YOU SCORED ";sc;:l=60201) *#0;" PRESS ANY KEY TO PLAY AGAIN" Y0:z=2:can=0:pc=10 :ft=2:puf=ft:y=3:x=16 )n=4200042050B:n,0:n 90:li=9 :ti=200:sc=0:21 "ā42000,4:42001,14:42002,1:42003,0:42004,1:42005,255 ":a=42005 " f=1z "a,(*29+2) "!a+1,(*10 +4) "a+2,1 "a+3,1 #)þ(a+2)þ(a+3)8940" # a+4,1 #a+5,255 # a=a+5 #f ## #(>tot=0:n=60000`60247W:a:n,a:tot=tot+a:n #2/tot28578o"ERROR IN DATA DO NOT RUN": #<221,33!,16,164,221,126~,0,254,255,40(,34",95_,221,86V,1,6,2,62>,22,215,122z,215,123{,215,62>,32 ,215,62>,32 ,215,20,16,240,221,35#,221,35#,221,35#,221,35#,221,35#,24,215,221,33!,16,164,221,126~ #F0,254,255,200,221,134,2,254,255,40(,4,254,31,32 ,8,221,126~,2,237,68D,221,119w,2,221,126~,1,254,2,40(,4,254,14,32 ,8,221,126~,3,237,68D,221,119w,3,221,126~,0,221,134,2,221,119w #Z0,221,126~,1,221,134,3,221,119w,1,14,144,221,203,4,126~,40(,10 ,221,203,4,190,62>,4,129,79O,24,4,221,203,4,254,221,126~,4,203,191,198,40(,502,143,92\,221,86V,1,6,2,62>,22,215 #d122z,215,221,126~,0,215,121y,215,12 ,121y,215,12 ,20,16,238,221,35#,221,35#,221,35#,221,35#,221,35#,195,145,234 #n243,14,255,62>,16,237,163,65A,16,254,62>,7,237,163,65A,16,254,13 ,32 ,239,251,201,6,35#,197,33!,0,3,17,1,0,229,205,181,3,225,17,16,0,167,237,82R,32 ,240,193,16,233,201,14,0,62>,16,211,254 #x65A,16,254,62>,7,211,254,65A,16,254,13 ,32 ,239,201 #,9100#:n="a""t"+7:a:n,a:n #!0,0,0,0,1,3,5,71G,0,0,0,0,128,192,164,234,166,30,11 ,180,201,18,17,34",105i,112p,246,217,36$,34",17,12 ##0,0,0,0,33!,67C,69E,37%,0,0,0,0,128,195,164,168,39',159,139,116t,9 ,17,98b,12 ,233,242,244,216,37%,34",32 ,16 #0,82R,44,,568,60<,120x,120x,60<,60<,120x,120x,60<,60<,120x,120x,60<,25,63?,126~,255,254,254,254,185,152,252,126~,255,127,127,127,157,185,255,254,255,255,120x,63?,25,157,255,127,255,255,30,252,152 #255,127,63?,31,15,7,3,1,252,248,244,252,244,240,254,0,0,7,15,28,60<,231,127,255,0,128,248,132,178,177,161,255,104h,238,109m,235,104h,63?,31,12 ,213,255,214,252,248,240,224,96` %Hz=2:x=16:y=1:li=5:sc=0:ti=200 %&3l$=" ":pu=0 &-can=0:pc=1:ft=2:puf=ft & '."ISOTOPE":23736\,181:9999' izotopes G- G-I-yIsotopes modified by Laszlo Nyitrai; original by John Pitcher from Sinclair User #41 (Aug'85)   ******************* * IZOTOP KERESES * * * (* ugyessegi jatek * 2* * F* NYITRAI 2000' * P******************* U ZY236099\,10 :23658j\,8:1140t:1010:330J:110n d1010:330J n)5::23624H\,8:1 x770:8204 x1=x:y1=y y1,x1;" ";y1+1,x;" " #32766=190520 nx=x+(57342=190)-(57342=189):y=y+(65022=190)-(64510=190) pu=1300, y=y+(y<1)-(y>16) x=x-(x>30)+(x<0) l=60000` m(y,x)40(ū(y+1,x)40(ū(y,x+1)40(ū(y+1,x+1)40 (860\ *********************  * A BUVAR-HAJO * ********************* &0;y,x;"";y+1,x;"" ido=1730 _ido<100d21,16;7;" ":ido<10 21,15;7;" " pu=1280 2ido=ido-1:21,14;7;ido  130 ********************* * RADIOAKTIV BOMBA * ********************* %y+2,x;"";y+3,x;"" " ,2y1+2,x1;5;" ";y1+3,x1;" " 6 ;********************* @* JATEK MAGYARAZAT * E********************* F 1 J50::7:23624H\,15::1 T>0,0;1;" KUTATAS AZ IZOTOP BOMBA UTAN " ^ 6;2,0;" EBBEN A JATEKBAN, AZ AMERIKAILEGIERO ALTAL ELVESZTETT HAROMIZOTOP-BOMBAT KELL AZ ATLANTI" h|6: "OCEANBOL KIHALASZNOD. ";2;"MUNKADATNEHEZITI A SUGARFERTOZESTOL MEGKERGULT NEHANY ORIAS KEK-POLIP." r4: "A SUGARZASTOL SZINTEN VESZELYESLETT FENEKEN LEVO HINAR, EHHEZSEM LEHET HOZZAERNI,MERT AZ ELE-TEIDNEK HAMAROSAN VEGE LESZ." |N 5;"IGYEKEZNED IS KELL,MERT A SUGAR-DOZIS MIATT LEALLITJAK A MUNKAT." b7:20,3;"Q=FEL;A=LE;O=BALRA;P=JOBBRA";19,7;"SPACE=FELVESZ/LERAK" I15,11 ;;4;" ";2;" ";6;" " H16,11 ;4;" ";2;" ";6;" " b5;18,0;" POLIP";4;" HINAR";2;" IZOTOP";6;" BUVAR-HAJO" k#0;6;" Ketyeg a ";1;"GEIGER";0;" szamlalo, NYOMD AZ 'I' GOMBOT !"  im=1 `0,0;im;" KUTATAS AZ IZOTOP BOMBA UTAN ":im=im+1:im=8im=1 315,3;im;"";16,3;""  6 ="i"Ŧ="I"510 315,3;im;"";16,3;"" .01z# =,im/10 6:465 (5::1:0:0: y=16550& y=1580D y16y1 &D(y+2,x)42*ū(y+2,x+1)42*620l 0pu=1:60230F,(*6)+16:n=10 15010 :60228D,n:l=60227C:n:y+2,x;" ";y+3,x;" ":1 : D$x<10 x>20pu=0 N)y1+2,x1;" ";y1+3,x1;" " Xn60230F,(*6)+16:n=15010 -10 :60228D,n:l=60227C:n:1 bpu=0:pont=pont+100d:21,26;7;pont:5:can=can+1:puf=ft-can:can=ft+1630v l q*********************** v9* SIKERES MEGTALALAS * * UJABB FOKOZAT * {*********************** :2;4,2;"GRATULALOK,szuper buvar vagy!";8,8;" ";9 ,8;" ";6;12 ,3;" MEGTALALTAD AZ OSSZES RADIOAKTIV BOMBAT!!" A14,1;1;"A SZERZETT IDOD: ";ido;" masodperc" U16,2;2;1;"JUTALOM-pontjaid: ";ido;" pont":pont=pont+ido 6n=9 90Z:60181,n:l=60179:n ?#0;" NYOMJ EGY GOMBOT,A KOVETKEZO FOKOZATHOZ!" 1:0 Kcan=0:ft=ft+1:puf=ft:pc=pc-3:ft=9 ft=9 pc<1pc=1 X:y=1:ido=200+502*ft:z=z+1:1010:x=15:120x ښ:3,8;1;2;"LEJART AZ IDO!";0;1;5,1;" " 1;9 ,2;"A RADIOAKTIV KIJELZOD SZERINT"''" TUL NAGY SUGARADAGOT KAPTAL"''" << HOLNAPIG >> "''" A KUTATAST MEGSZAKITOTTAM!" @n=1309 -1:60181,n:l=60179:n 600X:910 Mm=0puf:n=pcpc+puf*33:18,n;2;"":n:m  Mm=0puf:n=pcpc+puf*33:19,n;2;"":n:m i4:n=032 3:16,n;"":n:n=032 3:17,n;"":n  `n=032 3:18,n;"":n:n=032 3:19,n;"":n * 0: 420,0;6;l$ >h21,0;7;l$:21,0;7;"ELET=";elet;" IDO= ";ido;" PONT= ";pont H'0,10 ;" ZSILIP " R \J60139,40(:elet=elet-1:21,5;7;elet f car=can pl=60201) zelet=0910 0pu=0:y=1:x=16::120x ****************** * A JATEK VEGE * ****************** )0:23624H\,0:300, H20,0;0;6;" A JATEKNAK VEGE " 60230F,17:n=019:60228D,170:21,0;0;l$:l=3280 :60227C:n:1 r60181,255:7,5;5;"NE SIRJ,PROBALD UJRA !!":n=04:l=60179:n  1 30:10 ,5;4;"ELERT PONTSZAMOD: ";pont;2;12 ,6;"ELETEIDNEK SZAMA:";elet:l=60201) I#0;" NYOMJ EGY GOMBOT A JATEK FOLYTATASAHOZ !!" Y0:z=2:can=0:pc=10 :ft=2:puf=ft:y=3:x=16 )n=4200042050B:n,0:n ?0:elet=9 :ido=200:pont=0:100d *********************** * A POLIPOK SZAMA 1-5 * *********************** 42000,4:42001,14:42002,1:42003,0:42004,1:42005,255 :a=42005  f=1z a,(*29+2) !a+1,(*10 +4) $a+2,1 .a+3,1 8)þ(a+2)þ(a+3)1060$ Ba+4,1 La+5,255 V a=a+5 `f j o*********************** p*A SPRITE-K GEPI KODJA* q*********************** tGosszeg=0:n=60000`60247W:a:n,a:osszeg=osszeg+a:n ~=osszeg28578o"HIBA AZ ADATOKBAN,NEHOGY FUTTASD !!": 221,33!,16,164,221,126~,0,254,255,40(,34",95_,221,86V,1,6,2,62>,22,215,122z,215,123{,215,62>,32 ,215,62>,32 ,215,20,16,240,221,35#,221,35#,221,35#,221,35#,221,35#,24,215,221,33!,16,164,221,126~ 0,254,255,200,221,134,2,254,255,40(,4,254,31,32 ,8,221,126~,2,237,68D,221,119w,2,221,126~,1,254,2,40(,4,254,14,32 ,8,221,126~,3,237,68D,221,119w,3,221,126~,0,221,134,2,221,119w 0,221,126~,1,221,134,3,221,119w,1,14,144,221,203,4,126~,40(,10 ,221,203,4,190,62>,4,129,79O,24,4,221,203,4,254,221,126~,4,203,191,198,40(,502,143,92\,221,86V,1,6,2,62>,22,215 122z,215,221,126~,0,215,121y,215,12 ,121y,215,12 ,20,16,238,221,35#,221,35#,221,35#,221,35#,221,35#,195,145,234 243,14,255,62>,16,237,163,65A,16,254,62>,7,237,163,65A,16,254,13 ,32 ,239,251,201,6,35#,197,33!,0,3,17,1,0,229,205,181,3,225,17,16,0,167,237,82R,32 ,240,193,16,233,201,14,0,62>,16,211,254 65A,16,254,62>,7,211,254,65A,16,254,13 ,32 ,239,201 *******************  * AZ UDG-K * ******************* ,1220:n="a""t"+7:a:n,a:n !0,0,0,0,1,3,5,71G,0,0,0,0,128,192,164,234,166,30,11 ,180,201,18,17,34",105i,112p,246,217,36$,34",17,12 #0,0,0,0,33!,67C,69E,37%,0,0,0,0,128,195,164,168,39',159,139,116t,9 ,17,98b,12 ,233,242,244,216,37%,34",32 ,16 0,82R,44,,568,60<,120x,120x,60<,60<,120x,120x,60<,60<,120x,120x,60<,25,63?,126~,255,254,254,254,185,152,252,126~,255,127,127,127,157,185,255,254,255,255,120x,63?,25,157,255,127,255,255,30,252,152 255,127,63?,31,15,7,3,1,252,248,244,252,244,240,254,0,0,7,15,28,60<,231,127,255,0,128,248,132,178,177,161,255,104h,238,109m,235,104h,63?,31,12 ,213,255,214,252,248,240,224,96` Mz=2:x=16:y=1:elet=5:pont=0:ido=200 3l$=" ":pu=0  -can=0:pc=1:ft=2:puf=ft  ************* * MENTES * ************* ."izotopes":23736\,181:100d