home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / emulator / appleonamiga / txt / base37.def < prev    next >
Text File  |  1995-02-27  |  463b  |  25 lines
  1. DEFINITION MODULE Base37;
  2. (*
  3.   Dieses Modul enthält einige nützliche Funktionen, die ich in meinen
  4.   Programmen verwende. Es führt gleichzeitig eine Test aus, ob mindestens
  5.   Kickstart 37 vorliegt.
  6. *)
  7.  
  8. FROM SYSTEM IMPORT ADDRESS;
  9.  
  10. PROCEDURE A(cond:BOOLEAN; error:ARRAY OF CHAR);
  11. (*
  12.   Ein Assert Ersatz, der mit einem String auskommt.
  13. *)
  14. PROCEDURE B;
  15. (*
  16.   BreakPoint(NIL);
  17. *)
  18. PROCEDURE N(adr:ADDRESS; error:ARRAY OF CHAR);
  19. (*
  20.   =A(adr#NIL,error);
  21. *)
  22. END Base37.
  23.  
  24.  
  25.