// GETNEXT.VDM (C) C.Z. 28.03.96 EOF Line(-1) BB(CP) BoF BE(CP) Del_Block(BB,BE) S(".",NOERR) if ( ERROR_MATCH ) { EoL } BB(CLEAR) BB(CP) EoL BE(CP) RCB(1,BB,BE,DELETE) EoL S("|!|D",REVERSE+NOERR) if ( ERROR_MATCH ) { // kein nicht-Ziffer gefunden (nur Ziffern) ?????????? BoL } else { // nicht-Ziffer gefunden Char(1) // 1 Zeichen weiter } if (Match("|D") != 0) { // wenn keine Ziffer if ( Cur_Col > 7 ) { // weniger als 2 Zeichen frei Goto_Col(7) Del_Line(1) } Ins_Text("01") } else { #1=Num_Eval() #2=CHARS_MATCHED Del_Char(#2) Ins_Newline(1) Num_Ins(#1+1,LEFT+NOCR) EoL Char(-1) #3=Cur_Col if ( #3>#2 ) { // wenn Zahl > urspr. Anzahl Ziffern BoL Del_Char(1) // 1. Ziffer l”schen #3-- } BoF EoL Ins_Char('0', COUNT, #2-#3) EoL Del_Char(2) } EoL Reg_Ins(1) File_Save BoF Ins_Text("@SET NEXTFILE=") File_Save_AS("C:\#\SETNEXT.BAT", OK) QALLY