home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / chief (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  5.2 KB  |  181 lines
  1. 5 poke55,0:poke56,56:clr
  2. 7 goto12
  3. 8 poke147,0:sys57812"sid player",8,1:sys62631
  4. 9 sys57812"music1",8,0:poke780,0:poke781,96:poke782,109:sys65493
  5. 10 sys57812"chief font",8,0:poke780,0:poke781,0:poke782,56:sys65493:poke53272,31
  6. 12 poke53280,11:poke53281,0
  7. 13 c$="[159][156][158][150][153][154]":dims(7)
  8. 15 s=54272:poke53272,31
  9. 20 dimm$(6):fori=1to6:readm$(i):next
  10. 21 data "[193]rrow [199]ame"
  11. 22 data "[208]eace [208]ipe [199]ame"
  12. 23 data "[212]omahawk [199]ame"
  13. 24 data "[194]ead [199]ame"
  14. 25 data "[212]oggle [205]usic"
  15. 26 data "[197]xit"
  16. 30 mu=-1:gosub6000
  17. 100 print"[147][153]         [195][200][201][197][198] [212][207][205][193][200][193][215][203]'[211] [199][193][205][197][211]"
  18. 105 print" [150][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  19. 110 poke214,8:print:printtab(11)"[150]_";
  20. 115 fori=1to6:printtab(13)"[154]"m$(i):next
  21. 120 poke214,21:print:print"[150] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  22. 125 print"     [153][213]se [195][210][211][210] keys[153]/[210][197][212][213][210][206][153] to select"
  23. 130 m=1:poke214,m+7:print:printtab(11)"[150]_ "m$(m):goto135
  24. 135 getk$:ifk$=""then135
  25. 140 ifk$=chr$(13)then200
  26. 145 ifk$<>""andk$<>"[145]"then135
  27. 150 ifk$="[145]"then170
  28. 155 poke214,m+7:print:printtab(11)"  [154]"m$(m):m=m+1
  29. 160 ifm>6thenm=1
  30. 165 poke214,m+7:print:printtab(11)"[150]_ "m$(m):goto135
  31. 170 poke214,m+7:print:printtab(11)"  [154]"m$(m):m=m-1
  32. 175 ifm<1thenm=6
  33. 180 poke214,m+7:print:printtab(11)"[150]_ "m$(m):goto135
  34. 185 :
  35. 200 ifm=6then9000:remexit
  36. 205 ifm=5thengosub6300:goto135
  37. 210 onmgosub1000,1500,2000,2500
  38. 220 poke214,21:print:print"[155] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  39. 225 print"[153] ([200][153])elp   ([205][153])usic   ([211][153])olution   ([209][153])uit"
  40. 230 tn=0:gosub7000
  41. 250 getk$:ifk$=""then250
  42. 255 ifk$="m"thengosub6300:goto250
  43. 260 ifk$="q"then100
  44. 265 ifk$="h"thengosub7500:goto250
  45. 270 ifk$="s"then3000
  46. 275 ifk$=chr$(13)then350
  47. 280 ifk$<>""andk$<>"[157]"then250
  48. 281 gosub8100
  49. 285 ifk$="[157]"then300
  50. 290 pokey,32:z=z+1:ifz>nthenz=1
  51. 295 y=q+z*2:pokey,30:pokey+54272,13:goto250
  52. 300 pokey,32:z=z-1:ifz<1thenz=n
  53. 305 y=q+z*2:pokey,30:pokey+54272,13:goto250
  54. 310 :
  55. 350 x1=x+z*2-2
  56. 355 if(peek(x1+2+s)and15)=0thengosub7100:goto250
  57. 360 if(peek(x1+s)and15)=0thengosub7100:goto250
  58. 365 co=peek(x1+s)and15:pokex2+s,co:pokex2+s+40,co:pokex2+s+80,co
  59. 370 pokex1+s,0:pokex1+s+40,0:pokex1+s+80,0
  60. 375 co=peek(x1+s+2)and15:pokex2+s+2,co:pokex2+s+2+40,co:pokex2+s+2+80,co
  61. 380 pokex1+s+2,0:pokex1+s+2+40,0:pokex1+s+2+80,0:x2=x1
  62. 385 tn=tn+1:gosub7000
  63. 390 i=0
  64. 395 if(peek(x+i+s)and15)<>14then250
  65. 400 i=i+2:ifi<n1then395
  66. 410 if(peek(x+i+s)and15)<>10then250
  67. 415 i=i+2:ifi<n1*2then410
  68. 420 fori=1to10
  69. 425 poke214,22:print:printleft$(c$,i);
  70. 430 print"               [211][207][204][214][197][196]!                "
  71. 434 gosub8000
  72. 435 fort=1to100:next:next
  73. 440 poke214,22:print:print"             [208][210][197][211][211][160][210][197][212][213][210][206][160]            "
  74. 445 getk$:ifk$<>chr$(13)then445
  75. 450 goto100
  76. 455 :
  77. 1000 print"[147][153]               [193]rrow [199]ame"
  78. 1005 print" [155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  79. 1010 poke214,6:print
  80. 1015 fori=1to3
  81. 1020 printtab(10)"[144]@ @ [150]@[154]@[150]@[154]@[150]@[154]@[150]@[154]@[144]  "
  82. 1025 printtab(10)"[144]a a [150]a[154]a[150]a[154]a[150]a[154]a[150]a[154]a[144]  "
  83. 1030 printtab(10)"[144]b b [150]b[154]b[150]b[154]b[150]b[154]b[150]b[154]b[144]  "
  84. 1032 printtab(10)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
  85. 1035 print:printtab(10)"[153]^"
  86. 1040 c(1)=128:c(2)=129:c(3)=130
  87. 1042 x=1314:q=1314+200-2:n=10:z=1:y=q+2:x2=x:n1=8
  88. 1043 s(1)=1328:s(2)=1322:s(3)=1316:s(4)=1330
  89. 1045 return
  90. 1500 print"[147][153]            [208]eace [208]ipe [199]ame"
  91. 1505 print" [155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  92. 1510 poke214,6:print
  93. 1515 fori=1to3
  94. 1520 printtab(8)"[144]c c [150]c[154]c[150]c[154]c[150]c[154]c[150]c[154]c[150]c[154]c[144]  "
  95. 1525 printtab(8)"[144]d d [150]d[154]d[150]d[154]d[150]d[154]d[150]d[154]d[150]d[154]d[144]  "
  96. 1530 printtab(8)"[144]e e [150]e[154]e[150]e[154]e[150]e[154]e[150]e[154]e[150]e[154]e[144]  "
  97. 1532 printtab(8)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
  98. 1535 print:printtab(8)"[153]^"
  99. 1540 c(1)=131:c(2)=132:c(3)=133
  100. 1542 x=1312:q=1312+200-2:n=12:z=1:y=q+2:x2=x:n1=10
  101. 1543 s(1)=1330:s(2)=1320:s(3)=1326:s(4)=1314:s(5)=1332
  102. 1545 return
  103. 2000 print"[147][153]       [195][200][201][197][198] [212][207][205][193][200][193][215][203]'[211] [199][193][205][197][211]"
  104. 2005 print" [155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  105. 2010 poke214,6:print
  106. 2015 fori=1to3
  107. 2020 printtab(6)"[144]f f [150]f[154]f[150]f[154]f[150]f[154]f[150]f[154]f[150]f[154]f[150]f[154]f[144]  "
  108. 2025 printtab(6)"[144]g g [150]g[154]g[150]g[154]g[150]g[154]g[150]g[154]g[150]g[154]g[150]g[154]g[144]  "
  109. 2030 printtab(6)"[144]h h [150]h[154]h[150]h[154]h[150]h[154]h[150]h[154]h[150]h[154]h[150]h[154]h[144]  "
  110. 2032 printtab(6)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
  111. 2035 print:printtab(6)"[153]^"
  112. 2040 c(1)=134:c(2)=135:c(3)=136
  113. 2042 x=1310:q=1310+200-2:n=14:z=1:y=q+2:x2=x:n1=12
  114. 2043 s(1)=1332:s(2)=1326:s(3)=1316:s(4)=1324:s(5)=1312:s(6)=1334
  115. 2045 return
  116. 2500 print"[147][153]               [194]ead [199]ame"
  117. 2505 print" [155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  118. 2510 poke214,6:print
  119. 2515 fori=1to3
  120. 2520 printtab(4)"[144]i i [150]i[154]i[150]i[154]i[150]i[154]i[150]i[154]i[150]i[154]i[150]i[154]i[150]i[154]i[144]  "
  121. 2525 printtab(4)"[144]j j [150]j[154]j[150]j[154]j[150]j[154]j[150]j[154]j[150]j[154]j[150]j[154]j[150]j[154]j[144]  "
  122. 2530 printtab(4)"[144]k k [150]k[154]k[150]k[154]k[150]k[154]k[150]k[154]k[150]k[154]k[150]k[154]k[150]k[154]k[144]  "
  123. 2532 printtab(4)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
  124. 2535 print:printtab(4)"[153]^"
  125. 2540 c(1)=137:c(2)=138:c(3)=139
  126. 2542 x=1308:q=1308+200-2:n=16:z=1:y=q+2:x2=x:n1=14
  127. 2543 s(1)=1334:s(2)=1320:s(3)=1326:s(4)=1316:s(5)=1328:s(6)=1310:s(7)=1336
  128. 2545 return
  129. 3000 onmgosub1000,1500,2000,2500:x2=x
  130. 3001 poke214,11:print:printtab(4)"        "
  131. 3002 poke214,21:print:print"[155] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  132. 3003 print"                [156][211]olution"
  133. 3004 fort=1to1000:next
  134. 3005 fori=1ton1/2:x1=s(i)
  135. 3010 co=peek(x1+s)and15:pokex2+s,co:pokex2+s+40,co:pokex2+s+80,co
  136. 3020 pokex1+s,0:pokex1+s+40,0:pokex1+s+80,0
  137. 3030 co=peek(x1+s+2)and15:pokex2+s+2,co:pokex2+s+2+40,co:pokex2+s+2+80,co
  138. 3040 pokex1+s+2,0:pokex1+s+2+40,0:pokex1+s+2+80,0:x2=x1
  139. 3050 fort=1to2000:next:next
  140. 3055 goto440
  141. 6000 sys49152:return
  142. 6100 sys49155:return
  143. 6300 mu=not(mu)
  144. 6305 ifmu=-1thengosub6000:return
  145. 6310 gosub6100:return
  146. 7000 poke214,19:print:printtab(3)"[156][205]oves:[159]"tn
  147. 7005 poke214,19:print:printtab(24)"[156][205]in. [205]oves:[159]"n1/2
  148. 7010 return
  149. 7100 poke214,15:print:printtab(13)"[159][201]llegal [205]ove!  "
  150. 7105 fort=1to1000:next
  151. 7110 poke214,15:print:printtab(13)"               "
  152. 7115 gosub7000:return
  153. 7500 poke214,19:print:print"[156]    [213]se [195]ursor keys/[210]eturn to select."
  154. 7505 fort=1to2000:next
  155. 7510 poke214,19:print:print"[156]                                     "
  156. 7515 gosub7000:return
  157. 8000 ifmuthenreturn
  158. 8001 poke54296,21:poke54277,9:poke54278,0
  159. 8005 poke54273,48:poke54276,32:poke54276,33
  160. 8010 return
  161. 8100 ifmuthenreturn
  162. 8101 poke54296,15:poke54277,15:poke54278,0
  163. 8105 poke54276,17:poke54272,108:poke54273,6
  164. 8110 fort=1to100:next
  165. 8115 poke54276,16:return
  166. 9000 poke214,18:print:printtab(11)"[153][193]re [217]ou [211]ure [y/n]"
  167. 9005 getk$:ifk$=""then9005
  168. 9010 ifk$="y"then9012
  169. 9011 poke214,18:print:printtab(11)"                  ":goto135
  170. 9012 poke53272,21:print"[147]":gosub6100
  171. 9015 open15,8,15,"r0:hello connect=hello connect"
  172. 9020 input#15,er%:close15
  173. 9025 ifer%<>63thenend
  174. 9030 poke646,peek(53281)
  175. 9035 print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  176. 9040 print"run"
  177. 9045 poke631,13:poke632,13:poke633,13:poke198,3:end
  178. 9050 :
  179. 9999 :
  180. 10000 open15,8,15,"s0:chief":close15:save"0:chief",8:end
  181.