ELEKTRONISCH KOMPONIEREN+ 4000:d EINGEBENXn : "----EINGEBEN-----"rx "#- oder b-Tonart?" " (#/b):";B$ "Notenblatt-Nr.?" " (1...4):";NNU153(N1) : HN C$(0)B$ 250 B$"#" 4710 : 210 B$"b" 4730 : 210" 110/C$(0)B$> I1 TL[ D$ : C$(I)(D$" ",2)c IM(NU,0)(B$) : L(" ") I0 1 : JNU1 NU152M(J,I)L J : I, 9,24,1,38 : 0,7 : 6 Z0 3@ 94Z,31,0,39 : NZNU38ZJM(NU,1)Z : S12T 3,S : 2;"["D^ I0 1 0QhE(509)ar E0 I1i| Iz E31 550 E8 T1 430 (30,T); 0;" " : TT1 (30,T); 4;(139) : 350 E9 TTL 460 (30,T); 0;" " : TT1' (30,T); 4;(139) : 3509 E13 510U (30,T); 23,4;(139)eM(NZS,0)T~ 0,S : (C$(T),1) 1,S : (C$(T),1) E25 S1 530 3,S : " " : SS1 : 340 E24 S38 350  3,S : " " : SS1 : 340& E47 59020 (E)"," 690O: (E)"." Z3 : 690jD 0,S : (E) : 350{N E57 640X (30,T); 4;(139)bM(NZS,1)El 2,S : (E)v S38 540 : 350M(NZS,0)E 0,S : (E)  (E)":" 680%  S38 540 : 350I  (30,T); 23,4;(139) : 350a  3,1 : (38,"-")i  Zt  4510  KORRIGIEREN  : "---KORRIGIEREN---" :  "Notenblatt-Nr.?"  " (1...4):";N NU153(N1)  NH 0,7 : 310 : HN; B M(NU,0)(C$(0)) 1140 : C$(0)(M(NU,0))_ L C$(0)"#" 4710 : 4730n V I1 TL ` D$ : C$(I)(D$" ",2) j I t 9,24,1,38 : 0,7 : ~ Z0 M(NU,1)  94Z,31,0,39 : NZNU38Z  S1 38  0,S*  M(NZS,0)31 (M(NZS,0)) : 1260C  (C$(M(NZS,0)),1)M  1,Sf  (C$(M(NZS,0)),1)p  2,S  (M(NZS,1))  S : Z  310  ABSPIELEN  : "----ABSPIELEN----"  "Notenblatt-Nr.?"  " (1...4):";N  "Dauer ganze Note?"%  " (<256):";TD6 NU153(N1)[  NH 9,24,1,38 : 0,7 : h *P(0,0)1 4 INU1 NU(M(NU,1)1)38 > M(I,0)(":") P(P(0,0),0)0 : 2140 H M(I,0)31 2160 RP(P(0,0),0)C(M(I,0),0) : P(P(0,0),1)C(M(I,0),1) \P(P(0,0),2)((M(I,1)))4 fP(0,0)P(0,0)1< p IO TD(TD80.5)d  I1 P(0,0)1  P(I,0),P(I,1),0,0,15,P(I,2)TD  I  4,8,2,21 : 7,0 :  "Wiederholen?" :0,0,0,0,0,0  " (J/N):";V$  V$"J" 4510 "Dauer ganze Note?"'$ " (<256):";TD2. 2250? RETTEN] : "------SAVE-------"x "Recorder bereit?";Q "LIEDER";M : (5,5);"Fertig!" 40 : : 4520 LADEN& : "------LOAD-------"0 "Recorder bereit?";Q: "LIEDER";M-D : (5,5);"Fertig!"CN 40 : : 4520W BS-GESTALTUNG` TLx P(152,2),M(611,1) C(TL,1),C$(TL) 4750 I1 TL C(I,0) : I 4770 I1 TL C(I,1) : I (17) : O,31,0,39 : 7,0 : : @ 3);"*** ELEKTRONISCH KOMPONIEREN ***"Q 3,31,25,39d" "NOTENWERTE"|, 1);"8 6 4 3 2 1"6 7;13) : @ 7;13)J L0 5TX21116L : Y204^ L2 4240h X,Y,3,0r L0 L| X3,Y,X3,Y10) L1 X6,Y : L : L7 R1 3K X,Y,R,0 : R` X3,Y,X3,Y10z L3 X6,Y : L L4 L X3,Y10,X8,Y10 : L 4710 I1 TL D$ (D$)2 (29,I); 7;" " : 4380 (26,I);D$ J27 293 (J,I); 7;" "; : Jq D$"C" D$"F" D$"c" D$"f" 8I1,16,8I1,39y I& 26,31,34,380 "PAUSETAKT ZEILEENDE SPIEL": 26,31,32,32 : 0,7D ":_,."(141)N (25,28);(146)(136)(137)X (30,29);(136)(137);bT6 : (30,T); 4;(139)Ol 9,24,1,38 : [ MENUE 3,8,2,21 : 7,0 : : 0,0,0,0,0,0 "-----AUSWAHL-----" "E Eingeben" : "K Korrigieren" "A Abspielen" : "S Save L Load" 4,15 : "";V$ V$"E" 100* V$"K" 1000> V$"A" 2000R V$"S" 3010f V$"L" 3110q 4510z\ 23f G,G#,A,A#,H,C,C#,D,D#,E,F,F#p g,g#,a,a#,h,c,c#,d,d#,e,fz G,Ab,A,Hb,H,C,Db,D,Eb,E,F,gb g,ab,a,hb,h,c,db,d,eb,e,f2 18,17,16,15,229,216,204,192,182,171,162,153` 144,136,128,120,114,108,102,96,91,86,81~ 1,1,1,1,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0,0,0,192,182,171,162,153` 144,136,128,120,114,108,102,96,91,86,81~ 1,1,1,1,0,0,0,0,0,0,0,0