// // BlockColPad.vdm Christian Ziemski 14.01.2004 // // Pads a columnar block with spaces at end-of-line. // if ((BB != -1) && (BE != -1) && Column_Mode) { #103=Column_Begin #104=Column_End Goto_Pos(BE) #105=Cur_Line if (Cur_Col < #104) { #105-- } Goto_Pos(BB) while ((Cur_Line <= #105) && (! At_EoF)) { EoL if (Cur_Col < #104) { Ins_Char(32, COUNT, #104-Cur_Col+1) } Line(1, NOERR) Goto_Col(#103) } }