//
// SRCOLUMN.VDM                                  (C) C.Z. 06.07.1998
//
//


Num_Push(100,100)
#100=CRN
Save_Pos()

while(1) {
  L(1, NOERR) 
  if(!EF){
    GC(#100,EXTRA)
    if(Match("|X")!=0){
      break
    }
  } else {
    break
  }
}

if((Match("|X")==0) || AT_EOF){
  Restore_Pos()
  alert()
} else {
  Restore_Pos(CLEAR)
}

Num_Pop(100,100)


// Num_Push(100,100) #100=CRN Save_Pos() while(1){L(1,NOERR) if(!EF){GC(#100,EXTRA) if(Match("|X")!=0){break}} else {break}} if((Match("|X")==0)||AT_EOF){Restore_Pos() alert()} else {Restore_Pos(CLEAR)} Num_Pop(100,100)