home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 194 / 194.d81 / b.waltz space / b.080d / b.a7ae (.txt)
Encoding:
Commodore BASIC  |  2000-01-01  |  49.1 KB  |  207 lines
  1. 10 poke56,56:clr:poke53371,0:poke53281,0:poke53280,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 dimsh$(18),mu$(8)
  4. 38 goto80
  5. 40 sys57812"ws toolbox 9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  6. 50 sys57812"ws unpacker 8d00",dv,0:poke780,0:poke781,0:poke782,141:sys65493
  7. 60 sys57812"ws sid c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  8. 70 sys57812"ws font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  9. 80 poke53272,31
  10. 90 ml=144*256:mv=ml+162:pokemv,0:pokemv+2,133
  11. 100 un=141*256:sys49615:dl$="30":dl=30
  12. 110 pokemv+8,227:pokemv+9,228:pokemv+10,229:pokemv+11,231:pokemv+12,236
  13. 120 pokemv+13,251:pokemv+14,252:pokemv+15,254
  14. 130 fori=1to18:readsh$(i):next
  15. 140 data"centaurus"
  16. 150 data"companions
  17. 160 [131]"crystal
  18. 170 data"far out
  19. 180 [131]"galaxy m51
  20. 190 data"jupiter
  21. 200 [131]"mars
  22. 210 data"saturn
  23. 220 [131]"venus
  24. 230 data"home planet
  25. 240 [131]"moonscape
  26. 250 data"my ship
  27. 260 [131]"ngc4565
  28. 270 data"spacestation
  29. 280 [131]"spiralgalaxy
  30. 290 data"stars
  31. 300 [131]"stellar one
  32. 310 data"the ufo
  33. 320 [129]i[178]1[164]8:[135]mu$(i):[130]
  34. 330 [131]"artist'slife
  35. 340 data"vienna woods
  36. 350 [131]"winewomensng
  37. 360 data"you and you
  38. 370 [131]"acceleration
  39. 380 data"emperorwaltz
  40. 390 [131]"vienna life
  41. 400 data"lagunenwaltz
  42. 680 :
  43. 690 :[143] screen
  44. 700 :
  45. 710 [153]"load"
  46. 720 [158]ml[170]24,1,39,0,23,126,127,6,14
  47. 730 [158]ml[170]30,4,36,1,10,255,7[170]16
  48. 740 [158]ml[170]27,2,"list (NULL)left$val (NULL)(NULL)(NULL) str$(NULL)len(NULL)
  49. 748 sysml+12,6,3,"[159][178]    [178] [176][192][192][192][174] [178]    [176][192][178][192][174] [176][192][192][192][174]
  50. 750 [158]ml[170]12,6,4,"(NULL) or^ (NULL) -tantantan< (NULL)      (NULL)   #$%&'wait"
  51. 760 [158]ml[170]12,6,5,"/tanexp/tanexp >   > /tantantanexp  >   /tantantanexp
  52. 770 sysml+27,6,"[193] [195] [210] [207] [211] [211]
  53. 780 [158]ml[170]12,6,7,"ortantantan^ =tantantan^ ortantantan^ ortantantan^ =tantantan^
  54. 790 sysml+12,6,8,"[173][192][192][192][174] [171][192][192][192][189] [171][192][192][192][179] [221]     [171][192][192][179] "
  55. 800 sysml+12,6,9,"[173][192][192][192][189] [177]     [177]   [177] [173][192][192][192][189] [177][192][192][192][189]
  56. 810 [158]ml[170]27,24,"print#len(NULL)(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL)    (NULL)val(NULL)(NULL)(NULL)(NULL) - (NULL)elect"
  57. 820 [158]ml[170]30,7,32,12,22,255,7[170]16
  58. 830 [158]ml[170]60,"ws names",dv,64[172]256
  59. 840 [158]ml[170]63,64[172]256
  60. 850 [158]ml[170]69,8,31,13,21,12,1,64[172]256
  61. 860 [139]s%[177]5[167]910
  62. 870 [145]s%[137]1100,1220,1400,1560,1770
  63. 880 :
  64. 890 :[143] single play/show
  65. 900 :
  66. 910 [158]ml[170]39,232:tq[178]ti
  67. 920 [158]ml[170]24,0,39,0,24,126,127,6,14
  68. 930 [158]ml[170]45,s%
  69. 940 [158]ml[170]30,1,38,6,15,255,7[170]16
  70. 950 [153]"list";:[158]ml[170]12,8,8,w$
  71. 960 [158]ml[170]54,mu$((s%[175]7)[170]1)[170]".mus",dv,70[172]256
  72. 970 [141]3000
  73. 980 [158]un[170]6,sh$(s%[171]5)[170]".shp",dv,96,92,160
  74. 990 [139]ti[179]tq[170]200[167]990
  75. 1000 [158]un[170]3
  76. 1010 [151]781,0:[151]782,70:[158]49664:[151]49152,7
  77. 1020 [161]a$:[139]a$[178]""[175]([194](49152)[178]7)[167]1020
  78. 1030 [158]49897:[151]49152,0
  79. 1040 [158]un[170]3
  80. 1050 [158]ml[170]42,232
  81. 1060 [137]850
  82. 1070 :
  83. 1080 :[143] story
  84. 1090 :
  85. 1100 [158]ml[170]39,232
  86. 1110 [158]ml[170]24,0,39,0,23,126,127,6,14
  87. 1120 [158]ml[170]30,1,38,1,22,255,7[170]16
  88. 1130 [158]ml[170]27,24,"len(NULL)(NULL)(NULL) (NULL)val(NULL)(NULL) - (NULL)croll   (NULL)val(NULL)(NULL)(NULL)(NULL) - (NULL)enu"
  89. 1140 [158]ml[170]60,"waltz story",dv,70[172]256
  90. 1150 [158]ml[170]63,70[172]256
  91. 1160 [158]ml[170]69,2,37,2,21,12,12[170]128,70[172]256
  92. 1170 [158]ml[170]42,232
  93. 1180 [137]840
  94. 1190 :
  95. 1200 :[143] play/show
  96. 1210 :
  97. 1220 [158]ml[170]39,232
  98. 1230 [129]i[178]1[164]18
  99. 1232 [151]53281,0:tq[178]ti
  100. 1234 [158]ml[170]24,0,39,0,24,126,127,6,14
  101. 1236 [158]ml[170]30,1,38,6,15,255,7[170]16
  102. 1238 [153]"list";:[158]ml[170]27,8,sh$(i)
  103. 1240 [158]ml[170]54,mu$((i[175]7)[170]1)[170]".mus",dv,70[172]256
  104. 1242 [141]3000
  105. 1250 [158]un[170]6,sh$(i)[170]".shp",dv,96,92,160
  106. 1252 [139]ti[179]tq[170]200[167]1252
  107. 1260 [158]un[170]3
  108. 1270 [151]781,0:[151]782,70:[158]49664:[151]49152,7
  109. 1280 tq[178]ti
  110. 1290 [161]a$:[139]a$[178]"q"[167]i[178]18:[137]1320
  111. 1300 [139]a$[178]""[175]([194](49152)[178]7)[167]1290
  112. 1310 [153]"load":[158]un[170]3
  113. 1320 [151]49152,0:[158]49897
  114. 1330 [139][194](53270)[178]216[167][158]un[170]3
  115. 1340 [130]
  116. 1350 [158]ml[170]42,232
  117. 1360 [137]850
  118. 1370 :
  119. 1380 :[143] just pics
  120. 1390 :
  121. 1400 [158]ml[170]39,232
  122. 1410 [141]1880
  123. 1420 [129]i[178]1[164]18
  124. 1422 [151]53281,0:tq[178]ti
  125. 1424 [158]ml[170]24,0,39,0,24,126,127,6,14
  126. 1426 [158]ml[170]30,1,38,6,10,255,7[170]16
  127. 1428 [153]"list";:[158]ml[170]27,8,sh$(i)
  128. 1430 [158]un[170]6,sh$(i)[170]".shp",dv,96,92,160
  129. 1432 [139]ti[179]tq[170]100[167]1432
  130. 1440 [158]un[170]3
  131. 1450 tq[178]ti
  132. 1460 [161]a$:[139]a$[178]"q"[167]i[178]18:[137]1490
  133. 1470 [139]a$[178]""[175](ti[179]tq[170]dl[172]60)[167]1460
  134. 1480 [153]"load":[158]un[170]3
  135. 1490 [139][194](53270)[178]216[167][158]un[170]3
  136. 1500 [130]
  137. 1510 [158]ml[170]42,232
  138. 1520 [137]850
  139. 1530 :
  140. 1540 :[143] just music
  141. 1550 :
  142. 1560 [158]ml[170]39,232
  143. 1570 [158]ml[170]24,0,39,0,24,126,127,6,14
  144. 1580 [129]i[178]1[164]8
  145. 1590 [158]ml[170]30,1,38,7,19,255,7[170]16
  146. 1600 [158]ml[170]54,mu$(i)[170]".mus",dv,70[172]256
  147. 1610 [141]3000
  148. 1620 [158]ml[170]12,8,16,"cont(NULL) - (NULL)uit to menu
  149. 1630 sysml+12,8,18,"[193]ny other key - next song
  150. 1660 [151]781,0:[151]782,70:[158]49664:[151]49152,7
  151. 1670 tq[178]ti
  152. 1680 [161]a$:[139]a$[178]"q"[167]i[178]18:[137]1700
  153. 1690 [139]a$[178]""[175]([194](49152)[178]7)[167]1680
  154. 1700 [151]49152,0:[158]49897
  155. 1710 [130]
  156. 1720 [158]ml[170]42,232
  157. 1730 [137]850
  158. 1740 :
  159. 1750 :[143] quit
  160. 1760 :
  161. 1770 [158]ml[170]39,232
  162. 1780 [158]ml[170]24,0,39,0,24,126,127,6,14
  163. 1790 [158]ml[170]30,7,31,9,13,255,7[170]16
  164. 1800 [158]ml[170]12,9,11,"cont(NULL)uit? (NULL)ou sure? (ycont/ncont)
  165. 1810 geta$:ifa$=""then1810
  166. 1820 ifa$="y"thensys49935:goto40000
  167. 1830 sysml+42,232
  168. 1840 goto850
  169. 1850 :
  170. 1860 :rem delay subroutine
  171. 1870 :
  172. 1880 sysml+39,232
  173. 1890 sysml+24,0,39,0,24,126,127,6,14
  174. 1900 sysml+30,7,32,6,18,255,7+16
  175. 1910 sysml+12,11,8,"[155][212]he slideshow will
  176. 1920 [158]ml[170]12,9,9,"continue when you press
  177. 1930 sysml+12,9,10,"a key [207][210][160]after
  178. 1940 [158]ml[170]12,20,12,"seconds
  179. 1950 sysml+12,9,14,"have gone by.
  180. 1960 [158]ml[170]12,9,16,"(NULL)ress (NULL) to quit early.
  181. 1970 sysml+12,14,12,"   "
  182. 1980 sysml+15,15+128,12+128,15,1,3,dl$
  183. 1990 dl$=w$:dl=val(w$)
  184. 2000 print"[146]";
  185. 2010 return
  186. 2997 :
  187. 2998 :rem credits
  188. 2999 :
  189. 3000 poke214,9:print"[155]":printtab(5);
  190. 3010 s=70*256
  191. 3020 t=s+peek(s)+peek(s+1)*256+peek(s+2)+peek(s+3)*256+peek(s+4)+peek(s+5)*256+6
  192. 3030 forj=1to200:ifpeek(j+t)=0thenj=200:goto3050
  193. 3040 printchr$(peek(j+t));:ifpeek(j+t)=13thenprint"";
  194. 3050 next
  195. 3080 return
  196. 10000 d=peek(186):n$="0:waltz space.b":open1,d,15,"s"+n$:close1:saven$,d:end
  197. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  198. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  199. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  200. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  201. 40040 close2:open2,i,2:close2:ifstthen40060
  202. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  203. 40060 next:return
  204. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  205. 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
  206. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  207.