DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦e25ab10dd⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »CHEKSUM.PAS«

Derivation

└─⟦2a24d2e1b⟧ Bits:30003042 Programmer fra Aarhus kursus
    └─ ⟦this⟧ »CHEKSUM.PAS«

TextFile

VAR B : ARRAY(.0..127.) OF BYTE;
    F : FILE;
    N,S : BYTE;
    BN : INTEGER;
    C : REAL;
BEGIN
  ASSIGN(F,'DDT.COM'); RESET(F);
  C:=0.0; BN:=0; S:=0;
  WHILE NOT EOF(F) DO BEGIN
    WRITE('BLOK NR. ',BN,'    ');
    BLOCKREAD(F,B,1);
    FOR N:=0 TO 127 DO C:=C+B(.N.);
    BN:=BN+1; S:=S+1;
    WRITELN('CHEKSUM : ',C:12:0);
    IF S MOD 20=0 THEN BEGIN
      WRITE('TRYK RETURN '); READLN
    END;
  END;
  CLOSE(F)
END.«eof»