home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 189 / 189.d81 / b.ragtime gems 1 / b.080d / b.a7ae (.txt)
Encoding:
Commodore BASIC  |  2000-01-01  |  49.1 KB  |  133 lines
  1. 8 poke56,56:clr:poke53371,0:poke788,49:tq=ti
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 poke53281,0:poke53280,0:print"[147]":gosub60000
  4. 28 goto35
  5. 30 sys57812"rag mouse",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  6. 32 sys57812"rag font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  7. 34 sys57812"rag sid",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  8. 35 ifti<tq+100then35
  9. 36 sys49615
  10. 38 d%(1)=74
  11. 40 fori=1to8
  12. 42 readf$(i),n$(i)
  13. 44 sys57812f$(i),dv,0:poke780,0:poke781,0:poke782,d%(i):sys65493
  14. 46 d%(i+1)=peek(175)+1:e(i)=peek(174)+256*peek(175)
  15. 48 next
  16. 50 data"thatlovinrag.mus","   [212]hat [204]ovin' [210]ag    "
  17. 51 data"thefriscorag.mus","   [212]he '[198]risco [210]ag    "
  18. 52 data"powder rag.mus","   [208]owder [210]ag         "
  19. 53 data"chatterbox.mus","   [195]hatterbox [210]ag     "
  20. 54 data"oh you devil.mus","   [207]h [217]ou [196]evil!      "
  21. 55 data"hotchocolate.mus","   [200]ot [195]hocolate [210]ag  "
  22. 56 data"the bolo rag.mus","   [212]he [194]olo [210]ag       "
  23. 57 data"alabamabound.mus","   [193]labama [194]ound      "
  24. 64 ml=64*256:mv=ml+156:v=53248
  25. 66 pokemv+1,158
  26. 68 pokev+21,0:sysml:sysml+6,14*64
  27. 70 fori=0to17:poke15*64+i,255:next:fori=18to63:poke15*64+i,0:next:pokev+39,7
  28. 72 poke2042,15:poke2043,15:poke2044,15:pokev+29,peek(v+29)or28
  29. 74 pokev+4,80:pokev+5,139:pokev+6,116:pokev+7,139:pokev+8,150:pokev+9,139
  30. 76 pokev+41,7:pokev+42,7:pokev+43,7
  31. 78 pokev+27,peek(v+27)or28
  32. 80 print"[147]":poke53272,31:sysml+126,0,38,0,24,126,127,14,4
  33. 82 sysml+30,2,37,2,9,255,6
  34. 84 sysml+30,1,36,1,8,160,9+16
  35. 88 bl$="    [163][163][163][163][163][163][163][163][163][163][163][163][163]     "
  36. 89 bk$="                      "
  37. 90 sysml+12,2,2,"[129]     [204][207][193][196][211][212][193][210] proudly presents    "
  38. 94 sysml+12,2,3,"     [196] [193] [214] [197]   [205] [193] [210] [209] [213] [201] [211] '    "
  39. 96 sysml+12,2,4,"       [206] [197] [215]   [211] [197] [210] [201] [197] [211]        "
  40. 100 sysml+12,2,5,"[176][192][174][176][192][174][176][192][174][176][178][174][178][176][174][176][174][176][192][174] [176][192][174][176][192][174][176][174][176][174][176][192][174]
  41. 102 [158]ml[170]12,2,6,"-=exp-tan<(NULL)or^ (NULL) (NULL)(NULL)/exp(NULL)-<  (NULL)or^-< (NULL)/exp(NULL)/tan^
  42. 104 sysml+12,2,7,"[189][173][189][189] [173][173][192][189] [177] [177][173]  [189][173][192][189] [173][192][189][173][192][189][173]  [189][173][192][189]
  43. 112 [158]ml[170]39,160
  44. 120 [158]ml[170]30,3,26,12,23,255,6
  45. 122 [158]ml[170]30,2,25,11,22,160,9[170]16
  46. 130 [158]ml[170]30,29,36,12,23,255,6
  47. 132 [158]ml[170]30,28,35,11,22,160,9[170]16
  48. 140 [158]ml[170]12,29,12,"for (NULL)(NULL)atn(NULL) cmdcmdcmdcmdcmdcmd (NULL)(NULL)(NULL)chr$ cmdcmdcmdcmdcmdcmdcmdverifywait-tantantantantantan<"
  49. 142 [158]ml[170]12,29,15,"for (NULL)(NULL)atn(NULL) cmdcmdcmdcmdcmdcmd  atn(NULL)(NULL) "
  50. 144 [158]ml[170]12,28,17,"verifywait-tantantantantantan<forcmdcmdcmdcmdcmdcmdcmd (NULL)(NULL)(NULL)chr$ cmdcmdcmdcmdcmdcmd right$(NULL)asc(NULL) cmdcmdcmdcmdcmdcmdcmdverifywait-tantantantantantan<"
  51. 146 [158]ml[170]12,29,21,"for (NULL)(NULL)right$(NULL) "
  52. 150 [158]ml[170]15,1,29,34,12,13
  53. 152 [158]ml[170]15,2,29,34,15,16
  54. 154 [158]ml[170]15,3,29,34,18,19
  55. 156 [158]ml[170]15,4,29,34,21,21
  56. 158 [158]ml[170]12,7,11,"verify(NULL)left$val ascright$(NULL)(NULL)(NULL) chr$right$chr$wait"
  57. 160 [153]"for";:[158]ml[170]12,3,12,bl$
  58. 162 [129]i[178]1[164]8
  59. 164 [158]ml[170]12,3,12[170]i,n$(i)
  60. 166 [158]ml[170]15,4[170]i,3,24,12[170]i,12[170]i
  61. 168 [130]
  62. 170 [158]ml[170]12,3,21,bk$
  63. 180 [151]v[170]21,31
  64. 200 [158]ml[170]9
  65. 204 [139]rg%[167][158]ml[170]36,rg%,255,1:[158]ml[170]24,2:[158]ml[170]36,rg%,255,8
  66. 210 [139]cr%[167]230
  67. 220 [137]200
  68. 230 [139]cr%[178]1[167][151]v[170]21,3:[141]300:[137]180 [143] play
  69. 240 [139]cr%[178]2[167][151]v[170]21,3:[141]400:[137]180:[143] play all
  70. 250 [139]cr%[178]3[167][151]v[170]21,3:[141]500:[137]180:[143] info
  71. 260 [139]cr%[179][177]4[167]268
  72. 262 [151]v[170]21,0:[158]ml[170]3:[151]49152,0:[158]49897:[158]49935:[153]"load":[137]40000:[143] quit
  73. 268 g[178]cr%
  74. 270 [143] sysml+30,2,25,11,22,160,1+16
  75. 272 [153]"";:[129]i[178]1[164]8
  76. 274 [158]ml[170]12,3,12[170]i,n$(i)
  77. 276 [130]
  78. 280 [158]ml[170]36,g,255,1[170]192
  79. 290 [137]180
  80. 300 [139]g[178]0[167][142]
  81. 302 p[178]1:[141]500:p[178]0
  82. 310 [151]781,0:[151]782,d%(g[171]4)
  83. 320 [158]49664:[151]49152,7
  84. 330 [158]ml[170]9
  85. 332 [139][194](49152)[178]0[167]350
  86. 340 [139]l2%[178]0[167]330
  87. 350 [151]49152,0:[158]49897
  88. 352 [158]ml[170]42,168
  89. 360 [142]
  90. 400 [129]g[178]5[164]12
  91. 410 [141]300
  92. 420 [130]
  93. 422 [153]"";:[129]i[178]1[164]8
  94. 424 [158]ml[170]12,3,12[170]i,n$(i)
  95. 426 [130]
  96. 430 [142]
  97. 500 [139](g[179]1)[176](g[177]12)[167][142]
  98. 502 [158]ml[170]39,168:[158]ml[170]42,160
  99. 510 [158]ml[170]30,2,37,13,21,255,6
  100. 520 [158]ml[170]30,1,36,12,20,255,9[170]16
  101. 530 [151]214,13:[153]:[153][163]2);
  102. 572 s[178]d%(g[171]4)[172]256
  103. 574 t[178]s[170][194](s)[170][194](s[170]1)[172]256[170][194](s[170]2)[170][194](s[170]3)[172]256[170][194](s[170]4)[170][194](s[170]5)[172]256[170]6
  104. 580 [129]i[178]2[164]200:[139][194](i[170]t)[178]0[167]i[178]200:[137]590
  105. 582 [153][199]([194](i[170]t));:[139][194](i[170]t)[178]13[167][153]"";
  106. 590 [130]
  107. 592 [139]p[167][142]
  108. 600 [158]ml[170]9
  109. 610 [139]l2%[178]0[167]600
  110. 620 [158]ml[170]42,168
  111. 630 [142]
  112. 999 [137]999
  113. 10000 d[178][194](186):n$[178]"0:rag 1.b":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  114. 40000 [151]53269,0
  115. 40002 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  116. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  117. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  118. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  119. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  120. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  121. 40060 [130]:[142]
  122. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  123. 40080 [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
  124. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  125. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  126. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]8:[153]z$:[130]
  127. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  128. 60030 z$(0)[178]"(NULL) atn chr$ (NULL) right$ (NULL) val   chr$ val (NULL) (NULL)   right$
  129. 60040 z$(2)="by [196]ave [205]arquis
  130. 60050 z$(4)[178]"(c) 2000 by mid$ & asc (NULL)ublishing, right$nc."
  131. 60080 z$(6)[178]"1-318-868-8727
  132. 60090 poke214,12:print:fori=0to6:printtab(20-(len(z$(i))/2))""z$(i):next:return
  133.