home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_01_03 / 1n03055b < prev    next >
Text File  |  1990-07-05  |  960b  |  42 lines
  1.  
  2. $FUNCTION
  3. cint
  4. CLEAR VAR upass
  5. SET VAR upass TEXT arg1 TEXT unull TEXT ulen INT uchar TEXT ucount INT
  6. SET VAR arg1 = .%1   *(argument one)
  7. SET VAR ucount = 1
  8. SET VAR ulen = (SLEN(.arg1))
  9. SET ERROR VAR errvar
  10. WHILE ucount LE .ulen THEN
  11.    SET VAR uchar = (SGET(.arg1,1,.uco9unt))
  12.    SET VAR uchar INT
  13.    IF errvar EQ 0 THEN
  14.       SET VAR uchar TEXT
  15.       SET VAR upass = (.upass + .uchar)
  16.    ELSE
  17.       WRITE "Value must be numeric" AT 1 1
  18.       SET VAR vpas = 0
  19.       GOTO skipper
  20.    ENDIF
  21.    SET VAR ucount = (.ucount + 1)
  22. ENDWHILE
  23. SET VAR ulen = (SLEN(.upass))
  24. IF ulen GT 9 THEN 
  25.    BEEP
  26.    CLS FROM 1 to 2
  27.    WRITE "Maximum integer length is 9 digits" AT 1 1 LIGHT RED
  28.    WRITE "Press any key to continue..."
  29.    PAUSE
  30.    CLS FROM 1 to 2
  31.    SET VAR upass = 0
  32. ELSE
  33.    IF ulen = 0 THEN
  34.       SET VAR upass = (.upass)
  35.    ENDIF
  36. ENDIF
  37. LABEL skipper
  38.    SET VAR upass INT
  39. CLEAR arg1 uchar ulen ucount errvar
  40. RETURN .upass
  41.  
  42.