![]() |
![]() |
|
|
|||||||
| Programmierung Rat & Tat für Programmierer |
|
|
Themen-Optionen | Ansicht |
|
|
#1 |
|
Veteran
![]() |
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 |
|
|
|
| Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1) | |
|
|