EXTERNALROUTINE  MP(STRING (255)S)
SYSTEMROUTINESPEC  PHEX(INTEGER  I)
EXTERNALROUTINESPEC  DPVM(INTEGERARRAYNAME  X,Y,ALL,FSYS,PT, C 
      STRING (6)ARRAYNAME  USER)
CONSTINTEGER  TOPI = 15
INTEGERARRAY  FSYS, PT(0:TOPI)
STRING (6)ARRAY  USER(0:TOPI)
INTEGERARRAY  X,Y(16:31)
INTEGERARRAY  ALL(0:63)
INTEGER  I, J
!
      DPVM(X, Y, ALL, FSYS, PT, USER)
!
      CYCLE  I = 0, 1, TOPI
         WRITE(FSYS(I),6)
         WRITE(PT(I),6)
         SPACE
         PRINTSTRING(USER(I))
         NEWLINE
      REPEAT 
!
!      %CYCLE I = 0, 8, 56
!      %CYCLE J = 0, 1, 7
!      PHEX(ALL(I+J))
!      SPACE
!      %REPEAT
!      NEWLINE
!      %REPEAT
!
      CYCLE  I = 16, 1, 31
         WRITE(I, 2)
         WRITE (X(I), 4)
         SPACE
         PHEX(Y(I))
         NEWLINE
      REPEAT 
END 
ENDOFFILE