ZXTape! 0Created with Ramsoft MakeTZXcover W  10 `1:1:1:1:5:4:6:2:1:=""5 a$=:0: )9990':0:7:0:  a=1 :a*100d:#1;0,0;6;" Page ";a;" ENTER=Next SPACE=Back":a=2#1;1,0;" PRESS C TO COPY TO ZX PRINTER" (""40( 2 5 <)a$=" "a>1a=a-1:30 F0a$=13 a<12 a=a+1:30 Ka$="c"a$="C":40( PX(a$="l"a$="L")a=12 1:1::10 ,8;"START THE TAPE":"" Z 20 d'" This magazine is composed of a number of programs that chain together, so that each one will LOAD the next when you are ready for it." n'" Any particular program can be LOADed using its file name listed on the contents page, but to 'read' everything in the magazine, it is easier to use the chaining." sv'" We advise that you do not use Microdrives with this magazine, as some of the programs have a very low RAMTOP." xM6'" Press ENTER to go to next page"'" Press SPACE to go back a page"  Ȟ'" SPECTRUM COMPUTING - ISSUE 15 JULY  APS LTD 1985 222 REGENT ST. LONDON WIR 7DB TELEPHONE 01-439 0666 EDITOR - FRANK DUNN" ҝ'" CONTENTS - SIDE 1"'" Editorial next page Hyper ""chess"""'" New Software ""reviews"""'" Logically speaking ""B+C """ '" CONTENTS - SIDE 2"'" Picture ""puzzle"""'" More New Software ""reviews"""'" Preview ""glass"""'" Utility ""datamaker"""'" More strategy ""pentzy"""  ,6'''''''':z$=" CH CH CH CHANGES":9980&: sz$="Did you notice the cover? Thats right we have gone monthly. The other major change is me; Frank Dunn;the new editor. The format of the magazine will stay prettymuch to the course Iolo steered.Going monthly will mean we will be featuring interesting and definable sectors of the software market regularly. This issue sees us reviewing strategy":9980&  rz$="games in some breadth. To back that up there is a variation on one of the oldest of such games ,chess. Coming up in a future issue will be adventure games ,also planned are utilities, music,languages and hardware. As ever we positively encourage your submissions and pay well. But all this talk of features doesn't mean we won't be still ":9980&  Xnz$="putting in games of all manner. We are pretty pleased with the number of returns from the survey last issue. Its not too late yet to send yours in. The results will be reflected in the magazine and its future content and direction. The full survey opinions we shall show ina future issue. Direction is something the market is not":9980& b qz$="lacking at present. Or at least all the major companies appear to think film/media tie-ins are the way forwards. A valid point of view is that its leading to awhole slew of boring restricted games. Or worse its a less than wonderful addition to the original concept.(eg the film Lord Of The Rings ruined lots ofpeoples idea of the book.) Yet":9980&   nz$="the Hobbit is a classic game. Perhaps with all the smart moneygoing into tie-ins then we should look to the smaller firmsfor innovative and diverse games. In the UK there are only a fewgroups who consistently get the mix of art and programming rightthat results in above average games. Luckily the Spectrum is well catered for by them.":9980&: sz$="As this is written rumours of a 128K Spectrum abound. It would be good to see a QL style one, thats with Interface 1 and a microdrive or two built in and avideo output too. Assume it sells for around the `180>`200 mark. Oh and it would have to have two joystick ports built intoo. This is all guesswork but the idea of a 128K tape based ":9980&: sz$="machine is silly.Imagine loadinga game that used all the 128K! Mind you the whole rumour may be unfounded but its fun to workout specs.Mention of Interface 1reminds me of Interface 3. This is not a Sinclair product but itdoes an excellent job of moving games from tape to microdrive. It also is useful if you want tograb a screen from a game. You":9980&: L.z$="will see the results of this in the reviews. Thanks here to Quicksilva for the preview shot from GLASS.Full review next time.The next issue isthe summer special and its Future Summers.Not that I would wish to spend mine in New York 3000 but shucksI'm telling you the plot.":9980&: '''''':z$=" Press 'L' to LOAD the next section of the magazine."+13 +13 +" Press any other key to read this section again.":9980&: #( &;:vec=(23637U\+256*23638V\+9 ):z$:vec=23633Q\+256*23634R\:vec,244:vec+1,9 : &k >;;!*Q\s#rOF(  *\K\ 88'0 :k\ ͈ ͈ ! ֥_ b>?K6\!;\ˆ &o))) y!(= :k\ ͈ ͈ ! >w$w$=  >w$w$= #C\"\Y缧:ٰ"2":ڼ::"21","10";ٰ"9";"PRESS A KEY": ("23637"+"256"*"23638"+"6"): '1:1:1::9 :21,0;" STOP THE TAPE AND PRESS A KEY ":(23637U\+256*23638V\+6): '*U\@@>2\:@ H >2@>.g=(+͵v:\(>!XX#= = *@##"@@F#NAR0!X> 0:@w6 = !"@ ```````````````````````````````````````````````````````````````...................................................... '"cover"1 a e\A Zq Press 'L' to LOAD the next section of the magazine. Press any other key to read this section again.2chess jjO4l2(59999_:""60000`,1100L <-236066\,96`:236077\,233 A.:10 ,9 ;"STOP THE TAPE":0 d&PRINT PAGE ONE OF INSTRUCTIONS n~0:0::7:67C,156:106j,0:0,-18:-106j,0:0,18: x<2:6:3,9 ;" HYPERCHESS ":0 8,0;"THIS IS A TWO PLAYER CHESS-TYPEGAME WITH THE SAME OBJECTIVE ASORDINARY CHESS:TO MANOEUVRE YOUROPPONENT INTO CHECKMATE.THEPIECES HAVE BEEN RE-DESIGNED ANDRE-NAMED BUT,IN GENERAL,MOVE ASTHEY WOULD IN ORDINARY CHESS." 6"THE CHESSMEN HAVE BEEN RE-DESI-GNED AS FOLLOWS:" 9E3(# &PRINT PAGE TWO OF INSTRUCTIONS 0:23675{\,128:23676|\,237 2:7:0,0;"PAWN=SCOUTSHIP";0,18;"KNIGHT=SHUTTLE";5,0;"BISHOP=STARSHIP";5,17;"KING=BATTLESHIP";10 ,7;"ROOK=STRATOCRUISER";15,6;"QUEEN=STARDESTROYER":0:6 2,6;"";3,6;"";7,6;"";8,6;"";7,24;"";8,24;"";17,15;"";18,15;"" -23675{\,72H:23676|\,238 _2,24;"";3,24;"";12 ,15;"";13 ,15;""  9E3(# ,(PRINT PAGE THREE OF INSTRUCTIONS 6:2,0;"ONCE A GAME HAS COMMENCED,PRESS-ING THE FOLLOWING COMMAND KEYSWILL ALLOW THE PLAYER TO TAKEONE OF SEVERAL OPTIONS." @2:7:"R (RESET)":0:6:" ABORTS A GAME.THEBOARD AND PIECES ARE ALL RE-DRAWN AND A NEW GAME COMMENCES." J2:7:"Q (QUIT)":0:6:" TERMINATES THE HYPER-CHESS PROGRAM EXECUTION ANDRETURNS TO BASIC." T 9000(# 'PRINT PAGE FOUR OF INSTRUCTIONS :2:7:4,0;"R (RESET)":0:6:" TAKES A PIECE (OF ONESOWN COLOUR) AND PUTS IT INTO'HYPERSPACE' THUS REMOVING ITFROM THE BOARD.PIECES IN WARP'JUMP' RANDOMLY BACK ONTO THE" "BOARD,SOMETIMES LANDING ONPIECES OF ONES OWN COLOUR(THOUGH NEVER LANDING,OF COURSE,ON TOP OF BATTLESHIPS).BATTLE-SHIPS (KINGS) CANNOT WARP INTOHYPERSPACE."  9000(# 'PRINT PAGE FIVE OF INSTRUCTIONS :2:7:2,0;"M (MOVE)":0:6:" ALLOWS THE PIECES TO BEMOVED LIKE ORDINARY CHESSMEN.ALLMOVES ARE CHECKED FOR LEGALITY.PAWNS REACHING BACK RANKS (EITH-ER BY NORMAL MEANS OR BY 'JUMP-ING' ONTO THEM) ARE AUTOMATIC-" "ALLY PROMOTED TO STARDESTROYERS(QUEENS).IT SHOULD BE NOTED THAT CASTLINGAND EN-PASSANT MOVES ARE NOTALLOWED.THE PROGRAM DOES NOTINFORM THE PLAYERS WHEN A PLAYERIS IN CHECK OR CHECKMATE,SOWATCH THE STATE OF PLAY CARE-FULLY!"  9000(# X&PRINT PAGE SIX OF INSTRUCTIONS b:2:7:"S (STATUS)":0:6:" EACH PIECE CARRIESAMMUNITION IN THE FORM OF PLASMABOLTS (USE OF THESE EXPLAINEDLATER).THE NUMBER OF PLASMABOLTS EACH SHIP INITIALLY CARR-IES IS AS FOLLOWS:" lx7:"SCOUTSHIP =2 SHUTTLE=3STRATOCRUISER=4 STARSHIP=4STARDESTROYER=7 BATTLESHIP=7":6 v~"EACH SHIP ALSO HAS A SHIELD,THESTRENGTH OF WHICH CORRESPONDS TOA NUMBER.THE SHIELD STRENGTH OFEACH SHIP IS INITIALLY:" m7:"SCOUTSHIP =200 SHUTTLE=500STRATOCRUISER=400 STARSHIP=400STARDESTROYER=700 BATTLESHIP=700"  9000(# (PRINT PAGE SEVEN OF INSTRUCTIONS 6::7,0;"USE OF THE STATUS FACILITYALLOWS A PLAYER TO EXAMINE THEPLASMA BOLT AND SHIELD STATUS OFANY PIECE OF EITHER COLOUR.APLAYER MAY RECIEVE UP TO THREESTATUS REPORTS DURING ANY ONETURN."  9000(#  (PRINT PAGE EIGHT OF INSTRUCTIONS *:2:7:4,0;"F (FIRE)":0:6:" ALLOWS A PLAYERS SHIPTO FIRE A PLASMA BOLT AT ANEIGHBOURING SHIP OR EVEN ATITSELF.PLASMA BOLTS DECREASE ASHIPS SHIELD VALUE BY 100.ONCEA SHIPS SHIELDS DROP BELOW 100" 4z"THAT SHIP IS DESTROYED.FIRING RANGE IS LIMITED TO SHIPSIN THE IMMEDIATE SQUARESSURROUNDING THE SHIP FIRING THEBOLT." > 9000(# 'PRINT PAGE NINE OF INSTRUCTIONS :2:7:3,0;"B (BASE)":0:6:" STARBASES ARE THESQUARES INITIALLY OCCUPIED BYSTARDESTROYERS AND BATTLESHIPS(KINGS AND QUEENS).PROVIDED ANYOF THESE SQUARES ARE UNOCCUPIED,A PIECE (WHATEVER ITS LOCATION)" "MAY JUMP TO A STARBASE OF ITSOWN COLOUR.ONCE A PIECE HASJUMPED TO A STARBASE,SHIELDS ANDPLASMA BOLTS ARE RESTORED TOTHEIR ORIGINAL VALUES.BATTLE-SHIPS CANNOT JUMP TO STARBASES." 1:7:1:20,1;"PRESS A TO READ INSTRUCTIONS ":21,1;"AGAIN OR L TO LOAD HYPERCHESS":0 A$=:A$=""940 A$="A"A$="a"60< A$="L"A$="l"1000  940 LOAD MAIN PROGRAM s0::7:27,99c:194,0:0,-16:-194,0:0,16 Q2:6:1:10 ,4;" PLEASE START THE TAPE ":0 "" #(e1:1:7:21,4;"PRESS ANY KEY TO CONTINUE":0:0:6 #2=""90102# #<&.2~L,20:.2~L,16 #F '0"chess"1:"code"60000`,1100L wcode L`j& N$$$~$$~$>(> >bd&F(*D:  >>> ~BBFF~~B~`~|DFF~|DD~ ~@~F~~@~FF~~<$~bb~~BB~ >>~~``' ? @ <ܛ)<aP`_` #~&x@80 @<{  !88@@@@#=x@`p``@<<|{3 @ 9#8A8@@#=|@p @>3`è @@`c Aǟ0`w#=| ??x~ >?<x8@00>!8@<@`?>l!@?@;>탟6`<36 8xp8 0 xxA @?x~`C??8??'@~<~~~@~b`bbbBjbbbBb``Bbbbb``b$`b``bbbbbbb``bbb`FFbbbbFbBjbbbFBb`~~b~b~~~b<~b`~b~bbb~b`~b~b~~~~~bb~b~~bb~~~b~8888888888888888888888888888888888888888888888888888888888888888HYPERCHESS]zXq] HYPERCHESS  BY CHRIS HOWARD STONE  <DECEMBER 1984 F&16,0;"":""60000` PZ23675{\,88X:23676|\,255:236066\,96`:236077\,233 Z0:6:19,2;" ";:1:2:"STOP THE TAPE RECORDER";:0:0:" ":21,0;" " x.3,0:.15~,-3:.15~,0:1,2:.15~,-5:.15~,-3:.3,0:.3,2 o.3,7:.15~,9 :.15~,2:.3,7:.3,9 :1.43333,2 .3,0:.15~,-3:.15~,0:1,2:.15~,-5:.15~,-3:.3,0:.3,2 n.3,7:.15~,9 :.15~,2:.3,7:.3,9 :1,11 #INITIALISE   H(32 ):W(32 ) B(8,8) CZ=18:B(2,Z)=11 :B(7,Z)=1:Z tB(1,1)=12 :B(1,8)=12 :B(1,2)=13 :B(1,7)=13 tB(1,3)=14:B(1,6)=14:B(1,4)=16:B(1,5)=15 pB(8,1)=2:B(8,8)=2:B(8,2)=3:B(8,7)=3 pB(8,3)=4:B(8,6)=4:B(8,4)=6:B(8,5)=5 A(8,8) FZ=18:A(2,Z)=202:A(7,Z)=202:Z xA(1,1)=404:A(1,8)=404:A(8,1)=404:A(8,8)=404 xA(1,2)=303/:A(1,7)=303/:A(8,2)=303/:A(8,7)=303/ xA(1,3)=404:A(1,6)=404:A(8,3)=404:A(8,6)=404 "xA(1,5)=707:A(1,4)=707:A(8,5)=707:A(8,4)=707 ,&NINWARP=0:23658j\,8 ^DRAW BOARD  h0:0: r 2 | 7 b15,160:130,0:0,-130:-130,0:0,130 A=2144 B=2164 QA,B;" ";A+1,B;" ";A+2,B+2;" ";A+3,B+2;" " B A 0:3 5Q=18:19-2*Q,0;Q:Q 8Q=18:0,2*Q;(Q+64@):Q DRAW YELLOW PIECES  2:6 %61121,3:L=61000H [2,2;"";3,2;"";14,2;"";15,2;"" d0:4,2;"";5,2;"";16,2;"";17,2;"" &%61121,1:L=61000H 0[8,2;"";9 ,2;"";12 ,2;"";13 ,2;"" :d2:6,2;"";7,2;"";10 ,2;"";11 ,2;"" DHA=4164:A,4;"";A+1,4;"":A NQ0:A=2144:A,4;"";A+1,4;"":A XDRAW WHITE PIECES  b 7 l%61121,3:L=61000H v_2,16;"";3,16;"";14,16;"";15,16;"" h2:4,16;"";5,16;"";16,16;"";17,16;"" %61121,2:L=61000H _8,16;"";9 ,16;"";12 ,16;"";13 ,16;"" JA=2144:A,14;"";A+1,14;"":A S0:A=4164:A,14;"";A+1,14;"":A _6,16;"";7,16;"";10 ,16;"";11 ,16;"" 0:4 CLRTM=10 94:1:0,22;"COMMANDS":0 2,22;"M-MOVE";4,22;"W-WARP";6,22;"F-FIRE";8,22;"S-STATUS";10 ,22;"B-BASE";12 ,22;"R-RESET";14,22;"Q-QUIT"  !MAIN LOOP STARTS HERE  * NEMO=0:NREPORTS=0 4N1:0:6+1*(CLRTM=10 ):CLRTM=0840H >)16,22;"WHITE ":850R H16,22;"YELLOW " R'17,22;"TO MOVE":0 \!GET KEYPRESS  fP$=:P$=""870f p.05|L,12 zP$="Q"P$="q"9900& RESET ROUTINE  P$"R"P$"r"960  120x WARP ROUTINE  P$"W"P$"w"1150~ s1:9150#:19,3;"ENTER CO-ORDINATES OF SHIP";21,3;"TO JUMP INTO HYPERSPACE ?" A9000(#:21,27;L$;"?":X=KP:.02{# =,24 =9100#:21,28;N$:Y=KP:.02{# =,24 (NCPR=B(X,Y)-10 *(B(X,Y)>10 )  B(X,Y)01030 `9150#:20,5;"NO SHIP IN LOCATION ";L$;N$:9200#:9150#:8000@ 9B(X,Y)-CLRTM<-3B(X,Y)-CLRTM>10 1050 e9150#:20,2;L$;N$;" IS NOT ONE OF YOUR SHIPS":9200#:9150#:8000@ NCPR61070. $9150#:19,3;"BATTLESHIPS CANNOT TRAVEL";21,6;"THROUGH HYPERSPACE":9200#:9150#:8000@ .Z9150#:2:6:1:20,6;"HYPERDRIVE ACTIVATED":0 8>9250"$:61121,POKE:L=61000H:L=63090r B`ں(((18-2*Y,2*X)/8)):6*(CLRTM=0)+7*(CLRTM=10 ) L^18-2*Y,2*X;"";19-2*Y,2*X;"":Q=133!:Q V^18-2*Y,2*X;"";19-2*Y,2*X;"":Q=133!:Q `G18-2*Y,2*X;" ";19-2*Y,2*X;" " joH(NINWARP+1)=B(X,Y):W(NINWARP+1)=A(X,Y):A(X,Y)=0:B(X,Y)=0:NINWARP=NINWARP+1 t&9150#:NEMO=1:8000@ ~!STARBASE ROUTINE  %P$"B"P$"b"1600@ }B((1+7*(CLRTM=10 )),4)=0B((1+7*(CLRTM=10 )),5)=01190 9150#:19,5;"YOU HAVE NO STARBASES";21,7;"AVAILABLE TO YOU":9200#:9150#:8000@ h9150#:19,3;"ENTER CO-ORDINATES OF SHIP";21,4;"TO JUMP TO A STARBASE ?" ~9000(#:X=KP:21,26;L$;"?":.02{# =,24:9100#:Y=KP:21,27;N$:.02{# =,24  B(X,Y)01230 `9150#:20,5;"NO SHIP IN LOCATION ";L$;N$:9200#:9150#:8000@ 9B(X,Y)-CLRTM<-3B(X,Y)-CLRTM>10 1250 e9150#:20,2;L$;N$;" IS NOT ONE OF YOUR SHIPS":9200#:9150#:8000@ ,B(X,Y)6B(X,Y)161270 9150#:19,3;"BATTLESHIPS CANNOT JUMP TO";21,11 ;"STARBASES":9200#:9150#:8000@ JUMP O.K. POKE=1*(B(X,Y)=11 B(X,Y)=14B(X,Y)=15)+2*(B(X,Y)=1B(X,Y)=4B(X,Y)=5)+3*(B(X,Y)=2B(X,Y)=3B(X,Y)=12 B(X,Y)=13 )  #61121,POKE:L=61000H: (NCPR=B(X,Y)-10 *(B(X,Y)>10 ) 8BASEX=8*(CLRTM=10 )+1*(CLRTM=0) (RAND= 27BASEY=4*(RAND<.5)+5*(RAND>.5) <$B(BASEX,BASEY)01320( Fhں(((18-2*BASEY,2*BASEX)/8)):6*(CLRTM=0)+7*(CLRTM=10 ) Pn1360P+10 *(NCPR=1NCPR=2)+20*(NCPR=4NCPR=3)+30*(NCPR=5) Zg18-2*BASEY,2*BASEX;"";19-2*BASEY,2*BASEX;"":1400x dg18-2*BASEY,2*BASEX;"";19-2*BASEY,2*BASEX;"":1400x nY18-2*BASEY,2*BASEX;"";19-2*BASEY,2*BASEX;"" xuں(((18-2*Y,2*X)/8)):18-2*Y,2*X;" ";19-2*Y,2*X;" " L=63060T NEMO=1 B(BASEX,BASEY)=B(X,Y):B(X,Y)=0:A(X,Y)=0:A(BASEX,BASEY)=202*(NCPR=1)+303/*(NCPR=3)+404*(NCPR=2NCPR=4)+707*(NCPR=5NCPR=6) 6X=BASEX:Y=BASEY:9300T$:9390$:8000@ @STATUS REPORT ROUTINE  J!P$"S"P$"s"1800 TNREPORTS31640h ^9150#:19,3;"YOU HAVE ALREADY RECIEVED";21,5;"THREE STATUS REPORTS":9200#:9150#:8000@ h9150#:19,3;"ENTER CO-ORDINATES OF SHIP";20,5;"WHOSE STATUS IS TO BE";21,10 ;"DISPLAYED ?" r~9000(#:X=KP:21,20;L$;"?":.02{# =,24:9100#:Y=KP:21,21;N$:.02{# =,24 |B(X,Y)01680 `9150#:20,5;"NO SHIP IN LOCATION ";L$;N$:9200#:9150#:8000@ (NCPR=B(X,Y)-10 *(B(X,Y)>10 ) DISPLAY STATUS REPORT 9300T$:9390$ NREPORTS=NREPORTS+1  860\ FIRE ROUTINE  !P$"F"P$"f"21004 9150#:19,3;"ENTER CO-ORDINATES OF SHIP";20,7;"WHICH IS TO FIRE A";21,9 ;"PLASMA BOLT ?" &~9000(#:X=KP:21,21;L$;"?":.02{# =,24:9100#:Y=KP:21,22;N$:.02{# =,24 0B(X,Y)01860D :`9150#:20,5;"NO SHIP IN LOCATION ";L$;N$:9200#:9150#:8000@ D9B(X,Y)-CLRTM<-3B(X,Y)-CLRTM>10 1880X Ne9150#:20,2;L$;N$;" IS NOT ONE OF YOUR SHIPS":9200#:9150#:8000@ XASTR=((A(X,Y)/10 -((A(X,Y)/10 )))*10 +.5) bSTR01920 g(NCPR=B(X,Y)-10 *(B(X,Y)>10 ) lF9300T$:S$=S$+" IN":SP=30-S$:SP=((SP/2))+1 v9150#:19,SP;S$;20,7;"LOCATION ";L$;N$;" IS OUT";21,9 ;"OF AMMUNITION":9200#:9150#:8000@ Y9150#:19,5;"ENTER CO-ORDINATES OF";21,9 ;"TARGET SHIP ?" 9000(#:TARGX=KP:21,21;L$;"?":.02{# =,24:9100#:TARGY=KP:21,22;N$:.02{# =,24 $B(TARGX,TARGY)01960 v9150#:20,5;"NO SHIP IN LOCATION ";:(TARGX+64@);:TARGY:9200#:9150#:8000@ s(X-TARGX=1X-TARGX=0X-TARGX=-1)(Y-TARGY=1Y-TARGY=0Y-TARGY=-1)1980 a9150#:20,2;"TARGET OUTSIDE FIRING RANGE":9200#:9150#:8000@ FIRING IN RANGE PA(X,Y)=A(X,Y)-1:A(TARGX,TARGY)=A(TARGX,TARGY)-100d:L=63000 *A(TARGX,TARGY)<100d2040 9150#:2:7:19,5;"DIRECT HIT.";:7:1:" NEW STATUS";21,7;"OF TARGET FOLLOWS":Z=166B:Z |NCPR=B(TARGX,TARGY)-10 *(B(TARGX,TARGY)>10 ):X=TARGX:Y=TARGY:9300T$:9390$:NEMO=1:8000@ TARGET DESTROYED UA(TARGX,TARGY)=0:B(TARGX,TARGY)=0:61121,3:L=61000H  9150#:2:6:1:20,2;"DIRECT HIT.TARGET DESTROYED":0:ں(((18-2*TARGY,2*TARGX)/8)):5:61121,3:L=61000H Z=18:18-2*TARGY,2*TARGX;"";19-2*TARGY,2*TARGX;"":.01z# =,5:18-2*TARGY,2*TARGX;"";19-2*TARGY,2*TARGX;"":.01z# =,10  18-2*TARGY,2*TARGX;"";19-2*TARGY,2*TARGX;"":.01z# =,26:Z:18-2*TARGY,2*TARGX;" ";19-2*TARGY,2*TARGX;" ":9150#:NEMO=1:8000@ 4!MOVE ROUTINE  >P$"M"P$"m"8000@ Hc9150#:19,3;"ENTER CO-ORDINATES OF SHIP";21,6;"WHICH IS TO MOVE ?" R9000(#:FROMX=KP:.02{# =,24:21,23;(FROMX+64@);:"?":9100#:FROMY=KP:.02{# =,24:21,24;FROMY:NCPR=B(FROMX,FROMY)-10 *(B(FROMX,FROMY)>10 ) \$B(FROMX,FROMY)02160p fv9150#:20,5;"NO SHIP IN LOCATION ";:(FROMX+64@);:FROMY:9200#:9150#:8000@ pIB(FROMX,FROMY)-CLRTM<-3B(FROMX,FROMY)-CLRTM>10 2180 z{9150#:20,2;(FROMX+64@);:FROMY;:" IS NOT ONE OF YOUR SHIPS":9200#:9150#:8000@ l9150#:19,3;"ENTER CO-ORDINATES OF NEW";21,2;"LOCATION SHIP IS TO OCCUPY ?" 9000(#:TOX=KP:.02{# =,24:21,29;(TOX+64@);:"?":9100#:TOY=KP:.02{# =,24:21,30;TOY PARTIAL ERROR CHECK  %(FROMX=TOX)(FROMY=TOY)2220  B(TOX,TOY)=02300 V(B(TOX,TOY)>10 CLRTM=10 )(B(TOX,TOY)<10 CLRTM=0)2300 w9150#:2:6:1:20,10 ;"ILLEGAL MOVE":0:9200#:9150#:8000@ =NOT MOVING AND TAKING OWN PIECE ELLIMINATED  2310 +10 *NCPR H2500 :2400` :SCOUTSHIP TO MOVE  B2800 :2400` :STRATOCRUISER TO MOVE  $B2600( :2400` :SHUTTLE TO MOVE  .B3000 :2400` :STARSHIP TO MOVE  8B3200 :2400` :STARDESTROYER TO MOVE  BB2700 :2400` :BATTLESHIP TO MOVE  `POKE=1*(NCPR2NCPR3CLRTM=0)+2*(NCPR2NCPR3CLRTM=10 )+3*(NCPR=2NCPR=3):61121,POKE:L=61000H j~ں(((18-2*TOY,2*TOX)/8)):6*(CLRTM=0)+7*(CLRTM=10 ):2410j +10 *NCPR ta18-2*TOY,2*TOX;"";19-2*TOY,2*TOX;"":2480 ~a18-2*TOY,2*TOX;"";19-2*TOY,2*TOX;"":2480 a18-2*TOY,2*TOX;"";19-2*TOY,2*TOX;"":2480 a18-2*TOY,2*TOX;"";19-2*TOY,2*TOX;"":2480 a18-2*TOY,2*TOX;"";19-2*TOY,2*TOX;"":2480 Q18-2*TOY,2*TOX;"";19-2*TOY,2*TOX;"" ں(((18-2*FROMY,2*FROMX)/8)):18-2*FROMY,2*FROMX;" ";19-2*FROMY,2*FROMX;" ":L=63060T B(TOX,TOY)=B(FROMX,FROMY):A(TOX,TOY)=A(FROMX,FROMY):B(FROMX,FROMY)=0:A(FROMX,FROMY)=0:9150#:X=TOX:Y=TOY:8300l :NEMO=1:8000@ !CHECK SCOUTSHIP MOVE  *TOY=FROMYB(TOX,TOY)02220 B(FROMX=2FROMX=7)FROMY=TOY((FROMX-TOX)=2) WFROMX-TOX>1FROMX-TOX<-1FROMY-TOY>1FROMY-TOY<-12220 J(FROMX+1*(CLRTM=0)-1*(CLRTM=10 ))TOX2220 *FROMYTOYB(TOX,TOY)=02220  (CHECK SHUTTLE MOVE  2WFROMX-TOX>2FROMX-TOX<-2FROMY-TOY>2FROMY-TOY<-22220 <2FROMX-TOX=2FROMX-TOX=-22650Z F2FROMY-TOY2FROMY-TOY-22220 P Z2FROMY-TOY1FROMY-TOY-12220 d CHECK BATTLESHIP MOVE  WFROMX-TOX>1FROMX-TOX<-1FROMY-TOY>1FROMY-TOY<-12220  ?CHECK STRATOCRUISER MOVE  !FROMXTOXFROMYTOY2220 MFROMX-TOX=1FROMX-TOX=-1FROMY-TOY=1FROMY-TOY=-1 FROMY=TOY2910^ FROMY>TOY2880@ "!Q=(FROMY+1)(TOY-1) , B(FROMX,Q)02220 6Q: @!Q=(TOY+1)(FROMY-1) J B(FROMX,Q)02220 TQ: ^FROMX>TOX2950 h!Q=(FROMX+1)(TOX-1) r B(Q,FROMY)02220 |Q: !Q=(TOX+1)(FROMX-1) B(Q,FROMY)02220 Q: CHECK STARSHIP MOVE  '(TOY-FROMY)ɽ(TOX-FROMX)2220 1((TOX-FROMX)=1)((TOY-FROMY)=1) TOY>FROMY3100 TOX>FROMX3070 Q=1(FROMX-TOX-1) $B(TOX+Q,TOY+Q)02220 Q: Q=1(TOX-FROMX-1) (B(FROMX+Q,FROMY-Q)02220 Q: TOX>FROMX3140D &Q=1(FROMX-TOX-1) 0(B(FROMX-Q,FROMY+Q)02220 :Q: DQ=1(TOX-FROMX-1) N(B(FROMX+Q,FROMY+Q)02220 XQ: =CHECK STARDESTROYER MOVE  !FROMXTOXFROMYTOY3230 2800 : 3000 : ? @=RANDOM RE-ENTRY FROM WARP ROUTINE  J!NINWARP08040h TNEMO=0860\ ^DCLRTM=10 *(CLRTM=0)+0*(CLRTM=10 ):800  hPIECE(S) IN WARP r<.75@8020T |<OUTWARP=(NINWARP*+.5):OUTWARP=08060| SX=(8*+.5):Y=(8*+.5):X=0Y=08070 ,B(X,Y)=6B(X,Y)=168070 NCPR=H(OUTWARP)-10 *(H(OUTWARP)>10 ):B(X,Y)=H(OUTWARP):A(X,Y)=W(OUTWARP):9250"$:61121,POKE:L=61000H oH(OUTWARP)=H(NINWARP):H(NINWARP)=0:W(OUTWARP)=W(NINWARP):W(NINWARP)=0:NINWARP=NINWARP-1 L=63200 c7*(B(X,Y)<10 )+6*(B(X,Y)>10 ):ں(((18-2*Y,2*X)/8)) ^18-2*Y,2*X;"";19-2*Y,2*X;"":Q=133!:Q ^18-2*Y,2*X;"";19-2*Y,2*X;"":Q=133!:Q -NCPR=2NCPR=38150 M61121,1*(B(X,Y)>10 )+2*(B(X,Y)<10 ):8160 61121,3 L=61000H 8170+10 *(NCPR=1)+20*(NCPR=4)+30*(NCPR=5)+40(*(NCPR=2)+502*(NCPR=3) S18-2*Y,2*X;"";19-2*Y,2*X;"":8230& S18-2*Y,2*X;"";19-2*Y,2*X;"":8230& S18-2*Y,2*X;"";19-2*Y,2*X;"":8230& S18-2*Y,2*X;"";19-2*Y,2*X;"":8230& S18-2*Y,2*X;"";19-2*Y,2*X;"":8230& &9150#:9300T$:S$=S$+" JUMPED":SP=(((30-S$)/2))+1:19,SP;S$;21,7;"INTO LOCATION ";:(X+64@);:Y:8300l :8020T l=SCOUTSHIP TO STARDESTROYER ROUTINE  v"B(X,Y)1B(X,Y)11 X1X8 ;(X=1B(X,Y)>10 )(X=8B(X,Y)<10 ) =SCOUTSHIP TO STARDESTROYER  Q61121,1*(B(X,Y)>10 )+2*(B(X,Y)<10 ):L=61000H w7*(B(X,Y)<10 )+6*(B(X,Y)>10 ):ں(((18-2*Y,2*X)/8)):Q=110 W18-2*Y,2*X;"";19-2*Y,2*X;"":L=63060T W18-2*Y,2*X;"";19-2*Y,2*X;"":L=63060T @Q:A(X,Y)=707:B(X,Y)=5+10 *(B(X,Y)>10 ) (NCPR=5:9300T$:9390$: #' #(KEYPRESS A-H #2L$=:L$=""90102# #<'L$>64@ƯL$<73I9050Z# #F(L$>96`ƯL$<105i9070n# #P 9000(# #ZUPPER CASE #dKP=L$-64@: #nLOWER CASE #xKP=L$-96`: #KEYPRESS 1-8 #N$=:N$=""9110# #'N$<491ůN$>5689110# #KP=N$-480: #INFORMATION WINDOW #7:A=1921 #-A,1;" " #A # 1: #ERROR BUZZ #..5,-12 :Q=1133:Q: $"GIVE POKE FILE NO. $,<92706$+10 *(NCPR=2)+20*(NCPR=3) $6gPOKE=4*(NCPR=1)+5*(NCPR=4)+6*(NCPR=5)+3*(B(X,Y)<10 ): $@POKE=10 : $JPOKE=11 : $TPRODUCE STATUS REPORT  $^B(X,Y)>10 S$="YELLOW " $cB(X,Y)<10 S$="WHITE " $h9320h$+10 *NCPR $rS$=S$+"SCOUTSHIP": $|S$=S$+"STRATOCRUISER": $S$=S$+"SHUTTLE": $S$=S$+"STARSHIP": $S$=S$+"STARDESTROYER": $S$=S$+"BATTLESHIP": $9150#:19,1;S$:.05|L,480:Z=110 :Z:19,24;"LOC:";(X+64@);Y:.05|L,480:Z=16:Z $4*((A(X,Y)/100d)3)+6*((A(X,Y)/100d)=2)+2*((A(X,Y)/100d)=1):1+6*((A(X,Y)/100d)=1) %!21,20;"SHIELDS:";: %&&STR=(A(X,Y)/10 )*10 :STR %0ASTR=((A(X,Y)/10 -((A(X,Y)/10 )))*10 +.5) %:z4*(STR3)+6*(STR=2)+2*(STR=1STR=0):1+6*(STR=1STR=0) %?+.05|L,480:Z=110 :Z %DR21,1;"PLASMA BOLTS:";STR:.05|L,480:Z=110 :Z %N &QUIT ROUTINE &7:19,0;"":2:6:1:20,0;" DO YOU REALLY WANT TO QUIT NOW?":0 &A$=:A$=""9920& &A$="Y"A$="y"9960& &A$"N"A$"n"9920& &'7:19,0;"": &*:10 ,9 ;"START THE TAPE":"" '5"HYPERCHESS"1:"CODE"60000`,5535 inwar llrt emreportxycpS WHITE SHUTTLEtLFN5AY  E  E////P"CODE `z7$$$~$$~$>(> >bd&F(*D:  >>> ~BBFF~~B~`~|DFF~|DD~ ~@~F~~@~FF~~<$~bb~~BB~ >>~~``x^#^x>?99?8998Ȝ@@@@@@@@@@@@mXr)"j .2J 6 Wn   BB -N3DH0]VpL@t QR@H@P(vl8Ш90XX0x(B B)P@X/8-@rS):l" P (L(m9 |1+Ȑ:E (! H2 !͵Z} !͵Z} !͵Z} !p͵R !͵Z} P P P 88 MNMK.JK !xv>;;889~x9x~#>x^#^x>BBBBB<]reviews H 50000P +236066\,0:236077\,60< 67:1::10 ,9 ;"LET TAPE RUN" ""60000` "" '@""60000`:"reviews"1:"code"60000`,33! +code !`ڀ]#*[[[K[xȧR8 +archon L* xN(x$=" Archon Ariolasoft 48k press any key to read review" 2y$="This initialy looks like a chessvariant. It is far removed fromthat tho'. Apart from the 9 by 9board there is an arcade typecombat screen when two opposingicons are in the same square.The wrinkle is that the iconshave a wide range of differentattacks and moves. Plus themagicians have a host of spellsthey can throw to make life moreinteresting. The board has power pointswhich must be taken to win andto complicate matters squaresare variable in determining thestrength of your icon. Some staythe same whilst others vary in acycle. However mages can alterthis cycle by magic. So the game is played on two" 7*y$=y$+"levels which interact with each" code P*,8 >  <|8 <<|> D<~@P88 B@~BB<>     xxxnN Mx A x X<ַX ΰ ֐ Ӑ֐@ _P< yyyyV _<7۵yy P` p<87yy<` p pAl<`v`Ap12900T 4-N=15:G(N)=(30499#w+N):N >move=move+1:2050  4000  TjZ$=A$(22,1)+"This isn't possible."+A$(23,1)+"Press ENTER to try again.":V=PR ^13 2910^ h'7100:LINE=10 :2000 ¤z$=a$(6,1)+"The computer has thought of a"+a$(7,1)+"combination. Press ENTER to start.":n=15:a(n)=(1+*5):n v=pr 13 3020 PMOVE=1:Z$=A$(9 ,1)+"Move Your guess.. Score":v=pr 8line=line+1:line>19line=19:v=sc AZ$=A$(22,1)+"Type in your guess then ENTER":v=pr 7500L U7600:line,22;" "(bulls*2);" "(cows*2) .bulls5move=move+1:3035 's=20-move:s<0s=0 Z$=A$(22,0)+("You"player=1)+("The computer"player=2)+" solved the puzzle in "+move+" move"+("s"move1):v=pr game1 "9Z$=a$(23,1)+"Giving a score of "+s:v=pr ,As(player)=s(player)+S:game27700::print scores Xj8000@:Z$=A$(6,0)+"Press..."+a$(10 ,1)+"1 ... To play the computer":v=pr bZ$=A$(12 ,1)+"2 ... To guess against the computer"+a$(14,1)+"3 ... Let the computer guess against you":v=pr l"Z$= :Z$>"3"Z$<"1"7020l vGAME=Z$:PLAYER=0 GAME1 zz$=a$(19,7)+"Who do you want to start"+a$(20,2)+"Press 1 for you or 2 for the computer":v=pr !z$=:z$<"1"z$>"2"7060  player=z$   8"":N=421:N,0;31;" ";:N:  8line=line+1:line>19line=19:v=sc *Cline,2;move;6;:n=15:p$(g(n));" ";:n 4 Cy$=a$(22,1)+"How many BULLS > ":i$=" ":NO=-1 f7400:bulls=no:line,20;:bulls>0n=1bulls:" ";:n:bulls=5"": Cy$=a$(22,1)+"How many COWS > ":i$=" ":NO=-1 S7400:cows=no:bulls+cows>5line,25;31;" ":7300 (cows>0n=1cows:" ";:n "": z$=y$+i$:v=pr ""7410 =i$=:(i$>"5"i$<"0")i$13 i$12 7420 #i$"0"i$"5"no=i$:7400 /i$=12 i$=" ":NO=-1:7400 NO=-17400 $ Lno=0:i$="" V'line,2;move;6;i$;" "; `""7520` jPz$=:z$"R"z$"Y"z$"B"z$"G"z$"W"z$12 z$13 7530j t%z$=12 no=07530j ~>z$=12 no=no-1:i$=i$(̱i$-4):7510V z$13 no<5no=no+1:g(no)=1+(z$="B")+(2(z$="G"))+(3(z$="Y"))+(4(z$="W")):i$=i$+p$(g(no))+" ":7510V %no5z$13 7520` "": B(5):H(5):bulls=0:cows=0:n=15:g(n)=a(n)bulls=bulls+1:b(n)=1:h(n)=1 @n:n=15:m=15:b(n)h(m)7630 :a(n)=g(m)cows=cows+1:b(n)=1:h(m)=1 m:n: t1:7:z$=a$(3,5)+s(1)+A$(3,36$)+s(2):v=pr:7:0: @u:1:7:N=03:N,0;31;" ";:N:0,9 ;:Z$="Bulls and cows":v=pr2 J1:7:z$=a$(1,1)+18+(player=1)+"Player 1"+A$(1,31)+18+(player=2)+"Computer":v=pr:7:0: O #(23658j\,8 #2-236066\,86V:236077\,119w #2|!3w)|:| #:| #:2wG:|2|8!3w:2w(G$ww#!$w~(w6~(w6~(w6~(w6~ >w>2|2|2|2|O!$w~ݾ  :|2|:|2|###y2|!$w:| ":| ~ݾ :|2|:|2|:|2|##"#} :| 2|:|=2|>2| :|ʮ~<2|>2| *6\o&))):|???OG:|'''8o???g@yo|gOx( 9;=~^(/w#~^(/w+ y :|G:|o&)))))x???o|gX:\Oqx(#q:|(2|>2|:|ʮ~<2|*K\~Z`  #~( #^#V#:\2\!\:| >2|ͽ}#N#F#x~ yڦ~#~2| #~'W'2| æ~ yڦ~ yڦ~# ~¦~æ~ yڦ~# ~¦~æ~ yڦ~# ~¦~æ~Ͱ|# x~ͽ}P:\G>!2::\G>2;#N#F#x~~# x o&)))<::O:;G y >2:xg'''''o@w$<"cows XĀ@<~~<