home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 January / 1993-01.d64 / dots (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  18KB  |  644 lines
  1. 0 clr
  2. 100 rem copyright 1993 compute publications intl ltd - all rights reserved
  3. 110 rem
  4. 135 goto2670
  5. 140 if l$="ab" and at>0 goto465
  6. 145 if l$="bc" and bt>0 goto465
  7. 150 if l$="cd" and ct>0 goto465
  8. 155 if l$="de" and dt>0 goto465
  9. 160 if l$="af" and al>0 goto465
  10. 165 if l$="fk" and el>0 goto465
  11. 170 if l$="kp" and il>0 goto465
  12. 175 if l$="pu" and ml>0 goto465
  13. 180 if l$="ej" and dr>0 goto465
  14. 185 if l$="jo" and hr>0 goto465
  15. 190 if l$="ot" and lr>0 goto465
  16. 195 if l$="ty" and pr>0 goto465
  17. 200 if l$="uv" and mb>0 goto465
  18. 205 if l$="vw" and nb>0 goto465
  19. 210 if l$="wx" and ob>0 goto465
  20. 215 if l$="xy" and pb>0 goto465
  21. 220 if l$="fg" and ab>0 goto465
  22. 225 if l$="fg" and et>0 goto465
  23. 230 if l$="gh" and bb>0 goto465
  24. 235 if l$="gh" and ft>0 goto465
  25. 240 if l$="hi" and cb>0 goto465
  26. 245 if l$="hi" and gt>0 goto465
  27. 250 if l$="ij" and db>0 goto465
  28. 255 if l$="ij" and ht>0 goto465
  29. 260 if l$="kl" and eb>0 goto465
  30. 265 if l$="kl" and it>0 goto465
  31. 270 if l$="lm" and fb>0 goto465
  32. 275 if l$="lm" and jt>0 goto465
  33. 280 if l$="mn" and gb>0 goto465
  34. 285 if l$="mn" and kt>0 goto465
  35. 290 if l$="no" and hb>0 goto465
  36. 295 if l$="no" and lt>0 goto465
  37. 300 if l$="pq" and ib>0 goto465
  38. 305 if l$="pq" and mt>0 goto465
  39. 310 if l$="qr" and jb>0 goto465
  40. 315 if l$="qr" and nt>0 goto465
  41. 320 if l$="rs" and kb>0 goto465
  42. 325 if l$="rs" and ot>0 goto465
  43. 330 if l$="st" and lb>0 goto465
  44. 335 if l$="st" and pt>0 goto465
  45. 340 if l$="bg" and ar>0 goto465
  46. 345 if l$="bg" and bl>0 goto465
  47. 350 if l$="gl" and er>0 goto465
  48. 355 if l$="gl" and fl>0 goto465
  49. 360 if l$="lq" and ir>0 goto465
  50. 365 if l$="lq" and jl>0 goto465
  51. 370 if l$="qv" and mr>0 goto465
  52. 375 if l$="qv" and nl>0 goto465
  53. 380 if l$="ch" and br>0 goto465
  54. 385 if l$="ch" and cl>0 goto465
  55. 390 if l$="hm" and fr>0 goto465
  56. 395 if l$="hm" and gl>0 goto465
  57. 400 if l$="mr" and jr>0 goto465
  58. 405 if l$="mr" and kl>0 goto465
  59. 410 if l$="rw" and nr>0 goto465
  60. 415 if l$="rw" and ol>0 goto465
  61. 420 if l$="di" and cr>0 goto465
  62. 425 if l$="di" and dl>0 goto465
  63. 430 if l$="in" and gr>0 goto465
  64. 435 if l$="in" and hl>0 goto465
  65. 440 if l$="ns" and kr>0 goto465
  66. 445 if l$="ns" and ll>0 goto465
  67. 450 if l$="sx" and ox>0 goto465
  68. 455 if l$="sx" and pl>0 goto465
  69. 460 return
  70. 465 poke 53270,peek(53270)or16:print""
  71. 470 gosub3300
  72. 475 print"sorry, that line has already been taken"
  73. 480 poke 53270,peek(53270)or16:print""
  74. 485 print"press the space bar when you are ready."
  75. 490 poke 53270,peek(53270)and 239
  76. 495 get a$: if a$<> chr$(32) goto495
  77. 500 t=2: gosub3300: goto3270
  78. 505 if l$= "ab" goto1870
  79. 510 if l$= "bc" goto1870
  80. 515 if l$= "cd" goto1870
  81. 520 if l$= "de" goto1870
  82. 525 if l$= "fg" goto1870
  83. 530 if l$= "gh" goto1870
  84. 535 if l$= "hi" goto1870
  85. 540 if l$= "ij" goto1870
  86. 545 if l$= "kl" goto1870
  87. 550 if l$= "lm" goto1870
  88. 555 if l$= "mn" goto1870
  89. 560 if l$= "no" goto1870
  90. 565 if l$= "pq" goto1870
  91. 570 if l$= "qr" goto1870
  92. 575 if l$= "rs" goto1870
  93. 580 if l$= "st" goto1870
  94. 585 if l$= "uv" goto1870
  95. 590 if l$= "vw" goto1870
  96. 595 if l$= "wx" goto1870
  97. 600 if l$= "xy" goto1870
  98. 605 if l$= "af" goto1770
  99. 610 if l$= "fk" goto1770
  100. 615 if l$= "kp" goto1770
  101. 620 if l$= "pu" goto1770
  102. 625 if l$= "bg" goto1770
  103. 630 if l$= "gl" goto1770
  104. 635 if l$= "lq" goto1770
  105. 640 if l$= "qv" goto1770
  106. 645 if l$= "ch" goto1770
  107. 650 if l$= "hm" goto1770
  108. 655 if l$= "mr" goto1770
  109. 660 if l$= "rw" goto1770
  110. 665 if l$= "di" goto1770
  111. 670 if l$= "in" goto1770
  112. 675 if l$= "ns" goto1770
  113. 680 if l$= "sx" goto1770
  114. 685 if l$= "ej" goto1770
  115. 690 if l$= "jo" goto1770
  116. 695 if l$= "ot" goto1770
  117. 700 if l$= "ty" goto1770
  118. 705 gosub3300
  119. 710 print"be careful, that is not a correct line.":print
  120. 715 poke 52370,peek(53270)or16:print""
  121. 720 print"press the space bar when you are ready."
  122. 725 poke 52370,peek(53270)and239
  123. 730 get a$: if a$<> chr$(32)  goto730
  124. 735 gosub3300: t=2
  125. 740 goto 3265
  126. 745 if(at)+(ab)+(al)+(ar)=3 then s=1: goto2410
  127. 750 if(bt)+(bb)+(bl)+(br)=3 then s=1: goto2530
  128. 755 if(ht)+(hb)+(hl)+(hr)=3 then s=1: goto2590
  129. 760 if(kt)+(kb)+(kl)+(kr)=3 then s=1: goto2570
  130. 765 if(mt)+(mb)+(ml)+(mr)=3 then s=1: goto2370
  131. 770 if(ct)+(cb)+(cl)+(cr)=3 then s=1: goto2470
  132. 775 if(ot)+(ob)+(ol)+(ox)=3 then s=1: goto2610
  133. 780 if(jt)+(jb)+(jl)+(jr)=3 then s=1: goto2550
  134. 785 if(lt)+(lb)+(ll)+(lr)=3 then s=1: goto2510
  135. 790 if(pt)+(pb)+(pl)+(pr)=3 then s=1: goto2650
  136. 795 if(gt)+(gb)+(gl)+(gr)=3 then s=1: goto2390
  137. 800 if(et)+(eb)+(el)+(er)=3 then s=1: goto2430
  138. 805 if(nt)+(nb)+(nl)+(nr)=3 then s=1: goto 2350
  139. 810 if(dt)+(db)+(dl)+(dr)=3 then s=1: goto2490
  140. 815 if(it)+(ib)+(il)+(ir)=3 then s=1: goto2630
  141. 820 if(ft)+(fb)+(fl)+(fr)=3 then s=1: goto2450
  142. 825 gosub3300
  143. 830 return
  144. 835 if(ft+fb+fl+fr)<>1  goto880
  145. 840 if ft=1 or(bt+bb+bl+br)>1 goto850
  146. 845 l$="gh": goto1895
  147. 850 if fr=1 or(gt+gb+gl+gr)>1 goto860
  148. 855 l$="hm": goto1815
  149. 860 if fb=1 or (jt+jb+jl+jr)>1 goto870
  150. 865 l$="in": goto1835
  151. 870 if fl=1 or (et+eb+el+er)>1 goto880
  152. 875 l$="gl": goto1795
  153. 880 if(gt+gb+gl+gr)<>1  goto925
  154. 885 if gt=1 or (ct+cb+cl+cr)>1 goto895
  155. 890 l$="hi": goto1900
  156. 895 if gb=1 or (kt+kb+kl+kr)>1 goto905
  157. 900 l$="mn": goto1920
  158. 905 if gl=1 or (ft+fb+fl+fr)>1 goto915
  159. 910 l$="hm": goto1815
  160. 915 if gr=1 or (ht+hb+hl+hr)>1 goto925
  161. 920 l$="in": goto1835
  162. 925 if(jt+jb+jl+jr)<>1  goto970
  163. 930 if jt=1 or (ft+fb+fl+fr)>1 goto940
  164. 935 l$="lm": goto1915
  165. 940 if jr=1 or (kt+kb+kl+kr)>1 goto950
  166. 945 l$="mr": goto1820
  167. 950 if jb=1 or (nt+nb+nl+nr)>1 goto960
  168. 955 l$="qr": goto1935
  169. 960 if jl=1 or (it+ib+il+ir)>1 goto970
  170. 965 l$="lq": goto1800
  171. 970 if(kt+kb+kl+kr)<>1  goto1015
  172. 975 if kt=1 or (gt+gb+gl+gr)>1 goto985
  173. 980 l$="mn": goto1920
  174. 985 if kr=1 or (lt+lb+ll+lr)>1 goto995
  175. 990 l$="ns": goto1840
  176. 995 if kb=1 or (ot+ob+ol+ox)>1 goto1005
  177. 1000 l$="rs": goto1940
  178. 1005 if kl=1 or (jt+jb+jl+jr)>1 goto1015
  179. 1010 l$="mr": goto1820
  180. 1015 if(dt+db+dl+dr)<>1  goto1060
  181. 1020 if dt=1   goto1030
  182. 1025 l$="de": goto1885
  183. 1030 if dr=1  goto1040
  184. 1035 l$="ej": goto1850
  185. 1040 if db=1 or (ht+hb+hl+hr)>1 goto1050
  186. 1045 l$="ij": goto1905
  187. 1050 if dl=1 or (ct+cb+cl+cr)>1 goto1060
  188. 1055 l$="di": goto1830
  189. 1060 if(pt+pb+pl+pr)<>1  goto1105
  190. 1065 if pt=1 or(lt+lb+ll+lr)>1 goto1075
  191. 1070 l$="st": goto1945
  192. 1075 if pr=1  goto1085
  193. 1080 l$="ty": goto1865
  194. 1085 if pb=1  goto1095
  195. 1090 l$="xy": goto1965
  196. 1095 if pl=1 or (ot+ob+ol+or)>1 goto1095
  197. 1100 l$="sx": goto1845
  198. 1105 if(at+ab+al+ar)<>1  goto1150
  199. 1110 if at=1  goto1120
  200. 1115 l$="ab": goto1870
  201. 1120 if ar=1 or (bt+bb+bl+br)>1 goto1130
  202. 1125 l$="bg": goto1790
  203. 1130 if ab=1 or (et+eb+el+er)>1 goto1140
  204. 1135 l$="fg": goto1890
  205. 1140 if al=1 then  goto1150
  206. 1145 l$="af": goto 1770
  207. 1150 if(mt+mb+ml+mr)<>1  goto1195
  208. 1155 if mt=1 or (it+ib+il+ir)>1 goto1165
  209. 1160 l$="pq": goto1930
  210. 1165 if mr=1 or (nt+nb+nl+nr)>1 goto1175
  211. 1170 l$="qv": goto1805
  212. 1175 if mb=1 then  goto1185
  213. 1180 l$="uv": goto1950
  214. 1185 if ml=1  goto1195
  215. 1190 l$="pu": goto1785
  216. 1195 if(et+eb+el+er)<>1  goto1240
  217. 1200 if et=1 or (at+ab+al+ar)>1 goto1210
  218. 1205 l$="fg": goto1890
  219. 1210 if er=1 or (ft+fb+fl+fr)>1 goto1220
  220. 1215 l$="gl": goto1795
  221. 1220 if eb=1 or (it+ib+il+ir)>1 goto1230
  222. 1225 l$="kl": goto1910
  223. 1230 if el=1  goto1240
  224. 1235 l$="fk": goto1775
  225. 1240 if(ct+cb+cl+cr)<>1  goto1285
  226. 1245 if ct=1 goto1255
  227. 1250 l$="cd" : goto1880
  228. 1255 if cr=1 or (dt+db+dl+dr)>1 goto1265
  229. 1260 l$="di": goto1830
  230. 1265 if cb=1 or (gt+gb+gl+gr)>1 goto1275
  231. 1270 l$="hi": goto1900
  232. 1275 if cl=1 or (bt+bb+bl+br)>1 goto1285
  233. 1280 l$="ch": goto1810
  234. 1285 if(it+ib+il+ir)<>1  goto1330
  235. 1290 if it=1 or (et+eb+el+er)>1 goto1300
  236. 1295 l$="kl": goto1910
  237. 1300 if ir=1 or (jt+jb+jl+jr)>1 goto1310
  238. 1305 l$="lq": goto1800
  239. 1310 if ib=1 or (mt+mb+ml+mr)>1 goto1320
  240. 1315 l$="pq": goto1930
  241. 1320 if il=1  goto1330
  242. 1325 l$="kp": goto1780
  243. 1330 if(ht+hb+hl+hr)<>1  goto1375
  244. 1335 if ht=1 or (dt+db+dl+dr)>1 goto1345
  245. 1340 l$="ij": goto1905
  246. 1345 if hr=1  goto1355
  247. 1350 l$="jo": goto1855
  248. 1355 if hb=1 or (lt+lb+ll+lr)>1 goto1365
  249. 1360 l$="no": goto1925
  250. 1365 if hl=1 or (gt+gb+gl+gr)>1 goto1375
  251. 1370 l$="in": goto1835
  252. 1375 if(lt+lb+ll+lr)<>1  goto1420
  253. 1380 if lt=1 or (ht+hb+hl+hr)>1 goto1390
  254. 1385 l$="no": goto1925
  255. 1390 if lr=1  goto1400
  256. 1395 l$="ot": goto1860
  257. 1400 if lb=1 or (pt+pb+pl+pr)>1 goto1410
  258. 1405 l$="st": goto1945
  259. 1410 if ll=1 or (kt+kb+kl+kr)>1 goto1420
  260. 1415 l$="ns": goto1840
  261. 1420 if(nt+nb+nl+nr)<>1  goto1465
  262. 1425 if nt=1 or (jt+jb+jl+jr)>1 goto1435
  263. 1430 l$="qr": goto1935
  264. 1435 if nr=1 or (ot+ob+ol+ox)>1 goto1445
  265. 1440 l$="rw": goto1825
  266. 1445 if nb=1  goto1455
  267. 1450 l$="vw