0 K = 550
 5  GOTO 200
 10  REM  * MUSIC SETUP *
 20  FOR A = 771 TO 789: READ D
 30  POKE A,D: NEXT A
 40  DATA  173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96
 50  RETURN 
 60  REM *RESTORE DELAY <IF RESTORE IS USED>*
 70  FOR B = 1 TO 19
 80  READ Q: NEXT B
 82  RETURN 
 85  REM  * SOUND MUSIC *
 90  POKE O,P: POKE 1,L: CALL 771
 95  RETURN 
 100  REM  * EFFECTS SETUP *
 110  FOR X = 848 TO 870: READ Y
 120  POKE X,Y: NEXT X
 130  DATA  160,32,152,32,95,3,73,255,32,95,3,136,208,244,96,170,202,208,253,44,48,192,96
 140  RETURN 
 150  REM  * SOUND EFFECT *
 160  POKE 849,L: POKE 855,P: CALL 848
 170  RETURN 
 200  GOSUB 10: GOSUB 100
 205  GOSUB 300
 210  HOME 
 220  PRINT " THIS COMPUTER WILL SELF DESTRUCT IN : "
 230  FOR R = 1 TO 10
 240 P = 0:L = 0: GOSUB 150
 250  NEXT 
 260  FOR T = 10 TO 1 STEP  - 1
 270  VTAB 10: HTAB 20: PRINT " ";T;" "
 272 P = 255:L = 255: GOSUB 150
 275  FOR H = 1 TO K: NEXT H
 280  NEXT T
 285  HOME : PR# 6
 290  END 
 300  HOME 
 310  HTAB 5
 320  PRINT " << PRESS ANY KEY TO ACTIVATE >>"
 330  GET C$
 340  RETURN