{ Contents: } { hpos - returns current cursor position } { tab - tab to specified position } { (for both, 1st position is column 0) } {$nodebug} function hpos:integer; { Returns horizontal position of cursor (leftmost is 0) - 1/84 - EFM } var xrbc origin 444B : integer; xrci origin 450B : integer; begin xrci := 0; emt(255); emt(26); hpos := xrbc end; {$debug} type tab$$string$$type = packed array [1..132] of char; function tab(pos:integer): tab$$string$$type; { returns a string of the appropriate number of spaces to get you to the } { desired spot. Usage: writeln(x:1,tab(25),y:1) - y will begin in column } { 25 (counting the 1st position as column 0). Does not tab backwards. } { - 8/84 - EFM } var temp : tab$$string$$type; i,j : integer; begin for i := 1 to 132 do temp[i] := chr(0); j := hpos; for i := 1 to pos - j do temp[i] := ' '; tab := temp end;