5 IF A<>0 THEN 8
6 PRINT"[147]":POKE53280,6:POKE53281,6
7 A$="[204]OADING [196]E[205][207][206]":GOSUB1000:GOTO10
8 A$="[204]OADED.":GOSUB1000:A$="[212]O ACTIVATE, PRESS [210][197][211][212][207][210][197]":GOSUB1000
9 END
10 A=255:LOAD"DEMON",8,1
1000 FOR X=1 TO (40-LEN(A$))/2:PRINTCHR$(32);:NEXT:PRINTA$:RETURN