home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / cruciverbalist (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  215 lines
  1. 5 poke55,0:poke56,56:clr
  2. 6 dimp$(14),w$(100):fg=0:n=0
  3. 10 poke53280,0:poke53281,0:printchr$(147)chr$(142)chr$(8)
  4. 20 print""tab(14)"[154]please wait"
  5. 21 sys57812"cross.font",8,0
  6. 22 poke780,0:poke781,0:poke782,56
  7. 25 sys65493:poke53272,21
  8. 29 printtab(13)"[145][150]loading files"
  9. 30 poke147,0:sys57812"xplayer.1",8,1:sys62631
  10. 81 printtab(12)"[145][153]and more files"
  11. 82 poke147,0:sys57812"xconstruct.r",8,1:sys62631
  12. 86 printtab(11)"[145][154] the last file "
  13. 88 poke147,0:sys57812"xdefs.r",8,1:sys62631
  14. 91 poke53272,21:print"[147][154][146]"tab(11)"the cruciverbalist"
  15. 95 print"[153]"tab(6)"loadstar's crossword program"
  16. 96 print""tab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  17. 97 printtab(7)"[221]                        [221]"
  18. 100 printtab(7)"[221] 1] constructor         [221]"
  19. 105 printtab(7)"[221] 2] definitions         [221]"
  20. 108 printtab(7)"[221] 3] player              [221]"
  21. 110 printtab(7)"[221] 4] themesmith          [221]"
  22. 115 printtab(7)"[221] 5] return to loadstar  [221]"
  23. 120 printtab(7)"[221]                        [221]"
  24. 122 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  25. 125 print"[156]        (c) 1988 barbara schulak"
  26. 130 print"             and fender tucker"
  27. 150 getk$:ifk$=""then150
  28. 160 k=val(k$):ifk<1ork>5then150
  29. 170 ifk=5then9000:rem loadstar
  30. 180 ifk=4then1000:rem themesmith
  31. 200 ifk=2thenpoke53272,31:sys24576:goto91
  32. 205 ifk=3thenpoke53272,31:sys16384:goto91
  33. 206 iffg=1thenpoke53272,31:sys20698:goto91
  34. 207 fg=fg+1:poke53272,31:sys20480
  35. 210 goto91
  36. 340 :
  37. 1000 print"[147][159]":a$=""
  38. 1005 p$(0)="    back to menu     ":pq$(0)="    printer off      "
  39. 1010 p$(1)="    list all words   "
  40. 1015 p$(2)="    four letters     "
  41. 1020 p$(3)="    five letters     "
  42. 1025 p$(4)="    six letters      "
  43. 1030 p$(5)="    seven letters    ":pq$(1)="    printer on       "
  44. 1035 p$(6)="    eight letters    "
  45. 1040 p$(7)="    nine letters     "
  46. 1045 p$(8)="    ten letters      "
  47. 1050 p$(9)="    eleven letters   "
  48. 1055 p$(10)="    twelve letters   "
  49. 1060 p$(11)="    thirteen letters "
  50. 1065 p$(12)="    fourteen letters "
  51. 1070 p$(13)="    fifteen letters  "
  52. 1075 m$(0)="    enter words    "
  53. 1080 m$(1)="     list them     "
  54. 1085 m$(2)="     save them     "
  55. 1090 m$(3)="     load them     "
  56. 1095 m$(4)="    cross words    "
  57. 1100 m$(5)="     find word     "
  58. 1105 m$(6)="back to constructor"
  59. 1110 b$="                   [145]"
  60. 1115 p$(14)=pq$(0)
  61. 1120 goto1230
  62. 1125 ln=0:k$="":poke198,0
  63. 1130 poke646,int(rnd(0)*15)+1:print"[164][157]";
  64. 1135 geta$:ifa$=""then1130
  65. 1140 ifa$=chr$(13)thenprint"[159] ":return
  66. 1145 ifa$=chr$(20)andlnthenln=ln-1:k$=left$(k$,ln):goto1175
  67. 1150 ifa$=chr$(20)andln=0then1130
  68. 1154 ifflthenifa$<"a"ora$>"z"then1130
  69. 1155 ln=ln+1:ifln>lthenln=ln-1:goto1130
  70. 1165 ifa$<" "ora$>"z"ora$=chr$(34)then1130
  71. 1170 k$=k$+a$
  72. 1175 print"[155]"a$;:goto1130
  73. 1180 poke198,0:poke214,23:print
  74. 1185 print"[158]              press space             [159][145]"
  75. 1190 geta$:ifa$<>" "then1190
  76. 1195 return
  77. 1200 poke214,23:print:print"                [158]searching[159]            [145]":return
  78. 1205 n$=str$(n):n$=right$(n$,len(n$)-1):return
  79. 1210 poke214,21:print:printtab(21-(len(er$)/2))er$
  80. 1215 print#15,"i0":fort=0to2000:next
  81. 1220 return
  82. 1225 :
  83. 1230 print"[147]"tab(11)"t h e m e s m i t h[159]"
  84. 1235 fori=0to6
  85. 1240 printtab(11)m$(i):print
  86. 1245 next:k=0
  87. 1250 poke214,k*2+4:print
  88. 1255 printtab(11)""m$(k)"[145]"
  89. 1260 geta$:ifa$<>""anda$<>"[145]"anda$<>chr$(13)then1260
  90. 1265 printtab(11)m$(k)
  91. 1270 ifa$=""thenk=k+1:ifk>6thenk=0
  92. 1275 ifa$="[145]"thenk=k-1:ifk<0thenk=6
  93. 1280 ifa$=chr$(13)thenonk+1goto1290,1335,1465,1525,1585,1685,91
  94. 1285 goto1250
  95. 1290 n=n+1:gosub1205:fl=1
  96. 1292 poke214,22:print:printtab(4)"enter nothing to return to menu"
  97. 1295 poke214,19:print:printtab(13)b$
  98. 1300 printtab(8)"word #"n$": ";
  99. 1305 l=15:gosub1125
  100. 1310 ifk$=""thenn=n-1:goto1230
  101. 1315 w$(n)=k$
  102. 1320 n=n+1:gosub1205
  103. 1325 goto1295
  104. 1330 :
  105. 1335 ifn=0then1230
  106. 1336 print"[147]"tab(10)"t h e m e l i s t e r[159]"
  107. 1340 fori=0to14
  108. 1345 printtab(10)p$(i)
  109. 1350 next:p=0
  110. 1355 poke214,p+4:print
  111. 1360 printtab(10)""p$(p)"[145]"
  112. 1365 geta$:ifa$<>""anda$<>"[145]"anda$<>chr$(13)then1365
  113. 1370 printtab(10)p$(p)
  114. 1375 ifa$=""thenp=p+1:ifp>14thenp=0
  115. 1380 ifa$="[145]"thenp=p-1:ifp<0thenp=14
  116. 1385 ifa$=chr$(13)then1395
  117. 1390 goto1355
  118. 1395 ifp<>0then1410
  119. 1400 ifpqthenprint#4:close4
  120. 1405 goto1230
  121. 1410 ifp=14thengoto2000 : rem *******
  122. 1415 print"[147]":j=0:k=0
  123. 1420 ifpqthenopen4,4:cmd4
  124. 1425 fori=1ton
  125. 1430 ifp<>1theniflen(w$(i))<>p+2then1450
  126. 1435 k=k+1:ifpq=0thenifk/39=int(k/39)thengosub1180:print"[147]"
  127. 1440 j=j+1:ifj/2=int(j/2)thenprinttab(23)w$(i):goto1450
  128. 1445 printtab(3)w$(i);
  129. 1450 next
  130. 1455 gosub1180:goto1335
  131. 1460 :
  132. 1465 ifn=0then1230
  133. 1466 poke214,19:print:printb$:fl=0
  134. 1470 printtab(10)"filename:";
  135. 1475 l=15:gosub1125
  136. 1480 ifk$=""then1230
  137. 1485 open15,8,15,"i0":open2,8,2,"@0:"+k$+",p,w"
  138. 1490 print#2,n-1
  139. 1495 fori=1ton
  140. 1500 print#2,w$(i)
  141. 1505 next:close2
  142. 1510 gosub1210
  143. 1515 close15:goto1230
  144. 1520 :
  145. 1525 poke214,19:print:printb$:fl=0
  146. 1530 printtab(10)"filename:";
  147. 1535 l=15:gosub1125
  148. 1540 ifk$=""then1230
  149. 1545 open15,8,15,"i0":open2,8,2,"@0:"+k$+",p,r"
  150. 1550 input#2,nx$:n=val(nx$)
  151. 1555 fori=1ton
  152. 1560 input#2,w$(i)
  153. 1565 next:close2:input#15,er,er$
  154. 1570 gosub1210
  155. 1575 close15:goto1230
  156. 1580 :
  157. 1585 ifn=0then1230
  158. 1586 print"[147]"tab(10)"c r o s s   w o r d s[159]":fl=0
  159. 1590 printtab(10)"the first length: ";:l=2:gosub1125:u=val(k$)
  160. 1595 printtab(10)"cross position: ";:l=2:gosub1125:x=val(k$)
  161. 1600 printtab(10)"the second length: ";:l=2:gosub1125:v=val(k$)
  162. 1605 printtab(10)"cross position: ";:l=2:gosub1125:y=val(k$)
  163. 1610 ifx>uory>vthen1585
  164. 1615 fori=1ton:iflen(w$(i))<>uthen1660
  165. 1620 forj=1ton:iflen(w$(j))<>vthen1657
  166. 1625 ifi=jthen1657
  167. 1630 ifmid$(w$(i),x,1)<>mid$(w$(j),y,1)then1657
  168. 1635 print"[147]"
  169. 1640 poke214,11:print:printtab(16)w$(i)
  170. 1645 poke214,11-y+1:print:printtab(15+x);
  171. 1650 fork=1tov:printmid$(w$(j),k,1)"[157]";:nextk
  172. 1651 poke198,0:poke214,23:print
  173. 1652 print"   [158]press m for menu - space for more  [159][145]"
  174. 1653 geta$:ifa$<>" "anda$<>"m"then1653
  175. 1654 ifa$="m"theni=n:j=n:goto1230
  176. 1655 gosub1200
  177. 1657 nextj
  178. 1660 nexti
  179. 1665 poke214,21:print:printtab(18)"[158]done":gosub1180
  180. 1670 poke214,21:print:printtab(18)"    "
  181. 1675 goto1230
  182. 1680 :
  183. 1685 ifn=0then1230
  184. 1686 print"[147]"tab(10)"  f i n d   w o r d[159]":fl=0
  185. 1690 printtab(12)"length: ";:l=2:gosub1125:u=val(k$)
  186. 1695 printtab(12)"position: ";:l=2:gosub1125:x=val(k$)
  187. 1700 printtab(12)"letter: ";
  188. 1702 poke646,int(rnd(0)*15)+1:print"[164][157]";
  189. 1710 getk$:ifk$<"a"ork$>"z"then1702
  190. 1715 printk$
  191. 1720 fori=1ton
  192. 1725 iflen(w$(i))<>uthen1750
  193. 1730 ifmid$(w$(i),x,1)<>k$then1750
  194. 1735 print"[147][159]"
  195. 1740 poke214,11:print:printtab(16)w$(i)
  196. 1743 poke198,0:poke214,23:print
  197. 1745 print"[158]   press m for menu - space for more  [159][145]"
  198. 1746 geta$:ifa$<>" "anda$<>"m"then1746
  199. 1747 ifa$="m"theni=n:goto1230
  200. 1748 gosub1200
  201. 1750 next:goto1665
  202. 2000 open15,4,15:close15
  203. 2001 ifst<>0then2050
  204. 2002 pq=pq+1:pq=pqand1:p$(14)=pq$(pq):goto 1355
  205. 2050 print"[147]":poke214,10:print:print"         printer not detected"
  206. 2051 print"             press a key  "
  207. 2055 geta$:ifa$=""then2055
  208. 2056 pq=0:p$(14)=pq$(pq):goto 1335
  209. 9000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  210. 9005 poke53272,21:print"[147]"
  211. 9010 ifer<>63thenend
  212. 9020 load"hello connect",8
  213. 9999 :
  214. 10000 open15,8,15,"s0:cruciverbalist":close15:save"0:cruciverbalist",8
  215.