Re: Re[2]: Lines

[Ben Le <ble@PCC.EDU>]

Rick,
I couldn't resist to reply about this one. Your logic is good! Why not do this to save the complication of 'LET' command.

begin-procedure print_dash
Let $DashedLine = '-'
print $DashedLine (#WhereEverRow, WhereEverCol,#Length) FILL
end-procedure print_dash

At 07:45 AM 11/23/98 -0500, you wrote:
>
>     Another approach to the lines would be:
>
>     begin-program
>       Let $DashedLine =
>     '------------------------------------------------------------------'
>       Let #LengthOfString = 20
>       Let $MyDashedLine = substr($DashedLine,1,#LengthOfString)
>       Print $MyDashedLine (#WhereEverRow, WhereEverCol)
>     end-program
>
>     The idea being that different lengths of $DashedLine could be printed
>     if this were set up as a procedure or function.
>
>     You can also have $DottedLine, $DotDashedLine, $UndrLine, ...
>
>     hth,
>
>     Rick

Benjamin Le
System Development, ITS
Portland Community College
PO Box 19000 Portland, OR. 97280-0990 U.S.A.
Phone: (503)-977-4970  Fax:(503)-977-4987
E-mail: Mailto:ble@pcc.edu
PCC Web: http://www.pcc.edu