home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / BUG.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  6.1 KB  |  254 lines
  1. 5   REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
  2. 10  REM BRIAN MONTE LEIBOWITZ GRADE 7
  3. 20  REM HARRISON JR. SR. HIGH SCHOOL
  4. 30  REM HARRISON N.Y.
  5. 60  PRINT "THE GAME BUG IS LIKE THE GAME COOTI,"
  6. 70  PRINT "I HOPE YOU ENJOY THIS GAME"
  7. 80  PRINT
  8. 90  PRINT "DO YOU WANT INSTRUCTIONS";
  9. 100  INPUT Z$
  10. 110  IF Z$="NO" THEN 300
  11. 120  PRINT "THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH MINE"
  12. 130  PRINT "EACH NUMBER STANDS FOR A PART OF THE BUGS BODY"
  13. 140  PRINT "I WILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU"
  14. 150  PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART."
  15. 160  PRINT "IF YOU CAN GET THE PART I WILL GIVE IT TO YOU."
  16. 170  PRINT "THE SAME WILL HAPPEN ON MY TURN"
  17. 180  PRINT "IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE "
  18. 190  PRINT "OPTION OF SEEING THE PICTURES OF THE BUGS."
  19. 200  PRINT "THE NUMBERS STAND FOR PARTS AS FOLLOWS:"
  20. 210  PRINT "NUMBER","PART","NUMBER OF PART NEEDED"
  21. 220  PRINT "1","BODY","1"
  22. 230  PRINT "2","NECK","1"
  23. 240  PRINT "3","HEAD","1"
  24. 250  PRINT "4","FEELERS","2"
  25. 260  PRINT "5","TAIL","1"
  26. 270  PRINT "6","LEGS","6"
  27. 280  PRINT
  28. 290  PRINT
  29. 300  IF Y>0 THEN 2480
  30. 310  LET Z=INT(6*RND(1)+1)
  31. 320  C=1
  32. 330  PRINT "YOU ROLLED A "Z
  33. 340 ON Z GOTO 350,430,540,650,760,870
  34. 350  PRINT "1=BODY"
  35. 360  IF B=1 THEN 410
  36. 370  PRINT "YOU NOW HAVE A BODY"
  37. 380  B=1
  38. 390  C=0
  39. 400  GOTO 970
  40. 410  PRINT "YOU DO NOT NEED A BODY"
  41. 420  GOTO 970
  42. 430  PRINT "2=NECK"
  43. 440  IF N=1 THEN 500
  44. 450  IF B=0 THEN 520
  45. 460  PRINT "YOU NOW HAVE A NECK"
  46. 470  N=1
  47. 480  C=0
  48. 490  GOTO 970
  49. 500  PRINT "YOU DO NOT NEED A NECK"
  50. 510  GOTO 970
  51. 520  PRINT "YOU DO NOT HAVE A BODY"
  52. 530  GOTO 970
  53. 540  PRINT "3=HEAD"
  54. 550  IF N=0 THEN 610
  55. 560  IF H=1 THEN 630
  56. 570  PRINT "YOU NEEDED A  HEAD"
  57. 580  H=1
  58. 590  C=0
  59. 600  GOTO 970
  60. 610  PRINT "YOU DO NOT HAVE A NECK"
  61. 620  GOTO 970
  62. 630  PRINT "YOU HAVE A HEAD"
  63. 640  GOTO 970
  64. 650  PRINT "4=FEELERS"
  65. 660  IF H=0 THEN 740
  66. 670  IF A=2 THEN 720
  67. 680  PRINT "I NOW GIVE YOU A FEELER"
  68. 690  LET A=A+1
  69. 700  C=0
  70. 710  GOTO 970
  71. 720  PRINT "YOU HAVE TWO FEELERS ALREADY"
  72. 730  GOTO 970
  73. 740  PRINT "YOU DO NOT HAVE A HEAD"
  74. 750  GOTO 970
  75. 760  PRINT "5=TAIL"
  76. 770  IF B=0 THEN 830
  77. 780  IF T=1 THEN 850
  78. 790  PRINT "I NOW GIVE YOU A TAIL"
  79. 800  LET T=T+1
  80. 810  C=0
  81. 820  GOTO 970
  82. 830  PRINT "YOU DO NOT HAVE A BODY"
  83. 840  GOTO 970
  84. 850  PRINT "YOU ALREADY HAVE A TAIL"
  85. 860  GOTO 970
  86. 870  PRINT "6=LEG"
  87. 880  IF L=6 THEN 940
  88. 890  IF B=0 THEN 960
  89. 900  LET L=L+1
  90. 910  C=0
  91. 920  PRINT "YOU NOW HAVE "L" LEG(S)"
  92. 930  GOTO 970
  93. 940  PRINT "YOU HAVE 6 FEET ALREADY"
  94. 950  GOTO 970
  95. 960  PRINT "YOU DO NOT HAVE A BODY"
  96. 970  LET X=INT(6*RND(1)+1)
  97. 980  PRINT "I ROLLED A "X
  98. 990 ON X GOTO 1000,1080,1190,1300,1410,1520
  99. 1000  PRINT "1=BODY"
  100. 1010  IF P=1 THEN 1060
  101. 1020  PRINT "I NOW HAVE A BODY"
  102. 1030  C=0
  103. 1040  P=1
  104. 1050  GOTO 1630
  105. 1060  PRINT "I DO NOT NEED A BODY"
  106. 1070  GOTO 1630
  107. 1080  PRINT "2=NECK"
  108. 1090  IF Q=1 THEN 1150
  109. 1100  IF P=0 THEN 1170
  110. 1110  PRINT "I NOW HAVE A NECK"
  111. 1120  Q=1
  112. 1130  C=0
  113. 1140  GOTO 1630
  114. 1150  PRINT "I DO NOT NEED A NECK"
  115. 1160  GOTO 1630
  116. 1170  PRINT "I DO NOT  HAVE A BODY"
  117. 1180  GOTO 1630
  118. 1190  PRINT "3=HEAD"
  119. 1200  IF Q=0 THEN 1260
  120. 1210  IF R=1 THEN 1280
  121. 1220  PRINT "I NEEDED A HEAD"
  122. 1230  R=1
  123. 1240  C=0
  124. 1250  GOTO 1630
  125. 1260  PRINT "I DO NOT HAVE A NECK"
  126. 1270  GOTO 1630
  127. 1280  PRINT "I DO NOT NEED A HEAD "
  128. 1290  GOTO 1630
  129. 1300  PRINT "4=FEELERS"
  130. 1310  IF R=0 THEN 1390
  131. 1320  IF S=2 THEN 1370
  132. 1330  PRINT "I GET A FEELER"
  133. 1340  LET S=S+1
  134. 1350  C=0
  135. 1360  GOTO 1630
  136. 1370  PRINT "I HAVE 2 FEELERS ALREADY"
  137. 1380  GOTO 1630
  138. 1390  PRINT "I DO NOT HAVE A HEAD"
  139. 1400  GOTO 1630
  140. 1410  PRINT "5=TAIL"
  141. 1420  IF P=0 THEN 1480
  142. 1430  IF U=1 THEN 1500
  143. 1440  PRINT "I NOW HAVE A TAIL"
  144. 1450  U=1
  145. 1460  C=0
  146. 1470  GOTO 1630
  147. 1480  PRINT "I DO NOT HAVE A BODY"
  148. 1490  GOTO 1630
  149. 1500  PRINT "I DO NOT NEED A TAIL"
  150. 1510  GOTO 1630
  151. 1520  PRINT "6=LEGS"
  152. 1530  IF V=6 THEN 1590
  153. 1540  IF P=0 THEN 1610
  154. 1550  LET V=V+1
  155. 1560  C=0
  156. 1570  PRINT "I NOW HAVE "V" LEG(S)"
  157. 1580  GOTO 1630
  158. 1590  PRINT "I HAVE 6 FEET"
  159. 1600  GOTO 1630
  160. 1610  PRINT "I DO NOT HAVE A BODY"
  161. 1620  GOTO 1630
  162. 1630  IF A=2 AND T=1 AND L=6 THEN 1650
  163. 1640  GOTO 1670
  164. 1650  PRINT "YOUR BUG IS FINISHED"
  165. 1660  LET Y=Y+1
  166. 1670  IF S=2 AND P=1 AND V=6 THEN 1690
  167. 1680  GOTO 1710
  168. 1690  PRINT "MY BUG IS FINISHED"
  169. 1700  LET Y=Y+2
  170. 1710  IF C=1 THEN 300
  171. 1720  PRINT "DO YOU WANT THE PICTURES";
  172. 1730  INPUT Z$
  173. 1740  IF Z$="NO" THEN 300
  174. 1750  PRINT "*****YOUR BUG*****"
  175. 1760  PRINT
  176. 1770  PRINT
  177. 1780  IF A=0 THEN 1860
  178. 1790  FOR Z=1 TO 4
  179. 1800  FOR X=1 TO A
  180. 1810  PRINT TAB(10);
  181. 1820  PRINT "A ";
  182. 1830  NEXT X
  183. 1840  PRINT
  184. 1850  NEXT Z
  185. 1860  IF H=0 THEN 1880
  186. 1870  GOSUB 2470
  187. 1880  IF N=0 THEN 1920
  188. 1890  FOR Z=1 TO 2
  189. 1900  PRINT "          N N"
  190. 1910  NEXT Z
  191. 1920  IF B=0 THEN 2000
  192. 1930  PRINT "     BBBBBBBBBBBB"
  193. 1940  FOR Z=1 TO 2
  194. 1950  PRINT "     B          B"
  195. 1960  NEXT Z
  196. 1970 IF T<>1 THEN 1990
  197. 1980  PRINT "TTTTTB          B"
  198. 1990  PRINT "     BBBBBBBBBBBB"
  199. 2000  IF L=0 THEN 2080
  200. 2010  FOR Z=1 TO 2
  201. 2020  PRINT TAB(5);
  202. 2030  FOR X=1 TO L
  203. 2040  PRINT " L";
  204. 2050  NEXT X
  205. 2060  PRINT
  206. 2070  NEXT Z
  207. 2080  FOR Z=1 TO 4
  208. 2090  PRINT
  209. 2100  NEXT Z
  210. 2110  PRINT "******MY BUG*******"
  211. 2120  PRINT
  212. 2130  PRINT
  213. 2140  PRINT
  214. 2150  IF S=0 THEN 2230
  215. 2160  FOR Z=1 TO 4
  216. 2170  PRINT TAB(10);
  217. 2180  FOR X=1 TO S
  218. 2190  PRINT "F ";
  219. 2200  NEXT X
  220. 2210  PRINT
  221. 2220  NEXT Z
  222. 2230 IF R<>1 THEN 2250
  223. 2240  GOSUB 2470
  224. 2250  IF Q=0 THEN 2280
  225. 2260  PRINT "          N N"
  226. 2270  PRINT "          N N"
  227. 2280  IF P=0 THEN 2360
  228. 2290  PRINT "     BBBBBBBBBBBB"
  229. 2300  FOR Z=1 TO 2
  230. 2310  PRINT "     B          B"
  231. 2320  NEXT Z
  232. 2330 IF U<>1 THEN 2350
  233. 2340  PRINT "TTTTTB          B"
  234. 2350  PRINT "     BBBBBBBBBBBB"
  235. 2360  IF V=0 THEN 2450
  236. 2370  FOR Z=1 TO 2
  237. 2380  PRINT TAB(5);
  238. 2390  FOR X=1 TO V
  239. 2400  PRINT " L";
  240. 2410  NEXT X
  241. 2420  PRINT
  242. 2430  NEXT Z
  243. 2450 IF Y<>0 THEN 2540
  244. 2460  GOTO 300
  245. 2470  PRINT "        HHHHHHH"
  246. 2480  PRINT "        H     H"
  247. 2490  PRINT "        H O O H"
  248. 2500  PRINT "        H     H"
  249. 2510  PRINT "        H  V  H"
  250. 2520  PRINT "        HHHHHHH"
  251. 2530  RETURN
  252. 2540  PRINT "I HOPE YOU ENJOYED THE GAME, PLAY AGAIN SOON !!!"
  253. 2550  END
  254.