home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 197 / 197.d81 / b.classic guitar / b.080d / b.a7ae (.txt)
Encoding:
Commodore BASIC  |  2000-01-01  |  49.1 KB  |  130 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"greensleeves.mus","     [199]reensleeves     "
  17. 51 data"bourree bach.mus","       [194]ourree        "
  18. 52 data"sonatascarla.mus","  [211]onata in [196] [205]ajor   "
  19. 53 data"la rose giul.mus","       [204]a [210]ose        "
  20. 54 data"galop-sor.mus","        [199]alop         "
  21. 55 data"son13paganin.mus","    [211]onata [206]o. 13     "
  22. 56 data"mariatarrega.mus","        [205]aria         "
  23. 57 data"sd2 granados.mus"," [211]panish [196]ance [206]o. 2  "
  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,3,9,255,6
  34. 84 sysml+30,1,36,2,8,160,9+16
  35. 89 bk$="                      "
  36. 90 sysml+12,2,3,"[129]     [204][207][193][196][211][212][193][210] proudly presents    "
  37. 94 sysml+12,2,4,"     [196] [193] [214] [197]   [205] [193] [210] [209] [213] [201] [211] '    "
  38. 100 sysml+12,2,5,"   [176][174][174] [176][174][176][174][176][174][178][176][174]  [176][174][174][176][178][176][178][174][176][174][178][174]    "
  39. 102 sysml+12,2,6,"   [221] [221] [171][179][173][174][173][174][221][221]   [221][174][221][221][221] [221] [171][179][171][179]    "
  40. 104 sysml+12,2,7,"   [173][189][173][189][189][173][173][189][173][189][177][173][189]  [173][189][173][189][177] [177] [189][173][189][173][189]   "
  41. 112 sysml+39,160
  42. 120 sysml+30,3,26,12,23,255,6
  43. 122 sysml+30,2,25,11,22,160,9+16
  44. 130 sysml+30,29,36,12,23,255,6
  45. 132 sysml+30,28,35,11,22,160,9+16
  46. 140 sysml+12,29,12,"[129] [208][204][193][217] [157][157][157][157][157][157] [211][207][206][199] [157][157][157][157][157][157][157][149][146][171][192][192][192][192][192][192][179]"
  47. 142 sysml+12,29,15,"[129] [208][204][193][217] [157][157][157][157][157][157]  [193][204][204] "
  48. 144 sysml+12,28,17,"[149][146][171][192][192][192][192][192][192][179][129][157][157][157][157][157][157][157] [211][207][206][199] [157][157][157][157][157][157] [201][206][198][207] [157][157][157][157][157][157][157][149][146][171][192][192][192][192][192][192][179]"
  49. 146 sysml+12,29,21,"[129] [209][213][201][212] "
  50. 150 sysml+15,1,29,34,12,13
  51. 152 sysml+15,2,29,34,15,16
  52. 154 sysml+15,3,29,34,18,19
  53. 156 sysml+15,4,29,34,21,21
  54. 160 print"[129]";:sysml+12,3,12,bk$
  55. 162 fori=1to8
  56. 164 sysml+12,3,12+i,n$(i)
  57. 166 sysml+15,4+i,3,24,12+i,12+i
  58. 168 next
  59. 170 sysml+12,3,21,bk$
  60. 180 pokev+21,31
  61. 200 sysml+9
  62. 204 ifrg%thensysml+36,rg%,255,1:sysml+24,2:sysml+36,rg%,255,8
  63. 210 ifcr%then230
  64. 220 goto200
  65. 230 ifcr%=1thenpokev+21,3:gosub300:goto180 rem play
  66. 240 ifcr%=2thenpokev+21,3:gosub400:goto180:rem play all
  67. 250 ifcr%=3thenpokev+21,3:gosub500:goto180:rem info
  68. 260 ifcr%<>4then268
  69. 262 pokev+21,0:sysml+3:poke49152,0:sys49897:sys49935:print"[147]":goto40000:rem quit
  70. 268 g=cr%
  71. 270 rem sysml+30,2,25,11,22,160,1+16
  72. 272 print"";:fori=1to8
  73. 274 sysml+12,3,12+i,n$(i)
  74. 276 next
  75. 280 sysml+36,g,255,1+192
  76. 290 goto180
  77. 300 ifg=0thenreturn
  78. 302 p=1:gosub500:p=0
  79. 310 poke781,0:poke782,d%(g-4)
  80. 320 sys49664:poke49152,7
  81. 330 sysml+9
  82. 332 ifpeek(49152)=0then350
  83. 340 ifl2%=0then330
  84. 350 poke49152,0:sys49897
  85. 352 sysml+42,168
  86. 360 return
  87. 400 forg=5to12
  88. 410 gosub300
  89. 420 next
  90. 422 print"";:fori=1to8
  91. 424 sysml+12,3,12+i,n$(i)
  92. 426 next
  93. 430 return
  94. 500 if(g<1)or(g>12)thenreturn
  95. 502 sysml+39,168:sysml+42,160
  96. 510 sysml+30,2,37,13,21,255,6
  97. 520 sysml+30,1,36,12,20,255,9+16
  98. 530 poke214,13:print:printtab(5);
  99. 572 s=d%(g-4)*256
  100. 574 t=s+peek(s)+peek(s+1)*256+peek(s+2)+peek(s+3)*256+peek(s+4)+peek(s+5)*256+6
  101. 580 fori=2to200:ifpeek(i+t)=0theni=200:goto590
  102. 582 printchr$(peek(i+t));:ifpeek(i+t)=13thenprint"";
  103. 590 next
  104. 592 ifpthenreturn
  105. 600 sysml+9
  106. 610 ifl2%=0then600
  107. 620 sysml+42,168
  108. 630 return
  109. 999 goto999
  110. 10000 d=peek(186):n$="0:guitar.b":open1,d,15,"s"+n$:close1:saven$,d:end
  111. 40000 poke53269,0
  112. 40002 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  113. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  114. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  115. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  116. 40040 close2:open2,i,2:close2:ifstthen40060
  117. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  118. 40060 next:return
  119. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  120. 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
  121. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  122. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  123. 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=0to8:printz$:next
  124. 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]"
  125. 60030 z$(0)="[195] [204] [193] [211] [211] [201] [195]   [199] [213] [201] [212] [193] [210]
  126. 60040 z$(2)[178]"by str$ave (NULL)arquis
  127. 60050 z$(4)="(c) 2000 by [202] & [198] [208]ublishing, [201]nc."
  128. 60080 z$(6)="1-318-868-8727
  129. 60090 [151]214,12:[153]:[129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  130.