!
!
! ***** PRINT SCALE LINE *****
!
!	Output two lines of numbers for a reference scale
!
PROCEDURE fred$scale

   fred$next_line;			! Move to beginning of next line
   SPLIT_LINE;				! Create open line
   SPLIT_LINE;				! Create open line
   MOVE_HORIZONTAL(-2);
   COPY_TEXT ('         1         2         3         4         5         6         7         8         9         0         1');
   fred$next_line;			! Move to beginning of next line
   COPY_TEXT ('12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890');
   fred$next_line;			! Move to beginning of next line

ENDPROCEDURE;