RADATAK }*}*i*[ [ [ [ [ [ [ [ [ [ [ [ RANDOM ATTACK [ [ [ [ [ [ [ [ [ [ [ [ ;a game for Hummans vs SPECTRUM the Computer <@@@@@@@@@@@@@@@@@@@@@ micro-Engineered by THEODOR "0EOS" @  ] ] ] ] ] ] ] ] ] ]  VARIABLES EXPLANATION ER=explotion range@UAC-CAC=user-computer attack coord@CBSX,Y-ICCX,Y=CBS-ICC coordinations@X,Y=grid size@M=missile number@CLOSE=strike proximity@T=pause time. TITLE PAGE & PROLOGUE `23617A\,238:23658j\,8:236099\,255:6:6:0: 63;7;" R A N D O M A T T A C K" " by" 65;0;" SPECTRUM 48 K " " and" :1;6;" Theodore 0EOS " 64;7;" micro-Engineering " '"  1985" $"********************************" J2:"A giant computer built to protect Earth from any enemy." @"Hidden at a secret location. Armed with nuclear missiles." #"This is the Defence ComComplex." V"The only safeguard against it a small outpost manned by dedicated hummans:" #"International Computer Command." $'"Warning! This is NOT a wargame!" '" Press any key"  0 0:0:7: "INTELNET MESSAGE SERVICE" A$="URGENT FROM FEDERATION COUNCIL TO ICC CHIEF CONTROLLER The Defence ComComplex has gone berzerk.Our cyborgs predict 99% propability of imminent attack on your Battle Station.You must find and destroy the CBS with the minimum loss of humman life." !/O$(10 ,10 ):S(10 ):6e3p # 1500 2:"INTELNET" 3<'"SATLINK ESTABLISHED TO"'"INTERNATIONAL COMPUTER COMMAND" M=0:CLOSE=0:T=502:X=20:Y=31 x$"Coord's of ICC (X=0-19/Y=0-30) "' };"X=";ICCX;"/Y=";ICCY BICCX<0ICCX>19ICCY<0ICCY>30125} ICCX;"/";ICCY 7'"Nuclear Warhead Explosion Range (1-10 Area Units)"; "Area Units=";ER #ER<1ER>10 155 ER;" AU" !'"Number of nuclear missiles "; O:O  CBSX=(*X):CBSY=(*Y) BCBSX<0CBSX>19CBSY<0CBSY>30200 Q1:1:6::"INTERNATIONAL COMPUTER COMMAND SITUATION REPORT" ;A$="SATLINK ESTABLISHED TO MISSILE LAUNCH SITES" 6E3p 8E3@ >A$="SATLINK ESTABLISHED TO SATTELITE SENSOR SYSTEM" 6E3p 8E3@ DA$="WARNING TO ALL STATIONS ENEMY MISSILE LAUNCH DETECTED" 6E3p 8E3@ START OF THE BATTLE " 2E3 ,COMPUTER RANDOM SEARCH 6(CACX=(*19):CACY=(*30) @BCACX<0CACX>19CACY<0CACY>303106 J"(CACX,CACY)=5573106 RO03030 T+ICCX,ICCY;1;4;2;"" ^`21,0;6;0;"CBS ATTACK ";CACX,CACY;7;"" hCACX=ICCXCACY=ICCYN=010 :.01z# =,0:N,0;0;"":(19-N),0;0;"":N:1030:3010 rfCACXICCX-ERCACXICCX+ERCACYICCY-ERCACYICCY+ER4E3:1040:CLOSE=1:390 |1020:CLOSE=0 T  500 COMPUTER CLOSE ATTACK NPX=CACX-ER:NPY=CACY-ER NPX<0NPX=0 NPY<0NPY=0 8CACX=NPX+(*(2*ER)):CACY=NPY+(*(2*ER)) BCACX<0CACX>19CACY<0CACY>30440 "(CACX,CACY)=557440 O03030 +ICCX,ICCY;1;4;2;"" `21,0;6;0;"CBS ATTACK ";CACX,CACY;7;"" CACX=ICCXCACY=ICCYN=010 :.01z# =,0:N,0;0;"":(19-N),0;0;"":N:1030:3010 fCACXICCX-ERCACXICCX+ERCACYICCY-ERCACYICCY+ER4E3:1040:CLOSE=2:500 1020:CLOSE=3  USER ATTACK  n21,0;4;0;"ICC ATTACK ";21,13 ;"Missiles left:";O  "Target Coord.:";UACX;"/";UACY  BUACX<0UACX>19UACY<0UACY>30520  g(UACX,UACY)=11 ū(UACX,UACY)=12 A$="TARGET AREA ALREADY BEEN HIT":1050:520 UACX,UACY;3;"" M=M+1:O=O-1 ZUACX=CBSXUACY=CBSY1000:CBSX,CBSY;1;1;"":200:3020 eUACYCBSY-ERUACYCBSY+ERUACXCBSX-ERUACXCBSX+ERUACX,UACY;4;"":1010:5600 &1020:T 0CLOSE=0300, :CLOSE=1400 DCLOSE=2400 NCLOSE=3440 STRIKE RESULT MESSAGES 2A$="CBS DESTROYED BY A DIRECT HIT ":1050 2A$="CLOSE HIT CBS STILL OPERATIONAL":1050 2A$="TOTAL FAILURE HIT TOO FAR AWAY ":1050 2A$="ICC DESTROYED BY A DIRECT HIT ":1050 2A$="CLOSE HIT ICC STILL OPERATIONAL":1050 DN=1̱A$:21,31-N;A$(N):.001wn,20:N $ 100d: PROMPTS | PLAY,NEW,LIST '"END" A$ "A$="LOGON"1600@:502 A$="ERASE"5E3 ,A$="EDIT"0:0:9 ::: A$="DISC"7400 A$="KILL"0 A$="HELP"1700 "8#1;"Use STANCOMP Dialect (try HELP)":200 , 1510 @"LOGON ";O$(10 ) J&O$(10 )=32 1600@ T STANCOMP DICTIONARY Cn=0202:n,0;5;,,;3;,,:n 8:9 :1 e0,0;"Standard Computer Communications"'13 ;"Dialect"'8;"List of Commants" O'"LOGON","Interfaces user",,"terminal on ICC",,"Mainframe Batle",,"Proccesor" ,"DISC","Access City Data","Storage Devise" ""EDIT","Lists Basic",,"Programm" J"ERASE","Clears Frontal",,"Memory & Stores",,"Programm in",,"Shadow RAM" +"KILL","Initiates System","Self Destruct" "HELP","Prints this",,"page" >#0;3;7;"press any key for terminal mode" 00:0:9 :0:0::  1510  MAP DRAWING 1:1:6: RN=02558:N,0:0,175:.01z# =,10 :N RN=01758:0,N:255,0:.01z# =,10 :N P20,0;2;7;;"0123456789012345678901234567890" LN=09  :N,31;2;7;N:.01z# =,10 :N UN=09  :N+10 ,31;7;2;N:.01z# =,10 :N  GAME RESULTS r4:4:7::"INTELNET NEWS SERVICE":M$=M:H$=((2*M*(ER/5))):X$=CBSX:Y$=CBSY RA$="Humman traitors today failed in their attempt to disable the ComComplex of our planet defence. Disclipinary action had to be taken against "+M$+" suspected targets.Before eliminated the humman traitors managed to launch "+M$+" missiles with result the nutralization of "+H$+" million hummans.The CBS was at "+X$+"/"+Y$:6e3p #SC=0:7E3X:3040 |4:4:7::"INTELNET NEWS SERVICE":M$=(2*M):H$=((2*M*(ER/5))):X$=CBSX:Y$=CBSY ΋A$="International Computer Command took today repair measures to reestablish working order after certain malfunctions were spoted in the defence ComComplex.Military action had to be taken culminating in the exchange of "+M$+" nuclear warheads resulting in the elimination of the ComComplex and humman losses of "+H$+" million lives.The CBS was at "+X$+"/"+Y$:6E3p ,SC=H$+M+((O*ER)/M):7E3X:3040 ֎1:1:7::"INTERNATIONAL COMPUTER COMMAND"'"SITUATION REPORT":M$=M:H$=((2*M*(ER/5))):X$=CBSX:Y$=CBSY DA$="YOU HAVE LAUNCHED ALL YOUR "+M$+" MISSILES.YOUR NUCLEAR ARSENAL HAS BEEN EXHAUSTED.THE COMCOMPLEX IS STILL OPERATIONAL THOUGH UNARMED AND EXPOSED AT "+X$+"/"+Y$+"."+H$+" MILLION HUMMANS HAVE BEEN LOST.YOU HAVE FAILED IN YOUR MISSION.YOU MUST SURRENDER THE COMMAND TO YOUR FIRST OFFICER AND COMMIT HARAKIRI.":6E3p SC=0:7E3X 35# CLOSE HIT BORDER EFFEX \N=71-1:1:N:.01z# =,10 :.01z# =,20:0:N  Y-NEW UTILITY 0:0:9 : 10 :7:0: 30:7:7: 'A$="TedBlitsas mEng/ing 1985 237550" #0;A$:0 23755\,100d  oMID$ ROUTINE p/N=1̱A$:3,0;A$(N)+"":N z WHALL OF FAME XS(10 )=SC \ F=0 bN=19 lzS(N)