(* $M- *)
DEFINITION MODULE BootBlock;

FROM SYSTEM IMPORT CAST;

TYPE
 BootBlock=RECORD
  id:ARRAY [0..3] OF CHAR;
  chkSum:LONGINT;
  dosBlock:LONGINT;
 END;

CONST
 bootSects=2;
 idDos=CAST(LONGINT,'DOS ')-ORD(' ');
 idKick=CAST(LONGINT,'KICK');
 nameDos='DOS';
 nameKick='KICK';

END BootBlock.
