home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / VLabImport.clssa < prev    next >
Text File  |  1993-05-01  |  623b  |  30 lines
  1. /***********************************************************************
  2.  GADGET: "'VLab Import 1 Frame'" "4" AUTO TYP: "?"
  3.  
  4.  $DAT >>VLabImport.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. Options Results
  8.  
  9.   errvari=0
  10.  
  11.   ADDRESS clariSSA
  12.   SetScreenGrabber REQ TRIGGER 5
  13.  
  14.   ADDRESS VLAB
  15.  
  16.   ACTIVATEWINDOW
  17.  
  18.   SCAN
  19.   CONVERT
  20.   DISPLAY
  21.   IF RC = 0 THEN DO
  22.     ADDRESS clariSSA
  23.     SetScreenGrabber RECORD
  24.     SetBasicScreen FRONT
  25.   END ; ELSE errvari=1;
  26.  
  27.   ADDRESS clariSSA
  28.   IF errvari~=0 THEN Message "'<Import VLab>' 'Operational Error!'"
  29. exit
  30.