// // Ermitteln der Edit-Function-Codes (C) C.Z. 4.8.94 // // erwartet File im Format [Lang-Code] \xy\ // erzeugt [Lang-Code] \xy\ Num-Code // Begin_Of_File While (! At_EOF) { Begin_Of_Line Search("\",ADVANCE+NOERR) if (ERROR_MATCH) {Return} #1=Cur_Char Char(1) #1=#1+256*Cur_Char Do_Visual("\le\") Ins_Text(" ") Num_Ins(#1,NOCR) Line(1) }