home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 128 / 128.d81 / b.contests (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  109 lines
  1. 10 rem test chum squares
  2. 20 dimh(105,4),s(36)
  3. 30 poke53281,0:poke53280,0:print"[147][159]"
  4. 32 print" [205][193][213][210][201][195][197]'[211] [209]&[196] [195][200][213][205] [195][200][193][204][204][197][206][199][197] [195][200][197][195][203][197][210]"
  5. 100 fori=0to104:forj=1to4:readh(i,j):next:next
  6. 120 fori=0to35:reads(i):next:c=0:c1=0
  7. 124 ke=0
  8. 125 en=0
  9. 128 print" [195]hecking:"
  10. 130 fori=0to104
  11. 132 print"[145]"i
  12. 140 forj=1to4
  13. 150 ifs(h(i,j))=1thenc=c+1
  14. 155 ifs(h(i,j))=2thenc1=c1+1
  15. 160 nextj
  16. 162 ifc<3then175
  17. 163 ifc=4then500
  18. 165 ifc=3andc1=0then175
  19. 170 gosub600
  20. 175 c=0:c1=0
  21. 180 nexti
  22. 190 en=1
  23. 192 print"[159] [193]gain:"
  24. 200 fori=0to104
  25. 202 print"[145]"i
  26. 210 forj=1to4
  27. 220 ifs(h(i,j))=0thenc=c+1
  28. 225 ifs(h(i,j))=2thenc1=c1+1
  29. 230 nextj
  30. 232 ifc<3then250
  31. 233 ifc=4then500
  32. 235 ifc=3andc1=0then250
  33. 240 gosub600
  34. 250 c=0:c1=0
  35. 260 nexti:print
  36. 300 ifke>0then124
  37. 310 fori=0to5
  38. 320 forj=0to5
  39. 330 prints(i*6+j);
  40. 340 next
  41. 350 print
  42. 360 next
  43. 370 end
  44. 500 print"[150] [211]quare";i,h(i,1);h(i,2);h(i,3);h(i,4)
  45. 510 print" [206]o way, [202]ose.":end
  46. 598 :
  47. 599 rem sub to print
  48. 600 forj=1to4
  49. 610 ifs(h(i,j))<>2then630
  50. 624 s(h(i,j))=en:ke=1
  51. 630 nextj
  52. 632 print"putting"en"in"
  53. 640 return
  54. 1000 end
  55. 1588 :rem h(104,4)
  56. 1589 :
  57. 1590 data0,1,6,7,0,2,12,14,0,3,18,21,0,4,24,28,0,5,30,35
  58. 1600 data1,2,7,8,1,3,13,15,1,4,19,22,1,5,25,29
  59. 1610 data2,3,8,9,2,4,14,16,2,5,20,23
  60. 1620 data3,4,9,10,3,5,15,17
  61. 1630 data4,5,10,11
  62. 1640 data6,7,12,13,6,8,18,20,6,9,24,27,6,10,30,34
  63. 1650 data7,8,13,14,7,9,19,21,7,10,25,28,7,11,31,35
  64. 1660 data8,9,14,15,8,10,20,22,8,11,26,29
  65. 1670 data9,10,15,16,9,11,21,23
  66. 1680 data10,11,16,17
  67. 1690 data12,13,18,19,12,14,24,26,12,15,30,33
  68. 1700 data13,14,19,20,13,15,25,27,13,16,31,34
  69. 1710 data14,15,20,21,14,16,26,28,14,17,32,35
  70. 1720 data15,16,21,22,15,17,27,29
  71. 1730 data16,17,22,23
  72. 1740 data18,19,24,25,18,20,30,32
  73. 1750 data19,20,25,26,19,21,31,33
  74. 1760 data20,21,26,27,20,22,32,34
  75. 1770 data21,22,27,28,21,23,33,35
  76. 1780 data22,23,28,29
  77. 1790 data24,25,30,31
  78. 1800 data25,26,31,32
  79. 1810 data26,27,32,33
  80. 1820 data27,28,33,34
  81. 1830 data28,29,34,35
  82. 1840 data1,6,8,13,2,7,9,14,3,8,10,15,4,9,11,16
  83. 1850 data7,12,14,19,8,13,15,20,9,14,16,21,10,15,17,22
  84. 1860 data13,18,20,25,14,19,21,26,15,20,22,27,16,21,23,28
  85. 1870 data19,24,26,31,20,25,27,32,21,26,28,33,22,27,29,34
  86. 1880 data2,12,26,16,3,13,27,17
  87. 1890 data8,18,32,22,9,19,33,23
  88. 1900 data1,9,12,20,2,10,13,21,3,11,14,22
  89. 1910 data7,15,18,26,8,16,19,27,9,17,20,28
  90. 1920 data13,21,24,32,14,22,25,33,15,23,26,34
  91. 1930 data1,10,18,27,2,11,19,28
  92. 1940 data7,16,24,33,8,17,25,34
  93. 1950 data1,11,24,34
  94. 1960 data2,6,15,19,3,7,16,20,4,8,17,21
  95. 1970 data2,17,18,33,3,12,23,32
  96. 1980 data4,6,29,31
  97. 1990 data8,12,21,25,9,13,22,26,10,14,23,27
  98. 2000 data14,18,27,31,15,19,28,32,16,20,29,33
  99. 2010 data3,6,22,25,4,7,23,26
  100. 2020 data9,12,28,31,10,13,29,32
  101. 2027 :
  102. 3000 data 1,0,2,0,1,0
  103. 3010 data 0,0,1,1,1,1
  104. 3020 data 1,0,0,1,0,2
  105. 3030 data 2,0,1,0,0,1
  106. 3040 data 1,1,1,1,0,0
  107. 3050 data 0,1,0,2,0,1
  108. 10000 dv=peek(186):open15,dv,15,"s0:b.contests":close15:save"b.contests",dv:end
  109.