home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh77a.d64 / gitarrenschule (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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``{``{``{``{``{``{``{``{``{``{``{``{
  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]``{``{``{``{``{``{``{``{``{``{``{``{
  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]"                                       ";
  199. 1150 [153]"WAIT    WAIToUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR";
  200. 1160 [153]"    WAITSGNWELCHER GRIFF
  201. 1170 PRINT"   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.