home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 101 / 101.d81 / cryptoquad (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  6.1 KB  |  240 lines
  1. 1 poke56,56:clr
  2. 2 dv=peek(186):ifdv<8thendv=8
  3. 3 dimh,x,y,i,j,k,ii,yy,xx,sp$,a$,cm,s,t,fg,n,bc,bx$,cl,bd,sc,u,dz,m,w,fq,e,yp
  4. 4 diml$,xp,ga,fg,z,zz,md,mx,q9$,u9,t9,w$(200),w(13),u$(17),e$(11,4),f(4),v(4)
  5. 5 poke53280,0:poke53281,0
  6. 6 sys57812"quad font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  7. 7 sys57812"inp/cm ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
  8. 16 sys52736,"cryptdata 01",dv
  9. 18 h=peek(252)*256+peek(251)
  10. 19 goto100
  11. 20 poke214,y:print
  12. 21 printtab(x)"[161]";:forii=1toxx:print" ";:next:print"[166]"
  13. 22 forii=1toyy:printtab(x)left$(sp$,xx+1):next
  14. 23 printtab(x)"[164]"left$(sp$,xx)"[168]"
  15. 25 poke214,y+1:print:printtab(x+2);
  16. 26 return
  17. 30 poke214,22:print
  18. 32 print"[193]ny key - more    [210][197][212][213][210][206] - menu[145]":poke198,0
  19. 34 geta$:ifa$=""then34
  20. 36 fg=0:ifa$=chr$(13)thenfg=1
  21. 38 return
  22. 40 syscm,1024,16384+s*2000,1000
  23. 42 syscm,55296,17384+s*2000,1000
  24. 44 return
  25. 45 syscm,16384+s*2000,1024,1000
  26. 46 syscm,17384+s*2000,55296,1000
  27. 47 return
  28. 50 t=(t+1)and63
  29. 52 syscm,15872+t*8,14336,8
  30. 54 return
  31. 60 poke214,15:print
  32. 61 fori=0to3:poke646,12+3*(iand1):printsp$;sp$;:next
  33. 62 fori=217to242:pokei,peek(i)or128:next
  34. 63 poke646,bc:print" [198]1 - [200]elp   [198]3 - [200]int   [198]7 - [209]uit "
  35. 64 return
  36. 65 print"[144]":fori=0to13:printleft$(sp$,14):next
  37. 66 return
  38. 70 poke214,7-n:print:poke646,bc
  39. 71 printtab(7-n);
  40. 72 fori=1ton:printbx$;:next:print:print
  41. 73 ifn=2then76
  42. 74 fori=1ton-2:printtab(7-n)bx$;
  43. 75 forj=1ton-2:print"";:next:printbx$:print:next
  44. 76 printtab(7-n);:fori=1ton:printbx$;:next
  45. 77 return
  46. 80 poke646,0:fori=0to7:poke781,i+16:sys59903:next
  47. 82 poke646,bc:x=8:xx=21:y=15:yy=4:gosub20
  48. 84 return
  49. 90 q$=w$(w+yp*5+(n-2)*20)
  50. 92 poke214,3+yp:print:printtab(27-(n*2)+xp)mid$(q$,(xp/2)+1,1)
  51. 94 e$(xp/2,yp)=mid$(q$,(xp/2)+1,1)
  52. 96 return
  53. 100 print"[144][147]":poke53272,31:cm=53176:sc=1024:cl=55296:bc=9:bd=7:n=2
  54. 101 bx$="^[[157][157]]_[145]":l$="-------------"
  55. 102 fori=1to5:readm$(i):next
  56. 103 data"    [208]lay [195][210][217][208][212][207][209][213][193][196]    "
  57. 104 data"  [210]ules of [195][210][217][208][212][207][209][213][193][196]  "
  58. 105 data" [200]ow to [211]olve [195]ryptics "
  59. 106 data"  [195][210][217][208][212][207][209][213][193][196] [211]olution  "
  60. 107 data"   [210]eturn to [204][207][193][196][211][212][193][210]  "
  61. 111 sp$="                                        "
  62. 120 t=12:gosub50
  63. 130 fori=100to140:ifw$(i)="*"thenu=i-3:i=140
  64. 132 next
  65. 135 fori=0to3:r$(i)=w$(u+i):next:u=u+4
  66. 140 print"[144][147][158]";:n=2
  67. 144 fori=217to242:pokei,peek(i)or128:next:s=0:gosub40
  68. 150 poke646,bc:x=6:xx=27:y=3:yy=16:gosub20
  69. 152 print"   [169] [170] [171] [172] [173] [174] [175] [176] [177] [178]"
  70. 154 fori=1to5:printtab(9)m$(i):print:next
  71. 156 printtab(11)"+ or - changes color"
  72. 160 ifdz=0thenm=1:w=0
  73. 162 poke646,bd:poke214,6+m*2:print:printtab(9)m$(m)"[145]":poke198,0
  74. 163 geta$:ifa$<>""anda$<>"[145]"anda$<>chr$(13)anda$<>"+"anda$<>"-"then163
  75. 164 ifa$=chr$(13)thens=1:gosub40:dz=0:goto180
  76. 165 ifa$<>"+"anda$<>"-"then169
  77. 166 ifa$="+"thenbc=(bc+1)and15:ifbc=0thenbc=1
  78. 167 ifa$="-"thenbc=(bc-1)and15:ifbc<0thenbc=15
  79. 168 bd=7-2*(bc=7):dz=1:goto150
  80. 169 poke646,bc:printtab(9)m$(m)
  81. 170 ifa$="[145]"thenm=m-1:ifm<1thenm=5
  82. 172 ifa$=""thenm=m+1:ifm>5thenm=1
  83. 174 goto162
  84. 180 onmgosub190,800,400,450,900
  85. 182 iffqthenfq=0:goto140
  86. 184 goto162
  87. 190 ti$="000000"
  88. 200 print"[144][147]":poke646,bc:x=15:xx=22:y=0:yy=6:gosub20:w=107:ga=0:yp=0
  89. 201 print"[169][170] [171] [172] [173] [174] [175] [176] [177] [178]"
  90. 202 gosub60
  91. 204 gosub70
  92. 206 poke214,3:print:fori=1to4:printtab(27-n*2);
  93. 208 forj=1ton*2:print"- ";:next:print:next
  94. 209 fori=0to3:f(i)=0:v(i)=0:next:fori=0to10:forj=0to4:e$(i,j)="":next:next
  95. 210 fori=0to3
  96. 212 j=int(rnd(1))*4:iff(j)then212
  97. 214 poke214,15+2*i:print
  98. 216 poke646,12+3*(iand1):print""w$(w+i*5+2+(n-2)*20)
  99. 217 print""w$(w+i*5+3+(n-2)*20)
  100. 218 next
  101. 220 poke214,9:print"[159]"
  102. 228 e=u+n-2
  103. 230 fori=1tolen(w$(e))step2
  104. 232 u$(int(i+1)/2)=""+mid$(w$(e),i,1)+"[[157][157]]"+mid$(w$(e),i+1,1)
  105. 234 next
  106. 240 fori=0to(n-1)*4-1
  107. 242 poke214,9+3*(iand1):print
  108. 244 printtab(15+3*int(i/2))u$(i+1)
  109. 246 next
  110. 250 gosub500:yp=yp+1:ifyp>3thenyp=0
  111. 252 iffqthenreturn
  112. 260 ifga=0then250
  113. 261 ifn=5then270
  114. 262 gosub80
  115. 264 print"  [217]ou got it!  [206]ow"
  116. 266 printtab(x+2)"   on to [204]evel"n
  117. 268 fori=1to2000:next
  118. 270 n=n+1:ifn>5then300
  119. 280 goto200
  120. 300 gosub80
  121. 320 print"  [195]ongratulations!"
  122. 322 printtab(x+4)"[217]ou solved it in
  123. 324 [153][163]x[170]9)[202](ti$,3,2)":"[201](ti$,2)
  124. 330 [151]214,23:[153]:[153]"    (NULL)ress any key for the menu     "
  125. 335 [151]198,0
  126. 340 [161]a$:[139]a$[178]""[167]340
  127. 342 [151]646,0:[153]"load":n[178]2:[137]150
  128. 400 [151]646,bc:x[178]0:xx[178]37:y[178]1:yy[178]20:[141]20
  129. 410 [129]i[178]1[164]99
  130. 412 [139]w$(i)[179][177]"\"[167]418
  131. 414 [141]30:[139]fg[167]i[178]99:[130]:[141]45:[142]
  132. 415 x[178]0:xx[178]37:y[178]1:yy[178]20:[141]20
  133. 416 [153]"":i[178]i[170]1
  134. 418 [153]""w$(i)
  135. 420 [130]
  136. 422 [141]30:[139]fg[167]i[178]99:[141]45:[142]
  137. 424 [137]400
  138. 450 i[178]0:[151]646,bc
  139. 453 x[178]0:xx[178]37:y[178]1:yy[178]20:[141]20:[153]"cmdcmd";
  140. 454 [153]""w$(u[170]4[170]i[172]5)
  141. 456 [153]""w$(u[170]6[170]i[172]5)
  142. 458 [153]""w$(u[170]7[170]i[172]5)
  143. 460 [153]""w$(u[170]8[170]i[172]5)
  144. 462 [153]
  145. 464 i[178]i[170]1:[139]i[173]4[179][177][181](i[173]4)[167]454
  146. 466 [141]30:[139]fg[167][141]45:[142]
  147. 468 [139]i[179]16[167]453
  148. 470 i[178]0:[137]453
  149. 500 xp[178]0:z[178]40:zz[178]sc[170]4[172]z[170]27[171]n[172]2:[151]646,bc
  150. 510 mx[178]zz[170]yp[172]z[170]xp:md[178][194](mx)
  151. 520 [151]cl[170]mx[171]sc,1:[151]mx,160:[129]t[178]1[164]60:[130]:[151]mx,md:[129]t[178]1[164]12
  152. 524 [161]a$:[139]a$[179][177]""[167]531
  153. 530 [130]:[137]510
  154. 531 [139]a$[178][199](134)[167][141]90:[137]592
  155. 532 [139]a$[178][199](136)[167]fq[178]1:[142]
  156. 533 [139]a$[178][199](133)[167]s[178]2:[141]40:[141]800:s[178]2:[141]45:[137]510
  157. 534 [151]mx[171]sc[170]cl,bc
  158. 540 [139]a$[179][177]"on"[167]550
  159. 542 yp[178]yp[171]1:[139]yp[179]0[167]yp[178]3
  160. 544 [137]510
  161. 550 [139]a$[179][177]""[167]560
  162. 552 yp[178]yp[170]1:[139]yp[177]3[167]yp[178]0
  163. 554 [137]510
  164. 560 [139]a$[179][177]""[167]570
  165. 562 xp[178]xp[170]2:[139]xp[177]n[172]4[171]2[167]xp[178]0
  166. 564 [137]510
  167. 570 [139]a$[179][177]"cmd"[167]580
  168. 572 xp[178]xp[171]2:[139]xp[179]0[167]xp[178]n[172]4[171]2
  169. 574 [137]510
  170. 580 [139]a$[177][178]"a"[175]a$[179][178]"z"[167]a$[178][199]([198](a$)[170]128)
  171. 582 [139]a$[179]"atn"[176]a$[177]"(NULL)"[167]510
  172. 584 [139]v(yp)[167]510
  173. 590 [151]214,3[170]yp:[153]:[153][163]27[171](n[172]2)[170]xp)a$:e$(xp[173]2,yp)[178]a$
  174. 592 [129]i[178]0[164]n[172]2
  175. 594 [139]e$(i,yp)[179][177][202](w$(w[170]yp[172]5[170](n[171]2)[172]20),i[170]1,1)[167]i[178]n[172]2:[130]:[137]562
  176. 596 [130]:[137]600
  177. 598 [137]562
  178. 600 [151]214,7[171]n[171](n[171]1)[172]2[172](yp[178]2):[153]:[151]646,bc
  179. 602 [153][163]7[171]n[171](n[171]1)[172]2[172](yp[178]3));
  180. 604 [129]i[178]1[164]n[172]2[169]2:j[178]w[170]yp[172]5[170]1[170](n[171]2)[172]20
  181. 606 [139]yp[175]1[167]620
  182. 610 [153]""[202](w$(j),i,1);
  183. 612 [153]""[202](w$(j),i[170]1,1)"on";:[137]624
  184. 620 [153]""[202](w$(j),i,1);
  185. 622 [153]""[202](w$(j),i[170]1,1)"cmdcmd";
  186. 624 [130]:[153]
  187. 630 [129]i[178]1[164]n[172]2[169]2:[129]k[178]0[164](n[171]1)[172]4[171]1
  188. 632 [139][202](w$(j),i,2)[179][177][202](w$(e),k[172]2[170]1,2)[167]638
  189. 634 [151]214,9[170]3[172](k[175]1):[153]
  190. 636 [153][163]15[170]3[172][181](k[173]2))"  cmdcmd  "
  191. 638 [130]:[130]
  192. 650 v(yp)[178]1
  193. 652 [129]i[178]0[164]3:[139]v(i)[178]0[167]i[178]3:[130]:[137]660
  194. 654 [130]:ga[178]1
  195. 660 [142]
  196. 800 [153]"stopload"
  197. 802 [153]"list"[163]17)"l[a[cmdcmdcmdcmd](NULL)]str$cmdcmdcmdcmds[a[cmdcmdcmdcmd](NULL)](NULL)"
  198. 804 [151]646,bc:x[178]0:xx[178]37:y[178]5:yy[178]16:[141]20
  199. 810 [153]"   (NULL)ules of step + - * / ^ and or > ="
  200. 812 [153]"ascour words of equal length have been
  201. 814 print"broken into two-letter tiles.  [198]or
  202. 816 [153]"instance, the words above are
  203. 818 print"(1) [204][207][193][196], (2) [204][207][211][212], (3) [211][212][193][210] and uh,
  204. 820 [153]"(4) atnstr$atn(NULL).  (NULL)he tiles are shuffled
  205. 822 print"and you are to place them in an
  206. 824 [153]"empty grid by entering the words.
  207. 826 print"[212]here are five levels, each with
  208. 828 [153]"four words.  (NULL)evel 2 has six-letter
  209. 830 print"words; [204]evel 3 has eight; [204]evel 4
  210. 832 [153]"has ten.  peekelow the grid are cryptic
  211. 834 print"clues for each word -- in order."
  212. 840 printtab(14)"[208]ress a key"
  213. 880 poke198,0
  214. 885 geta$:ifa$=""then885
  215. 886 ifs=1thengosub45
  216. 890 return
  217. 900 poke646,bc:x=4:xx=31:y=17:yy=3:gosub20
  218. 902 print" [209][213][201][212]?  [193]re you sure?  (y/n)"
  219. 904 geta$:ifa$=""then904
  220. 906 ifa$<>"y"thengosub45:return
  221. 908 print"[147]":poke53272,21
  222. 910 goto40000
  223. 10000 open15,8,15,"s0:cryptoquad":close15:save"cryptoquad",8:end
  224. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40030
  225. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  226. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:end
  227. 40030 poke646,peek(53281):print"load"chr$(34)a$chr$(34)","i
  228. 40040 print"run":poke631,13:poke632,13:poke198,2:end
  229. 50000 q9$="":u9=53280:poke198,0
  230. 50010 geta$
  231. 50020 poke646,rnd(1)*15+1:print"[164][157]";:ifa$=""then50010
  232. 50030 ifa$=chr$(13)thenprint" ":return
  233. 50040 if(a$=chr$(20)andlen(q9$))thenq9$=left$(q9$,len(q9$)-1):goto50090
  234. 50050 iflen(q9$)>=10thent9=peek(u9):pokeu9,1:pokeu9,t9:goto50010
  235. 50060 ifa$>="a"anda$<="z"thena$=chr$(asc(a$)+128)
  236. 50064 ifa$<"[193]"ora$>"[218]"then50010
  237. 50070 q9$=q9$+a$
  238. 50080 print""a$;:goto50010
  239. 50090 print" [157][157] [157]";:goto50010
  240.