start tok64 d64-r0aWJl
10 REM *** interrupt player ***
20 REM *** av mikael pawlo. ***
30 FORbymp=49152TO49199:READshn
40 POKEbymp,shn:NEXTbymp
50 INPUT"init(decimalt)";init
51 a=INT(init/256)
52 b=init-(a*256)
60 POKE 49185,a
62 POKE 49184,b
70 INPUT"play(decimalt)";play
71 a=INT(play/256)
72 b=play-(a*256)
75 POKE 49195,a
76 POKE 49194,b
80 PRINT "spela musiken med sys 49152."
90 PRINT "lycka till! /mikael pawlo"
300 DATA  120 , 169 , 127 , 141 , 13
310 DATA  220 , 169 , 1 , 141 , 26
320 DATA  208 , 169 , 250 , 141 , 18
330 DATA  208 , 169 , 27 , 141 , 17
340 DATA  208 , 169 , 36 , 141 , 20
350 DATA  3 , 169 , 192 , 141 , 21
360 DATA  3 , 32 , 0 , 24 , 88
370 DATA  96 , 169 , 1 , 141 , 25
380 DATA  208 , 32 , 6 , 24 , 76
390 DATA  49 , 234 , 0 , 0 , 0
stop tok64
(bastext 1.0)