FORMAT B
PIP B:=PIP.COM
B:PIP CON:=MSG1.TXT
ERA B:PIP.COM
PIP CON:=MSG2.TXT
SEEKTEST A
PIP CON:=MSG3.TXT
SEEKTEST B
FORMAT B
PIP CON:=MSG4.TXT
MBASIC CYCLE.CNT
SUBMIT REPEAT