home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / emulator / appleonamiga / txt / base37.mod < prev    next >
Text File  |  1995-02-27  |  393b  |  24 lines
  1. IMPLEMENTATION MODULE Base37;
  2.  
  3. FROM SYSTEM IMPORT ADR,ADDRESS;
  4. FROM Arts IMPORT Assert,BreakPoint,kickVersion;
  5.  
  6. PROCEDURE A(cond:BOOLEAN; error:ARRAY OF CHAR);
  7. BEGIN
  8.  Assert(cond,ADR(error));
  9. END A;
  10.  
  11. PROCEDURE B;
  12. BEGIN
  13.  BreakPoint(NIL);
  14. END B;
  15.  
  16. PROCEDURE N(adr:ADDRESS; error:ARRAY OF CHAR);
  17. BEGIN
  18.  A(adr#NIL,error);
  19. END N;
  20.  
  21. BEGIN
  22.  A(kickVersion>=37,"Base37 needs kickstart>=37");
  23. END Base37.
  24.