// // INSSYSDATE.VDM Ch.Ziemski 07.05.2002 // // date(NOMSG+NOCR) time(NOMSG+NOCR) // 05-07-2002 8:05:01 // ==> // 20020507080501 #103=Buf_Num Buf_Switch(Buf_Free(EXTRA)) Out_Ins() Date(NOMSG+NOCR) Time(NOMSG+NOCR) Out_Ins(CLEAR) BoF Reg_Copy_Block(103, Cur_Pos+6, Cur_Pos+10, DELETE) Reg_Ins(103) Replace("-", "", BEGIN+ALL) Replace(" {[0-9]}:", "0\1:", BEGIN+ALL+REGEXP) Replace(":", "", BEGIN+ALL) Replace(" ", "", BEGIN+ALL+NOERR) Reg_Copy_Block(103, 0, File_Size, DELETE) Buf_Quit(OK) Buf_Switch(#103) Reg_Ins(103)