home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 138 / 138.d81 / b.opera (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  165 lines
  1. 10 poke52,52:poke56,52:clr:poke53281,0:poke53280,0:poke788,52
  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"opera3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  7. 24 sys57812"opera font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  8. 26 sys57812"operac000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  9. 30 sys13312,"opera 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"[197]ccolamarcia
  19. 82 [131]"eccolamarcia.mus"
  20. 83 [131]"(NULL)a leni str$arem (NULL)a (NULL)ano"
  21. 84 [131]"darem lamano.mus"
  22. 85 [131]"(NULL)ide of the (NULL)alkyries
  23. 86 data"ride/valkyri.mus"
  24. 87 data"[193]h, [211]o [208]ure"
  25. 88 data"martha.mus"
  26. 89 data"[197]bben, [206]'[193]ndro [204]ontana
  27. 90 [131]"la wally.mus
  28. 91 data"[213]n [194]el di [214]edremo
  29. 92 [131]"un bel di.mus
  30. 93 data"[212]hree [204]ittle [205]aids
  31. 94 [131]"mikado maids.mus"
  32. 95 [131]"left$abanera
  33. 96 data"habanera.mus
  34. 97 [131]"right$ntermezzo
  35. 98 data"intermezzo.mus
  36. 99 [131]"atnnvil lenhorus
  37. 100 data"il trovatore.mus
  38. 101 [131]"right$f (NULL)ou (NULL)ant to (NULL)now (NULL)ho (NULL)e atnre
  39. 102 data"mikado who.mus
  40. 103 [131]"(NULL)ola, (NULL)erdita, atnbbandonata
  41. 104 data"manon.mus
  42. 105 [131]"(NULL)uando (NULL)en (NULL)o
  43. 106 data"boheme.mus
  44. 107 [131]"(NULL)ueen of the (NULL)ight's (NULL)engeance
  45. 108 data"magic flute.mus
  46. 109 [131]"atnddio, str$el (NULL)assato
  47. 110 data"addio-trav.mus
  48. 111 [131]"(NULL) (NULL)io peekabbino lenaro
  49. 112 data"gianni schic.mus
  50. 113 [131]"(NULL)a lenanzone str$i str$oretta
  51. 114 data"rondine.mus
  52. 115 [131]"(NULL)esti (NULL)a chr$uibba
  53. 116 data"pagliacci.mus
  54. 117 [131]"(NULL)uesto (NULL) (NULL)uella
  55. 118 data"rigoletto.mus
  56. 119 [131]"(NULL) (NULL)oave ascanciulla
  57. 120 data"fanciulla.mus
  58. 125 [137]200
  59. 127 :
  60. 128 :[143] box routine
  61. 129 :
  62. 130 [151]214,y:[153]
  63. 132 [153][163]x)"onor"[200](tp$,xx)"^"
  64. 134 [129]ii[178]1[164]yy:[153][163]x)"+for"[200](sp$,xx)"verifywaitsgn":[130]
  65. 136 [153][163]x)"/"[200](bt$,xx)"exp"
  66. 137 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  67. 138 [142]
  68. 147 :
  69. 148 :[143] music on
  70. 149 :
  71. 150 [158]49615:[151]781,0:[151]782,128:[158]49664:[151]49152,7:[142]
  72. 157 :
  73. 158 :[143] music off
  74. 159 :
  75. 160 [151]49152,0:[151]54276,0:[151]54283,0:[151]54290,0:[158]49897:[158]49935:[142]
  76. 200 [153]"loadverify";
  77. 202 x[178]0:y[178]0:xx[178]37:yy[178]23:[141]130
  78. 204 [153]"list       str$ atn (NULL) val   (NULL) atn (NULL) (NULL) (NULL) right$ (NULL)'      "
  79. 206 [153]"sys     (NULL)(NULL)val(NULL)atn atn(NULL) (NULL)left$val (NULL)(NULL)(NULL)right$val(NULL) len(NULL)(NULL)(NULL)val(NULL)(NULL)     "
  80. 212 [129]i[178]1[164]20:[153]"sys "[199](192[170]i)" for "m$(i):[130]
  81. 214 [151]214,22:[153]:[153]" atnfor-(NULL)for (NULL)lay  asc1for atnll  asc3for (NULL)rint  asc7for (NULL)uit "
  82. 220 [151]198,0
  83. 222 [161]a$:[139]a$[178]""[167]222
  84. 228 [139]a$[178][199](133)[167]500
  85. 230 [139]a$[178][199](134)[167]300
  86. 240 [139]a$[178][199](136)[167]39000
  87. 250 [139]a$[179]"a"[176]a$[177]"t"[167]222
  88. 252 n[178][198](a$)[171]64
  89. 254 [151]214,1[170]n:[153]:[153][163]4)"sys "m$(n)[200](sp$,33[171][195](m$(n)))
  90. 260 [158]57812n$(n),dv,0:[151]780,0:[151]781,0:[151]782,128:[158]65493
  91. 270 [141]150
  92. 280 [151]214,22:[153]:[153]"for  (NULL)(NULL)val(NULL)(NULL) atn(NULL)(NULL) (NULL)val(NULL)for (NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)left$val (NULL)(NULL)(NULL)right$len   "
  93. 290 [161]a$:[139]a$[178]""[175][194](49152)[178]7[167]290
  94. 292 [141]160
  95. 294 [151]214,1[170]n:[153]:[153][163]4)"for "m$(n)[200](sp$,33[171][195](m$(n)))
  96. 296 [137]214
  97. 300 [151]214,22:[153]:[153]"  1for (NULL)(NULL)val (NULL)left$valval(NULL)   2for (NULL)(NULL)(NULL) (NULL)left$valval(NULL)(NULL)   valfor(NULL)len  "
  98. 310 [161]a$:[139]a$[178]""[167]310
  99. 312 [139]a$[178]"e"[176]a$[178]"_"[167]214
  100. 320 [139]a$[178]"1"[167]400
  101. 322 [139]a$[179][177]"2"[167]310
  102. 330 [159]4,4,7
  103. 340 [129]i[178]0[164]29:[152]4,tb$w$(i):[130]
  104. 342 [129]i[178]30[164]59:[152]4,tb$w$(i)[200](sp$,36[171][195](w$(i)))w$(i[170]30):[130]
  105. 344 [129]i[178]0[164]7:[152]4:[130]
  106. 346 [129]i[178]90[164]119:[152]4,tb$w$(i)[200](sp$,36[171][195](w$(i)))w$(i[170]30):[130]
  107. 350 [160]4
  108. 360 [137]214
  109. 400 [159]4,4,7
  110. 402 [129]i[178]0[164]29:[152]4,tb$w$(i):[130]
  111. 410 [152]4,[199](27)[199](83)[199](49)[199](27)[199](15)
  112. 420 [129]i[178]30[164]59
  113. 422 [152]4,tb$w$(i)[200](sp$,33[171][195](w$(i)))w$(i[170]30);
  114. 424 [152]4,[200](sp$,33[171][195](w$(i[170]30)))w$(i[170]60);
  115. 426 [152]4,[200](sp$,33[171][195](w$(i[170]60)))w$(i[170]90)
  116. 428 [130]
  117. 440 [152]4,[199](27)[199](64)
  118. 450 [160]4
  119. 460 [137]214
  120. 500 [151]214,22:[153]:[153]"  (NULL)(NULL)atnlenvalfor (NULL)val(NULL)(NULL) (NULL)(NULL)(NULL)chr$  (NULL)for (NULL)(NULL)(NULL)(NULL) (NULL)left$val (NULL)(NULL)(NULL)right$len "
  121. 510 [129]i[178]1[164]20
  122. 518 [151]214,1[170]i:[153]:[153][163]4)"sys "m$(i)[200](sp$,33[171][195](m$(i)))
  123. 520 [158]57812n$(i),dv,0:[151]780,0:[151]781,0:[151]782,128:[158]65493
  124. 540 [141]150
  125. 550 [161]a$:[139]a$[178]""[175][194](49152)[178]7[167]550
  126. 552 [139][194](49152)[178]0[167][141]160:[137]580
  127. 560 [139]a$[178]" "[167][141]160:[137]580
  128. 570 q[178]0:[139]a$[178]"q"[167][141]160:q[178]1:[137]580
  129. 572 [137]550
  130. 580 [151]214,1[170]i:[153]:[153][163]4)"for "m$(i)[200](sp$,33[171][195](m$(i)))
  131. 582 [139]q[167]i[178]20
  132. 584 [130]
  133. 590 [137]214
  134. 10000 dv[178][194](186):n$[178]"b.opera":[159]15,dv,15,"s0:"[170]n$:[160]15:[148]n$,dv:[128]
  135. 39000 [151]214,22:[153]
  136. 39010 [153]"for     (NULL)(NULL)right$(NULL)?  atn(NULL)val (NULL)(NULL)(NULL) (NULL)(NULL)(NULL)val? ((NULL)for/(NULL)for)     "
  137. 39020 [151]198,0
  138. 39030 [161]a$:[139]a$[178]""[167]39030
  139. 39040 [139]a$[179][177]"y"[167]214
  140. 39050 [151]788,49
  141. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  142. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  143. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  144. 40030 a$[178]"presenter":[141]40040:a$[178]"hello connect"
  145. 40040 [129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  146. 40050 [160]2:[159]2,i,2:[160]2:[139]st[167]40070
  147. 40060 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40090
  148. 40070 [130]:[139]a$[178]"presenter"[167][142]
  149. 40080 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  150. 40090 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  151. 40100 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  152. 40110 [153]"p(NULL)53272,23:run:":[151]631,13:[151]632,13:[151]198,2:[128]
  153. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  154. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]9:[153]z$:[130]
  155. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  156. 60030 z$(0)[178]"(NULL)(NULL)val(NULL)atn atn(NULL) (NULL)left$val (NULL)(NULL)(NULL)right$val(NULL) len(NULL)(NULL)(NULL)val(NULL)(NULL)"
  157. 60032 z$(1)[178]"by str$ave (NULL)arquis and ascender (NULL)ucker"
  158. 60040 z$(2)[178]"(len) 1995 by mid$ & asc (NULL)ublishing, right$nc."[170][199](13)
  159. 60050 z$(3)[178]"(NULL)his program is the copyrighted work
  160. 60060 z$(4)="of [202] & [198] [208]ublishing, [201]nc. [201]t is not"
  161. 60070 z$(5)="shareware or in the public domain."
  162. 60080 z$(6)="1-800-594-3370 or 1-318-221-8718"
  163. 60090 poke214,12:print
  164. 60100 fori=0to6:printtab(20-(len(z$(i))/2))""z$(i):next:return
  165.