SPL,L,O,"<LJUST>" 
! 
! 
      NAME LJUST(7) "92425-16026 REV.1841 780927" 
! 
!-------------------------------------------------------------
! 
! 
!     M. CHAMBREAU      17MAY76    REV. A 
! 
!     "C" COPYRIGHT HEWLETT-PACKARD COMPANY 1976. 
!     ALL RIGHTS RESERVED.  NO PART OF THIS PROGRAM 
!     MAY BE PHOTOCOPIED, REPRODUCED OR TRANSLATED
!     TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR 
!     WRITTEN CONSENT OF THE HEWLETT-PACKARD COMPANY. 
! 
!-------------------------------------------------------------
! 
! 
! 
      LET PUT BE SUBROUTINE,EXTERNAL,DIRECT   ! PUT A CHAR
      LET GET BE FUNCTION,EXTERNAL,DIRECT     ! GET A CHAR
! 
! 
LJUST: SUBROUTINE (STRN) GLOBAL 
      LET STRN(1) BE INTEGER
      LEN _ STRN(1)                   ! GET STRING CCNT 
      IF LEN <=0 THEN RETURN          ! ILLEGAL STRING
AT2:  FOR I _ 1 TO LEN DO THRU AAA     ! FOR ALL CHARS
         .B. _ @STRN
         .A. _ I                       ! CHAR CNT 
         GET
AAA:     IF .A. # " " THEN GO TO LJ1
LJ1:  IF I = 1 THEN RETURN
      STRN(1) _ 0 
      FOR I _ I TO LEN DO THRU BBB
         .B. _ @STRN
         .A. _ I
         ACHR _ GET 
         .B. _ @STRN
         .A. _ ACHR 
BBB:     PUT
      RETURN                           !
      END                              !
      END 
END$
                                                                                                                                                                                              