Listing of file='LANDER.BAS;01' on disk='vmedia/games-sector.ccvf'
100 PLOT 12 110 PRINT TAB( 20)," * * * LANDER * * * " 120 PRINT :PRINT "TYPE 1 FOR EARTH,2 FOR MOON,3 FOR MARS,4 FOR VESTA" 140 INPUT X:ON XGOTO 500,600,700,800 145 PLOT 12 147 PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT TAB( 20),A$; 150 G2= G1/ 36 160 G3= SQR (G2)* 100:G3= INT (G3):IF G3< 175THEN G3= 175 170 G4= G3* 55:G4= INT (G4):IF G4< 10000THEN G4= 10000 180 G5= G4* (LOG (G1)/ 20)+ 10000 190 A1= - 6400:A2= 5000:A3= 15000:A4= 10 200 B4= A4:B2= A2:N3= G3:N4= G4 204 PRINT 205 PRINT "ELAPSED ALTITUDE VELOCITY REMAINING INPUT FUEL"; 206 PRINT " TIME (KM) (KM/HR) FUEL BURN:(KG/SEC)"; 207 PRINT 208 PRINT 210 PRINT T1;TAB( 10)N3;TAB( 24)B2;TAB( 39)N4;TAB( 53);:INPUT F 250 IF F= 0GOTO 280 260 IF F< 0OR F> 100GOTO 320 270 T= N4/ F:IF T< 10THEN B4= T 280 N4= N4- (F* B4) 285 V1= B3 286 T1= T1+ B4 290 B5= (G2+ ((G2* N3)/ (A5* - 2)))- ((F* G5)/ (A3+ N4)) 295 B3= B2+ (B5* B4) 298 N5= N3 300 N3= N3+ (((B3+ B2)/ A1)* B4) 305 B2= B3 307 IF N3< 0GOTO 450 310 IF N4< = 0GOTO 400:GOTO 210 312 Q= Q+ 64:IF Q+ 128> 960THEN Q= 832 315 GOTO 205 320 PRINT "-->> ILLEGAL FUEL BURN - DUMMY!--TRY AGAIN (0 TO 100)":GOTO 210 400 V2= SQR (B2^ 2+ N3* G2* 5650):PRINT "OUT OF FUEL AT";T1;"SECONDS" 410 V3= ABS (V2)* 10000/ 3600 420 T1= T1+ LOG ((V3* N3* 10000)/ G1) 430 GOTO 1000 450 V2= SQR (ABS (N5/ (26* B5)))* (26* B5)+ V1:GOTO 1000 460 T1= T1- (10- B4) 500 G1= 980.7:A5= 6371:A$= "EARTH":GOTO 145 600 G1= 162:A5= 1738:A$= "MOON":GOTO 145 700 G1= 374:A5= 3380:A$= "MARS":GOTO 145 800 G1= 17.5:A5= 195:A$= "VESTA":GOTO 145 1000 PRINT :PRINT "YOU HAVE "; 1010 IF V2< 20THEN PRINT "LANDED":GOTO 1100 1020 IF V2< 100THEN PRINT "CRASHED":GOTO 1140 1030 IF V2< 250THEN PRINT "BEEN OBLITERATED":GOTO 5000 1040 IF V2< 5000THEN PRINT "MADE A NEW CRATER":GOTO 5000 1050 IF V2> 4999THEN PRINT "BORED A HOLE INTO THE PLANET":GOTO 5000 1100 IF V2< 1THEN PRINT "NICE TOUCH--VERY GOOD":GOTO 5000 1110 IF V2< 5THEN PRINT "NOT TOO BAD":GOTO 5000 1120 PRINT "KIND OF ROUGH":GOTO 5000 1140 IF V2< 30THEN PRINT "YOU WILL NOT BE ABLE TO TAKE OFF":GOTO 5000 1150 IF V2< 45THEN PRINT "YOU ARE INJURED,THE LANDER IS ON FIRE":GOTO 5000 1160 PRINT "THERE ARE NO SURVIVOR'S" 5000 PRINT "VELOCITY AT IMPACT"TAB( 40);ABS (V2);"KM/HR" 5010 PRINT "ELAPSED TIME"TAB( 40);T1;"SECONDS" 5020 END