Amiga MA Magazine 1998 #6/amigamamagazinepolishissue1998.iso/coders/jËzyki_programowania/oberon/system/hostsys.mod

Oberon Text | 1977-12-31 | 414b | 12 lines

Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
MODULE HostSYS; (** RD 26-May-96*)
IMPORT AmigaDos;
CONST
    BigEndianMachine*=TRUE;    (* 680x0 is big endian, i386 is little endian *)
PROCEDURE StdOut*(str: ARRAY OF CHAR; len: LONGINT);
BEGIN
    IF AmigaDos.Write(AmigaDos.Output(),str,len)=1 THEN END
END StdOut;
END HostSYS.