home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 77 / 64er_Magazin_Sonderheft_77_19xx_Markt__Technik_de_Side_A.d64 / gitarrenschule (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  206 lines
  1. 0 rem-gitarrenschule-programm von peter   groth,schillerstr.30,2306 schoenberg
  2. 1 ifa=0thena=1:load"sound2",8,1
  3. 2 goto10
  4. 5 forp=1to70:nextp:return
  5. 10 dimw(11):ba=1188:b1=ba+40:b2=ba+80:b3=ba+120:b4=ba+160:b5=ba+200
  6. 12 si=54272:fl=si:fh=si+1:w=si+4:an=si+5:ha=si+6:l=si+24:tl=si+2:th=si+3
  7. 14 bl=si+7:bh=si+8:cl=si+14:ch=si+15:dl=si+9:dh=si+10:el=si+16:eh=si+17
  8. 16 w2=si+11:w3=si+18:g2=si+12:g3=si+19:h2=si+13:h3=si+20
  9. 20 :
  10. 21 poke53281,12:poke53280,2:printchr$(142):printchr$(8)
  11. 22 print"[151][147]                                      [223]"
  12. 23 print"[146]   [146][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  13. 24 print"   [146][180]programm von p. groth             [167]"
  14. 25 print"  [223][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  15. 26 print" saiten stimmen:[144]"
  16. 27 print"[151]----------------------------------------[144]";
  17. 28 print"     <space>  = saite e "
  18. 29 print"       <b>    = saite b "
  19. 30 print"       <g>    = saite g "
  20. 31 print"       <d>    = saite d "
  21. 32 print"       <a>    = saite a "
  22. 33 print"       <e>    = saite e (tief)"
  23. 34 print" griff ueben:[144]"
  24. 35 print"[151]----------------------------------------[144]";
  25. 36 print"       <q>    = uebungsmenue"
  26. 37 print" hintergrundmusik:[144]"
  27. 38 print"[151]----------------------------------------[144]";
  28. 39 print" <f1> = musik an   /   <f7> = musik aus";
  29. 40 poke198,0:wait198,1:geta$
  30. 41 ifa$="e"thenew=5:zw=123:gosub100
  31. 42 ifa$="a"thenew=7:zw=81:gosub100
  32. 43 ifa$="d"thenew=9:zw=196:gosub100
  33. 44 ifa$="g"thenew=13:zw=10:gosub100
  34. 45 ifa$="b"thenew=16:zw=109:gosub100
  35. 46 ifa$=" "thenew=21:zw=237:gosub100
  36. 48 ifa$="q"then:gosub160:gosub1000:goto200
  37. 49 ifa$="[133]"thengosub150
  38. 50 ifa$="[136]"thengosub160
  39. 52 goto40
  40. 100 pokel,15:pokew,65
  41. 101 pokel,15:pokew,65
  42. 102 poketh,0:poketl,255
  43. 103 pokean,11
  44. 104 pokeha,10
  45. 105 pokefh,ew:pokefl,zw
  46. 110 fort=1to400:nextt
  47. 111 pokew,0
  48. 112 return
  49. 150 poke49172,192:poke49177,31:sys49152:return
  50. 160 poke49172,234:poke49177,49:sys49152:poke54272+24,0:return
  51. 200 input"welcher griff";g$
  52. 202 g=-1
  53. 210 ifg$="cm"thengosub1000:goto500
  54. 211 ifg$="c#"thengosub1000:goto510
  55. 212 ifg$="c#m"thengosub1000:goto520
  56. 213 ifg$="c"thengosub1000:goto530
  57. 214 ifg$="d"thengosub1000:goto540
  58. 215 ifg$="dm"thengosub1000:goto550
  59. 216 ifg$="e"thengosub1000:goto560
  60. 217 ifg$="em"thengosub1000:goto570
  61. 218 ifg$="f"thengosub1000:goto580
  62. 219 ifg$="fm"thengosub1000:goto590
  63. 220 ifg$="f#"thengosub1000:goto600
  64. 221 ifg$="g"thengosub1000:goto610
  65. 222 ifg$="g7"thengosub1000:goto620
  66. 223 ifg$="gm"thengosub1000:goto630
  67. 224 ifg$="g#"thengosub1000:goto640
  68. 225 ifg$="a"thengosub1000:goto650
  69. 226 ifg$="a7"thengosub1000:goto660
  70. 227 ifg$="am"thengosub1000:goto670
  71. 228 ifg$="a#"thengosub1000:goto680
  72. 229 ifg$="h"thengosub1000:goto690
  73. 230 ifg$="hm"thengosub1000:goto700
  74. 231 ifg$="q"thengoto20
  75. 232 print" der griff ist leider nicht vorhanden [144]":forp=1to1000:nextp
  76. 233 gosub1000:goto200
  77. 300 pokel,15:pokew,65
  78. 301 poketh,0:poketl,255
  79. 302 pokean,11
  80. 303 pokeha,10
  81. 304 pokefh,ew:pokefl,zw
  82. 305 g=g+1:w(g)=ew:g=g+1:w(g)=zw
  83. 310 fort=1to500:nextt
  84. 311 pokew,0
  85. 312 return
  86. 400 gosub5
  87. 402 poketh,0:poketl,255:pokedh,0:pokedl,255:pokeeh,0:pokeel,255:pokel,15
  88. 404 pokean,11:pokeg2,11:pokeg3,11
  89. 406 pokeha,10:pokeh2,10:pokeh3,10
  90. 407 pokew,65
  91. 408 pokefh,w(0):pokefl,w(1):gosub5:pokew2,65
  92. 410 pokebh,w(2):pokebl,w(3):gosub5:pokew3,65
  93. 412 pokech,w(4):pokecl,w(5):gosub5:pokew,65
  94. 414 pokefh,w(6):pokefl,w(7):gosub5:pokew2,65
  95. 416 pokebh,w(8):pokebl,w(9):gosub5:pokew3,65
  96. 418 pokech,w(10):pokecl,w(11):gosub5
  97. 420 fort=1to500:nextt:pokew,0:pokew2,0:pokew3,0:return
  98. 500 pokeba,81:pokeb1+3,87:pokeb3+6,65:pokeb2+6,90:pokeb4,86:pokeb5,86
  99. 501 f=56137:gosub900:forp=1to1000:nextp
  100. 502 ew=11:zw=158:gosub300:ew=15:zw=129:gosub300:ew=18:zw=112:gosub300
  101. 503 ew=23:zw=59:gosub300:goto999
  102. 510 pokeba,81:pokeb1,81:pokeb2,81:pokeb1+3,87:pokeb3+6,65:pokeb4+9,90
  103. 511 pokeb5,86:f=56141:gosub900:forp=1to1000:nextp
  104. 512 ew=9:zw=56:gosub300:ew=11:zw=158:gosub300:ew=13:zw=208:gosub300
  105. 513 ew=18:zw=112:gosub300:ew=23:zw=59:gosub300:goto999
  106. 520 pokeb2,81:pokeb3+3,87:pokeb1+3,65:pokeba+9,90:pokeb4,86:pokeb5,86
  107. 521 f=56145:gosub900:forp=1to1000:nextp
  108. 522 ew=10:zw=247:gosub300:ew=13:zw=208:gosub300:ew=18:zw=112:gosub300
  109. 523 ew=27:zw=160:gosub300:goto999
  110. 530 pokeb1,81:pokeb3+3,87:pokeb4+6,65
  111. 531 f=56149:gosub900:forp=1to1000:nextp
  112. 532 ew=5:zw=123:gosub300:ew=8:zw=180:gosub300:ew=10:zw=247:gosub300
  113. 533 ew=13:zw=10:gosub300:ew=17:zw=103:gosub300:ew=21:zw=237:gosub300:goto999
  114. 540 pokeb2+3,81:pokeba+3,87:pokeb1+6,65:pokeb5,86
  115. 541 f=56153:gosub900:forp=1to1000:nextp
  116. 542 ew=7:zw=81:gosub300:ew=9:zw=196:gosub300:ew=14:zw=162:gosub300
  117. 543 ew=19:zw=137:gosub300:ew=24:zw=157:gosub300:goto999
  118. 550 pokeba,81:pokeb2+3,87:pokeb1+6,65:pokeb5,86
  119. 551 f=56157:gosub900:forp=1to1000:nextp
  120. 552 ew=7:zw=81:gosub300:ew=9:zw=196:gosub300:ew=14:zw=162:gosub300
  121. 553 ew=19:zw=137:gosub300:ew=23:zw=59:gosub300:goto999
  122. 560 pokeb2,81:pokeb4+3,87:pokeb3+3,65
  123. 561 f=56161:gosub900:forp=1to1000:nextp
  124. 562 ew=5:zw=123:gosub300:ew=8:zw=55:gosub300:ew=10:zw=247:gosub300
  125. 563 ew=13:zw=208:gosub300:ew=16:zw=109:gosub300:ew=21:zw=237:gosub300:goto999
  126. 570 pokeb4+3,87:pokeb3+3,65
  127. 571 f=56165:gosub900:forp=1to1000:nextp
  128. 572 ew=5:zw=123:gosub300:ew=8:zw=55:gosub300:ew=10:zw=247:gosub300
  129. 573 ew=13:zw=10:gosub300:ew=16:zw=109:gosub300:ew=21:zw=237:gosub300:goto999
  130. 580 pokeba,81:pokeb1,81:pokeb2+3,87:pokeb4+6,65:pokeb3+6,90:pokeb5,86
  131. 581 f=56169:gosub900:forp=1to1000:nextp
  132. 582 ew=8:zw=180:gosub300:ew=11:zw=158:gosub300:ew=14:zw=162:gosub300
  133. 583 ew=17:zw=103:gosub300:ew=23:zw=59:gosub300:goto999
  134. 590 pokeba,81:pokeb1,81:pokeb2,81:pokeb4+6,65:pokeb3+6,90:pokeb5,86
  135. 591 f=56173:gosub900:forp=1to1000:nextp
  136. 592 ew=8:zw=180:gosub300:ew=11:zw=158:gosub300:ew=13:zw=208:gosub300
  137. 593 ew=17:zw=103:gosub300:ew=23:zw=59:gosub300:goto999
  138. 600 pokeb1+3,81:pokeb2+6,87:pokeb4+9,65:pokeb3+9,90:pokeba,86:pokeb5,86
  139. 601 f=56177:gosub900:forp=1to1000:nextp
  140. 602 ew=9:zw=56:gosub300:ew=12:zw=78:gosub300:ew=15:zw=129:gosub300
  141. 603 ew=18:zw=112:gosub300:goto999
  142. 610 pokeb4+3,81:pokeb5+6,87:pokeba+6,65
  143. 611 f=56181:gosub900:forp=1to1000:nextp
  144. 612 ew=6:zw=133:gosub300:ew=8:zw=55:gosub300:ew=9:zw=196:gosub300
  145. 613 ew=13:zw=10:gosub300:ew=16:zw=109:gosub300:ew=26:zw=20:gosub300:goto999
  146. 620 pokeba,81:pokeb4+3,87:pokeb5+6,65
  147. 621 f=56185:gosub900:forp=1to1000:nextp
  148. 622 ew=6:zw=133:gosub300:ew=8:zw=55:gosub300:ew=9:zw=196:gosub300
  149. 623 ew=13:zw=10:gosub300:ew=16:zw=109:gosub300:ew=23:zw=59:gosub300:goto999
  150. 630 fori=ba+6tob5+6step40:pokei,81:nexti:pokeb4+12,65:pokeb3+12,90
  151. 631 f=56189:gosub900:forp=1to1000:nextp
  152. 632 ew=6:zw=133:gosub300:ew=9:zw=196:gosub300:ew=13:zw=10:gosub300
  153. 633 ew=15:zw=129:gosub300:ew=19:zw=137:gosub300:ew=26:zw=20:gosub300:goto999
  154. 640 pokeba+9,81:pokeb1+9,81:pokeb2+12,87:pokeb4+15,65:pokeb3+15,90:pokeb5+9,86
  155. 641 f=56193:gosub900:forp=1to1000:nextp
  156. 642 ew=10:zw=89:gosub300:ew=13:zw=208:gosub300:ew=17:zw=103:gosub300
  157. 643 ew=20:zw=178:gosub300:ew=27:zw=160:gosub300:goto999
  158. 650 pokeb3+3,81:pokeb2+3,87:pokeb1+3,65
  159. 651 f=56197:gosub900:forp=1to1000:nextp
  160. 652 ew=5:zw=123:gosub300:ew=7:zw=81:gosub300:ew=10:zw=247:gosub300
  161. 653 ew=14:zw=162:gosub300:ew=18:zw=112:gosub300:ew=21:zw=237:gosub300:goto999
  162. 660 pokeb3+3,81:pokeb2+3,87:pokeb1+3,65:pokeba+6,90
  163. 661 f=56201:gosub900:forp=1to1000:nextp
  164. 662 ew=5:zw=123:gosub300:ew=7:zw=81:gosub300:ew=10:zw=247:gosub300
  165. 663 ew=14:zw=162:gosub300:ew=18:zw=112:gosub300:ew=26:zw=20:gosub300:goto999
  166. 670 pokeb1,81:pokeb3+3,87:pokeb2+3,65
  167. 671 f=56205:gosub900:forp=1to1000:nextp
  168. 672 ew=5:zw=123:gosub300:ew=7:zw=81:gosub300:ew=10:zw=247:gosub300
  169. 673 ew=14:zw=162:gosub300:ew=17:zw=103:gosub300:ew=21:zw=237:gosub300:goto999
  170. 680 fori=batob4step40:pokei,81:nexti:pokeb3+6,87:pokeb2+6,65:pokeb1+6,90
  171. 681 pokeb5,86:f=56209:gosub900:forp=1to1000:nextp
  172. 682 ew=7:zw=193:gosub300:ew=11:zw=158:gosub300:ew=15:zw=129:gosub300
  173. 683 ew=19:zw=137:gosub300:ew=23:zw=59:gosub300:goto999
  174. 690 pokeba+3,81:pokeb3+9,87:pokeb2+9,65:pokeb1+9,90:pokeb4+3,86:pokeb5+3,86
  175. 691 f=56213:gosub900:forp=1to1000:nextp
  176. 692 ew=12:zw=78:gosub300:ew=16:zw=109:gosub300:ew=20:zw=178:gosub300
  177. 693 ew=24:zw=157:gosub300:goto999
  178. 700 pokeba+3,81:pokeb1+6,87:pokeb3+9,65:pokeb2+9,90:pokeb4+3,86:pokeb5+3,86
  179. 701 f=56217:gosub900:forp=1to1000:nextp
  180. 702 ew=12:zw=78:gosub300:ew=16:zw=109:gosub300:ew=19:zw=137:gosub300
  181. 703 ew=24:zw=157:gosub300:goto999
  182. 900 fort=ftof+2:poket,7:nextt:return
  183. 999 gosub400:goto200
  184. 1000 poke53281,12:poke53280,11:poke53272,21:print"[147][144]";
  185. 1010 print"    **** programm von p.groth ****
  186. 1020 [153]"bund1  2  3  4  5  6  7  8  9  10 11 12
  187. 1030 print"   [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]
  188. 1040 [153]" eabs{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}
  189. 1050 print" b[182][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219]
  190. 1060 [153]" gabstantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)
  191. 1070 print" d[182][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219]
  192. 1080 [153]" aabstantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)
  193. 1090 print" e[182]{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}{$60}{$60}{$7b}
  194. 1100 [153]"   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  195. 1110 print"   0=daumen          A=ringfinger
  196. 1120 [153]"   (NULL)=zeigefinger     (NULL)=kleiner finger
  197. 1130 print"   [215]=mittelfinger    [214]=gedaempfte saite
  198. 1140 [153]"                                       {$7f}";
  199. 1150 [153]"wait    waitOusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr";
  200. 1160 [153]"    waitsgnwelcher griff
  201. 1170 print"   {$7f}L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  202. 1180 print" cm ;c# ;c#m;c  ;d  ;dm ;e  ;em ;f  ;fm  f# ";
  203. 1190 print"[146];g  ;g7 ;gm ;g# ;a  ;a7 ;am ;a# ;h   hm ";
  204. 1200 print"   -q- zurueck zum stimmen[144]";
  205. 1220 return
  206.