home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 120 / 120.d81 / dott (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  162 lines
  1. 10 poke52,52:poke56,52:clr:poke53281,0:poke53280,0
  2. 12 dv=peek(186):ifdv<8thendv=8
  3. 14 dimw$(220),b(15),s$(8),m$(8)
  4. 16 unpack=13824:hg=13827:sr=52480:sq=52486:g=49153
  5. 18 sys57812"dott0.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  6. 20 sys57812"dott3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  7. 22 poke251,64:poke252,96:poke253,76:sysun:syshg
  8. 24 sys57812"dott font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  9. 26 sys57812"dottc000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  10. 30 sys13312,"dott text",dv
  11. 32 h=peek(252)*256+peek(251)
  12. 34 w$(0)=right$(w$(0),len(w$(0))-2)
  13. 36 fs$="[129][196][193][206][195][197] [207][198] [212][200][197] [212][207][215][197][210][211]"
  14. 37 sp$="                                        "
  15. 38 q=1:fori=0toh:ifw$(i)="*"thenb(q)=i:q=q+1
  16. 40 next:b(0)=0
  17. 50 poke53281,0:print"[147]"
  18. 60 syshg
  19. 65 syssr,96,76,56
  20. 70 tp$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  21. 72 bt$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  22. 80 v(1)=330:v(2)=310:v(3)=160:v(4)=200:v(5)=140:v(6)=110
  23. 100 fori=0to7:s$(i)="dott"+chr$(i+48)+".shp"
  24. 102 m$(i)="dott"+chr$(i+48)+".mus":next
  25. 120 goto700
  26. 130 poke214,y:print
  27. 132 printtab(x)"[176]"left$(tp$,xx)"[174]"
  28. 134 forii=1toyy:printtab(x)"[170]"left$(sp$,xx)"[180]":next
  29. 136 printtab(x)"[173]"left$(bt$,xx)"[189]"
  30. 138 return
  31. 200 n=1:s=1:fl=0:p=0:mk=0:gosub500
  32. 205 gosub350
  33. 210 gosub300:ifflthen550
  34. 230 syssq-3,"[144]"
  35. 231 syssq,0,23,sp$
  36. 233 syssq,0,24,sp$
  37. 236 iflen(w$(n))>1thensyssq,20-int((len(w$(n))/2)),23,w$(n)
  38. 238 iflen(w$(n+1))>1thensyssq,20-int((len(w$(n+1))/2)),24,w$(n+1)
  39. 240 v=0
  40. 242 geta$
  41. 243 ifa$="q"then700
  42. 244 ifa$<>"n"then247
  43. 245 gosub310:ifflthen550
  44. 246 n=b(s)+1:goto210
  45. 247 ifa$=" "then260
  46. 248 v=v+1:ifv>v(s)then260
  47. 249 goto242
  48. 260 n=n+2
  49. 265 ifn>=b(s+1)thenn=b(s)+1
  50. 270 goto210
  51. 300 ifpeek(49152)=7thenreturn
  52. 310 gosub450:s=s+1:ifs>6thenfl=1:return
  53. 320 syshg:gosub600:n=b(s)+1
  54. 330 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  55. 340 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  56. 342 ifmkthenreturn
  57. 350 poke251,64:poke252,96:poke253,76:sysun
  58. 360 poke252,96:poke253,76:syshg:ifmk=0thengosub430
  59. 370 return
  60. 430 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1:return
  61. 450 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0:return
  62. 500 poke53281,0:print"[147]":poke53272,31:poke53265,11
  63. 502 x=1:y=1:xx=36:yy=20:gosub130
  64. 510 print"[158][196] [193] [206] [195] [197]  [207] [198]  [212] [200] [197]  [212] [207] [215] [197] [210] [211]"
  65. 520 print"[153][201]n a small [201]talian city there
  66. 522 [153]"once lived a magician/composer
  67. 524 print"named [208]rovolone and his grandson,
  68. 526 [153]"(NULL)neesimo lenalhooni.  (NULL)he composer
  69. 528 print"had just finished his masterpiece,
  70. 530 [153]"'(NULL)he str$ance of the (NULL)owers', a
  71. 531 print"ballet about the two towers that
  72. 532 [153]"stood on opposite sides of the
  73. 533 print"river that ran through the city.
  74. 534 [153]"(NULL)any times the people had tried
  75. 536 print"to build a bridge between the
  76. 538 [153]"towers but had always failed,
  77. 540 print"until one day young [203]neesimo was
  78. 542 [153]"puttering around the house and
  79. 543 print"found a wand..."
  80. 544 poke53265,27:mk=1:gosub330:mk=0
  81. 545 zz=0
  82. 548 zz=zz+1:geta$:ifa$=""andzz<1200then548
  83. 549 return
  84. 550 poke53281,0:ifpeek(53270)<>200thensyshg
  85. 551 ifmuthengosub450
  86. 552 print"[147]":poke53265,11:x=1:y=1:xx=36:yy=20:gosub130
  87. 553 print"[158][196] [193] [206] [195] [197]  [207] [198]  [212] [200] [197]  [212] [207] [215] [197] [210] [211]"
  88. 554 print"[153][193]nd so the city was left with
  89. 556 [153]"two leaning towers, dashed dreams,
  90. 558 print"and a mess to clean up.  [208]rovolone
  91. 560 [153]"and his grandson left town and
  92. 562 print"were never heard from again.
  93. 564 [153]"(NULL)any years later, a rich man
  94. 566 print"named [198]enderico [212]uckerelli bought
  95. 568 [153]"one of the towers and shipped it
  96. 570 print"to the [213]nited [211]tates where it was
  97. 572 [153]"rebuilt, brick by brick, in the
  98. 573 print"city of [211]hreveport, [204]ouisiana.
  99. 574 [153]"(NULL)ow people come from all over
  100. 576 print"the globe to [208]isa to see the
  101. 578 [153]"remaining tower.
  102. 584 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  103. 586 poke53265,27
  104. 588 zz=0
  105. 590 zz=zz+1:geta$:ifa$=""andzz<1200then590
  106. 592 gosub350
  107. 596 geta$:ifa$=""andpeek(49152)=7then596
  108. 598 goto700
  109. 600 print"[147]":poke53281,0
  110. 602 x=3:y=4:xx=33:yy=9:gosub130
  111. 610 print""tab(8)"[153][215]hile picture is showing:
  112. 620 [153][163]11)"(NULL)(NULL)atnlenval cont- (NULL)ext line
  113. 630 printtab(11)"[206] [154]- [206]ext [208]art
  114. 640 [153][163]11)"(NULL) cont- (NULL)uit to (NULL)ain (NULL)enu
  115. 650 return
  116. 700 poke53265,11:poke53281,0:ifpeek(53270)<>200thensyshg
  117. 705 print"[147]":poke53272,31:ifmuthengosub450
  118. 706 x=3:y=4:xx=33:yy=11:gosub130
  119. 710 print"[158]"tab(11)fs$
  120. 720 printtab(5)"1[154]  [211]ee, hear and read the story
  121. 730 [153][163]5)"2cont  mid$ust see the eight pictures
  122. 732 printtab(5)"3[154]  [202]ust hear the music
  123. 740 [153][163]5)"4cont  (NULL)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  124. 742 poke53265,27
  125. 750 poke198,0
  126. 760 geta$:ifa$<"1"ora$>"4"then760
  127. 770 onval(a$)goto200,800,900,40000
  128. 800 fori=0to7
  129. 801 print"[147]"
  130. 802 x=3:y=4:xx=33:yy=7:gosub130
  131. 804 print"[154]"tab(5)"[153][215]hile the picture is showing...
  132. 806 [153][163]5)"(NULL)(NULL)atnlenval cont- chr$o to the next picture
  133. 808 printtab(5)"[209] [154]- [210]eturn to the [205]enu
  134. 830 [158]57812s$(i),dv,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
  135. 840 [151]251,64:[151]252,96:[151]253,76:[158]un
  136. 850 [151]252,96:[151]253,76:[158]hg
  137. 860 [161]a$:[139]a$[178]""[167]860
  138. 865 [158]hg:[151]53281,0
  139. 870 [139]a$[178]"q"[167]i[178]7:[130]:[137]700
  140. 880 [130]:[137]700
  141. 900 [153]"load"
  142. 902 x[178]3:y[178]4:xx[178]33:yy[178]5:[141]130
  143. 912 [153]""[163]8)"(NULL)(NULL)atnlenval cont- (NULL)ause/(NULL)esume (NULL)usic
  144. 914 printtab(8)"[209] [154]- [210]eturn to [205]ain [205]enu
  145. 916 [158]57812m$(0),dv,0:[151]780,0:[151]781,0:[151]782,128:[158]65493
  146. 918 [141]430
  147. 920 [161]a$:[139]a$[178]""[175][194](49152)[178]7[167]920
  148. 930 [139]a$[179][177]" "[167]940
  149. 932 p[178]1[171]p
  150. 934 [139]p[178]0[167][158]49615:[151]49152,7:mu[178]1:[137]920
  151. 936 [141]450
  152. 938 [161]a$:[139]a$[178]""[167]938
  153. 939 [139]a$[178]" "[167]p[178]0:[137]934
  154. 940 [139]a$[178]"q"[176][194](49152)[178]0[167][141]450:[137]700
  155. 950 [137]920
  156. 10000 [159]15,8,15,"s0:dott":[160]15:[148]"dott",8:[128]
  157. 40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40020
  158. 40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
  159. 40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[128]
  160. 40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  161. 40040 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  162.