From: mmphosis@macgui.com   
      
   	ORG $0300   
   	LDA #$A3   
   	LDX #$78   
   loop   
   	DEX   
   	STA $400,X   
   	STA $480,X   
   	STA $500,X   
   	STA $580,X   
   	STA $600,X   
   	STA $680,X   
   	STA $700,X   
   	STA $780,X   
   	BNE loop   
   	RTS   
      
   0FORI=768TO799:READB:POKE   
   I,B:NEXT:DATA169,163,162,120,202,157,0,4,157,128,4,157,0,5,157,1   
   8,5,157,0,6,157,128,6,157,0,7,157,128,7,208,229,96   
   1 C =  ASC ("#")   
   2  POKE 769,C + 128: CALL 768   
   3  WAIT 49152,128: POKE 49168,0   
   4  POKE 37,255   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)