ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

125 lines
3.2 KiB

  1. 1 PRINT TAB(33);"COMBAT"
  2. 2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
  3. 3 PRINT: PRINT: PRINT
  4. 4 PRINT "I AM AT WAR WITH YOU.": PRINT "WE HAVE 72000 SOLDIERS APIECE."
  5. 5 PRINT:PRINT "DISTRIBUTE YOUR FORCES."
  6. 6 PRINT ,"ME"," YOU"
  7. 7 PRINT "ARMY",30000,
  8. 8 INPUT A
  9. 9 PRINT "NAVY",20000,
  10. 10 INPUT B
  11. 11 PRINT "A. F.",22000,
  12. 12 INPUT C
  13. 13 IF A+B+C>72000 THEN 5
  14. 14 D=30000
  15. 15 E=20000
  16. 16 F=22000
  17. 17 PRINT "YOU ATTACK FIRST. TYPE (1) FOR ARMY; (2) FOR NAVY;"
  18. 18 PRINT "AND (3) FOR AIR FORCE."
  19. 19 INPUT Y
  20. 20 PRINT "HOW MANY MEN"
  21. 21 INPUT X
  22. 22 IF X<0 THEN 20
  23. 23 ON Y GOTO 100,200,300
  24. 100 IF X>A THEN 20
  25. 105 IF X<A/3 THEN 120
  26. 110 IF X<2*A/3 THEN 150
  27. 115 GOTO 270
  28. 120 PRINT "YOU LOST";X;"MEN FROM YOUR ARMY."
  29. 125 A=INT(A-X)
  30. 130 GOTO 500
  31. 150 PRINT "YOU LOST";INT(X/3);"MEN, BUT I LOST ";INT(2*D/3)
  32. 155 A=INT(A-X/3)
  33. 160 D=0
  34. 165 GOTO 500
  35. 200 IF X>B THEN 20
  36. 210 IF X<E/3 THEN 230
  37. 215 IF X<2*E/3 THEN 250
  38. 220 GOTO 270
  39. 230 PRINT "YOUR ATTACK WAS STOPPED!"
  40. 232 B=INT(B-X)
  41. 235 GOTO 500
  42. 250 PRINT "YOU DESTROYED";INT(2*E/3);"OF MY ARMY."
  43. 255 E=INT(E/3)
  44. 260 GOTO 500
  45. 270 PRINT "YOU SUNK ONE OF MY PATROL BOATS, BUT I WIPED OUT TWO"
  46. 275 PRINT "OF YOUR AIR FORCE BASES AND 3 ARMY BASES."
  47. 280 A=INT(A/3)
  48. 285 C=INT(C/3)
  49. 290 E=INT(2*E/3)
  50. 293 GOTO 500
  51. 300 IF X>C THEN 20
  52. 310 IF X<C/3 THEN 350
  53. 320 IF X<2*C/3 THEN 370
  54. 330 GOTO 380
  55. 350 PRINT "YOUR ATTACK WAS WIPED OUT."
  56. 355 C=INT(C-X)
  57. 360 GOTO 500
  58. 370 PRINT "WE HAD A DOGFIGHT. YOU WON - AND FINISHED YOUR MISSION."
  59. 375 D=INT(2*D/3)
  60. 377 E=INT(E/3)
  61. 378 F=INT(F/3)
  62. 379 GOTO 500
  63. 380 PRINT "YOU WIPED OUT ONE OF MY ARMY PATROLS, BUT I DESTROYED"
  64. 381 PRINT "TWO NAVY BASES AND BOMBED THREE ARMY BASES."
  65. 385 A=INT(A/4)
  66. 387 B=INT(B/3)
  67. 390 D=INT(2*D/3)
  68. 500 PRINT
  69. 501 PRINT,"YOU","ME"
  70. 510 PRINT "ARMY",A,D
  71. 520 PRINT "NAVY",B,E
  72. 530 PRINT "A. F.",C,F
  73. 1000 PRINT "WHAT IS YOUR NEXT MOVE?"
  74. 1010 PRINT "ARMY=1 NAVY=2 AIR FORCE=3"
  75. 1020 INPUT G
  76. 1030 PRINT "HOW MANY MEN"
  77. 1040 INPUT T
  78. 1045 IF T<0 THEN 1030
  79. 1050 ON G GOTO 1600,1700,1800
  80. 1600 IF T>A THEN 1030
  81. 1610 IF T<D/2 THEN 1630
  82. 1615 PRINT "YOU DESTROYED MY ARMY!"
  83. 1616 D=0
  84. 1617 GOTO 2000
  85. 1630 PRINT "I WIPED OUT YOUR ATTACK!"
  86. 1635 A=A-T
  87. 1640 GOTO 2000
  88. 1700 IF T>B THEN 1030
  89. 1710 IF T<E/2 THEN 1750
  90. 1720 GOTO 1770
  91. 1750 PRINT "I SUNK TWO OF YOUR BATTLESHIPS, AND MY AIR FORCE"
  92. 1751 PRINT "WIPED OUT YOUR UNGAURDED CAPITOL."
  93. 1755 A=A/4
  94. 1760 B=B/2
  95. 1765 GOTO 2000
  96. 1770 PRINT "YOUR NAVY SHOT DOWN THREE OF MY XIII PLANES,"
  97. 1771 PRINT "AND SUNK THREE BATTLESHIPS."
  98. 1775 F=2*F/3
  99. 1780 E=(E/2)
  100. 1790 GOTO 2000
  101. 1800 IF T>C THEN 1030
  102. 1810 IF T>F/2 THEN 1830
  103. 1820 GOTO 1850
  104. 1830 PRINT "MY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT"
  105. 1831 PRINT "YOUR COUNTRY IN SHAMBLES."
  106. 1835 A=A/3
  107. 1837 B=B/3
  108. 1840 C=C/3
  109. 1845 GOTO 2000
  110. 1850 PRINT "ONE OF YOUR PLANES CRASHED INTO MY HOUSE. I AM DEAD."
  111. 1851 PRINT "MY COUNTRY FELL APART."
  112. 1860 GOTO 2010
  113. 2000 PRINT
  114. 2001 PRINT "FROM THE RESULTS OF BOTH OF YOUR ATTACKS,"
  115. 2002 IF A+B+C>3/2*(D+E+F) THEN 2010
  116. 2005 IF A+B+C<2/3*(D+E+F) THEN 2015
  117. 2006 PRINT "THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR"
  118. 2007 PRINT "RESPECTIVE COUNTRIES AND LIVE IN PEACE."
  119. 2008 GOTO 2020
  120. 2010 PRINT "YOU WON, OH! SHUCKS!!!!"
  121. 2012 GOTO 2020
  122. 2015 PRINT "YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU"
  123. 2016 PRINT "RIGHT FOR PLAYING THIS STUPID GAME!!!"
  124. 2020 END