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