home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 2 / 002.d81 / det.instructions (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  136 lines
  1. 10 rem apple detective instructions by larry jasonwicz
  2. 20 rem translated for the commodore 64 by donna k. woody
  3. 30 :
  4. 40 poke53272,23:rem selects upper/lower case
  5. 50 printchr$(9):rem disables c/shift keys
  6. 60 poke53280,13:poke53281,1:printchr$(151)
  7. 85 q$="[208][210][197][211][211][160][211][208][193][195][197][160][194][193][210][160][212][207][160][195][207][206][212][201][206][213][197]."
  8. 90 goto120
  9. 100 rem set up title page
  10. 110 :
  11. 120 gosub5000:rem print title page
  12. 130 poke781,23:poke782,6:sys65520:printq$;
  13. 140 poke198,0:wait198,1:geta$
  14. 150 printchr$(147)
  15. 160 poke781,12:poke782,1:sys65520
  16. 165 print"[196]o you want instructions printed out    (y/n)?[160]";
  17. 170 poke198,0:wait198,1:geta$
  18. 180 ifa$="y"thenp=1:goto210
  19. 190 ifa$="n"thenp=0:goto230
  20. 200 goto160
  21. 210 printchr$(147):poke781,15:poke782,2:print"please turn printer on and align paper."
  22. 220 ifp=1thenopen4,4,7:cmd4
  23. 230 ifp=0thenprintchr$(147)
  24. 240 print"[212]his game is for 1 to 4 players (it's":print
  25. 250 print"more fun with 2 or more players).  [193]t":print
  26. 260 print"the beginning of the game, you will be":print
  27. 270 print"told the name of the murder victim.":print
  28. 280 print"[212]he object of the game is to figure out":print
  29. 290 print"who the murderer is by questioning the":print
  30. 300 print"suspects.  [212]here are a total of 16":print
  31. 310 print"characters: 8 males (numbered 1 to 8)":print
  32. 320 print"and 8 females (numbered 9 - 16).":print
  33. 325 ifp=1then350
  34. 330 print"[211]uspects could be at four different":print
  35. 340 print"places (tavern, embassy, cafe, or":print
  36. 350 ifp=1then350
  37. 360 poke781,23:poke782,6:sys65520:printq$;
  38. 365 poke198,0:wait198,1:geta$:printchr$(147)
  39. 370 print"docks).  [212]he places will be at dif-":print
  40. 380 print"ferent locations (either uptown, mid-":print
  41. 390 print"town, or downtown plus either on the":print
  42. 400 print"east or west side of town).  [212]he":print
  43. 410 print"locations change each game.  [212]here are":print
  44. 420 print"always 2 males (one odd number and one":print
  45. 430 print"even number) and 2 females (one odd":print
  46. 440 print"number and one even number) at one":print
  47. 450 print"place.  [217]ou must find out the facts" :print
  48. 460 print"about the murderer and find the suspect":print
  49. 470 print"who fits these murder facts.":print
  50. 480 ifp=1then480
  51. 490 poke781,23:poke782,6:sys65520:printq$;
  52. 495 poke198,0:wait198,1:geta$:printchr$(147)
  53. 500 print"            ** [201][205][208][207][210][212][193][206][212] **":print
  54. 510 print"[212]he only suspects who can tell you if":print
  55. 520 print"the fingerprints on the murder weapon":print
  56. 530 print"were from an odd or even numbered":print
  57. 540 print"suspect is a suspect who was at the":print
  58. 550 print"place of the murder weapon and is the":print
  59. 560 print"same sex as the murderer.  [217]ou must":print
  60. 570 print"know the weapon before you ask its":print
  61. 575 print"location.  [217]ou may ask one suspect two":print
  62. 580 print"questions per turn.  [193]s you question":print
  63. 590 print"the suspects, the facts you accumulate":print
  64. 600 ifp=1then600
  65. 610 poke781,23:poke782,6:sys65520:printq$;
  66. 615 poke198,0:wait198,1:geta$:printchr$(147)
  67. 620 print"will be recorded automatically by the":print
  68. 630 print"computer on your crime sheet.  [212]he":print
  69. 640 print"computer will analyze and match up the":print
  70. 650 print"crime facts for you.  [198]or example: if":print
  71. 660 print"you know [211]uspect #1 was at the docks,":print
  72. 670 print"east side and midtown and then later":print
  73. 680 print"find out that [211]uspect #6 was also at":print
  74. 690 print"the docks, you know that [211]uspect #6 was":print
  75. 700 print"also east side and midtown because any":print
  76. 710 print"suspects at the same place have the":print
  77. 720 print"same crime facts.  [196]on't worry, the":print
  78. 730 ifp=1then730
  79. 740 poke781,23:poke782,6:sys65520:printq$;
  80. 745 poke198,0:wait198,1:geta$:printchr$(147)
  81. 760 print"computer will figure this out for you,":print
  82. 770 print"but try to notice this anyway.  [193]s you":print
  83. 780 print"find out more and more facts, the":print
  84. 790 print"computer will 'eliminate' suspects by":print
  85. 800 print"printing them in inverse.  [211]uspects in":print
  86. 810 print"inverse are innocent.  [207]bviously, you":print
  87. 820 print"can not question the victim (he or she":print
  88. 830 print"will be in inverse).  [207]nly one person":print
  89. 840 print"fits all the murder facts - [212][200][197]":print
  90. 850 print"[205][213][210][196][197][210][197][210]!  [193]fter you find out who the":print
  91. 860 print"murderer is, it's time to accuse him or":print
  92. 870 ifp=1then850
  93. 880 poke781,23:poke782,6:sys65520:printq$;
  94. 885 poke198,0:wait198,1:geta$:printchr$(147)
  95. 890 print"her.  [217]ou get only one accusation per":print
  96. 900 print"game.  [201]f you're right, you win and the":print
  97. 910 print"game is over.  [201]f you're wrong, you're":print
  98. 920 print"out of the game and the rest of the":print
  99. 930 print"players try to find out the murderer.":print
  100. 940 print"[201]f everyone is wrong, you will be told":print
  101. 950 print"who the murderer was.  [217]ou must make":print
  102. 960 print"your accusation at the beginning of":print
  103. 970 print"your turn.  [197]ach suspect has a":print
  104. 980 print"different set of questions he or she":print
  105. 990 print"can answer.  [211]ometimes the suspects":print
  106. 1000 ifp=1then970
  107. 1010 poke781,23:poke782,6:sys65520:printq$;
  108. 1015 poke198,0:wait198,1:geta$:printchr$(147)
  109. 1020 print"won't cooperate and give you enough":print
  110. 1030 print"information to positively identify the":print
  111. 1040 print"murderer - you might have to accuse on":print
  112. 1050 print"a hunch.  [217]ou shouldn't let the other":print
  113. 1060 print"players see your crime sheet - make the":print
  114. 1070 print"other players turn away from the":print
  115. 1080 print"monitor on your turn."
  116. 1081 ifp=0then1090
  117. 1082 print#4
  118. 1085 close4
  119. 1090 poke781,22:poke782,0:sys65520:print"[208]ress '[210]' to see instructions again."
  120. 1100 print"[208]ress space bar to play the game.";
  121. 1105 poke198,0:wait198,1:geta$
  122. 1110 if a$="r"ora$="[210]"thenp=0:goto230
  123. 1120 print"[147]load"chr$(34)"detective!"chr$(34)",8":print"run"
  124. 1125 poke631,13:poke632,13:poke198,2:end
  125. 1130 end
  126. 4997 :
  127. 4998 rem title page
  128. 4999 :
  129. 5000 printchr$(147)
  130. 5010 poke781,5:poke782,15:sys65520:print"[196][197][212][197][195][212][201][214][197]!"
  131. 5015 poke781,8:poke782,14:sys65520:print"[201][206][211][212][210][213][195][212][201][207][206][211]"
  132. 5020 poke781,13:poke782,19:sys65520:print"by"
  133. 5030 poke781,16:poke782,12:sys65520:print"[204]arry [202]asonwicz"
  134. 5040 poke781,19:poke782,6:sys65520:print"[212]ranslated by [196]onna [203]. [215]oody"
  135. 5050 return
  136.