bd STARWAR2 - STARWARS GAME MODIFIED TO REMOVE I/O PORT DEPENDANCEIbn BUT REQUIRES MBASIC 5.1 OR LATER SINCE INKEY$ IS USEDRb Pb E$(): E$;"F";E$;"E";E$;"x5";E$;"Y#'";b );E$;"F";"faaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaac"b );"`";+);"`"c );"` 'S T A R W A R S' `"1c );"`";+);"`"vc );"`";E$;"G";" This program presented courtesy of ";c$ E$;"F";"`"c. );"`";+);"`"c8 );"`";E$;"p";" C U S T O M S O F T W A R E G R O U P ";cB E$;"q";"`" dL );"`";+);"`"RdV );"`";E$;"G";" Specializing in custom programming for ";bd` E$"F";"`"dj );"` HEATH/ZENITH DATA SYSTEMS `"dt );"`";+);"`"d~ );"` CUSTOM SOFTWARE GROUP `"+e );"` POST OFFICE BOX `"fe );"` BELLEVUE, NE 68005 `"e );"` PHONE 291-4622 `"e );"` 291-5819 `"e );"`";+);"`"6f );"eaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaad";E$;"G"\f );"PRESS RETURN TO CONTINUE"ifA$$()}f E$;"G";E$;"w"f fE$()f E$;"E";E$;"Y! ";E$;"x5"f ," ******** ********** ****** *********"&g ," ** ** ** ** ** ** **"`g  ," ** ** ** ** ** **"g ," ******** ** ********** *********"g ," ** ** ** ** ** **" h( ," ** ** ** ** ** ** **"Dh2 ," ******** ** ** ** ** **"Lh<:hF ," ** ** ****** ********* ********"hP ," ** ** ** ** ** ** ** **"hZ ," ** ** ** ** ** ** **"*id ," ** ** ** ********** ********* ********"din ," ** ** ** ** ** ** ** **"ix ," ******** ** ** ** ** ** **"i ," ** ** ** ** ** ** ********"i I : Ii E$;"Y7 "6j ,"A LONG TIME AGO IN A GALAXY FAR, FAR AWAY, A GREAT"Lj I : I:j ,"ADVENTURE TOOK PLACE. IT IS A PERIOD OF CIVIL WAR."j I : I:j ,"REBEL SPACE SHIPS STRIKING FROM A HIDDEN BASE HAVE"j I : I:,k ,"WON THEIR FIRST VICTORY AGAINST THE EVIL GALACTIC"Bk I : I:~k ,"EMPIRE. DURING THE BATTLE, REBEL SPYS MANAGED TO"k I : I:k ,"STEAL SECRET PLANS TO THE EMPIRE'S ULITMATE WEAPON"k I : I:"l ,"THE DEATH STAR, AN ARMOURED SPACE STATION WITH THE"8l" I : I:jl, ,"FIRE POWER TO DESTROY AN ENTIRE PLANET. "l6 I : I::l@ ," YOUR MISSION AS ONE OF THE REBEL PILOTS IS TO"lJ I : I:mT ,"ATTACK AND DESTROY THE 'DEATH STAR'. WHILE MAKING"&m^ I : I:bmh ,"YOUR ATTACK YOU HAVE ENCOUNTERED 'DARTH VADER' AND"xmr I : I:m| ,"HIS IMPERIAL STORM TROOPERS IN THEIR TIE FIGHTERS."m I : I:n ,"YOU MUST DESTROY THEM BEFORE THEY CAN DESTROY YOU."n I : I::Zn ," GOOD LUCK AND MAY THE 'FORCE' BE WITH YOU "nn I : Itnn .........................INSTRUCTIONS ROUTINE.......................nn E$;"E";E$;"Y*6";"DO YOU NEED:":o );"FULL INSTRUCTIONS ?"5o );"BRIEF INSTRUCTIONS ?"Wo );"NO INSTRUCTIONS ?"soA$$(): A$"F" No A$"B" o A$"N"  : o: );"WHAT IS YOUR SKILL RATING?"o&A$$(): A$"1" A$"9" :p0 A$A$"0": A9(A$): A9A900:  Mp:: );"EVIDENTLY YOU NEED INSTRUCTIONS!"cpD I : I:ypN E$;"E";E$;"Y! "pX "YOU HAVE BEEN EQUIPPED WITH AN X-WING ";pb " AS IN A REAL DOG-FIGHT YOU MUST LEAD"ql "FIGHTER BY THE REBEL ALLIANCE. YOUR ";?qv " THE TARGET WHEN FIRING YOUR LASER. IF"qq "FIGHTER IS COMPUTER CONTROLLED BY THE ";q " YOU WAIT UNTIL HE IS EXACTLY CENTERED"q "NUMERIC KEYPAD ON YOUR KEY BOARD. THE ";r " TO FIRE, THEN YOU WILL MISS HIM. YOU"7r "DISPLAY YOU WILL SEE IS YOUR ONBOARD ";hr " MAY CONTINUE TO FIRE AT HIM, BUT WHEN"r "SCANNER. IN ORDER TO KILL AN ENEMY ";r " YOU ARE FIRING YOUR WEAPON, YOUR CON-"r "FIGHTER HE MUST RECEIVE A DIRECT HIT ";.s " TROL OF DIRECTION IS NOT AS GOOD AS"`s "OR MULTIPLE DAMAGING HITS. HE WILL ";s " WHEN YOU AREN'T FIRING AND THE TARGET"s "RECEIVE DAMAGE IF HIT WHEN HE IS +/- ";s " MAY FLY OUT OF YOUR SIGHTS. "&t  "10 DEGREES IN ELEVATION AND HE IS +/- ";0t " "bt  "9 DEGREES IN BEARING. IN ADDITION TO ";t* " IN ORDER TO CENTER YOUR TARGET ON THE"t4 "THIS HE MUST BE WITHIN 6500 KMS. ";t> " SCANNER YOU MUST FLY TOWARDS HIM. TO"(uH " ";YuR " TO DO THIS YOU PRESS THE KEY ON THE"u\ "WARNING: THE 'TIE' FIGHTER HAS THE ";uf " NUMERIC KEY PAD THAT IS IN HIS DIREC-"up "CAPABILITY TO POP IN AND OUT OF HYP- ";vz " TION. IE: IF HE IS IN THE UPPER-RIGHT"Qv "ERSPACE. THEREFORE HE MAY DISAPPEAR ";v " QUADRANT YOU WOULD PRESS KEY 9 TO FLY"v "RIGHT FROM BEFORE YOUR SIGHTS. ";v " TOWARDS HIM. IF HE IS BELOW, PRESS 2."w " ";!w " "Sw " MAY THE FORCE BE WITH YOU ";w " PRESS RETURN TO CONT ";w A$w E$;"E"w E$;"F";w ," UP & UP UP &"x ," LEFT faaaaac faaaaac faaaaac RIGHT"Ax ," ` 7 ` ` 8 ` ` 9 `"nx ," eaaaaad eaaaaad eaaaaad"x ," faaaaac faaaaac faaaaac"x$ ," LEFT ` 4 ` ` 5 ` ` 6 ` RIGHT"x. ," eaaaaad eaaaaad eaaaaad"*y8 ," faaaaac faaaaac faaaaac"WyB ," ` 1 ` ` 2 ` ` 3 `"yL ," DOWN eaaaaad eaaaaad eaaaaad RIGHT"yV ," LEFT faaaaac DOWN DOWN"y` ," ` 0 `"yj ," eaaaaad"zt ," FIRE"#z~ E$;"G"]z );"<>":z );"ENTER A SKILL RATING FROM 1 TO 9"z );"NOVICE.................1"z );"EXPERT.................9":"{ "AFTER SCANNER CONSTRUCTION IS COMPLETE, PRESS ANY CONTROL KEY TO":{ "START YOUR SCAN"_{ A$$(): A$"1" A$"9"  { A$A$"0": A9(A$): A9A900{ { ......................GRID CONSTRUCTION ROUTINE....................{ | E$;"F";E$;"x1";E$;"x5": E$;"E";F| );"RANGE:g9999 KM ELEVATION:g90 DEG BEARING:g90 DEG"Q| :ED| );"-90 -75 -60 -45 -30 -15 0 +15 +30 +45 +60 +75 +90"| );"+90 bssssbssssbssssbssssbssssbssssbssssbssssbssssbssssbssssbssssb +90"} );"v";;);"t": );"v";;);"t"8}( );"+60 b";;);"b +60"b}2 );"v";;);"t": );"v";;);"t"}< );"+30 b";;);"b +30"}F );"v";;);"t": );"v";;);"t"}P );"0 b";;);"b 0"}Z );"v";;);"t": );"v";;);"t"~d );"-30 b";;);"b -30";~n );"v";;);"t": );"v";;);"t"Z~x );"-60 v";;);"t -60"~ );"v";;);"t": );"v";;);"t"~ " -90 buuuubuuuubuuuubuuuubuuuubuuuubuuuubuuuubuuuubuuuubuuuubuuuub -90"' " -90 -75 -60 -45 -30 -15 0 +15 +30 +45 +60 +75 +90"- w ......................INPUT CONTROL SCAN ROUTINE...................}  CD(()):FL$"5" CTCD F : CTCT FL$"0"   KP$ KP$"0" KP$"9" FL$KP$ : KP$"" DM$KP$ KP$V KP$"0" KP$"9" FL$KP$ : KP$"" DM$KP$sJ  : ..FIGHTER UPDATEӀT E$;"Y&3+";E$;"Y23+";E$;"Y)=+";E$;"Y/=+";E$;"Y,G+";E$;"Y)Q+";E$;"Y/Q+";E$;"Y&[+";E$;"Y2[+"^ I d: Ic  h ?r .......................FIRE WEAPON ROUTINE........................E| X I  { E$;"Y";(,I);(GI);"x" E$;"Y";(,I);(GI);"y" I   Ӂ E$;"Y";(.I);(EI);" " E$;"Y";(.I);(II);" " I, E$;"Y.E ";E$;"Y.I ";E$;"Y-F ";E$;"Y-H "H FX, FYF v [ KM  E$;"p";E$;"Y8? ENEMY DESTROYED ":DG E$;"p":EDED E$;"Y";(FX);(FY);"ppp" E$;"Y";(FX);(FY);" " E$;"q";E$;"Y";(FX);(FY);"ppp"* I : ();: IK& E$;"Y";(FX);(FY);"iii"_0 I : I: E$;"Y";(FX);(FY);" "D E$;"Y";(FX);(FY);" iii "ʃN E$;"Y";(FX);(FY);" "ރX I : Ib E$;"Y";(FX);(FY);" "l FQ: ED  :  6v FX+ FX-  P FYD FYH  k DGDG: DG  E$;"Y";(FX);(FY);"iii" E$;"Y";(FX);(FY);"i"Є E$;"Y";(FX);(FY);"i" E$;"Y";(FX);(FY);"iii" I : I* E$;"Y";(FX);(FY);" "K E$;"Y";(FX);(FY);" "l E$;"Y";(FX);(FY);" " E$;"Y";(FX);(FY);" ":  E$;"Y8 ";E$;"l"    ...................FIGHTER POSITION UPDATE ROUTINE................  # FQ f : FQ9* FX(d())S4 FX$ FX4 * i> FY(())H FY, FYa > R KM('())\ FZ(())Ɇf (d()) z ކp FZ (()) z ( ())A9  : XFX:YFY: $0 FZ  : XFX:YFYQ FZ  : SFX:YFYt FZ  : XFX:YFY FZ  : XFX:YFY FZ  : XFX:YFYه FZ  : XFX:YFY FZ  : XFX:YFY FZ  : XFX:YFY@ FZ  : XFX:YFYc FZ  : XFX:YFY FZ  : XFX:YFY FZ  : XFX:YFYψ FZ  : XFX:YFY FZ  : XFX:YFY FZ  : XFX:YFY; FZ $ : XFX:YFY_$ FL$"1" . : XX:YY. FL$"2" 8 : XX:YY8 FL$"3" B : XX:YYljB FL$"4" L : XX:YYL FL$"6" V : XX:YY V FL$"7" ` : XX:YY/` FL$"8" j : XX:YYSj FL$"9" t : XX:YYyt X' X2 Y7 YW ~ (KM) KMKM(())Ê (KM) KMKM(())݊ KM'  :  (KM) KMKM(())' (KM) KMKM(())M X$ X4 Y* Yb c XFX YFY  E$;"Y";(FX);(FY);" ":FXX:FYY E$;"Y";(FX);(FY);"v^t" E$;"Y 5";KMEV (,FX): E$;"Y K";EVBR(FYF): E$;"Y \";BR:# E$;"Y";(FX);(FY);" ".FQ:F  E$;"Y8 ";E$;"l":t I : I: E$;"y1";E$;"Y ";E$;"E" E$;"q";E$;"Y( ";E$;"G"Ȍ( ,"CONGRATULATIONS ON A JOB WELL DONE. YOU HAVE"2 ,"DESTROYED DARTH VADER AND HIS STORM TROOPERS ",< ,"AND HAVE SAVED THE REBELLION.": nBF E$;"E";E$;"Y( "P ,"YOU HAVE ONLY DESTROYED";ED;"TIE FIGHTERS AND";E$;"y1"Z ,"YOU LET DARTH VADER GET AWAY. OH WELL,I GUESS";E$;"G"d ,"WE WANT HIM AROUND FOR THE SEQUEL ANYWAY!"!n: ,"DO YOU WANT TO PLAY AGAIN ?"VxA$$(): A$"Y"  : A$"N" x :  FOR THE SEQUEL ANYWAY!"!n: ,"DO YOU WANT TO PLAY AGAIN ?"VxA$$(): A$"Y"