Sappro >g>>YSappro by G. Harris from ZX Computing,Oct/Nov'85 5p$(10 ,12 ):i=110 :p$(i):i u"HOTENTOT","JAKURITI","NUMERATOR","DARTH","AGAR-AGAR","LAPIS LAZULI","VOLITAIRE","GEODES","IGNUS FATUUS","CRYOCLOS" 0:0: 4  3000  7000X cs=0:trn=0  bb=0 o$="0" g=0:d2=0 #sc=0:end=0 ( n1=0 - ed2=0 2 tr=0 7 b2=0 < d=0 ? a$="0005" A b$="0005" F a=0 I f$="0000" K e$="0000" P c$="0000" Ss$(32 ) U 600X W 6000p Ztn=0:b=0 d0:7 iin=0:9000(# n912 ,2;"time";13 ,2;"phase ";trn x02;0;10 ,2;"PLAYER 1" y 1300 z1end=1b$(1)=c$(1)4000 %2;2,2;"Fleet 1" n=1̰a$(34) !2;2,8+n;"" n :4;19,2;"Home planet ";c$(1):4;20,2;"Ships":n=1̰c$(34):2;1;20,7+n;"":n *a$(34)04250 "Fleet position";a$(1) .1}L,15 2a$(1)e$(1)ed2=1ed2=0 4500 &a$(1)=b$(1)303/ %a$(1)=f$(1)21004 %a$(1)=c$(1)1000 %a$(1)=e$(1)1900l %a$(1)b$(1)4200h in=6:90102# ="c"185 175 sc=1 in=0:9000(# 07;0;10 ,2;"PLAYER 2" 1200 1ed2=1a$(1)=e$(1)4000 n4;19,14;e$(1):n=1̰e$(34):7;20,6+n;"":n E7;3,2;"Fleet 2":n=1̰b$(34) $7;3,8+n;"":n *b$(34)04250 ""Position of fleet?";b$(1) .1}L,15 2b$(1)c$(1)end=1end=0 $bb=1:4500:bb=0 &a$(1)=b$(1)303/ %b$(1)=f$(1)1650r 'b$(1)=e$(1)1800 'c$(1)=b$(1)1500 'b$(1)ɰa$(1)4200h " sc=0 . 400 0 Combat**** 6shota=a$(34) @ca=shota/2 Jsb=b$(34) T<cb=(sb/2):() were missing in listing. [JimG] W a=shota-cb Y d=sb-ca ^a<0a=0 cd<0d=0 ha$(34)=a rb$(34)=d w 4300 z 2,8;s$(15) |i2;2,2;"Fleet 1":n=1̰a$(34):2;2,8+n;"":n  3,9 ;s$(18) j7;3,2;"Fleet 2 ":n=1̰b$(34):7;3,8+n;"":n  9200# Home planets1&2+n3 tn=tn+1 d2=d2+1 trn=trn+1 n1=n1+1 b=c$(34)  b=b+1 c$(34)=b b2=e$(34) b2=b2+1 e$(34)=b2 (n1=f$(34):n1=n1+1 f$(34)=n1 in=6:90102# ="c"100d  460 .3,-2  100d XChoose Home Planet *** ] :7 b<4;1,2;"PLANETS IN THE SAPPRO SYSTEM": lgi=110 :6+i,3-(i=10 );i;6;p$(i):i:16,18;"Enter 0" A1;0;2;"PLAYER 1 choose your home planet";a  a$(1)=a:a$(2)=a  c$(1)=a:c$(2)=a  .1}L,15  80;7;"PLAYER 2 choose your home planet";a * b$(1)=a:b$(2)=a /$a$(1)=b$(1)900 4 e$(1)=a:e$(2)=a >.1}L,15 H 0 Rf$(1)=(*10 ) \<f$(1)=e$(1)f$(1)=c$(1)850R ff$(2)=f$(1) p: %Players select the same home planet W6;16,1;"You have selected the same home planet as the 1st PLAYER" Q6;19,1;"Both PLAYERS must re-select their home planets" K.1}L,-6:5:.1}L,-6:5:.1}L,-6  750 Transfer plt1 to flt1  "Transfer ships? ENTER Y/N";d$ .1}L,15  d$"y" "How many?";g  tr=tr+a$(34)  !c$(34)>gtr=tr+g 4c$(34)gtr=tr+c$(34) cs=c$(34) Hc$(34)>gc$(34)=(-g+c$(34)) $csgc$(34)=0 $a$(34)=tr B tn=0 Dcs=0:tr=0 E1;2;2,2;"Fleet 1";s$(15):n=1̰a$(34):2;2,8+n;"":n Ff20,8;s$(15):n=1̰c$(34):2;20,7+n;"":n H 9100# Clear screen for player 2  7 ]7;9 ,13 ;"PLAYER 2";10 ,13 ;"PRESS";11 ,13 ;"ENTER" =13 1250 g.15~,4:1:.15~,4:1:.15~,8:1:.15~,8  1230 ;.07}\(,1:.07}\(,-1:.07}\(,-3  0 ]0;9 ,13 ;"PLAYER 2";10 ,13 ;"PRESS";11 ,13 ;"ENTER"   Clear screen for player 1  2 (f1;2;9 ,13 ;"PLAYER 1";10 ,13 ;"PRESS";11 ,13 ;"ENTER" 2=13 1350F 7$.2~L,9 :.3,5 < 13302 F;.07}\(,1:.07}\(,-1:.07}\(,-3 P 0 Z]0;9 ,13 ;"PLAYER 1";10 ,13 ;"PRESS";11 ,13 ;"ENTER" n Combat with planet  44000 shota=c$(34) <ca=(shota/2): () were missing in listing[JimG] sb=b$(34) <cb=(sb/2):() were missing in listing. [JimG]  a=shota-cb " d=sb-ca ,a<0a=0 1d<0d=0 60b$(34)=d:c$(34)=a 9?2,2;s$(20);3,2;s$(20) @i7;2,2;"Fleet 2":n=1̰b$(34):7;2,8+n;"":n Ji2;3,2;"Planet ":n=1̰c$(34):2;3,8+n;"":n K 9200# M*c$(34)03500 O+c$(34)>0end=0 ^ 271 rTransfer n plt, plt2 a$(1)=b$(1) i7;2,2;"Fleet 2":n=1̰b$(34):7;2,8+n;"":n p4;3,2;"Neutral ships":n=1̰f$(34):4;3,14+n;"":n  "Transfer ships? ENTER Y/N";d$ .1}L,15 d$"y"245 tr=tr+b$(34) "How many ships?";g !f$(34)>gtr=tr+g 4f$(34)gtr=tr+f$(34) cs=f$(34) Hf$(34)>gf$(34)=(-g+f$(34)) $csgf$(34)=0 b$(34)=tr  cs=0 tr=0:n1=0 i7;2,2;"Fleet 2":n=1̰b$(34):7;2,8+n;"":n %3,15;" " En=1̰f$(34):4;3,14+n;"":n  9100# Transfer plt2****  "Transfer ships? ENTER Y/N";d$  .1}L,15  d$"y"269  tr=tr+b$(34) "How many ships?";g 4e$(34)gtr=tr+e$(34) !e$(34)>gtr=tr+g cs=e$(34) He$(34)>ge$(34)=(-g+e$(34)) $csge$(34)=0 0b$(34)=tr Ncs=0:tr=0 X b2=0 [Dn=1̰b$(34):7;3,8+n;"":n \!20,7;s$(14) ^En=1̰e$(34):7;20,6+n;"":n ` 1096H b lFlt 1 v Plt 2 q 44000 shota=a$(34) <ca=(shota/2): () were missing in listing[JimG] sb=e$(34) <cb=(sb/2):() were missing in listing. [JimG]  a=shota-cb  d=sb-ca a<0a=0 d<0d=0 0a$(34)=a:e$(34)=d ?2,2;s$(20);3,2;s$(20) h7;3,2;"Planet":n=1̰e$(34):7;3,8+n;"":n r1;2;2,2;"Fleet 1":n=1̰a$(34):2;2,8+n;"":n  9200# *e$(34)03600 +e$(34)>0ed2=0  173 4a$(1)=b$(1) 7p4;3,2;"Neutral ships":n=1̰f$(34):4;3,14+n;"":n 9 "Transfer ships? ENTER Y/N";d$ ;.1}L,15 >d$"y"167 C"How many?";g Htr=tr+a$(34) L!f$(34)>gtr=tr+g N4f$(34)gtr=tr+f$(34) Pcs=f$(34) RHf$(34)>gf$(34)=(-g+f$(34)) T$csgf$(34)=0 \a$(34)=tr ftr=0:n1=0 k cs=0 sDn=1̰a$(34):2;2,8+n;"":n u!3,15;s$(15) vCn=1̰f$(34):4;3,14;"":n w 9100# Space ships**** n=07 j:"a"+n,j n 11111000,00011100,00111110>,00001111,00111110>,00011100,11111000,00000000  Plt lost**** ,b$(34)0end=-1 Ea$(1)=c$(1)ưa$(34)1end=0 7trn0end=end+1:end=24100  Destruction of plt 2** ,a$(34)0ed2=-1 $Eb$(1)=e$(1)ưb$(34)1ed2=0 )7trn0ed2=ed2+1:ed2=24100 8 [o$=" URGENT MESSAGE FROM HOME PLANET.... Under attack..No ships ..HELP!...":4410: Pn=130:i=(40(-70F*):.1}L,i:i=i+(.5-):n o$=" Congratulations you have captured the enemy's home planet WINNING the game ....Today the Planetary system tomorrow the Galaxy." , 4410: 6*"Do you want another game? ENTER Y/N";a$ @a$"n"20 T r4o$=" NO enemy ship at this planet.":4410: o$=" Your fleet has been TOTALLY DESTROYED. Never mind you can form a new one by returning to your HOME planet.":4410: Enemy fleet attacking *7;18,2;s$(27) -o$=" ENEMY FLEET ATTACKING ":4410: 0Combat enemy's home plt 53o$=" ENEMY'S HOME PLANET....FLEET UNDER ATTACK" : r=1 <n=1̱o$ ?<n287;0;18,30-n;o$(rn) DBn>287;0;18,2;o$(n-27n) I.07}\(,6:n N Draw planet***** pl=a$(1) bb=1pl=b$(1) pl=0pl=10 4;1,4+2*(pl=4pl=8)-2*(pl=6pl=9 );p$(pl);1,14+(pl=6pl=9 );" the ";pl;("st"pl=1)+("nd"pl=2)+("rd"pl=3)+("th"pl>3)+" Planet" pl>7pl=pl-7 pl:6600 4:0 662008:i=115:u,v,w,x:u,v:w,x:i ;n=1173:6210B:i=12 0u,v,w,x:u,v-n:w,x:u,v,w,x:u,v+n:w,x:i:n *i=115:u,v,w,x:u,v:w,x:i 8$0,0,0,175,0,0,255,0,255,0,0,175,255,175,-255,0,15,143,224,0,14,142,226,0,240,143,0,32 ,15,143,0,32 ,15,32 ,224,0,15,32 ,0,-30,240,6,0,26,14,33!,226,0,14,32 ,-13 ,-13 ,14,33!,-13 ,-13 ,14,142,-13 ,13 B14,32 ,-13 ,-13 ,14,142,-13 ,13 ,241,32 ,13 ,-13 ,241,142,13 ,13 L(14,5,227,0,1,174,254,0,1,173,254,0,14,169,225,0,14,172,225,0,241,32 ,13 ,-13 ,241,33!,13 ,-13 ,0,2,255,0,14,142,0,27,241,142,0,27,242,142,13 ,13 ,241,33!,0,-27,13 ,142,-13 ,13 ,241,142,13 ,13 ,14,33!,0,-27  Mn=190Z:7;8+236.5l*,40(+95.5?*:n 8n=114:240,16-n:n,0:n n (|n=114:241,158+n:n,0:14,158+n:-n,0:14,16-n:-n,0:n 2$0,1:255,0 d ]cz=0:cr=31:b1=170:a1=170:b2=87W:ca2=127:n=75K .n=czcr:b1=(.5+(cr*cr-n*n)*2) $a1=b2+b1/2:ca2+n,a1:cz,-b1 ca2-n,a1:cz,-b1 n  0  XDraw Introduction*** b0:4: l4;3,4;" ";4,4;" ";5,4;" ";6,4;" ";7,4;" " vd4;10 ,4;"AN INTER-PLANETARY GAME";12 ,3;"OF STRATEGY FOR 2 PLAYERS" 14;15,6;" GEOFF HARRIS 1984" A4;1;18,3;"PRESS ANY KEY TO CONTINUE" Gn=0303:0,n;"";21,1+n;"":n Gn=2213:n,0;"";n-1,31;"":n Pn=1303:2;0,n;"";21,1+n;"":n Pn=2303:7;0,n;"";21,1+n;"":n Pn=1213:2;n,0;"";n-1,31;"":n Pn=3213:7;n,0;"";n-1,31;"":n $n=110 :.02{# =,n:n ""7130  7105 -n=110 :.02{# =,10 -n:n  0:  #(0;14,12 ;s$(7);7,12 ;s$(7);13 ,12 ;s$(10 );8,11 ;s$(10 );9 ,11 ;s$(9 );10 ,11 ;s$(10 );11 ,11 ;s$(11 );12 ,11 ;s$(11 ):18,2;7;s$(28):1,2;s$(28):2,2;s$(28);3,2;s$(28);20,7;s$(20);19,14;" " #2Zin;10 ,22;"PRESS C";11 ,22;"to ";12 ,22;"continue" #< #O2,22;6;1;"TRANSFER";3,22;"COMPLETE": #M2,23;3;1;"COMBAT ";3,23;"RESULTS":