home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / verbosity (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  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.