home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1991 September & October / rerun-1991-09-10.d64 / scramble (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  7KB  |  198 lines
  1. 0 rem * * * * scramble * v 05.91 * * * *      * * * * * robert b. cook * * * * *
  2. 5 poke 646,0:poke 53281,1:poke 53280,1
  3. 10 print"[147] word scramble 64
  4. 20 [153]:[153]"to play word scramble 64, up to
  5. 30 print"twelve players can enter their names,
  6. 40 [153]"then press the '+' key.
  7. 50 print:print"the letters on the screen are
  8. 60 [153]"then scrambled and everyone has
  9. 70 print"three minutes to write down as many
  10. 80 [153]"words as they can create from the
  11. 90 print"letters on the screen.
  12. 91 [153]"when time is up, compare word lists
  13. 92 print"and cancel all duplicate words.
  14. 93 [153]"the program provides the necessary
  15. 94 print"scoring information.
  16. 95 [153]:[153]"see the documentation for more specific":[153]"information.
  17. 96 print:print"press a key to continue...
  18. 97 [161]a$:[139] a$[178]"" [167] 97
  19. 100 [151]52,56:[151]55,0:[151]56,56:[156]:[153]"load"
  20. 102 [141]262 initial:[141]394 screen
  21. 104 [129]l[178]1[164]25:[158]820,sx(l),sy(l):[153]ltr$(l):[130]
  22. 106 [158]820,1,21:[153]"cont valnter names "
  23. 108 [158]820,1,23:[153]"^cont (NULL)tarts chr$ame"
  24. 110 t[178]1:[141]230
  25. 112 [158]820,1,7[170]t:il[178]7:in$[178]plr$(t):[141]246:plr$(t)[178]in$
  26. 114 t[178]t[170]1[170](t[178]12)[172]12:[139]in$[178]""[167]t[178]1
  27. 116 [139]g$[179][177]"^"[167]112
  28. 118 [129]l[178]1[164]12:np[178]np[171](pl$(l)[179][177]""):[130]
  29. 120 [158]820,0,21:[153]cb$:[153]"cont  (NULL)crambling":[153]"on"cb$""
  30. 122 [141]238:r3[178][187]([171]ti)
  31. 124 [129]l[178]0[164]99
  32. 125 r1[178][181]([187](1)[172]25[170]1):r2[178][181]([187](1)[172]25[170]1)
  33. 126 t[178]swp(r1):swp(r1)[178]swp(r2):swp(r2)[178]t
  34. 127 r3[178][181]([187](1)[172]6[170]1)
  35. 128 [158]820,sx(r1),sy(r1):[153]cl$[170]ltr$(die(swp(r1),r3))
  36. 129 r3[178][181]([187](1)[172]6[170]1)
  37. 130 [158]820,sx(r2),sy(r2):[153]cl$[170]ltr$(die(swp(r2),r3))
  38. 131 [130]
  39. 132 [151]sr,215:[151]wv,33
  40. 134 [129]l[178]1[164]15:[158]820,14,20[171]l:[153]"open ":[151]hf,l[172]8
  41. 136 [129]k[178]0[164]35:[130]:[130]:[151]wv,32:[141]238
  42. 146 [158]820,0,22:[153]cb$
  43. 148 [158]820,4,21:[153]"waitcontcosnewlogcosnewlog":[153]" orfre  ":[153]"onrndfre*rndfre*"
  44. 150 [129]l[178]1[164]2:[141]238:[141]230:[130]
  45. 152 tm[178]1:et[178]0
  46. 154 [158]820,14,5[170]et:[153]"open"clk$(tm):[141]222:ti$[178]"000000"
  47. 156 tm[178]tm[170]1[170](tm[178]8)[172]8:[139]tm[178]1[167]et[178]et[170]1:[139]et[178]14[167][129]l[178]1[164]3:[141]230:[130]
  48. 158 [139]ti[173]60[179]1.2[167]158
  49. 160 [139]et[179]15[167]154
  50. 162 [158]820,3,22:[153]"cont(NULL)ime's (NULL)p":t[178]0
  51. 164 [129]l[178]1[164]12:[141]230:t[178]1[171]t:[151]53281,t:[141]238:[130]:[129]l[178]0[164]1999:[130]
  52. 166 [158]820,0,22:[153]cb$
  53. 168 [158]820,7,6:[153]"sys(NULL)oints"
  54. 170 [158]820,1,21:[153]"contvalnter points"
  55. 172 [158]820,1,23:[153]"^cont ascor totals"
  56. 174 [153]"def3=1 4=2 5=3":[153]"            ":[153]"on6=4 7=6 8+=10"
  57. 176 [129]l[178]1[164]np:pt$(l)[178]"":[158]820,10,7[170]l:[153]"sys   ":[130]
  58. 178 t[178]1:[141]230
  59. 180 [158]820,10,7[170]t:il[178]2:in$[178]pt$(t):[141]246:pt$(t)[178]in$
  60. 182 t[178]t[170]1[170](t[178]np)[172]np:[139]plr$(t)[178]""[167]t[178]1
  61. 184 [139]g$[179][177]"^"[167]180
  62. 186 [129]l[178]1[164]np:scr(l)[178]scr(l)[170][197](pt$(l)):[130]
  63. 188 [129]l[178]1[164]np[171]1:[129]k[178]l[164]1[169][171]1
  64. 190 [139]scr(k)[178][177]scr(k[170]1)[167]198
  65. 192 t[178]scr(k):scr(k)[178]scr(k[170]1):scr(k[170]1)[178]t
  66. 194 t$[178]plr$(k):plr$(k)[178]plr$(k[170]1):plr$(k[170]1)[178]t$
  67. 196 [130]
  68. 198 [130]l
  69. 200 [158]820,7,6:[153]"sys (NULL)core"
  70. 202 [129]l[178]1[164]np:[158]820,1,7[170]l
  71. 204 [153]"sys"[200](plr$(l)[170]"      ",7),[201]("  "[170][196](scr(l)),3):[130]
  72. 206 [153]"defortantantantantantantantan^ ":[153]"(NULL)(NULL)len(NULL)atn(NULL)peek(NULL)val(NULL)":[153]"on  /tantantantantantantantanexp  "
  73. 208 [158]820,1,21:[153]"^cont (NULL)o (NULL)cramble"
  74. 210 [158]820,1,23:[153]"_cont atn new game"
  75. 212 [141]230:[141]230:[151]198,0
  76. 214 [161]g$:[139]g$[179][177]"^"[175]g$[179][177]"_"[167]214
  77. 216 [139]g$[178]"^"[167]120
  78. 217 [129]l[178]1[164]np:scr(l)[178]0:[158]820,10,7[170]l:[153]"sys   ":[130]
  79. 218 [137]106
  80. 220 [178][178][178] [164]ck [178][178][178]
  81. 222 [151]sr,10:[151]wv,129:[151]hf,254:[151]at,4
  82. 224 [129]k[178]0[164]199:[130]:[151]wv,128
  83. 226 [142]
  84. 228 [178][178][178] beep [178][178][178]
  85. 230 [151]sr,240:[151]wv,17:[151]hf,50:[151]lf,35:[151]at,0
  86. 232 [129]s[178]1[164]99:[130]:[151]wv,16:[151]sr,0
  87. 234 [142]
  88. 236 [178][178][178] boop [178][178][178]
  89. 238 [151]vl,15:[151]at,0:[151]sr,225:[151]wv,17:[151]hf,33:[151]lf,33
  90. 240 [129]s[178]1[164]99:[130]:[151]wv,16
  91. 242 [142]
  92. 244 [178][178][178] [133] routine [178][178][178]
  93. 246 cr[178][195](in$):[153]"sys"in$;
  94. 248 [153]"andcmd";
  95. 250 [161]g$:[139]g$[178]""[167]250
  96. 252 [139]g$[178][199](13)[176]g$[178]"^"[167][153]" ":[142]
  97. 254 [139]g$[178][199](20)[175]cr[177]0[167]cr[178]cr[171]1:in$[178][200](in$,[195](in$)[171]1):[153]"cmd  cmdcmd";
  98. 256 [139](g$[179]" "[176]g$[177]"]")[175](g$[179]"tan"[176]g$[177]"(NULL)")[176]g$[178][199](34)[176]cr[178]il[167]248
  99. 258 cr[178]cr[170]1:in$[178]in$[170]g$:[153]g$;:[137]248
  100. 260 [178][178][178] initialize [178][178][178]
  101. 262 [134] l,k,j,c,tm,et,il,cr,r1,r2,r3,t,t1,sa,pa,in$,g$
  102. 264 [134] sx(25),sy(25),swp(25),die(25,6)
  103. 266 [134] ltr$(26),clk$(8),plr$(12),pt$(12),scr(12)
  104. 268 up$[178]"onon":cl$[178]"   cmdcmdcmd   cmdcmdcmd    cmdcmdcmdcmdonon":cb$[178]"cont               "
  105. 270 lf[178]54272:hf[178]54273:wv[178]54276:at[178]54277:sr[178]54278:[151]54296,15
  106. 272 [151]56334,0:[151]1,51
  107. 274 [151]781,9:[151]782,0:[151]88,1:[151]89,64:[151]90,1:[151]91,224
  108. 276 [158]41964:[151]1,55:[151]56334,1:[151]53272,30
  109. 278 [129]l[178]1[164]26:[135]ltr$(l):[130]
  110. 280 [129]l[178]1[164]8:[135]clk$(l):[130]
  111. 282 [129]l[178]1[164]25:[135]sx(l):[130]
  112. 284 [129]l[178]1[164]25:[135]sy(l):[130]
  113. 286 [129]l[178]1[164]25:[129]k[178]1[164]6
  114. 288 [135]die(l,k):[130]:[130]
  115. 290 [129]l[178]0[164]32:[135]k:[151]820[170]l,k:[130]
  116. 292 [129]l[178]1[164]21:[135]sa:[129]k[178]0[164]7
  117. 294 [135]pa:[151]sa[170]k,pa:[130]:[130]
  118. 296 [129]l[178]1[164]25:swp(l)[178]l:[130]
  119. 298 [142]
  120. 300 [178][178][178] [136]ter [131] ===
  121. 302 [131] "waitcosnewlogcmdcmdcmd new cmdcmdcmd  ","wait newlogcmdcmdcmd tosqrcmdcmdcmd fre*","waitcosnewlogcmdcmdcmd cmdrndfre*"
  122. 304 [131] "wait newlogcmdcmdcmd  cmdcmdcmd fre*","wait newnewcmdcmdcmd newcmdcmd frefre","wait newnewcmdcmdcmd newcmdcmd "
  123. 306 [131] "waitcosnewlogcmdcmdcmd orfrecmdcmdcmdrndfre*","wait  cmdcmdcmd new cmdcmdcmd  ","waitnew newcmdcmd cmdcmdfre fre"
  124. 308 [131] "waitnew cmd cmdcmdcmdrndfre*","wait stepstepcmdcmdcmdwait (NULL)wait(NULL)cmdcmdcmd  ","wait cmd cmd frefre"
  125. 310 [131] "wait not cmdcmdcmd exp cmdcmdcmd  ","wait (NULL) cmdcmdcmd (NULL)wait cmdcmdcmd  ","waitcosnewlogcmdcmdcmd  cmdcmdcmdrndfre*"
  126. 312 [131] "wait newlogcmdcmdcmd fre*cmdcmdcmd ","waitcosnewlogcmdcmdcmd  cmdcmdcmdrndfresin(NULL)","wait newlogcmdcmdcmd tosqrcmdcmdcmd  "
  127. 314 [131] "waitcosnewlogcmdcmdcmdandspc(usrcmdcmdcmdrndfre*","waitnew newcmdcmd cmd ","wait  cmdcmdcmd  cmdcmdcmdrndfre*"
  128. 316 [131] "wait  cmdcmdcmd  cmdcmdcmd(NULL)waitnotstep","wait  cmdcmdcmd @ cmdcmdcmdrnd(NULL)*","(NULL)waitnotstepcmdcmdcmdwaitstep(NULL)(NULL)cmdcmdcmd  "
  129. 318 [131] "wait  cmdcmdcmd(NULL)waitnotstepcmdcmdwait ","waitnew*stepcmdcmdcmdwaitstepstepcmdcmdwait frefre"
  130. 320 [131] "tab(","usr","fre","waitnew","waitpos","waitand","waitto","wait "
  131. 322 [178][178][178] x[173]y [131] ===
  132. 324 [131] 16,21,26,31,36,16,21,26,31,36,16,21,26,31,36
  133. 326 [131] 16,21,26,31,36,16,21,26,31,36
  134. 328 [131] 1,1,1,1,1,6,6,6,6,6,11,11,11,11,11,16,16,16,16,16,21,21,21,21,21
  135. 330 [178][178][178] tiles [131] ===
  136. 332 [131] 18,9,6,15,2,24 ,7,20,14,22,5,9 ,6,5,8,9,5,25  ,10,13,2,17,1,15
  137. 334 [131] 1,9,15,1,20,3 ,16,19,14,8,5,9  ,7,12,18,23,21,9 ,19,16,20,12,21,5
  138. 336 [131] 3,12,19,18,5,1 ,23,4,19,14,15,5 ,3,4,16,13,1,5 ,14,11,4,20,21,15
  139. 338 [131] 13,19,18,8,1,15 ,7,11,25,12,21,5 ,2,20,12,25,1,9 ,25,4,22,14,5,1
  140. 340 [131] 2,6,12,16,1,9 ,3,7,11,14,5,15 ,4,8,13,18,1,5 ,2,7,14,19,5,21
  141. 342 [131] 3,10,16,20,1,15 ,4,12,19,23,5,25 ,8,14,19,20,9,21  ,12,18,1,5,7,15
  142. 344 [131] 13,20,1,5,9,25
  143. 346 [178][178][178] [153] @ [131] ===
  144. 348 [131] 32,253,174,32,158,183,134,2,224,40,176,16,32,253,174,32,158,183
  145. 350 [131] 224,25,176,6,164,2,