B:**************************************************************:* BABYZAP *:**************************************************************:--------------------------------------------------------------F: INITIALIZE VARIABLES$:--------------------------------------------------------------."***BABY ZAP RUNNING -- STAND BY ***"8 A$(,)B I  L J  V A$(I,J) "-"` Jj I3tXE : YE : TF : EE Fr~A$(,) "G": A$(,) "*": A$(,) "*": A$(,) "*":==============================================================: MAIN LOOP STARTS HERE:TF TF : 4 ()  A$(,) " " : A$(,) "G"HA$(XE,YE) "E"P::--------------DISPLAY UNIVERSE------------------------------- Y   : Y;" "; X   A$ (X,Y);" "; X   Y " 1 2 3 4 5 6 7 8 9 ";E +);"EE =";(EE);" TF =";TFM(:2:-------------INPUT &O0PROCESS E MOVE--------------------------<"YOUR MOVE (MAX. DIST. = EE/100): X,Y ="A"ENTER (10,10) TO EXIT PROGRAM): ";: X,YB X Y "MENU.BAS",RKF X X Y Y "ILLEGAL COORD.": <nPDE ((XXE)  (YYE) )Z DE EEd d"INSUFFICIENT ENERGY, DISTANCE REQUESTED =";DEn <x::------------MOVE E SHIP; CHECK FOR GATE COLLISION------------%A$(XE,YE) "-"@XE (X): YE (Y)\ A$(XE,YE) "*" x XE  YE   DE  "RESTING: ENERGY INCREASED 10%":EE  EE::----------PLACE A K-MINE-------------------------------------XK ( () )9YK ( () )S XK YK @  A$(XK,YK)"K" A$(XK,YK)"L" A$(XK,YK)"L":  A$(XK,YK)"K""K-MINE RELEASED AT";XK;",";YK::-----------CHECK FOR COLLISON WITH K OR L MINE--------------," A$(XE,YE) "-" ^U,"######:::::: !!! ::::::######"6"YOU HAVE HIT A MINE. YOU'RE BLOWN BACK TO START."@"ENERGY LOSS IS 30%": EE 333 EEJA$(XE,YE) "-"TXE : YE  ^  `CHECK LMINE RAY DAMAGEMh:-----------CHECK FOR END OF GAME----------------------------kr EE  TF c |"PRESS ENTER FOR NEXT TIME FRAME --READY';: INPUT A$ :: END OF MAIN LOOP:============================================================b:-----------------------------------------------------------: STAR GATE BARRIER COLLISION:-----------------------------------------------------------: "YOU HIT THE STAR GATE BARRIER"( "POW!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"K "IT'S BACK TO START FOR YOU"ZXE: YEd |:-----------------------------------------------------------: STAR DIMENSION CHECK:-----------------------------------------------------------G A$(,)"G" "YOU TRIED TO ENTER A CLOSED GATEO&:0:-------------VICTORY !!! ----------------------------------: "****************************************************" D "****************************************************"= N "*** YOU HAVE ACHIEVED STAR DIMENSION ***"u X "*** YOUR RATING IS"; EE(TF);%) ;"***" b "****************************************" l "****************************************" v I : I  I  l!QZZ ( ())  : YYY (QP)  : XXX Q (Y) P : YYY,XXX : "* . + .";t! I~! p!:-----------------------------------------------------------T": E OUT OF ENERGY 3002 '-----------------------------------------------------------":-----------------------------------------------------------" "YOU ARE FINISHED --- THIS IS THE END"" "ENERGY ="; EE; "TIME FRAME ="; TF# "MENU.BAS",RC#:-----------------------------------------------------------z#: SUBROUTINE TO CHECK FOR L-MINE RAY HITS#:-----------------------------------------------------------# XSCAN #  A$(XSCAN,YE)"L" *-$ (XSCANXE) EEEEhff:"X2-RAY HIT*** EE=";EEk$  (XSCANXE) EEEEL:"X1-RAY HIT*** EE=";EEw$* XSCAN$4 YSCAN $> A$(XE,YSCAN)"L" \$H (YSCANYE) EEhffEE:"Y2-RAY HIT*** EE=";EE$%R (YSCANYE) EELEE:"Y1-RAY HIT*** EE=";EE0%\ YSCAN6%fI%p "MENU.BAS",R