      SUBROUTINE (PG.LGTH)
** Version# 4 - 12/28/1997 - 06:28pm - STEELI - develop

          DET.LINES = PG.LGTH * 2 - 1
          SLPI   = CHAR(27):"&l6D"
          TLPI   = CHAR(27):"&l12D"
          ELPI   = CHAR(27):"&l8D"
          BIG   = CHAR(27):"(8U":CHAR(27):'(s0p6h0s3b4102T'
          MED   = CHAR(27):"(8U":CHAR(27):'(s0p10h1s3b4102T'
          SMALL = CHAR(27):"(8U":CHAR(27):'(s0p16.67h8.5v0s0b0T'
          SUP.SMALL = CHAR(27):"(8U":CHAR(27):'(s0p20h8.5v0s0b0T'
          NORM  = CHAR(27):"(8U":CHAR(27):'(s0p12h0s3b4102T'
          SPECIAL  = CHAR(27):"(10U"
          ROMAN    = CHAR(27):"(8U"
          DASH     = SPECIAL:CHAR(196):ROMAN
          DOWN     = SPECIAL:CHAR(179):ROMAN
          TOP.TEE  = SPECIAL:CHAR(194):ROMAN
          BOT.TEE  = SPECIAL:CHAR(193):ROMAN
          TOP.LEFT = SPECIAL:CHAR(218):ROMAN
          TOP.RGHT = SPECIAL:CHAR(191):ROMAN
          BOT.LEFT = SPECIAL:CHAR(192):ROMAN
          BOT.RGHT = SPECIAL:CHAR(217):ROMAN
          LEFT.MID = SPECIAL:CHAR(195):ROMAN
          RGHT.MID = SPECIAL:CHAR(180):ROMAN
          CROSS    = SPECIAL:CHAR(197):ROMAN
          HSPC = SPACE(56)
PRINT CHAR(27):"*p190Y":TLPI:
PRINT HSPC : TOP.LEFT :STR(DASH,9): TOP.TEE : STR(DASH,12) :TOP.RGHT
PRINT HSPC : DOWN : '' "L#9" : DOWN : '' "L#12" : DOWN
PRINT HSPC : LEFT.MID : STR(DASH,9) : CROSS : STR(DASH,12) : RGHT.MID
PRINT HSPC : DOWN : '' "L#9" : DOWN : '' "L#12" : DOWN
PRINT HSPC : DOWN : '' "L#9" : DOWN : '' "L#12" : DOWN
PRINT HSPC : DOWN : '' "L#9" : DOWN : '' "L#12" : DOWN
PRINT HSPC : LEFT.MID : STR(DASH,9) : BOT.TEE : STR(DASH,4): TOP.TEE : STR(DASH,7) : RGHT.MID
PRINT HSPC : DOWN : '' "L#14" : DOWN : '' "L#7" : DOWN
PRINT HSPC : DOWN : '' "L#14" : LEFT.MID : STR(DASH,7) : RGHT.MID
PRINT HSPC : DOWN : '' "L#14" :DOWN : '' "L#7" :DOWN
PRINT HSPC : DOWN : '' "L#14" :DOWN : '' "L#7" :DOWN
PRINT HSPC : DOWN : '' "L#14" :DOWN : '' "L#7" :DOWN
PRINT HSPC : DOWN : '' "L#14" :DOWN : '' "L#7" :DOWN
PRINT HSPC :BOT.LEFT : STR(DASH,14): BOT.TEE : STR(DASH,7) : BOT.RGHT
PRINT CHAR(27):"*p915Y":
PRINT TOP.LEFT : STR(DASH,12): TOP.TEE :STR(DASH,22): TOP.TEE : STR(DASH,22) :TOP.TEE :STR(DASH,9): TOP.TEE :STR(DASH,9) : TOP.RGHT : TLPI
PRINT DOWN : '' "L#12" : DOWN : '' "L#22" :DOWN: '' "L#22":DOWN: '' "L#9":DOWN: '' "L#9": DOWN
PRINT LEFT.MID : STR(DASH,12): CROSS :STR(DASH,22): CROSS : STR(DASH,22) :CROSS :STR(DASH,9):CROSS: STR(DASH,9) : RGHT.MID
FOR JJ = 1 TO 3
PRINT DOWN : '' "L#12" : DOWN : '' "L#22" :DOWN: '' "L#22":DOWN: '' "L#9": DOWN: '' "L#9": DOWN
NEXT JJ
PRINT LEFT.MID : STR(DASH,12): CROSS: STR(DASH,22): CROSS : STR(DASH,22): CROSS :STR(DASH,9) :CROSS : STR(DASH,9): RGHT.MID
PRINT DOWN : '' "L#12" : DOWN : '' "L#22" :DOWN: '' "L#22":DOWN: '' "L#9": DOWN: '' "L#9": DOWN
PRINT LEFT.MID : STR(DASH,12): CROSS :STR(DASH,22): CROSS : STR(DASH,22) :CROSS :STR(DASH,9):CROSS: STR(DASH,9) : RGHT.MID
FOR JJ = 1 TO 3
PRINT DOWN : '' "L#12" : DOWN : '' "L#22" :DOWN: '' "L#22":DOWN: '' "L#9": DOWN: '' "L#9": DOWN
NEXT JJ
PRINT LEFT.MID:STR(DASH,8):TOP.TEE:STR(DASH,3):BOT.TEE:STR(DASH,22):BOT.TEE:
PRINT STR(DASH,4):TOP.TEE:STR(DASH,6):TOP.TEE:STR(DASH,4):TOP.TEE:STR(DASH,5):CROSS:STR(DASH,9):CROSS:STR(DASH,9):RGHT.MID
PRINT DOWN:'' "L#8":DOWN: '' "L#31":DOWN: '' "L#6":DOWN: '' "L#4":DOWN:'' "L#5":DOWN:'' "L#9":DOWN:'' "L#9":DOWN
PRINT LEFT.MID:STR(DASH,8):CROSS:STR(DASH,31):CROSS:STR(DASH,6):CROSS:STR(DASH,4):CROSS:STR(DASH,5):CROSS:STR(DASH,9):CROSS:STR(DASH,9):RGHT.MID
FOR JJ = 1 TO DET.LINES
   PRINT DOWN:'' "L#8":DOWN: '' "L#31":DOWN: '' "L#6":DOWN:'' "L#4":DOWN:'' "L#5":DOWN:'' "L#9":DOWN:'' "L#9":DOWN
NEXT JJ
PRINT BOT.LEFT:STR(DASH,8):BOT.TEE: STR(DASH,31):BOT.TEE: STR(DASH,6):BOT.TEE:STR(DASH,4):BOT.TEE:STR(DASH,5):CROSS:STR(DASH,9):CROSS:STR(DASH,9):RGHT.MID
FOR JJ = 1 TO 5
   PRINT HSPC:"   ":DOWN: '' "L#9":DOWN: '' "L#9":DOWN
NEXT JJ
PRINT HSPC:"   ":LEFT.MID: STR(DASH,9): CROSS : STR(DASH,9): RGHT.MID
FOR JJ = 1 TO 3
   PRINT HSPC:"   ":DOWN: '' "L#9":DOWN: '' "L#9":DOWN
NEXT JJ
PRINT HSPC:"   ":BOT.LEFT:STR(DASH,9):BOT.TEE:STR(DASH,9):BOT.RGHT:
          RETURN
!STEELI~12/28/97~18:28
