10 REM ZELL-EINBINDUNG==============
20 SYS57812"ZELL.MUS",8,1:POKE780,0:SYS65493
30 POKE49487,1:SYS49301
40 GETA$:IFA$=""ANDPEEK(49487)<>0THEN40
50 POKE49487,0