home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / BOMBER.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.8 KB  |  58 lines
  1. 5 RANDOMIZE:PRINT"YOU ARE NOW A PILOT IN A WORLD WAR II BOMBER
  2. 10 INPUT "WHAT SIDE -- ITALY(1), ALLIES(2), JAPANESE(3), GERMANY(4)";A
  3. 20 IF A>0 AND A<5 THEN 25 ELSE PRINT "TRY AGAIN....":GOTO 10
  4. 25 ON A GOTO 30,110,200,220
  5. 30 INPUT "WHAT IS YOUR TARGET -- ALBANIA(1), GREECE(2), NORTH AFRICA(3)";B
  6. 40 IF B>0 AND B<4 THEN 45 ELSE PRINT "TRY AGAIN....":GOTO 30
  7. 45 PRINT:ONB GOTO 50,80,90
  8. 50 PRINT"SHOULD BE EASY.YOU'RE FLYING A NAZI-MADE PLANE.
  9. 60 GOTO 280
  10. 80 PRINT "BE CAREFUL!!!":GOTO 280
  11. 90 PRINT "YOU'RE GOING FOR THE OIL, EH?":GOTO 280
  12. 110 INPUT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";G
  13. 120 IF G>0 AND G<5 THEN 125 ELSE PRINT "TRY AGAIN....":GOTO 110
  14. 125 PRINT:ON G GOTO 130,150,170,190
  15. 130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI"
  16. 140 GOTO 280
  17. 150 PRINT "YOU'RE DROPPING THE A-BOMB ON HIROSHIMA."
  18. 160 GOTO 280
  19. 170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA."
  20. 180 GOTO 280
  21. 190 PRINT "YOU'RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR."
  22. 195 GOTO 280
  23. 200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON."
  24. 205 INPUT "YOUR FIRST KAMIKAZE MISSION (Y OR N)";F$
  25. 208 IF F$="N" THEN S=0:GOTO 358
  26. 210 PRINT:IF RND>.65 THEN 325 ELSE 380
  27. 220 PRINT "A NAZI, EH?  OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)"
  28. 230 INPUT"OR FRANCE(3)";M:IF M>0 AND M<4 THEN 235 ELSE PRINT "WHAT??":GOTO 220
  29. 235 PRINT:ON M GOTO 250,260,270
  30. 250 PRINT "YOU'RE NEARING STALINGRAD.....":GOTO 280
  31. 260 PRINT "NEARING LONDON. BE CAREFUL, THEY'VE GOT A GOOD AIR-RAID DEFENCE."
  32. 265 GOTO 280
  33. 270 PRINT "NEARING VERSAILLES.  DUCK SOUP.  THEY'RE NEARLY DEFENSELESS."
  34. 280 PRINT
  35. 285 INPUT "HOW MANY MISSIONS HAVE YOU FLOWN";D
  36. 290 IF D<160 THEN 300 ELSE PRINT "MISSIONS, NOT MILES...."
  37. 295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS.  NOW THEN,":GOTO 285
  38. 300 PRINT:IF D<100 THEN 310 ELSE PRINT "THAT'S PUSHING THE ODDS!":GOTO 320
  39. 310 IF D<25 THEN PRINT "FRESH OUT OF TRAINING, EH?"
  40. 320 PRINT:IF D<160*RND THEN 330
  41. 325 PRINT "DIRECT HIT!!!!  "INT(100*RND)"KILLED! MISSION SUCCESSFUL.":GOTO 390
  42. 330 PRINT "MISSED TARGET BY"INT(2+30*RND)"MILES!!"
  43. 335 PRINT "NOW YOU'RE REALLY IN FOR IT !!":PRINT
  44. 340 INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";R
  45. 345 IF R>0 AND R<4 THEN 350 ELSE PRINT "TRY AGAIN....":GOTO 340
  46. 350 PRINT:IF R=2 THEN 360
  47. 355 INPUT "WHAT IS THE PERCENT HIT RATE OF THE ENEMY GUNNERS (10 TO 50)";S
  48. 358 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY....":PRINT:GOTO 380
  49. 360 PRINT:IF R>1 THEN T=35
  50. 365 IF S+T>100*RND THEN 380
  51. 370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!":GOTO 390
  52. 380 PRINT "* * * * * BOOM * * * * *"
  53. 384 PRINT "YOU HAVE BEEN SHOT DOWN......."
  54. 386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR LAST TRIBUTE.."
  55. 390 PRINT:PRINT:PRINT:INPUT "PLAY AGAIN (Y OR N)";U$:IF U$="Y" THEN 10
  56. 400 PRINT "CHICKEN!!!!!":PRINT:PRINT
  57. 999 END
  58.