10 PRINT"[147][144]DYNAMUSIC CUSTOMIZER"
20 INPUT"NAME OF FILE TO BE SAVED";N$
30 A=40448:S=A:E=40833
40 H=INT(A/256):L=A-256*H:OPEN2,8,2,"0:"+N$+",P,W":PRINT#2,CHR$(L);CHR$(H);
50 FORJ=STOE:PRINT#2,CHR$(PEEK(J));
60 IFST>0THENPRINT"SAVE ERROR.":PRINT#2:CLOSE2:END
70 NEXT:CLOSE2:PRINT"SAVE COMPLETE."