home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 128
/
128.d81
/
jigstar
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
57 lines
8 poke56,144:clr
10 dv=peek(186):ifdv<8thendv=8
40 b=53281:pokeb,0:pokeb-1,0:t=36864:up=51456:dp=51459:f$=""
45 pokeb,0:print"[147][155]":syst+15,1,38,0,0,94,15:syst+15,1,38,21,21,94,11
50 syst+15,1,38,1,20,94,12:syst+15,3,34,3,5,94,11:syst+15,9,28,8,18,94,11
55 syst+15,4,35,2,4,160,15:syst+15,10,29,7,17,160,15
60 syst+27,3,"[202] [201] [199] [211] [212] [193] [210] !"
62 syst+27,8,"[217]our [195]hoices:"
64 syst+27,10,"[201]nstructions":syst+27,11,"[204]oad a [208]icture"
65 syst+27,12,"[193]ssemble [208]uzzle":syst+27,13,"[209]uit"
67 syst+27,15,"[195][213][210][211][207][210]/[210][197][212][213][210][206]"
70 syst+48,10,11,28,4,15,1,0
80 onf%goto100,200,300,40000
100 print"[147]":syst+51,"jiginstruct",dv
110 goto45
200 syst,"$:j.*",dv,53248,10,9,5,15,1
205 iff%then220
210 gosub600:syst+27,23,"[152][206]o pictures on this disk!"
215 gosub400:goto45
220 iff$=""then45
225 gosub600:syst+27,23,"[152][204][207][193][196]ing "+f$:gosub500
230 poke251,112:poke252,32:poke253,4:sysup:sysdp:gosub400
232 bg=peek(b)
240 sysdp:goto45
300 iff$>""then320
305 gosub600:syst+27,23,"[152][204]oad a picture first!"
310 gosub400:goto45
320 gosub600:syst+27,23,"[152][211][193][215]ing the [208]uzzle...":gosub500
330 poke51549,108:poke251,112:poke252,72:poke253,104:sysup
332 g$="b.shp":ifbg=240theng$="w.shp"
340 sys57812g$,dv,0:poke780,0:poke781,0:poke782,112:sys65493
350 poke51549,216:poke251,112:poke252,32:poke253,4:sysup
360 sysdp
362 pokeb,bg
364 sys4096:sysdp
366 pokeb,bg
368 gosub400
370 sysdp:goto45
400 geta$:ifa$=""then400
410 return
500 sys57812f$,dv,0:poke780,0:poke781,0:poke782,112:sys65493:return
600 syst+15,1,38,22,22,98,15
602 syst+15,1,38,23,23,160,12
604 syst+15,1,38,24,24,226,11
610 return
10000 dv=peek(186):open15,dv,15,"s0:jigstar":close15:save"jigstar",dv:end
40000 u=828:fori=0to21:pokeu+i,8+i:next
40010 ifdv<8ordv>29ordv=8then40030
40020 a=peek(u):b=peek(u+dv-8):pokeu,b:pokeu+dv-8,a
40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
40040 close2:open2,i,2:close2:ifstthen40060
40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
40060 next:print"[147]":poke53272,23:poke186,8:end
40070 q$=chr$(34):poke646,peek(b):print"[147]":poke53272,23
40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
40090 print"run:":poke631,13:poke632,13:poke198,2:end