home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 135 / 135.d81 / b.classics (.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$(160),m$(21),n$(21)
  4. 16 g=49153
  5. 18 print"[147]":gosub60000
  6. 20 sys57812"class3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  7. 24 sys57812"classics font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  8. 26 sys57812"classc000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  9. 30 sys13312,"classics form",dv
  10. 32 h=peek(252)*256+peek(251)
  11. 35 poke53272,31
  12. 37 sp$="                                        "
  13. 38 tb$="     "
  14. 50 poke53281,0:print"[147]"
  15. 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]"
  16. 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]"
  17. 80 fori=1to20:readm$(i),n$(i):next
  18. 81 data"[208]achelbel - [195]anon in [196]"
  19. 82 data"pachelbelcan.mus"
  20. 83 data"[208]onchielli - [196]ance of the [200]ours"
  21. 84 data"danceofhours.mus"
  22. 85 data"[199]ershwin - [210]hapsody in [194]lue"
  23. 86 data"rhapsodyblue.mus"
  24. 87 data"[205]ozart - [211]ymphony [206]o. 25"
  25. 88 data"symphny25moz.mus"
  26. 89 data"[211]chubert - [193]ve [205]aria"
  27. 90 data"ave maria.mus"
  28. 91 data"[212]schaikovsky - [210]omeo and [202]uliet"
  29. 92 data"romeo juliet.mus"
  30. 93 data"[199]rieg - [208]iano [195]oncerto [193] [205]inor"
  31. 94 data"griegconcert.mus"
  32. 95 data"[205]ozart - [208]iano [195]oncerto [193] [205]inor"
  33. 96 data"romancmozart.mus"
  34. 97 data"[193]ddinsell - [215]arsaw [195]oncerto"
  35. 98 data"warsaw.mus"
  36. 99 data"[211]trauss - [193]lso [211]prach [218]arathustra"
  37. 100 data"zarathustra.mus"
  38. 101 data"[195]hopin - [208]relude in [193] [205]ajor"
  39. 102 data"prel28-7chop.mus"
  40. 103 data"[200]andel - [211]arabande"
  41. 104 data"sarabandhand.mus"
  42. 105 data"[193] [199]eorge [199]erswin piece"
  43. 106 data"gershwin.mus"
  44. 107 data"[212]schaikovsky - [211]wan [204]ake"
  45. 108 data"swan lake.mus"
  46. 109 data"[194]ach - [212]occata & [198]ugue [196] [205]inor"
  47. 110 data"tocc&fugbach.mus"
  48. 111 data"[205]ozart - [197]ine [203]leine [206]achtmusik"
  49. 112 data"eine kleine.mus"
  50. 113 data"[205]ascagni - [201]ntermezzo"
  51. 114 data"intermezzo.mus"
  52. 115 data"[196]ukas - [211]orceror's [193]pprentice"
  53. 116 data"sorceror's.mus"
  54. 117 data"[210]achmaninoff - [210]hapsody"
  55. 118 data"paganinirach.mus"
  56. 119 data"[205]ozart - [208]iano [195]oncerto [206]o. 21"
  57. 120 data"pc21-mozart.mus"
  58. 125 goto200
  59. 127 :
  60. 128 :rem box routine
  61. 129 :
  62. 130 poke214,y:print
  63. 132 printtab(x)"[145][176]"left$(tp$,xx)"[174]"
  64. 134 forii=1toyy:printtab(x)"[170][129]"left$(sp$,xx)"[149][146][180]":next
  65. 136 printtab(x)"[173]"left$(bt$,xx)"[189]"
  66. 137 fori=217to242:pokei,peek(i)or128:next
  67. 138 return
  68. 147 :
  69. 148 :rem music on
  70. 149 :
  71. 150 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:return
  72. 157 :
  73. 158 :rem music off
  74. 159 :
  75. 160 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:return
  76. 200 print"[147][149]";
  77. 202 x=0:y=0:xx=37:yy=23:gosub130
  78. 204 print"[155]      [196] [193] [214] [197]   [205] [193] [210] [209] [213] [201] [211]'       "
  79. 206 print"[158]   [195][204][193][211][211][201][195][211] [193][212] [212][200][197] [205][207][214][201][197][211] [195][207][206][212][197][211][212]    "
  80. 212 fori=1to20:print"[158] "chr$(192+i)" [129] "m$(i):next
  81. 214 poke214,22:print:print" [193][129]-[212][129] [208]lay  [198]1[129] [193]ll  [198]3[129] [208]rint  [198]7[129] [209]uit "
  82. 220 poke198,0
  83. 222 geta$:ifa$=""then222
  84. 228 ifa$=chr$(133)then500
  85. 230 ifa$=chr$(134)then300
  86. 240 ifa$=chr$(136)then39000
  87. 250 ifa$<"a"ora$>"t"then222
  88. 252 n=asc(a$)-64
  89. 254 poke214,1+n:print:printtab(4)"[158] "m$(n)left$(sp$,33-len(m$(n)))
  90. 260 sys57812n$(n),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  91. 270 gosub150
  92. 280 poke214,22:print:print"[129]  [208][210][197][211][211] [193][206][217] [203][197][217][129] [212][207] [211][212][207][208] [212][200][197] [205][213][211][201][195]   "
  93. 290 geta$:ifa$=""andpeek(49152)=7then290
  94. 292 gosub160
  95. 294 poke214,1+n:print:printtab(4)"[129] "m$(n)left$(sp$,33-len(m$(n)))
  96. 296 goto214
  97. 300 poke214,22:print:print"  1[129] [207][206][197] [211][200][197][197][212]   2[129] [212][215][207] [211][200][197][197][212][211]   [197][129][211][195]  "
  98. 310 geta$:ifa$=""then310
  99. 312 ifa$="e"ora$="_"then214
  100. 320 ifa$="1"then400
  101. 322 ifa$<>"2"then310
  102. 330 open4,4,7
  103. 340 fori=0to29:print#4,tb$w$(i):next
  104. 342 fori=30to59:print#4,tb$w$(i)left$(sp$,36-len(w$(i)))w$(i+30):next
  105. 344 fori=0to7:print#4:next
  106. 346 fori=90to119:print#4,tb$w$(i)left$(sp$,36-len(w$(i)))w$(i+30):next
  107. 350 close4
  108. 360 goto214
  109. 400 open4,4,7
  110. 402 fori=0to29:print#4,tb$w$(i):next
  111. 410 print#4,chr$(27)chr$(83)chr$(49)chr$(27)chr$(15)
  112. 420 fori=30to59
  113. 422 print#4,tb$w$(i)left$(sp$,33-len(w$(i)))w$(i+30);
  114. 424 print#4,left$(sp$,33-len(w$(i+30)))w$(i+60);
  115. 426 print#4,left$(sp$,33-len(w$(i+60)))w$(i+90)
  116. 428 next
  117. 440 print#4,chr$(27)chr$(64)
  118. 450 close4
  119. 460 goto214
  120. 500 poke214,22:print:print"  [211][208][193][195][197][129] [206][197][216][212] [211][207][206][199]  [209][129] [211][212][207][208] [212][200][197] [205][213][211][201][195] "
  121. 510 fori=1to20
  122. 518 poke214,1+i:print:printtab(4)"[158] "m$(i)left$(sp$,33-len(m$(i)))
  123. 520 sys57812n$(i),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  124. 540 gosub150
  125. 550 geta$:ifa$=""andpeek(49152)=7then550
  126. 552 ifpeek(49152)=0thengosub160:goto580
  127. 560 ifa$=" "thengosub160:goto580
  128. 570 q=0:ifa$="q"thengosub160:q=1:goto580
  129. 572 goto550
  130. 580 poke214,1+i:print:printtab(4)"[129] "m$(i)left$(sp$,33-len(m$(i)))
  131. 582 ifqtheni=20
  132. 584 next
  133. 590 goto214
  134. 10000 dv=peek(186):n$="b.classics":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  135. 39000 poke214,22:print
  136. 39010 print"[129]     [209][213][201][212]?  [193][210][197] [217][207][213] [211][213][210][197]? ([217][129]/[206][129])     "
  137. 39020 poke198,0
  138. 39030 geta$:ifa$=""then39030
  139. 39040 ifa$<>"y"then214
  140. 40000 fori=0to21:poke828+i,8+i:next
  141. 40010 ifdv<8ordv>29ordv=8then40030
  142. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  143. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  144. 40040 close2:open2,i,2:close2:ifstthen40060
  145. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  146. 40060 next:print"[147]":poke53272,23:poke186,8:end
  147. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  148. 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
  149. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  150. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  151. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to9:printz$:next
  152. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  153. 60030 z$(0)="[195][204][193][211][211][201][195][211] [193][212] [212][200][197] [205][207][214][201][197][211] [195][207][206][212][197][211][212]"
  154. 60032 z$(1)="by [196]ave [205]arquis and [198]ender [212]ucker"
  155. 60040 z$(2)="([195]) 1995 by [211]oftdisk [208]ublishing"+chr$(13)
  156. 60050 z$(3)="[212]his program is the copyrighted work
  157. 60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$.  right$t is not"
  158. 60070 z$(5)[178]"shareware or in the public domain."
  159. 60080 z$(6)[178]"(NULL)o subscribe call 1-800-594-3370."
  160. 60090 [151]214,12:[153]
  161. 60100 [129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  162.