Listing of file='BOMBS.BAS;01' on disk='vmedia/ncc_4_11-sector.ccvf'
1 PLOT 29,14,6,2,12,11,27,3,0 2 PLOT 3,15,3:PRINT " WELCOME TO CAPPYS PRODUCTION OF " 3 PLOT 3,16,10:PRINT " q B O M B S A W A Y q ":PRINT :PRINT :PRINT 4 PRINT " YOU ARE A WORLD WAR II BOMBER PILOT FLYING FOR ":PRINT :PRINT 5 REM SEE LINES 440 THRU 500 FOR IMPORTANT INFORMATION. 10 INPUT " WHAT SIDE -- ITALY(1) ALLIES(2) JAPAN(3) GERMANY(4) ";A:PLOT 12:PRINT :PRINT 20 IF A> 0AND A< 5THEN 25 21 PRINT :PRINT " TRY AGAIN...":PRINT :GOTO 10 25 ON AGOTO 30,110,200,220 30 PRINT :PRINT :INPUT " YOUR TARGET -- ALBANIA(1) GREECE(2) NORTH AFRICA(3) ";B:PLOT 12:PRINT :PRINT :PRINT 40 IF B> 0AND B< 4THEN 45 41 PRINT :PRINT " TRY AGAIN...":PRINT :GOTO 30 45 PRINT :ON BGOTO 50,80,90 50 PRINT :PRINT " SHOULD BE EASY -- YOU ARE FLYING A NAZI-MADE AIRCRAFT. ":PRINT :PRINT 60 GOTO 280 80 PLOT 3,20,10:PRINT " BE CAREFUL!!! ":GOTO 280 90 PRINT :PRINT " YOU ARE GOING FOR THE OIL, EH ?":GOTO 280 110 PRINT :PRINT :INPUT " AIRCRAFT -- B-24 (1) B-29 (2) B-17 (3) LANCASTER (4) ";G:PRINT :PLOT 12:PRINT :PRINT 120 IF G> 0AND G< 5THEN 125 121 PRINT :PRINT " TRY AGAIN...":PRINT :GOTO 110 125 PRINT :ON GGOTO 130,150,170,190 130 PRINT :PRINT " Y0U HAVE 2 TONS OF BOMBS FLYING FOR PLOESTI":GOTO 280 150 PRINT :PRINT " YOU ARE DUMPING THE A-BOMB ON HIROSHIMA.":GOTO 280 170 PRINT :PRINT " YOU ARE AFTER THE BISMARK IN THE NORTH SEA":GOTO 280 190 PRINT :PRINT " YOU ARE BUSTING A NAZI HEAVY WATER PLANT" 191 PRINT " IN THE RUHR":GOTO 280 195 GOTO 280 200 PRINT :PRINT :PRINT " YOU HAVE BEEN CHOSEN TO FLY AN HONORABLE KAMAKAZE" 201 PRINT " MISSION OVER THE AIRCRAFT CARRIER USS LEXINGTON." 205 PRINT :PRINT :PRINT :INPUT " YOUR FIRST KAMAKAZE MISSION? ( Y OR N ) ";F$:PLOT 12 208 IF F$= "N"THEN S= 0:GOTO 357 210 PRINT :IF RND (1)> .65THEN 325 215 GOTO 380 220 PRINT :PRINT :PRINT "A LUFTWAFFE PILOT, EH ? ALRIGHT THEN ; ARE YOU GOING TO BOMB ":PRINT 221 PRINT :INPUT " RUSSIA ( 1 ) ENGLAND ( 2 ) OR FRANCE ( 3 ) ? ";M:PLOT 12:PRINT :PRINT :PRINT 222 IF M> 0AND M< 4THEN 235 230 PRINT :PRINT " TRY AGAIN...":PRINT :GOTO 220 235 ON MGOTO 250,260,270 250 PRINT :PRINT " YOU ARE NEARING STALINGRADE ":GOTO 280 260 PRINT :PRINT " YOU ARE APPROACHING LONDON, BE CAREFUL THEY HAVE" 261 PRINT " RADAR YOU KNOW.":GOTO 280 270 PRINT :PRINT " YOU ARE COMING UP ON VERSAILLES. THIS SHOULD BE" 271 PRINT " DUCK SOUP. THERE ARE FEW,IF ANY DEFENSES." 280 PRINT 285 PRINT :PRINT :INPUT " HOW MANY MISSIONS HAVE YOU FLOWN ? ";D:PLOT 12:PRINT 290 IF D< 160THEN 300 291 PRINT :PRINT :PRINT " MISSIONS, NOT MILES..." 295 PRINT :PRINT " THAT MANY MISSIONS IS EVEN HIGH FOR AN OLD TIMER. " 296 PRINT :PRINT " YOU MUST HAVE FLOWN IN WW I TOO. LETS JUST STICK" 297 PRINT " TO THIS WAR. " 298 PRINT " NOW THEN ";:GOTO 285 300 PRINT :IF D< 100THEN 310 305 PRINT " THAT SURE IS PUSHING THE ODDS!!!":GOTO 320 310 IF D< 25THEN PRINT " FRESH OUT OF TRAINING, EH ? WELL... " 320 PRINT :IF D< 160* RND (1)THEN 330 325 PLOT 3,18,10:PRINT " D I R E C T H I T ! ! ! ":PRINT :PRINT 326 PRINT :PRINT " TARGET DESTROYED - "INT (100* RND (1))" - KILLED ":PRINT 327 PRINT " MISSION ACCOMPLISHED... CONGRADULATIONS!!!":GOTO 390:PRINT 330 PRINT :PRINT " YOU MISSED THE TARGET BY - "INT (2+ 31* RND (1))" - MILES ! ":PRINT :PRINT 335 PRINT " NOW YOU ARE IN FOR TROUBLE !!!":PRINT :PRINT 340 INPUT " DOES THE ENEMY HAVE... GUNS(1) MISSLES(2) OR BOTH(3) ";R:PLOT 12:PRINT 345 IF R> 0AND R< 4THEN 350 347 PRINT " TRY AGAIN...":PRINT :GOTO 340 350 PRINT :T= 0:IF R= 2THEN 360 355 PRINT :INPUT " WHAT IS THE PERCENT HIT RATE OF ENEMY GUNNERS ? ";S:PLOT 12 357 IF S< 10THEN PLOT 3,8,8:PRINT "YOU LIE, BUT YOU'LL PAY...":GOTO 380 358 IF S> 80THEN PLOT 3,4,8:PRINT "OH COME NOW.... NOT EVEN YOUR GUNNERS ARE THAT GOOD":PRINT :PRINT " TRY AGAIN...":GOTO 355 360 PRINT :IF R> 1THEN T= 35 365 IF S+ T> 100* RND (1)THEN 380 370 PRINT :PRINT " YOU CAN CONSIDER YOURSELF EXTREMELY LUCKY!" 371 PRINT :PRINT " YOU MADE IT THRU TREMENDOUS FLACK.":PRINT :PRINT :GOTO 390 380 FOR S= 1TO 20:PLOT 3,18,14:PRINT " "" 381 PLOT 3,18,14:PRINT " * * * B O O M * * * " 382 PLOT 3,18,15:PRINT " * * * B O O M * * * ":PRINT :PRINT 383 NEXT S 384 FOR T= 1TO 20:PLOT 6,8,12,6,0,12,6,16,12,6,0,12 385 NEXT T 387 PLOT 3,15,10:PRINT "YOU'VE JUST BEEN SHOT DOWN !!!" 388 PLOT 3,15,18:PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY " 389 PLOT 3,15,20:PRINT "TO PAY OUR LAST RESPECTS TO A BRAVE PILOT...":PRINT :PRINT 390 PRINT :INPUT " ANOTHER MISSION? ( Y OR N ) ";U$:PLOT 12 395 IF U$= "Y"THEN 01 396 PRINT 397 PRINT 398 PRINT 399 PRINT 400 FOR V= 1TO 20:PLOT 3,8,10:PRINT "TO MUCH PRESSURE HUH ? MAYBE WHEN YOU GET YOUR NERVE 401 PLOT 3,8,12:PRINT "BACK AND HAVE HAD A LITTLE R & R." 402 NEXT V 405 PRINT 410 PRINT 415 PRINT 420 PRINT :LOAD "MENU":RUN 430 PRINT :END 440 REM ADAPTED FROM AHL'S BASIC COMPUTER GAMES 450 REM BASIC COMPUTER GAMES THIRD PRINTING FEB. 1979. 460 REM CREATIVE COMPUTING 1978. 470 REM ADAPTATION BY RON "CAPPY" CAPPADONA 1980. 480 REM NOT FOR SALE / FOR FUN NOT PROFIT / ILLEGAL TO SELL 490 REM RON CAPPADONA PRODUCTIONS 1980. 500 REM 820 MANGO AVE. SUNNYVALE , CA. 94087 (408) 733-2382