10 *SAVE-ROUTINE FUR C-64 SYNTHESIZER
20 *BITTE IM DIREKTMODUS EINGEBEN,
30 *ALSO OHNE ZEILENNUMMERN
40 *
100 POKE 781,GERAETENUMMER (1 BZW 8)
110 SYS 65466
120 NM$="SYNTHESIZER-OBJ"
130 POKE183,LEN(NM$)
140 POKE781,681AND255
150 POKE782,681/256
160 FORC=1TO15:POKE680+C,ASC(MID$(NM$,C)):NEXT
170 POKE250,12032AND255
180 POKE251,12032/256     *STARTADRESSE
190 POKE780,250
200 POKE781,13790AND255
210 POKE782,13790/256     *ENDADRESSE
220 SYS65496              *SAVE