FORMAT B
<CONTINUE
PIP B:=*.*[V]
COPYSYS SYSLDR.COM B:
<N
PIP B:=CPM3.SYS[R]
PIP A:=B:FORMAT.COM[V]
B:
COPYSYS SYSLDRF.COM A:
<N
PIP A:=CPM3F.SYS[R]
A:
MBASIC CYCLE.CNT
REPEAT