# Arguments: *PSOUT : Global open file descriptor # $loc$ : LOC for following block # $length$ : X length # $xstart$ : X starting position # $ystart$ : Y starting position # # Return Values: None # Description: Inserts PS code to draw a top line and LOC.