home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 191 / 191.d81 / b.crossblank / b.080d / b.a7ae (.txt)
Encoding:
Commodore BASIC  |  2000-01-01  |  49.4 KB  |  170 lines
  1. 10 poke56,56:clr:poke53371,0:poke788,49
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 poke53281,0:poke53280,0:x=rnd(-ti)
  4. 40 dimwd(9,15),e(73)
  5. 48 goto80
  6. 50 sys57812"cb rle ca00",dv,0:poke780,0:poke781,0:poke782,202:sys65493
  7. 60 sys57812"cb tb9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  8. 70 sys57812"cb font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  9. 80 rl=202*256:ml=144*256:mv=ml+162:c=54272
  10. 90 tl=1024+5*40+5:bu=64*256:bc=bu+256
  11. 100 poke53272,31
  12. 110 m$(1)="load specific puzzle
  13. 120 m$(2)[178]"load random puzzle
  14. 130 m$(3)="number of blanks:"
  15. 140 m$(4)="the crossblank story"
  16. 150 m$(5)="quit to basic
  17. 152 m$(6)[178]"quit to loadstar
  18. 160 nb=1
  19. 170 :
  20. 180 :rem menu screen
  21. 190 :
  22. 200 sysml+24,0,39,0,24,126,126,13,5
  23. 210 sysml+30,3,37,2,6,255,11
  24. 220 sysml+30,2,36,1,5,255,4+16
  25. 230 sysml+12,4,2,"[176][192][174][176][192][174][176][192][174][176][192][174][176][192][174] [178][192][174][178]  [176][192][174][176][174][174][178][176][189]
  26. 240 [158]ml[170]12,4,3,"(NULL)  -=exp(NULL) (NULL)/tan^/tan^ -tan<(NULL)  -tan<(NULL)(NULL)(NULL)-<
  27. 250 sysml+12,4,4,"[173][192][189][177][173][189][173][192][189][173][192][189][173][192][189] [177][192][189][173][192][189][177] [177][173][173][189][177][173][174]
  28. 260 [158]ml[170]39,232
  29. 270 [158]ml[170]30,9,32,9,18,255,11
  30. 280 [158]ml[170]30,8,31,8,17,255,4[170]16
  31. 290 [151]646,12:[158]ml[170]12,28,12,[196](nb)
  32. 300 [129]i[178]1[164]6:[158]ml[170]27,9[170]i,m$(i):[130]
  33. 302 [158]ml[170]39,240
  34. 310 [158]ml[170]33,9,30,10,15,12,1,""
  35. 320 [145]s%[137]440,360,980,1080,1150,40000
  36. 330 :
  37. 340 :[143] random
  38. 350 :
  39. 360 [158]ml[170]42,232
  40. 370 [158]ml[170]66,"$:rl*",dv,160[172]256,255
  41. 380 sl[178][181]([187](1)[172]n%)[170]1
  42. 390 [158]ml[170]63,160[172]256
  43. 400 [137]500
  44. 410 :
  45. 420 :[143] specific
  46. 430 :
  47. 440 [158]ml[170]42,232
  48. 450 [158]ml[170]30,5,34,9,23,255,11
  49. 460 [158]ml[170]30,4,33,8,22,255,4[170]16
  50. 470 [158]ml[170]66,"$:rl*",dv,160[172]256,255
  51. 480 [158]ml[170]69,5,255,9,21,12,1,160[172]256
  52. 490 sl[178]s%
  53. 500 [158]ml[170]45,sl
  54. 510 [158]ml[170]42,232
  55. 520 [158]ml[170]30,8,32,10,15,255,11
  56. 530 [158]ml[170]30,7,31,9,14,255,4[170]16
  57. 540 [158]ml[170]27,11,"screen will blank
  58. 550 sysml+27,12,"while puzzle sets up
  59. 560 [158]rl,f$,dv,64[172]256
  60. 570 [129]i[178]0[164]224
  61. 580 [139][194](bc[170]i)[178]63[167][151]bc[170]i,1
  62. 590 [130]
  63. 600 tq[178]ti
  64. 610 [139]ti[179]tq[170]100[167]610
  65. 620 :
  66. 630 :[143] draw puzzle
  67. 640 :
  68. 650 [151]53265,11
  69. 660 [158]ml[170]24,0,39,0,24,126,126,13,5
  70. 662 [158]ml[170]30,26,37,4,22,255,11
  71. 664 [158]ml[170]30,25,36,3,21,255,4[170]16
  72. 666 [158]ml[170]12,30,5,"f1"
  73. 668 [158]ml[170]12,27,6,"print#back tocmdcmdcmdcmdcmdcmdcmdthe menu"
  74. 670 [158]ml[170]12,30,9,"f7"
  75. 672 [158]ml[170]12,27,10,"print#see onecmdcmdcmdcmdcmdcmdcmdsolution"
  76. 684 [158]ml[170]30,4,22,4,22,255,11
  77. 686 [158]ml[170]30,3,21,3,21,255,4[170]16
  78. 690 [129]i[178]0[164]14:[129]j[178]0[164]14
  79. 700 [151]tl[170]40[172]i[170]j,[194](bu[170]j[170]15[172]i)[170]192
  80. 710 [151]tl[170]40[172]i[170]j[170]c,[194](bu[170]256[170]j[170]15[172]i)
  81. 720 [130]:[130]
  82. 730 b[178]0:[129]j[178]1[164]nb
  83. 740 rx[178][181]([187](1)[172]15):ry[178][181]([187](1)[172]15):pk[178]tl[170]rx[170]ry[172]40
  84. 750 [139][194](pk)[178]224[167]740
  85. 760 di[178]1:[139][187](1)[177].5[167]di[178]40
  86. 770 [129]i[178]1[164]15
  87. 780 [139][194](pk[171]di[172]i)[178]224 [176] [194](pk[171]di[172]i)[178]32[167]fl[178]pk[171]di[172]i[170]di:i[178]15
  88. 790 [130]
  89. 800 wd(j,1)[178][194](fl):e(b)[178]fl:b[178]b[170]1:[143]  pokefl,128:pokefl+c,14
  90. 810 [129]i[178]1[164]15
  91. 820 [139][194](fl[170]di[172]i)[179][177]224 [175] [194](fl[170]di[172]i)[179][177]32 [167]830
  92. 822 lw(j)[178]i:[139]lw(j)[177]9[167]i[178]15:[130]:[137]740
  93. 824 i[178]15:[137]850
  94. 830 wd(j,i[170]1)[178][194](fl[170]di[172]i):e(b)[178]fl[170]di[172]i:b[178]b[170]1
  95. 850 [130]
  96. 860 [130]
  97. 862 [129]i[178]0[164]b[171]1:[151]e(i),128:[151]e(i)[170]c,14:[130]
  98. 870 [151]53265,27
  99. 880 [151]198,0
  100. 882 x[178]0:y[178]0
  101. 888 pq[178][194](tl[170]x[170]40[172]y[170]c):[151]tl[170]x[170]40[172]y[170]c,8
  102. 890 [161]a$:[139]a$[178]""[167]890
  103. 900 [139]a$[178][199](133)[167][158]ml[170]42,232:[137]270
  104. 902 [139]a$[179][177][199](136)[167]914
  105. 904 [129]j[178]1[164]nb:[129]i[178]1[164]lw(j):[151]1530[170]40[172]j[170]i,wd(j,i)[171]128
  106. 906 [151]1530[170]40[172]j[170]i[170]c,15:[130]:[130]
  107. 908 [137]890
  108. 914 [151]tl[170]x[170]40[172]y[170]c,pq
  109. 920 [139]a$[179][177]"on"[167]930
  110. 922 y[178]y[171]1:[139]y[179]0[167]y[178]14
  111. 924 [137]888
  112. 930 [139]a$[179][177]""[167]940
  113. 932 y[178]y[170]1:[139]y[177]14[167]y[178]0
  114. 934 [137]888
  115. 940 [139]a$[179][177]""[167]950
  116. 942 x[178]x[170]1:[139]x[177]14[167]x[178]0
  117. 944 [137]888
  118. 950 [139]a$[179][177]"cmd"[167]960
  119. 952 x[178]x[171]1:[139]x[179]0[167]x[178]14
  120. 954 [137]888
  121. 960 [151]tl[170]x[170]40[172]y,[198](a$)[170]128
  122. 962 [137]888
  123. 977 :
  124. 978 :[143] number of blanks
  125. 979 :
  126. 980 nb[178]nb[170]1:[139]nb[177]8[167]nb[178]1
  127. 990 [153]"";:[158]ml[170]12,28,12,[196](nb)
  128. 1000 [151]198,0
  129. 1010 [161]a$:[139]a$[178]""[167]1010
  130. 1020 [139]a$[178][199](13)[167]980
  131. 1030 [153]"wait";
  132. 1040 [137]270
  133. 1050 :
  134. 1060 :[143] story
  135. 1070 :
  136. 1080 [158]ml[170]42,232
  137. 1082 [158]ml[170]30,3,37,9,23,255,11
  138. 1084 [158]ml[170]30,2,36,8,22,255,4[170]16
  139. 1090 [158]ml[170]12,4,10," load any 'rl*' crossword file
  140. 1092 sysml+12,4,11,"and the solution will be shown,
  141. 1094 [158]ml[170]12,4,12,"except for 1 to 8 words. cursor
  142. 1096 sysml+12,4,13,"to the blank areas and try to
  143. 1098 [158]ml[170]12,4,14,"enter a solution that works.
  144. 1100 sysml+12,4,16," you may select the puzzle or
  145. 1102 [158]ml[170]12,4,17,"have one randomly chosen. you
  146. 1104 sysml+12,4,18,"may also set the number of
  147. 1106 [158]ml[170]12,4,19,"missing words.
  148. 1108 sysml+12,14,20,"[155]press a key
  149. 1110 [151]198,0
  150. 1112 [161]a$:[139]a$[178]""[167]1112
  151. 1114 [158]ml[170]42,240
  152. 1116 [137]310
  153. 1118 [137]1118
  154. 1120 :
  155. 1130 :[143] quit to basic
  156. 1140 :
  157. 1150 [153]"loadopen":[151]53272,23:[151]56,160:[128]
  158. 1160 [137]1160
  159. 10000 d[178][194](186):n$[178]"0:crossblank.b":[159]1,d,15,"s"[170]n$:[160]1:[148]n$,d:[128]
  160. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  161. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  162. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  163. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  164. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  165. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  166. 40060 [130]:[142]
  167. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  168. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  169. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  170.