Amiga ISO Collection/AmigaUtilCD2.iso/Programming/Pascal/MAXONPASCAL2.DMS/in.adf/INCLUDE/libraries/iffparse_Functions.h

Text File | 1994-07-25 | 603 b | 16 lines

{$if not def LIBRARIES_IFFPARSE_MACROS_H}CONST LIBRARIES_IFFPARSE_MACROS_H=0;

{ **********************************************************************
  ** KickPascal-Include-Datei "libraries/iffparse.h" zu Kickstart 3.0 **
  ** Ergänzung der Macros als Pascal FUNCTIONen                 by JS **
  ********************************************************************** }

{$if not def LIBRIRIES_IFFPARSE_H;incl "libraries/iffparse.h";endif}

Function MAKE_ID(a,b,c,d:char):Long;
begin
 MAKE_ID:=(long(ord(a)) shl 24) or (long(ord(b)) shl 16)  or (long(ord(c)) shl 8) or (long(ord(d)));
end;

{$endif}