XLFUTL ;SFISC/RWF - Library Function, Check digit ;6/29/94 14:04
Source file <XLFUTL.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CCD(%X) | ; Compute check digit and append to number
 | 
 
  | 
| VCD(%X) | ; -- Verify check digit (last digit)
 ; -- Pass X = integer with check digit appended ; -- rtns 0 if check not valid or 1 if valid  | 
 
  | 
| QL(X) | ;$QLENGTH OF GLOBAL STRING
 | 
|
| QS(X1,X2) | ;$QSUBSCRIPT OF GLOBAL STRING
 | 
|
| BASE(%X1,%X2,%X3) | ;Convert %X1 from %X2 base to %X3 base
 | 
 
  | 
| DEC(N,B) | ;Cnv N from B to 10
 | 
 
  | 
| CNV(N,B) | ;Cnv N from 10 to B
 | 
 
  |