home *** CD-ROM | disk | FTP | other *** search
- 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
-