Loadstar 65/065.d81/chief

Commodore BASIC | 2022-08-26 | 5KB | 181 lines

5 poke55,0:poke56,56:clr
7 goto12
8 poke147,0:sys57812"sid player",8,1:sys62631
9 sys57812"music1",8,0:poke780,0:poke781,96:poke782,109:sys65493
10 sys57812"chief font",8,0:poke780,0:poke781,0:poke782,56:sys65493:poke53272,31
12 poke53280,11:poke53281,0
13 c$="[159][156][158][150][153][154]":dims(7)
15 s=54272:poke53272,31
20 dimm$(6):fori=1to6:readm$(i):next
21 data "[193]rrow [199]ame"
22 data "[208]eace [208]ipe [199]ame"
23 data "[212]omahawk [199]ame"
24 data "[194]ead [199]ame"
25 data "[212]oggle [205]usic"
26 data "[197]xit"
30 mu=-1:gosub6000
100 print"[147][153]         [195][200][201][197][198] [212][207][205][193][200][193][215][203]'[211] [199][193][205][197][211]"
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]"
110 poke214,8:print:printtab(11)"[150]_";
115 fori=1to6:printtab(13)"[154]"m$(i):next
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]"
125 print"     [153][213]se [195][210][211][210] keys[153]/[210][197][212][213][210][206][153] to select"
130 m=1:poke214,m+7:print:printtab(11)"[150]_ "m$(m):goto135
135 getk$:ifk$=""then135
140 ifk$=chr$(13)then200
145 ifk$<>""andk$<>"[145]"then135
150 ifk$="[145]"then170
155 poke214,m+7:print:printtab(11)"  [154]"m$(m):m=m+1
160 ifm>6thenm=1
165 poke214,m+7:print:printtab(11)"[150]_ "m$(m):goto135
170 poke214,m+7:print:printtab(11)"  [154]"m$(m):m=m-1
175 ifm<1thenm=6
180 poke214,m+7:print:printtab(11)"[150]_ "m$(m):goto135
185 :
200 ifm=6then9000:remexit
205 ifm=5thengosub6300:goto135
210 onmgosub1000,1500,2000,2500
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]"
225 print"[153] ([200][153])elp   ([205][153])usic   ([211][153])olution   ([209][153])uit"
230 tn=0:gosub7000
250 getk$:ifk$=""then250
255 ifk$="m"thengosub6300:goto250
260 ifk$="q"then100
265 ifk$="h"thengosub7500:goto250
270 ifk$="s"then3000
275 ifk$=chr$(13)then350
280 ifk$<>""andk$<>"[157]"then250
281 gosub8100
285 ifk$="[157]"then300
290 pokey,32:z=z+1:ifz>nthenz=1
295 y=q+z*2:pokey,30:pokey+54272,13:goto250
300 pokey,32:z=z-1:ifz<1thenz=n
305 y=q+z*2:pokey,30:pokey+54272,13:goto250
310 :
350 x1=x+z*2-2
355 if(peek(x1+2+s)and15)=0thengosub7100:goto250
360 if(peek(x1+s)and15)=0thengosub7100:goto250
365 co=peek(x1+s)and15:pokex2+s,co:pokex2+s+40,co:pokex2+s+80,co
370 pokex1+s,0:pokex1+s+40,0:pokex1+s+80,0
375 co=peek(x1+s+2)and15:pokex2+s+2,co:pokex2+s+2+40,co:pokex2+s+2+80,co
380 pokex1+s+2,0:pokex1+s+2+40,0:pokex1+s+2+80,0:x2=x1
385 tn=tn+1:gosub7000
390 i=0
395 if(peek(x+i+s)and15)<>14then250
400 i=i+2:ifi<n1then395
410 if(peek(x+i+s)and15)<>10then250
415 i=i+2:ifi<n1*2then410
420 fori=1to10
425 poke214,22:print:printleft$(c$,i);
430 print"               [211][207][204][214][197][196]!                "
434 gosub8000
435 fort=1to100:next:next
440 poke214,22:print:print"             [208][210][197][211][211][160][210][197][212][213][210][206][160]            "
445 getk$:ifk$<>chr$(13)then445
450 goto100
455 :
1000 print"[147][153]               [193]rrow [199]ame"
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]"
1010 poke214,6:print
1015 fori=1to3
1020 printtab(10)"[144]@ @ [150]@[154]@[150]@[154]@[150]@[154]@[150]@[154]@[144]  "
1025 printtab(10)"[144]a a [150]a[154]a[150]a[154]a[150]a[154]a[150]a[154]a[144]  "
1030 printtab(10)"[144]b b [150]b[154]b[150]b[154]b[150]b[154]b[150]b[154]b[144]  "
1032 printtab(10)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
1035 print:printtab(10)"[153]^"
1040 c(1)=128:c(2)=129:c(3)=130
1042 x=1314:q=1314+200-2:n=10:z=1:y=q+2:x2=x:n1=8
1043 s(1)=1328:s(2)=1322:s(3)=1316:s(4)=1330
1045 return
1500 print"[147][153]            [208]eace [208]ipe [199]ame"
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]"
1510 poke214,6:print
1515 fori=1to3
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]  "
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]  "
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]  "
1532 printtab(8)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
1535 print:printtab(8)"[153]^"
1540 c(1)=131:c(2)=132:c(3)=133
1542 x=1312:q=1312+200-2:n=12:z=1:y=q+2:x2=x:n1=10
1543 s(1)=1330:s(2)=1320:s(3)=1326:s(4)=1314:s(5)=1332
1545 return
2000 print"[147][153]       [195][200][201][197][198] [212][207][205][193][200][193][215][203]'[211] [199][193][205][197][211]"
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]"
2010 poke214,6:print
2015 fori=1to3
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]  "
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]  "
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]  "
2032 printtab(6)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
2035 print:printtab(6)"[153]^"
2040 c(1)=134:c(2)=135:c(3)=136
2042 x=1310:q=1310+200-2:n=14:z=1:y=q+2:x2=x:n1=12
2043 s(1)=1332:s(2)=1326:s(3)=1316:s(4)=1324:s(5)=1312:s(6)=1334
2045 return
2500 print"[147][153]               [194]ead [199]ame"
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]"
2510 poke214,6:print
2515 fori=1to3
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]  "
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]  "
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]  "
2532 printtab(4)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
2535 print:printtab(4)"[153]^"
2540 c(1)=137:c(2)=138:c(3)=139
2542 x=1308:q=1308+200-2:n=16:z=1:y=q+2:x2=x:n1=14
2543 s(1)=1334:s(2)=1320:s(3)=1326:s(4)=1316:s(5)=1328:s(6)=1310:s(7)=1336
2545 return
3000 onmgosub1000,1500,2000,2500:x2=x
3001 poke214,11:print:printtab(4)"        "
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]"
3003 print"                [156][211]olution"
3004 fort=1to1000:next
3005 fori=1ton1/2:x1=s(i)
3010 co=peek(x1+s)and15:pokex2+s,co:pokex2+s+40,co:pokex2+s+80,co
3020 pokex1+s,0:pokex1+s+40,0:pokex1+s+80,0
3030 co=peek(x1+s+2)and15:pokex2+s+2,co:pokex2+s+2+40,co:pokex2+s+2+80,co
3040 pokex1+s+2,0:pokex1+s+2+40,0:pokex1+s+2+80,0:x2=x1
3050 fort=1to2000:next:next
3055 goto440
6000 sys49152:return
6100 sys49155:return
6300 mu=not(mu)
6305 ifmu=-1thengosub6000:return
6310 gosub6100:return
7000 poke214,19:print:printtab(3)"[156][205]oves:[159]"tn
7005 poke214,19:print:printtab(24)"[156][205]in. [205]oves:[159]"n1/2
7010 return
7100 poke214,15:print:printtab(13)"[159][201]llegal [205]ov