home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / verbosity (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  5.1 KB  |  161 lines
  1. 10 GOSUB1430: GOSUB1230
  2. 20 DL=500:DIMCD(98):PRINT"":DIMBD(8,8):   DIMQC(20,2),PS(5),NM$(5):GOTO40
  3. 30 SAVE"@0:COLOR",8:END
  4. 40 GOSUB740: CD=RND(-TI):POKE53280,0:POKE53281,0:PRINT"[147]":CN=0:GOSUB400
  5. 50 PRINT"[153][159]WAIT, WHILE THE BOARD IS GENERATED.": QC=0
  6. 60 GOSUB660
  7. 70 FORT=1TOSZ:FORP=1TOSZ:PRINT"";T
  8. 80 TT=INT(98*RND(1)+1):GOSUB140:BD(T,P)=CD(TT):NEXTP:NEXTT
  9. 90 IF QC=0 THEN160
  10. 100 FORA=1 TO QC: T=Q(A,1): P=Q(A,2)
  11. 110 IF P+1>SZ THEN BD(T,P-1)=21:NEXTA       :GOTO160
  12. 120 BD(T,P+1)=21:NEXTA:GOTO160
  13. 130 REM Q COUNTER & PLACE SAVER *******
  14. 140 IF TT<>70 THEN RETURN
  15. 150 QC=QC+1:Q(QC,1)=T:Q(QC,2)=P:RETURN
  16. 160 PRINTS$;C$;T$:PRINTC$;
  17. 170 FORT=1TOSZ:PRINT"[221]";: FORP=1TOSZ:PRINT"[155]"CHR$(BD(T,P)+64)"[221]";:NEXTP
  18. 180 PRINT:PRINTC$;L$ :PRINTC$;: NEXTT: PRINTB$
  19. 190 PRINT"";
  20. 200 IF F$="R" THEN RETURN
  21. 210 PRINT"[156]END";:CN=0
  22. 220 FORT=1TODL:NEXTT:CN=CN+1:IFCN<41THENPRINT".";:IFCN<40 GOTO220
  23. 230 PRINT"[147][158]ROUND OVER... TABULATE SCORE."
  24. 240 PRINT"    2  POINTS FOR EACH 2 LETTER WORD.
  25. 250 [153]"    3  POINTS FOR EACH 3 LETTER WORD."
  26. 260 [153]"    5  POINTS FOR EACH 4 LETTER WORD."
  27. 270 [153]"    10 POINTS FOR EACH 5 LETTER WORD."
  28. 280 [153]"   WORDS OVER 5 LETTERS COUNT 5 POINTS"
  29. 290 [153]"       FOR EACH ADDITIONAL LETTER. "
  30. 300 [153]"         HIT 'R' TO REVIEW BOARD"
  31. 310 [153]"         HIT 'S' TO TALLY SCORE"
  32. 320 [161]F$:[139] F$[178]"" [167]320
  33. 330 [139] F$[178]"S" [167] [141]1020:              [139] AG [167] [153]"LOAD":[137]50
  34. 340 [139] F$[178]"A" [167] [138]
  35. 350 [139] F$[179][177]"R"[167]320
  36. 360 [141]160
  37. 370 [153]"  SYSPRESS ANY KEY"
  38. 380 [161] D$:[139]D$[178]"" [167]380
  39. 390 [137]230
  40. 400 [129]T[178]1 [164] 9:CD(T)[178]1:[130]T
  41. 410 [129]T[178]10[164]11:CD(T)[178]2:[130]T
  42. 420 [129]T[178]12[164]13:CD(T)[178]3:[130]T
  43. 430 [129]T[178]14[164]17:CD(T)[178]4:[130]T
  44. 440 [129]T[178]18[164]29:CD(T)[178]5:[130]T
  45. 450 [129]T[178]30[164]31:CD(T)[178]6:[130]T
  46. 460 [129]T[178]32[164]34:CD(T)[178]7:[130]T
  47. 470 [129]T[178]35[164]36:CD(T)[178]8:[130]T
  48. 480 [129]T[178]37[164]45:CD(T)[178]9:[130]T
  49. 490 [129]T[178]46[164]46:CD(T)[178]10:[130]T
  50. 500 [129]T[178]47[164]47:CD(T)[178]11:[130]T
  51. 510 [129]T[178]48[164]51:CD(T)[178]12:[130]T
  52. 520 [129]T[178]52[164]53:CD(T)[178]13:[130]T
  53. 530 [129]T[178]54[164]59:CD(T)[178]14:[130]T
  54. 540 [129]T[178]60[164]67:CD(T)[178]15:[130]T
  55. 550 [129]T[178]68[164]69:CD(T)[178]16:[130]T
  56. 560 [129]T[178]70[164]70:CD(T)[178]17:[130]T
  57. 570 [129]T[178]71[164]76:CD(T)[178]18:[130]T
  58. 580 [129]T[178]77[164]80:CD(T)[178]19:[130]T
  59. 590 [129]T[178]81[164]86:CD(T)[178]20:[130]T
  60. 600 [129]T[178]87[164]90:CD(T)[178]21:[130]T
  61. 610 [129]T[178]91[164]92:CD(T)[178]22:[130]T
  62. 620 [129]T[178]93[164]94:CD(T)[178]23:[130]T
  63. 630 [129]T[178]95[164]95:CD(T)[178]24:[130]T
  64. 640 CD(96)[178]25:CD(97)[178]25:CD(98)[178]26
  65. 650 [142]
  66. 660 C$[178]"":S$[178]"LOAD"
  67. 670 L$[178]"-TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN<":T$[178]"(null)TAN=TAN=TAN=TAN=TAN=TAN=TAN=TANRIGHT$":B$[178]"ONMID$TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN(null)"
  68. 680 L$[178][200](L$,3)[170][201](L$,SZ[172]2)
  69. 690 T$[178][200](T$,3)[170][201](T$,SZ[172]2)
  70. 700 B$[178][200](B$,4)[170][201](B$,SZ[172]2)
  71. 710 S$[178][200](S$,12[171]SZ)
  72. 720 C$[178][201](C$,14[171][182](4[171]SZ))
  73. 730 [142]
  74. 740 [143] *** SET UP ***
  75. 750 [151]53280,5 :[151]53281,4
  76. 760 [153]"LOAD       HOW BIG OF A BOARD WOULD":[153][166]11) "YOU LIKE (4-8)?"
  77. 770 [161] SZ$:[139]SZ$[178]"" [167]770
  78. 780 [139] SZ$[177]"3"[175]SZ$[179]"9"[167]800
  79. 790 [153]"STOPINVALID SIZE":[129]T[178]1[164]1000:[130]T:[151]198,0: [137]760
  80. 800 SZ[178][197](SZ$)
  81. 810 [153]"SHORT, MEDIUM, OR LONG TIME DELAY?"
  82. 820 [161] L$: [139] L$[178] "" [167]820
  83. 830 [139] L$[178]"S"[176]L$[178]"M"[176]L$[178]"L"[167]860
  84. 840 [153]"STOPTRY AGAIN...":[129]T[178]1[164]1000:[130]T
  85. 850 [153]"ON                     ":     [137]810
  86. 860 [153]"LOADHOW MANY PLAYERS(1-5)": [153]""
  87. 870 [161] T$: [139] T$[178] "" [167]870
  88. 880 [139] T$[179]"1"[176]T$[177]"5"[167][153]"STOPTRY AGAIN...":[129]T[178]1[164]800:[130]T:[137]860
  89. 890 NP[178][197](T$)
  90. 900 [129]T[178]1[164]NP
  91. 910 [153]"PLAYER"T" ENTER YOUR NAME";:[133]NM$(T): NM$(T)[178][200](NM$(T),8)
  92. 920 [130]T
  93. 930 [139] L$[178]"S" [167] F[178]1
  94. 940 [139] L$[178]"M" [167] F[178]2
  95. 950 [139] L$[178]"L" [167] F[178]3
  96. 960 DL[178]100[172]SZ[172]F[172]1.25
  97. 970 [133]"WHAT SCORE DO YOU WANT TO PLAY TO";MS
  98. 980 [139] MS[177][178]25 [175] MS[179][178]1000 [137]1010
  99. 990 [153]"STOPBE REAL!(25-1000)"
  100. 1000 [129]T[178]1 [164] 1000: [130]T:[153]"ON                          ":[137]970
  101. 1010 [142]
  102. 1020 [143] TALLY SCORE ***
  103. 1030 D$[178]" CONT"
  104. 1040 [129] T[178]1 [164] NP:[153] D$ NM$(T)"'S SCORE:               CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"PS(T)
  105. 1050 [133] "ENTER THIS ROUND'S         CMDCMDCMDCMDCMDCMDCMDCMD";RS
  106. 1060 PS(T)[178]PS(T)[170]RS : [130] T
  107. 1070 AG[178][171]1:WC[178]0: B$[178]"          "
  108. 1080 [129]T[178]1[164]NP:[139] PS(T)[177][178]MS[167] AG[178]0:        WC[178]WC[170]1
  109. 1090 [130]T: [139] WC[177]0 [167]1150
  110. 1100 [142]
  111. 1110 [153]"LOADOPENTIE GAME CALLS FOR A PLAYOFF ROUND!"
  112. 1120 [153]"ALL PLAYERS PARTICIPATE!"
  113. 1130 [129] T[178]1 [164] 1000: [130]T:AG[178][171]1
  114. 1140 [142]
  115. 1150 HS[178]0:[129]T[178]1[164]NP:                   [139] PS(T)[177]HS [167] HS[178]PS(T):WW[178]T:[137]1170
  116. 1160 [139] PS(T)[178]HS [167] AG[178][171]1: [137]1110
  117. 1170 [130]T
  118. 1180 [153]"DEF             "NM$(WW)" WINS!"B$
  119. 1190 [153]"             PLAY AGAIN?(Y/N)         "
  120. 1200 [161] T$: [139]T$[178]"" [167]1200
  121. 1210 [139] T$[178]"Y" [167] [138]
  122. 1220 [153]"LOAD":[137]63000
  123. 1230 [143] INSTRUCTIONS *****************
  124. 1240 [153]"LOAD"
  125. 1250 [153]" THIS IS AN ENJOYABLE WORD SEARCH GAME"
  126. 1260 [153]"FOR ONE TO FIVE PLAYERS. THE COMPUTER "
  127. 1270 [153]"GENERATES A SQUARE BOARD OF LETTERS (YOU"
  128. 1280 [153]"PICK THE SIZE!) THAT IS FULL OF WORDS."
  129. 1282 [153]"              HIT A KEY
  130. 1284 POKE198,0:WAIT198,1:POKE198,0
  131. 1290 PRINT"[147] TO PLAY, JUST FOLLOW THE SCREEN PROMPTS"
  132. 1300 PRINT"TO SET UP THE GAME. WHEN COMPETING WITH"
  133. 1310 PRINT"ANOTHER PERSON(S), EACH OF YOU WRITE   "
  134. 1320 PRINT"DOWN THE WORDS YOU FIND. TO TOTAL YOUR "
  135. 1330 PRINT"SCORE, FIRST MARK OUT THE WORDS THAT   "
  136. 1340 PRINT"EVERYONE ELSE FOUND, THEN ADD YOURS UP,"
  137. 1350 PRINT"ACCORDING TO THE INSTRUCTIONS ON THE   "
  138. 1360 PRINT"SCREEN. BE SURE TO LOOK FOR WORDS IN
  139. 1370 [153]"ANY SNAKE-LIKE DIRECTIONS YOU CAN FIND "
  140. 1380 [153]"THEM, AS LONG AS YOU DON'T USE ONE LET-"
  141. 1390 [153]"TER TWICE IN THE SAME WORD.            "
  142. 1400 [153]"           HIT A KEY GENTLY           "
  143. 1410 [161] T$: [139] T$[178]"" [167]1410
  144. 1420 [142]
  145. 1430 T$[178]"                         ":C[178]0:C$[178]"":[153]"LOAD":[151]53281,0
  146. 1440 [153][166]7)""T$:[153][166]7)"       (null)VAL(null)PEEK(null)(null)RIGHT$(null)(null)         WAIT"
  147. 1450 [153][166]7)""T$:[153]:[153][163]18)"BY"
  148. 1460 [153]:[153][166]14)"MID$OE CHR$ARRETT"
  149. 1470 [153]:[153][166]12)"LENOPYRIGHT 1985"
  150. 1480 [153]:[153]:[153]:[153]"     (null)(null)ATNSTR$(null)(null)ATN(null) IS NOT PUBLIC DOMAIN."
  151. 1490 [153]:[153]"  (null)LEASE RESPECT THE AUTHOR'S RIGHTS."
  152. 1500 [153]:[153]"      (null)RESS SPACE BAR TO CONTINUE."
  153. 1510 [129]CC[178]1[164]48:[161]K$:[139]K$[178]" "[167]1540
  154. 1520 [139]CC[178]1[167][153][202](C$,C[170]2,1)"ONON";:C[178][168](C)
  155. 1530 [130]:[137]1500
  156. 1540 [153]"LOAD"[199](142)
  157. 1550 [153]C$:[142]
  158. 63000 [143]    CONNECT BACK TO L.S.
  159. 63010 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
  160. 63020 [151]631,13:[151]632,13:[151]198,2:        [128]
  161.