Begin_Of_File // Check while(!At_EoF){ Search("| alles in Pfennig) BoF #7 = Num_Eval() #8 = #7 / 2 Buf_Empty(OK) Num_Ins(#8, LEFT+NOCR) EoL Char(-2) Ins_Text(".") Char(-1) repeat(ALL){ if(Cur_Pos > 3){ Char(-3) Ins_Text(",") Char(-1) }else{ break } } BoF Reg_Copy_Block(11, 0, EoL_Pos) Buf_Switch(#1) if(#9 == -1){ Ins_Text("-") } Reg_Ins(11) Line(1) Char(1) Del_Block(Cur_Pos, EoL_Pos) if(#9 == -1){ Ins_Text("-") } Reg_Ins(11) Line(1) }