home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 August
/
1987-08.d64
/
dyna-customizer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
239b
|
8 lines
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."