SPL,L,O,"" ! ! 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$