home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 101 / 101.d81 / pw (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  92 lines
  1. 10 poke52,52:poke56,52:clr:poke53281,0:poke53280,0
  2. 12 dv=peek(186):ifdv<8thendv=8
  3. 14 dimw$(220)
  4. 16 unpack=13824:hg=13827:sr=52480:sq=52486:g=49153
  5. 18 sys57812"ddpw title",dv,0:poke780,0:poke781,0:poke782,92:sys65493
  6. 20 poke53265,59:poke53272,120:poke56576,peek(56576)and254
  7. 22 sys57812"3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  8. 24 sys57812"pw font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  9. 26 sys57812"c000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  10. 30 sys13312,"pw text",dv
  11. 32 h=peek(252)*256+peek(251)
  12. 34 w$(0)=right$(w$(0),len(w$(0))-2)
  13. 36 pw$="[129][208][197][212][197][210] [193][206][196] [212][200][197] [215][207][204][198]"
  14. 60 poke53265,27:poke53272,21:poke56576,peek(56576)or1
  15. 65 syssr,96,76,56
  16. 100 s$(1)="pw1.shp":m$(1)="pw1.mus"
  17. 102 s$(2)="pw2.shp":m$(2)="pw2.mus"
  18. 104 s$(3)="pw3.shp":m$(3)="pw3.mus"
  19. 106 s$(4)="pw4.shp":m$(4)="pw4.mus"
  20. 120 goto700
  21. 200 n=0:s=1:fl=0:p=0
  22. 205 gosub330
  23. 210 ifw$(n)="*"thenn=n+1:gosub300:ifflthen700
  24. 220 ifw$(n)="+"thenn=n+1:gosub400:goto210
  25. 230 syssq,20-int((len(w$(n))/2)),24,"[158]"+w$(n)
  26. 240 p=peek(g):fort=1to300
  27. 242 geta$:ifa$="q"thent=300:next:goto700
  28. 244 ifpeek(g)>pthent=300
  29. 246 next
  30. 250 syssq,1,24,"                                       "
  31. 260 n=n+1
  32. 270 goto210
  33. 300 ifpeek(49152)=7then300
  34. 310 gosub450:s=s+1:ifs>4thenfl=1:return
  35. 320 gosub500:syshg
  36. 330 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  37. 340 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  38. 350 poke251,64:poke252,96:poke253,76:sysun
  39. 360 poke252,96:poke253,76:syshg:gosub430
  40. 370 return
  41. 400 p=peek(g)
  42. 405 geta$:ifa$="q"thenfl=1:return
  43. 410 if(peek(g)=p)and(peek(49152)>0)then405
  44. 420 return
  45. 430 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1:return
  46. 450 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0:return
  47. 500 onsgoto502,510,530,550,600
  48. 502 print"[147][154]     "pw$"[159] - [193]ct [201]"
  49. 504 print"[155]  [212]he story of a boy, a bird, a cat
  50. 506 [153]"  and a not-so-smart duck."
  51. 508 [142]
  52. 510 [153]"loadcont     "pw$"open - atnct right$right$
  53. 520 print"  [193]dd a [199]randfather and a wolf to the
  54. 522 [153]"  the story and look out!"
  55. 524 [142]
  56. 530 [153]"loadcont     "pw$"open - atnct right$right$right$
  57. 540 print"  [200]ow to catch a wolf with only a bird
  58. 542 [153]"  and a rope."
  59. 544 [142]
  60. 550 [153]"loadcont     "pw$"open - atnct right$(NULL)
  61. 560 print"  [212]he triumph of a boy and a bird...
  62. 562 [153]"  and even a duck!"
  63. 564 [142]
  64. 700 [139][194](53270)[179][177]200[167][158]hg
  65. 705 [139]mu[167][141]450
  66. 710 [153]"loadcont          "pw$
  67. 720 [153]"  1cont  (NULL)ee, hear and read the story
  68. 730 print"  2[154]  [202]ust see the four pictures
  69. 740 [153]"  3cont  (NULL)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  70. 742 print" [208]ress the [209][154] key while a picture is
  71. 744 [153]" showing to return to this menu.
  72. 750 poke198,0
  73. 760 geta$:ifa$<"1"ora$>"3"then760
  74. 770 onval(a$)goto200,800,40000
  75. 800 fori=1to4
  76. 802 print"[147][154] [208]ress any key to go to the next
  77. 804 [153]" picture.  (NULL)ress (NULL)cont while picture is
  78. 806 print" showing to return to the menu.
  79. 830 [158]57812s$(i),dv,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
  80. 840 [151]251,64:[151]252,96:[151]253,76:[158]un
  81. 850 [151]252,96:[151]253,76:[158]hg
  82. 860 [161]a$:[139]a$[178]""[167]860
  83. 865 [158]hg
  84. 870 [139]a$[178]"q"[167]i[178]4:[130]:[137]700
  85. 880 [130]:[137]800
  86. 10000 [159]15,8,15,"s0:pw":[160]15:[148]"pw",8:[128]
  87. 40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40030
  88. 40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
  89. 40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[128]
  90. 40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  91. 40040 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  92.