0 CLR
2 PRINT"[147]"POKE53280,6:POKE53281,6
10 REM RINGING ALARM
20 FOR L=54272 TO 54295:POKE L,0:NEXT:POKE 54296,15
30 POKE 54277,8:POKE 54278,255:POKE 54276,23
40 POKE 54287,40
50 FOR Z=1 TO 7
60 FOR F1=255 TO 0 STEP -6:POKE 54273,F1:NEXT F1
70 FOR F1=0 TO 255 STEP 20:POKE 54273,F1:NEXT F1,Z
80 POKE 54278,15