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