![]() |
![]() |
|
![]() |
![]() |
|
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) | |
|
|