EXTERNALINTEGERFNSPEC D SET PASSWORD(STRING (6)USER, INTEGER FSYS, WHICH, STRING (63)OLD, NEW) EXTERNALINTEGERFNSPEC DSFI(STRING (6)U, INTEGER F, T, S, A) EXTERNALROUTINE SETPASS(STRING (255)S) INTEGER J, A, F, B STRING (255)USER, PASS J = 99 -> OUT UNLESS S -> USER.(",").PASS A = ADDR(F) F = M'Pass' B = 0 J = DSFI(USER, -1, 5, 1, A) -> OUT UNLESS J = 0 J = DSETPASSWORD(USER, -1, 0, "Pass", PASS) OUT: PRINTSTRING("J =") WRITE(J, 1) END ENDOFFILE