%BEGIN
%LONGINTEGER L,M,N
! TEST OF LINT & LINTPT
%LONGLONGREAL X
%INTEGER I,J
      L=X'FEDCBA98FEDCBA98'

      %FOR J=0,1,1 %CYCLE
         %FOR I=0,1,30 %CYCLE
            N=(-1)****J*(L>>I)
            X=N
            M=LINTPT(X)
            %UNLESS N=M %START
               %MONITOR
               WRITE(I,1)
               WRITE(N-M,5)
               NEWLINE
               %STOP
            %FINISH
            M=LINT(X)
            %UNLESS M=N %START
               %MONITOR
               WRITE(I,1)
               WRITE(N-M,5)
               NEWLINE
               %STOP
            %FINISH
         %REPEAT
      %REPEAT
      PRINTSTRING("TEST OK")
%ENDOFPROGRAM