home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug003.ark / STARS.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  3.2 KB  |  143 lines
  1.  REM SHOOTING STARS BY TBX
  2. 10 PRINT "INSTRUCTIONS (1=YES, 0=NO)";
  3. 20 INPUT Z
  4. 30 IF Z=1 THEN GOSUB 900
  5. 100 REM START LOOP
  6. A=-1
  7. 101 B=-1
  8. 102 C=-1
  9. 103 D=-1
  10. 104 E=1
  11. 105 F=-1
  12. 106 G=-1
  13. 107 H=-1
  14. 108 I=-1
  15. 109 J=0
  16. 148 PRINT
  17. 149 IF INT(J/3)*3=J THEN PRINT ""
  18. 150 IF A=1 THEN PRINT "* ";
  19. 151 IF A=-1 THEN PRINT "- ";
  20. 155 IF B=1 THEN PRINT "* ";
  21. 156 IF B=-1 THEN PRINT "- ";
  22. 160 IF C=1 THEN PRINT "* ";J
  23. 161 IF C=-1 THEN PRINT "- ";J
  24. 165 IF D=1 THEN PRINT "* ";
  25. 166 IF D=-1 THEN PRINT "- ";
  26. 170 IF E=1 THEN PRINT "* ";
  27. 171 IF E=-1 THEN PRINT "- ";
  28. 175 IF F=1 THEN PRINT "* "
  29. 176 IF F=-1 THEN PRINT "- "
  30. 180 IF G=1 THEN PRINT "* ";
  31. 181 IF G=-1 THEN PRINT "- ";
  32. 185 IF H=1 THEN PRINT "* ";
  33. 186 IF H=-1 THEN PRINT "- ";
  34. 190 IF I=1 THEN PRINT "*     ";
  35. 191 IF I=-1 THEN PRINT "-     ";
  36. 250 IF E=1 THEN 390
  37. 260 IF A+B+C+D+F+G+H+I=8 THEN 809
  38. 270 IF A+B+C+D+F+G+H+I=-8 THEN 820
  39. 390 PRINT "SHOOT";
  40. 391 INPUT Y
  41. 395 ON Y GOTO 509,519,529,539,549,559,569,579,589
  42. 499 PRINT "YOU GAVE UP ON ";J;" TRYS !!!!"
  43. 500 GOTO 830
  44. 509 IF A=-1 THEN 800
  45. 510 A=-A
  46. 511 B=-B
  47. 512 D=-D
  48. 513 E=-E
  49. 516 GOTO 597
  50. 519 IF B=-1 THEN 800
  51. 520 A=-A
  52. 521 B=-B
  53. 522 C=-C
  54. 526 GOTO 597
  55. 529 IF C=-1 THEN 800
  56. 530 B=-B
  57. 531 C=-C
  58. 532 E=-E
  59. 533 F=-F
  60. 536 GOTO 597
  61. 539 IF D=-1 THEN 800
  62. 540 A=-A:D=-D:G=-G
  63. 546 GOTO 597
  64. 549 IF E=-1 THEN 800
  65. 550 B=-B:D=-D:E=-E:F=-F:H=-H
  66. 556 GOTO 597
  67. 559 IF F=-1 THEN 800
  68. 560 C=-C:F=-F:I=-I
  69. 566 GOTO 597
  70. 569 IF G=-1 THEN 800
  71. 570 D=-D:E=-E:G=-G:H=-H
  72. 576 GOTO 597
  73. 579 IF H=-1 THEN 800
  74. 580 G=-G:H=-H:I=-I
  75. 586 GOTO 597
  76. 589 IF I=-1 THEN 800
  77. 590 E=-E:F=-F:H=-H:I=-I
  78. 597 J=J+1
  79. 598 GOTO 148
  80. 800 PRINT "HEY ! ! YOU CAN ONLY SHOOT"
  81. 801 PRINT "STARS, NOT BLACK HOLES."
  82. 802 GOTO 390
  83. 809 PRINT
  84. 810 PRINT "YOU WIN WITH ";J;" SHOOTS"
  85. 815 GOTO 830
  86. 820 PRINT "YOU LOST WITH ";J;" TRYS."
  87. 830 PRINT
  88. 831 PRINT "TRY AGAIN (1=YES, 0=NO)";
  89. 832 INPUT X
  90. 833 IF X=1 THEN 100
  91. 834 IF X=0 THEN 890
  92. 835 PRINT "FOLLOW INSTRUCTIONS "
  93. 836 GOTO 831
  94. 890 PRINT "HOPE YOU HAD FUN"
  95. 895 REM
  96. 899 REM INSTRUCTION SUBROUTINE
  97. 900 PRINT"";
  98. 901 PRINT "* * *  THERE ARE STARS"
  99. 902 PRINT "- - -  AND BLACK HOLES"
  100. 903 PRINT "* * *  IN THE UNIVERSE"
  101. 904 PRINT
  102. 905 PRINT "1 2 3  YOU SHOOT A STAR *"
  103. 906 PRINT "4 5 6  NOT A BLACK HOLE -"
  104. 907 PRINT "7 8 9  BY TYPING ITS NUMBER"
  105. 908 PRINT
  106. 910 PRINT "EACH STAR IS IN A GALAXY."
  107. 911 PRINT "WHEN YOU SHOOT A STAR, EVERY-"
  108. 912 PRINT "THING IN ITS GALAXY CHANGES."
  109. 913 PRINT "ALL STARS BECOME BLACK HOLES,"
  110. 914 PRINT "ALL BLACK HOLES BECOME STARS."
  111. 915 PRINT "TYPE '2' TO GO ON."
  112. 916 INPUT Z
  113. 920 PRINT "GALAXY MAPS:"
  114. 921 PRINT
  115. 923 PRINT "1 * -   * 2 *   - * 3"
  116. 924 PRINT "* * -   - - -   - * *"
  117. 925 PRINT "- - -   - - -   - - -"
  118. 926 PRINT
  119. 927 PRINT "* - -   - * -   - - *"
  120. 928 PRINT "4 - -   * 5 *   - - 6"
  121. 929 PRINT "* - -   - * -   - - *"
  122. 930 PRINT
  123. 931 PRINT "- - -   - - -   - - -"
  124. 932 PRINT "* * -   - - -   - * *"
  125. 933 PRINT "7 * -   * 8 *   - * 9"
  126. 934 PRINT
  127. 935 PRINT "TYPE '3' TO GO ON";
  128. 936 INPUT Z
  129. 940 PRINT "PATTERNS TO LOOK FOR:"
  130. 941 PRINT
  131. 942 PRINT "START    WIN     LOSE"
  132. 943 PRINT
  133. 945 PRINT "- - -   * * *   - - -"
  134. 946 PRINT "- * -   * - *   - - -"
  135. 947 PRINT "- - -   * * *   - - -"
  136. 948 PRINT
  137. 949 PRINT "TYPE '0' TO END GAME"
  138. 950 PRINT
  139. 951 PRINT "TYPE '4' TO GO ON";
  140. 952 INPUT Z
  141. 999 RETURN
  142. 1000 END
  143.