10 N$="MUSIC . 1":REM MUSIK-FILE
11 REM
15 POKE54296,15:REM LAUTSTAERKE
100 NA=0:SI=54272:REM KONSTANTEN
101 OPEN2,8,2,N$+"*,S,R"
102 INPUT#2,N:REM NOTENANZAHL
103 INPUT#2,A1:REM NOTENWERTE STIMME 1
104 INPUT#2,A2:REM UND SO WEITER...
105 INPUT#2,A3
106 INPUT#2,B1
107 INPUT#2,B2
108 INPUT#2,B3
109 POKESI+5,8*16+1:POKESI+6,3*16+3:POKESI+12,5*16+6
110 POKESI+13,7*16+8:POKESI+19,4*16+6:POKESI+20,8*16+8
111 POKESI,B1:POKESI+7,B2:POKESI+14,B3:POKESI+1,A1:POKESI+8,A2:POKESI+15,A3
112 POKESI+4,33:POKESI+11,17:POKESI+18,33
113 NA=NA+1:IFNA=NTHENCLOSE2:END
114 REM
115 FORX=1TO50:NEXT:REM PAUSE
116 GOTO103:REM NAECHSTE NOTE !
200 REM
201 REM *******************************
202 REM *                             *
203 REM *  3-STIMMIGE MUSIK IN BASIC  *
204 REM * --------------------------- *
205 REM *                             *
206 REM * EDITOR UND VERFEINERUNG DER *
207 REM * ROUTINE VON ZEITGEIST/H-T ! *
208 REM *                             *
209 REM *******************************
210 REM