unit Data; interface uses Classes, Graphics, TypeDefs; const Version: String = 'v0.34a'; DBVersion: String = '0.3'; CrLf: String[2] = #13 + #10; var AppSettings: TAppSettings; AppSettingsFile: file of TAppSettings; { const header_ident1_pc:Array[0..$13] of Byte= ($1F,$27,$DC,$33,$DF,$BC,$03,$00,$31,$33,$52,$56,$40,$00,$14,$00,$10,$00,$08,$00); header_ident1_mac:Array[0..$13] of Byte= ($61,$30,$C1,$23,$DF,$BC,$03,$00,$31,$33,$52,$56,$40,$00,$14,$00,$10,$00,$08,$00); header_ident2:Array[0..$F] of Byte= ($99,$CF,$40,$00,$90,$4F,$63,$00,$F4,$55,$5F,$00,$90,$4F,$63,$00); } implementation end.