home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 August / 1987-08.d64 / dyna-customizer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  239 b   |  8 lines
  1. 10 print"[147][144]dynamusic customizer"
  2. 20 input"name of file to be saved";n$
  3. 30 a=40448:s=a:e=40833
  4. 40 h=int(a/256):l=a-256*h:open2,8,2,"0:"+n$+",p,w":print#2,chr$(l);chr$(h);
  5. 50 forj=stoe:print#2,chr$(peek(j));
  6. 60 ifst>0thenprint"save error.":print#2:close2:end
  7. 70 next:close2:print"save complete."
  8.