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