5 REM =MUSIKCREATOR==============C64
10 FORI=49152TO49517
20 READA:POKEI,A:NEXT
30 DATA 152,072,169,127,141,013,221
40 DATA 172,013,221,152,041,002,208
50 DATA 003,076,182,254,076,097,192
60 DATA 160,000,177,251,141,000,212
70 DATA 200,177,251,141,001,212,024
80 DATA 165,251,105,002,133,251,144
90 DATA 002,230,252,173,043,193,009
100 DATA 001,141,004,212,177,253,073
110 DATA 255,141,052,193,136,177,253
120 DATA 073,255,141,051,193,169,097
130 DATA 208,003,234,234,234,032,053
140 DATA 193,024,165,253,105,002,133
150 DATA 253,144,002,230,254,169,089
160 DATA 141,015,221,076,182,254,173
170 DATA 043,193,041,254,141,004,212
180 DATA 160,000,177,253,073,255,056
190 DATA 237,051,193,141,051,193,200
200 DATA 177,253,240,013,073,255,237
210 DATA 052,193,141,052,193,169,021
220 DATA 076,075,192,172,079,193,192
230 DATA 255,240,001,136,076,080,193
240 DATA 234,234,169,110,162,193,133
250 DATA 251,134,252,160,000,177,251
260 DATA 141,004,221,200,177,251,141
270 DATA 005,221,200,177,251,141,024
280 DATA 212,200,177,251,141,002,212
290 DATA 200,177,251,141,003,212,200
300 DATA 177,251,141,005,212,200,177
310 DATA 251,141,006,212,200,177,251
320 DATA 141,043,193,200,177,251,133
330 DATA 253,200,177,251,133,254,200
340 DATA 024,152,101,251,133,251,144
350 DATA 002,230,252,165,251,024,101
360 DATA 253,133,253,165,252,101,254
370 DATA 133,254,076,252,192,253,096
380 DATA 252,192,144,000,200,133,254
390 DATA 169,130,141,161,002,173,013
400 DATA 221,169,017,141,014,221,169
410 DATA 002,141,006,221,141,007,221
420 DATA 169,044,141,024,003,169,193
430 DATA 141,025,003,169,021,141,019
440 DATA 192,169,089,141,015,221,169
450 DATA 130,141,013,221,096,064,120
460 DATA 072,138,072,076,000,192,138
470 DATA 000,141,019,192,173,079,193
480 DATA 208,005,104,104,076,092,193
490 DATA 173,051,193,141,006,221,173
500 DATA 052,193,141,007,221,096,255
510 DATA 140,079,193,152,240,006,032
520 DATA 149,192,076,188,254,169,000
530 DATA 141,161,002,169,071,162,254
540 DATA 141,024,003,142,025,003,076
550 DATA 188,254
600 PRINTCHR$(147)"FILENAME:":INPUTF$
610 SYS57812"M/"+F$,8:POKE780,0
620 POKE781,110:POKE782,193:SYS65493
630 SYS57812F$+".MUS",8:POKE193,0
640 POKE194,192:SYS62957