//
//  FSPLIT.VDM                                     (C) C.Z.  26.06.1996
//

#1=0
BS(1)
BoF
OutReg(99)
NAME_READ(NOMSG+NOCR)
OutReg(0)

Call("NEXTNUMBER")

while(! AT_EoF) {
  BoF
  BB(Clear)
  BB(CP)
  gp(1400000)
  BE(CP)
  Write_Block("|@(1)",BB,BE)
  call("NEXTNUMBER")
  Del_Block(BB,BE)
}
Qally

// ======================================================================

:NEXTNUMBER:

BS(2)
#1 = #1 + 1
BufEmpty(OK)
RegIns(99)
BoF
S(".",NOERR+ADVANCE)
if (ErrorFlag) {
  EoL
  IT(".")
}
BB(CLEAR)
BB(CP)
EoL
Del_Block(BB,CP)

if (#1 < 100) {
  IT("0")
  if (#1 < 10) {
    IT("0")
  }
}
Num_Ins(#1, LEFT)
BoF
BB(CLEAR)
BB(CP)
EoL
BE(CP)
RCB(1,BB,BE)
BS(1)

return

// ======================================================================