home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / emulator / appleonamiga / txt / applescreen.def < prev    next >
Text File  |  1995-02-27  |  506b  |  25 lines
  1. DEFINITION MODULE AppleScreen;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4.  
  5. TYPE
  6.  DiskNum=[1..2];
  7.  Protected=BOOLEAN;
  8.  
  9.  DiskLoadProc=PROCEDURE(DiskNum);
  10.  DiskUnloadProc=PROCEDURE(DiskNum);
  11.  DiskProtectProc=PROCEDURE(DiskNum,Protected);
  12.  
  13. VAR
  14.  lastKey:[0..255];
  15.  quit,reset:PROC;
  16.  diskLoad:DiskLoadProc;
  17.  diskUnload:DiskUnloadProc;
  18.  diskProtect:DiskProtectProc;
  19.  
  20. PROCEDURE PutText(line,col:CARDINAL; text:ADDRESS; length:CARDINAL);
  21.  
  22. PROCEDURE RequestDisk(diskNum:DiskNum; VAR name:ARRAY OF CHAR):BOOLEAN;
  23.  
  24. END AppleScreen.
  25.