5	! CLEARU- INITIALIZE THE MAILER & SWITCH FILES
100 OPEN "**MASTER" AS FILE  1  : DIM# 1 ,M%(100)
110 OPEN "**MAILER" AS FILE  2  : DIM# 2 ,M$( 1111 )=32
120 OPEN "**SWITCH" AS FILE  3  : DIM# 3 ,S%( 1111 )
130	B$=SPACE$(32)
200	M$(M%(100%))=B$ : S%(M%(100%))=0% ! MARK END OF FILES
210	M$(I%)=B$ FOR I%=1% TO M%(100%)-1%
220	S%(I%)=0% FOR I%=1% TO M%(100%)-1%
32000	CLOSE 1,2,3
32500	END