0 REM-GITARRENSCHULE-PROGRAMM VON PETER   GROTH,SCHILLERSTR.30,2306 SCHOENBERG
1 IFA=0THENA=1:LOAD"SOUND2",8,1
2 GOTO10
5 FORP=1TO70:NEXTP:RETURN
10 DIMW(11):BA=1188:B1=BA+40:B2=BA+80:B3=BA+120:B4=BA+160:B5=BA+200
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
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
16 W2=SI+11:W3=SI+18:G2=SI+12:G3=SI+19:H2=SI+13:H3=SI+20
20 :
21 POKE53281,12:POKE53280,2:PRINTCHR$(142):PRINTCHR$(8)
22 PRINT"[151][147]                                      [223]"
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]"
24 PRINT"   [146][180]PROGRAMM VON P. GROTH             [167]"
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]"
26 PRINT" SAITEN STIMMEN:[144]"
27 PRINT"[151]----------------------------------------[144]";
28 PRINT"     <SPACE>  = SAITE E "
29 PRINT"       <B>    = SAITE B "
30 PRINT"       <G>    = SAITE G "
31 PRINT"       <D>    = SAITE D "
32 PRINT"       <A>    = SAITE A "
33 PRINT"       <E>    = SAITE E (TIEF)"
34 PRINT" GRIFF UEBEN:[144]"
35 PRINT"[151]----------------------------------------[144]";
36 PRINT"       <Q>    = UEBUNGSMENUE"
37 PRINT" HINTERGRUNDMUSIK:[144]"
38 PRINT"[151]----------------------------------------[144]";
39 PRINT" <F1> = MUSIK AN   /   <F7> = MUSIK AUS";
40 POKE198,0:WAIT198,1:GETA$
41 IFA$="E"THENEW=5:ZW=123:GOSUB100
42 IFA$="A"THENEW=7:ZW=81:GOSUB100
43 IFA$="D"THENEW=9:ZW=196:GOSUB100
44 IFA$="G"THENEW=13:ZW=10:GOSUB100
45 IFA$="B"THENEW=16:ZW=109:GOSUB100
46 IFA$=" "THENEW=21:ZW=237:GOSUB100
48 IFA$="Q"THEN:GOSUB160:GOSUB1000:GOTO200
49 IFA$="[133]"THENGOSUB150
50 IFA$="[136]"THENGOSUB160
52 GOTO40
100 POKEL,15:POKEW,65
101 POKEL,15:POKEW,65
102 POKETH,0:POKETL,255
103 POKEAN,11
104 POKEHA,10
105 POKEFH,EW:POKEFL,ZW
110 FORT=1TO400:NEXTT
111 POKEW,0
112 RETURN
150 POKE49172,192:POKE49177,31:SYS49152:RETURN
160 POKE49172,234:POKE49177,49:SYS49152:POKE54272+24,0:RETURN
200 INPUT"WELCHER GRIFF";G$
202 G=-1
210 IFG$="CM"THENGOSUB1000:GOTO500
211 IFG$="C#"THENGOSUB1000:GOTO510
212 IFG$="C#M"THENGOSUB1000:GOTO520
213 IFG$="C"THENGOSUB1000:GOTO530
214 IFG$="D"THENGOSUB1000:GOTO540
215 IFG$="DM"THENGOSUB1000:GOTO550
216 IFG$="E"THENGOSUB1000:GOTO560
217 IFG$="EM"THENGOSUB1000:GOTO570
218 IFG$="F"THENGOSUB1000:GOTO580
219 IFG$="FM"THENGOSUB1000:GOTO590
220 IFG$="F#"THENGOSUB1000:GOTO600
221 IFG$="G"THENGOSUB1000:GOTO610
222 IFG$="G7"THENGOSUB1000:GOTO620
223 IFG$="GM"THENGOSUB1000:GOTO630
224 IFG$="G#"THENGOSUB1000:GOTO640
225 IFG$="A"THENGOSUB1000:GOTO650
226 IFG$="A7"THENGOSUB1000:GOTO660
227 IFG$="AM"THENGOSUB1000:GOTO670
228 IFG$="A#"THENGOSUB1000:GOTO680
229 IFG$="H"THENGOSUB1000:GOTO690
230 IFG$="HM"THENGOSUB1000:GOTO700
231 IFG$="Q"THENGOTO20
232 PRINT" DER GRIFF IST LEIDER NICHT VORHANDEN [144]":FORP=1TO1000:NEXTP
233 GOSUB1000:GOTO200
300 POKEL,15:POKEW,65
301 POKETH,0:POKETL,255
302 POKEAN,11
303 POKEHA,10
304 POKEFH,EW:POKEFL,ZW
305 G=G+1:W(G)=EW:G=G+1:W(G)=ZW
310 FORT=1TO500:NEXTT
311 POKEW,0
312 RETURN
400 GOSUB5
402 POKETH,0:POKETL,255:POKEDH,0:POKEDL,255:POKEEH,0:POKEEL,255:POKEL,15
404 POKEAN,11:POKEG2,11:POKEG3,11
406 POKEHA,10:POKEH2,10:POKEH3,10
407 POKEW,65
408 POKEFH,W(0):POKEFL,W(1):GOSUB5:POKEW2,65
410 POKEBH,W(2):POKEBL,W(3):GOSUB5:POKEW3,65
412 POKECH,W(4):POKECL,W(5):GOSUB5:POKEW,65
414 POKEFH,W(6):POKEFL,W(7):GOSUB5:POKEW2,65
416 POKEBH,W(8):POKEBL,W(9):GOSUB5:POKEW3,65
418 POKECH,W(10):POKECL,W(11):GOSUB5
420 FORT=1TO500:NEXTT:POKEW,0:POKEW2,0:POKEW3,0:RETURN
500 POKEBA,81:POKEB1+3,87:POKEB3+6,65:POKEB2+6,90:POKEB4,86:POKEB5,86
501 F=56137:GOSUB900:FORP=1TO1000:NEXTP
502 EW=11:ZW=158:GOSUB300:EW=15:ZW=129:GOSUB300:EW=18:ZW=112:GOSUB300
503 EW=23:ZW=59:GOSUB300:GOTO999
510 POKEBA,81:POKEB1,81:POKEB2,81:POKEB1+3,87:POKEB3+6,65:POKEB4+9,90
511 POKEB5,86:F=56141:GOSUB900:FORP=1TO1000:NEXTP
512 EW=9:ZW=56:GOSUB300:EW=11:ZW=158:GOSUB300:EW=13:ZW=208:GOSUB300
513 EW=18:ZW=112:GOSUB300:EW=23:ZW=59:GOSUB300:GOTO999
520 POKEB2,81:POKEB3+3,87:POKEB1+3,65:POKEBA+9,90:POKEB4,86:POKEB5,86
521 F=56145:GOSUB900:FORP=1TO1000:NEXTP
522 EW=10:ZW=247:GOSUB300:EW=13:ZW=208:GOSUB300:EW=18:ZW=112:GOSUB300
523 EW=27:ZW=160:GOSUB300:GOTO999
530 POKEB1,81:POKEB3+3,87:POKEB4+6,65
531 F=56149:GOSUB900:FORP=1TO1000:NEXTP
532 EW=5:ZW=123:GOSUB300:EW=8:ZW=180:GOSUB300:EW=10:ZW=247:GOSUB300
533 EW=13:ZW=10:GOSUB300:EW=17:ZW=103:GOSUB300:EW=21:ZW=237:GOSUB300:GOTO999
540 POKEB2+3,81:POKEBA+3,87:POKEB1+6,65:POKEB5,86
541 F=56153:GOSUB900:FORP=1TO1000:NEXTP
542 EW=7:ZW=81:GOSUB300:EW=9:ZW=196:GOSUB300:EW=14:ZW=162:GOSUB300
543 EW=19:ZW=137:GOSUB300:EW=24:ZW=157:GOSUB300:GOTO999
550 POKEBA,81:POKEB2+3,87:POKEB1+6,65:POKEB5,86
551 F=56157:GOSUB900:FORP=1TO1000:NEXTP
552 EW=7:ZW=81:GOSUB300:EW=9:ZW=196:GOSUB300:EW=14:ZW=162:GOSUB300
553 EW=19:ZW=137:GOSUB300:EW=23:ZW=59:GOSUB300:GOTO999
560 POKEB2,81:POKEB4+3,87:POKEB3+3,65
561 F=56161:GOSUB900:FORP=1TO1000:NEXTP
562 EW=5:ZW=123:GOSUB300:EW=8:ZW=55:GOSUB300:EW=10:ZW=247:GOSUB300
563 EW=13:ZW=208:GOSUB300:EW=16:ZW=109:GOSUB300:EW=21:ZW=237:GOSUB300:GOTO999
570 POKEB4+3,87:POKEB3+3,65
571 F=56165:GOSUB900:FORP=1TO1000:NEXTP
572 EW=5:ZW=123:GOSUB300:EW=8:ZW=55:GOSUB300:EW=10:ZW=247:GOSUB300
573 EW=13:ZW=10:GOSUB300:EW=16:ZW=109:GOSUB300:EW=21:ZW=237:GOSUB300:GOTO999
580 POKEBA,81:POKEB1,81:POKEB2+3,87:POKEB4+6,65:POKEB3+6,90:POKEB5,86
581 F=56169:GOSUB900:FORP=1TO1000:NEXTP
582 EW=8:ZW=180:GOSUB300:EW=11:ZW=158:GOSUB300:EW=14:ZW=162:GOSUB300
583 EW=17:ZW=103:GOSUB300:EW=23:ZW=59:GOSUB300:GOTO999
590 POKEBA,81:POKEB1,81:POKEB2,81:POKEB4+6,65:POKEB3+6,90:POKEB5,86
591 F=56173:GOSUB900:FORP=1TO1000:NEXTP
592 EW=8:ZW=180:GOSUB300:EW=11:ZW=158:GOSUB300:EW=13:ZW=208:GOSUB300
593 EW=17:ZW=103:GOSUB300:EW=23:ZW=59:GOSUB300:GOTO999
600 POKEB1+3,81:POKEB2+6,87:POKEB4+9,65:POKEB3+9,90:POKEBA,86:POKEB5,86
601 F=56177:GOSUB900:FORP=1TO1000:NEXTP
602 EW=9:ZW=56:GOSUB300:EW=12:ZW=78:GOSUB300:EW=15:ZW=129:GOSUB300
603 EW=18:ZW=112:GOSUB300:GOTO999
610 POKEB4+3,81:POKEB5+6,87:POKEBA+6,65
611 F=56181:GOSUB900:FORP=1TO1000:NEXTP
612 EW=6:ZW=133:GOSUB300:EW=8:ZW=55:GOSUB300:EW=9:ZW=196:GOSUB300
613 EW=13:ZW=10:GOSUB300:EW=16:ZW=109:GOSUB300:EW=26:ZW=20:GOSUB300:GOTO999
620 POKEBA,81:POKEB4+3,87:POKEB5+6,65
621 F=56185:GOSUB900:FORP=1TO1000:NEXTP
622 EW=6:ZW=133:GOSUB300:EW=8:ZW=55:GOSUB300:EW=9:ZW=196:GOSUB300
623 EW=13:ZW=10:GOSUB300:EW=16:ZW=109:GOSUB300:EW=23:ZW=59:GOSUB300:GOTO999
630 FORI=BA+6TOB5+6STEP40:POKEI,81:NEXTI:POKEB4+12,65:POKEB3+12,90
631 F=56189:GOSUB900:FORP=1TO1000:NEXTP
632 EW=6:ZW=133:GOSUB300:EW=9:ZW=196:GOSUB300:EW=13:ZW=10:GOSUB300
633 EW=15:ZW=129:GOSUB300:EW=19:ZW=137:GOSUB300:EW=26:ZW=20:GOSUB300:GOTO999
640 POKEBA+9,81:POKEB1+9,81:POKEB2+12,87:POKEB4+15,65:POKEB3+15,90:POKEB5+9,86
641 F=56193:GOSUB900:FORP=1TO1000:NEXTP
642 EW=10:ZW=89:GOSUB300:EW=13:ZW=208:GOSUB300:EW=17:ZW=103:GOSUB300
643 EW=20:ZW=178:GOSUB300:EW=27:ZW=160:GOSUB300:GOTO999
650 POKEB3+3,81:POKEB2+3,87:POKEB1+3,65
651 F=56197:GOSUB900:FORP=1TO1000:NEXTP
652 EW=5:ZW=123:GOSUB300:EW=7:ZW=81:GOSUB300:EW=10:ZW=247:GOSUB300
653 EW=14:ZW=162:GOSUB300:EW=18:ZW=112:GOSUB300:EW=21:ZW=237:GOSUB300:GOTO999
660 POKEB3+3,81:POKEB2+3,87:POKEB1+3,65:POKEBA+6,90
661 F=56201:GOSUB900:FORP=1TO1000:NEXTP
662 EW=5:ZW=123:GOSUB300:EW=7:ZW=81:GOSUB300:EW=10:ZW=247:GOSUB300
663 EW=14:ZW=162:GOSUB300:EW=18:ZW=112:GOSUB300:EW=26:ZW=20:GOSUB300:GOTO999
670 POKEB1,81:POKEB3+3,87:POKEB2+3,65
671 F=56205:GOSUB900:FORP=1TO1000:NEXTP
672 EW=5:ZW=123:GOSUB300:EW=7:ZW=81:GOSUB300:EW=10:ZW=247:GOSUB300
673 EW=14:ZW=162:GOSUB300:EW=17:ZW=103:GOSUB300:EW=21:ZW=237:GOSUB300:GOTO999
680 FORI=BATOB4STEP40:POKEI,81:NEXTI:POKEB3+6,87:POKEB2+6,65:POKEB1+6,90
681 POKEB5,86:F=56209:GOSUB900:FORP=1TO1000:NEXTP
682 EW=7:ZW=193:GOSUB300:EW=11:ZW=158:GOSUB300:EW=15:ZW=129:GOSUB300
683 EW=19:ZW=137:GOSUB300:EW=23:ZW=59:GOSUB300:GOTO999
690 POKEBA+3,81:POKEB3+9,87:POKEB2+9,65:POKEB1+9,90:POKEB4+3,86:POKEB5+3,86
691 F=56213:GOSUB900:FORP=1TO1000:NEXTP
692 EW=12:ZW=78:GOSUB300:EW=16:ZW=109:GOSUB300:EW=20:ZW=178:GOSUB300
693 EW=24:ZW=157:GOSUB300:GOTO999
700 POKEBA+3,81:POKEB1+6,87:POKEB3+9,65:POKEB2+9,90:POKEB4+3,86:POKEB5+3,86
701 F=56217:GOSUB900:FORP=1TO1000:NEXTP
702 EW=12:ZW=78:GOSUB300:EW=16:ZW=109:GOSUB300:EW=19:ZW=137:GOSUB300
703 EW=24:ZW=157:GOSUB300:GOTO999
900 FORT=FTOF+2:POKET,7:NEXTT:RETURN
999 GOSUB400:GOTO200
1000 POKE53281,12:POKE53280,11:POKE53272,21:PRINT"[147][144]";
1010 PRINT"    **** PROGRAMM VON P.GROTH ****
1020 [153]"BUND1  2  3  4  5  6  7  8  9  10 11 12
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]
1040 [153]" EABS``{``{``{``{``{``{``{``{``{``{``{``{
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]
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)
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]
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)
1090 PRINT" E[182]``{``{``{``{``{``{``{``{``{``{``{``{
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(
1110 PRINT"   0=DAUMEN          a=RINGFINGER
1120 [153]"   (null)=ZEIGEFINGER     (null)=KLEINER FINGER
1130 PRINT"   [215]=MITTELFINGER    [214]=GEDAEMPFTE SAITE
1140 [153]"                                       ";
1150 [153]"WAIT    WAIToUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR";
1160 [153]"    WAITSGNWELCHER GRIFF
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]";
1180 PRINT" CM ;C# ;C#M;C  ;D  ;DM ;E  ;EM ;F  ;FM  F# ";
1190 PRINT"[146];G  ;G7 ;GM ;G# ;A  ;A7 ;AM ;A# ;H   HM ";
1200 PRINT"   -Q- ZURUECK ZUM STIMMEN[144]";
1220 RETURN