unbekannter source - welche sprache?
CHKSUM(STRING);
S CHKSM=0
F I=1:1:$L(STRING) D
.S CHKSM=$A(STRING,I)#128+CHKSM
.S CHKSM=CHKSM*2
usw.
dann:
S %DH=CHKSM D^%DH
usw.
mfg
ascii
____________________________________
640kB sollten für jedermann genug sein - BILL GATES
|