Compucolor.org – Virtual Media

Listing of file='CRASH.BAS;01' on disk='vmedia/chip_1-sector.ccvf'

0 REM  REVISED FROM T.CARBONE(IA.AUG.80) BY R.B.HOLLEY
1 REM  P.O.BOX 3437, BAYTOWN,TEX. 77520 8/5/80
90 Y= PEEK (33209):IF Y= 0THEN 90
91 Y= RND (- Y)
100 PLOT 12,14,3,20,0,6,6:PRINT "F.A.A.  REPORT":PRINT :PLOT 15,6,3
102 PLOT 6,3:PRINT TAB( 20);"F L I G H T--409":PRINT
105 FILE "R",1,"VCRASH",2
106 GET 1,1;Z,Q9,FK,V
107 FILE "C",1
108 PLOT 6,7:PRINT "PILOT ERRORS: ";FK
110 ON Z+ 1GOTO 120,300,350,390,430,500
120 IF V> 0THEN 250
130 IF V< - 1000THEN 210
140 GOSUB 1010:PRINT " RATE OF DESCENT TOO FAST.":PRINT
150 GOSUB 1020:PRINT "LANDING GEAR STRUTS STRUCK RUNWAY AT IMPROPER ANGLE AND"
160 PLOT 28:PRINT TAB( 9);"BROKE ON IMPACT RESULTING IN PLANE SCRAPING ALONG"
161 PRINT TAB( 9);"GROUND.":PLOT 6,1:PRINT
170 PRINT TAB( 9);"#";INT (3* RND (1))+ 1;" FUEL TANK IGNITED DUE TO SPARKS CREATED.":PRINT :PLOT 6,3
180 PRINT "CASULTIES: ";INT (20* RND (1));" PASSENGERS WERE DEAD ON SCENE.":PRINT
190 PRINT TAB( 10);INT (100* RND (1));" WERE SERIOUSLY INJURED. MINOR INJURIES TO"
200 PRINT TAB( 11);"REMAINING PASSENGERS.":END
210 REM
211 GOSUB 1010:PRINT "IMPROPER USE OF THROTTLE AND FLAP CONTROL"
220 GOSUB 1020:PRINT "AIRCRAFT NOSE-DIVED AT EXCESSIVE SPEED"
230 PRINT TAB( 9);"AND SLAMMED INTO GROUND EXPLODING ON IMPACT.":PRINT
240 PLOT 6,1:PRINT "  NO SURVIVORS. ";INT (70* RND (1))+ 175;" CASUALTIES.":END
250 GOSUB 1010:PRINT "RATE OF ASCENT TOO FAST."
260 GOSUB 1020:PRINT "'G' FORCE ON STRUCTURE IN EXCESS OF TOLERATION."
270 PRINT TAB( 10);"MAJOR DAMAGE OCCURRED TO CONTROLS AND WATER"
280 PRINT TAB( 10);"FLOW TO #1 AND #2 ENGINES WAS INTERUPTED"
290 PRINT TAB( 10);"ENGINES EXPLODED TAKING REST OF AIRCRAFT."
295 PRINT :PLOT 6,1:PRINT "NO SURVIVORS. ";INT (80* RND (1))+ 175;" CASUALTIES.":END
300 GOSUB 1010:PRINT " FAILURE TO LAND AIRCRAFT ON RUNWAY."
310 GOSUB 1020:PRINT " AIRCRAFT SLAMMED INTO RESIDENTAL AREA.":PRINT :PLOT 6,1
320 PRINT "DAMAGE: ";:PLOT 6,2:PRINT "5 RESINDENTAL DWELLINGS DESTROYED.":PRINT
330 PLOT 6,3:PRINT "CASUALTIES: ";:PLOT 6,2:PRINT INT (20* RND (1))+ 3;" RESIDENTS DEAD ON SCENE."
340 PRINT "            ";INT (50* RND (1))+ 20;" PASSENGER DEAD ON SCENE. 100 SERIOUS INJURIES.":END
350 GOSUB 1010:PRINT " IMPROPER LANDING PROCEDURE."
360 GOSUB 1020:PRINT "LANDING GEARS UP. INEXPERIENCED PILOT ERROR."
370 PRINT :PLOT 6,1:PRINT "DUE TO EXCEPTIONAL GROUND CREW, AIRCRAFT AND ALL"
375 PRINT "PERSONS ON BOARD ESCAPED INJURIES.":PRINT :PLOT 6,7
380 PRINT " PILOT TERMINATED FROM FURTHER SERVICE TO AIRLINES.":END
390 GOSUB 1010:PRINT "IMPROPER ENGINE SHUTDOWN."
400 GOSUB 1020:PRINT "ENGINE ";Q9;" EXPLODED SPREADING IGNITED FUEL TO"
410 PRINT TAB( 9)"AIRCRAFT, WHICH DISINTEGRATED KILLING ALL ON BOARD."
420 PRINT :PLOT 6,1:PRINT INT (90* RND (1))+ 175;" CASUALTIES.":END
430 GOSUB 1010:PRINT "EXCESSIVE RUNWAY VIOLATION."
440 GOSUB 1020:PRINT "AIRCRAFT COLLIDED WITH END OF RUNWAY BARRIER."
450 PLOT 6,1:PRINT "CASALTIES: ";INT (10* RND (1)+ 1);" PASSENGERS IN 1ST CLASS, PILOT, AND"
460 PRINT "            5 CREW MEMBERS DEAD ON SCENE.":PRINT
470 PRINT "       ";INT (50* RND (1)+ 5);" SERIOUS: 10 MINOR INJURIES.":PRINT
480 PLOT 6,3:PRINT "MAJOR AIRCRAFT DAMAGE.":END
500 GOSUB 1010:PRINT "INSUFFICIENT ALTITUDE: PILOT ERROR."
510 GOSUB 1020:PRINT "AIRCRAFT COLLIDED WITH LIGHTED RADIO BEACON"
520 PRINT TAB( 9);"DISINTEGRATING ON IMPACT."
530 PRINT TAB( 9);"BEACON DESTOYED. NO SURVIVORS."
540 PLOT 6,1:PRINT :PRINT "CASUALTIES 250.":END
1010 PRINT :PLOT 6,6:PRINT "REASON FOR CRASH: ";:PLOT 6,2:RETURN
1020 PRINT :PLOT 6,6:PRINT "SUMMARY: ";:PLOT 6,2:RETURN