home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / acc / utility / theacc12 / mainc.mod next >
Encoding:
Text File  |  1988-07-19  |  1.3 KB  |  31 lines
  1. BEGIN
  2.   SETREG(15,ADR(stack[stacksize]));      
  3.   apid := ApplInitialise();
  4.   accname := '  The Accessory';
  5.   menuid := MenuRegister(apid,accname);
  6.   resolution := GetResolution(); 
  7.   InitResource;
  8.   IF apid >= 0 THEN
  9.      IF (resolution # 0) AND (resolution # 2) THEN Initialize;END;
  10.         WHILE TRUE DO
  11.            event := EventMultiple(MesageEvent,0,0,0,0,0,0,0,0,0,0,0,0,0,
  12.                                    ADR(pbuffer[0]),
  13.                                    0,0,dummy,dummy,dummy,dummy,dummy,
  14.                                    dummy);
  15.            IF (event = MesageEvent)  THEN
  16.               CASE resolution  OF
  17.                   0  : CASE pbuffer[0] OF
  18.                             40 : showit := FormAlert(1,'[1][This accessory operates in|only medium resolution!][ OK ]');
  19.                        END;|
  20.                   1  : CASE pbuffer[0] OF
  21.                             40 : EventLoop;
  22.                        END;|     
  23.                   2  : CASE pbuffer[0] OF
  24.                             40 : showit := FormAlert(1,'[1][You are trying to run|the color version|in high resolution!][ REBOOT ]'); 
  25.                        END;|(* CASE *)
  26.               END; (* CASE resolution *)         
  27.            END; (* IF event *)                    
  28.         END; (* WHILE *)                         
  29.   END; (* IF apid *)   
  30. END TRYIT.
  31.