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