home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / clShell.clssa < prev    next >
Encoding:
Text File  |  1993-05-01  |  1.4 KB  |  53 lines
  1. /***********************************************************************
  2.  GADGET: "clariSSA-Shell" "1" AUTO TYP: "?"
  3.  
  4.  $DAT >>clShell.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. OPTIONS RESULTS
  8. ADDRESS clariSSA
  9. OPTIONS FAILAT 100
  10.  
  11.   PubScreenName = "SSA Screen"
  12.  
  13.   TITEL = 'CON:0/12/640/170/clariSSA Shell/ALT0/12/40/60/CLOSE/SCREEN'PubScreenName
  14.  
  15.   FailAt 99
  16.   AltFail=RESULT
  17.   Adresse=ADDRESS()
  18.  
  19.   IF OPEN('SHELL',TITEL) THEN DO
  20.     SetBasicScreen FRONT TO 0 0
  21.     DO WHILE (~EOF('SHELL'))
  22.       CALL WRITECH('SHELL','clSSA >')
  23.       CMD = READLN('SHELL')
  24.       IF ~EOF('SHELL') THEN DO
  25.         IF CMD = '?' THEN DO
  26.           call WRITELN('SHELL','Choose the subject you require from the Help-Requester.')
  27.           HelpRequester REQ
  28.         END
  29.         ELSE DO
  30.           CMD
  31.           SELECT
  32.             WHEN RC >= 40 THEN DO
  33.               ADDRESS REXX  CMD
  34.               IF RC > 0 THEN DO
  35.                 call WRITELN('SHELL','Unknown Command')
  36.               END
  37.             END
  38.             WHEN RC = 0  THEN DO
  39.               IF RESULT ~= 'RESULT' THEN call WRITELN('SHELL',RESULT)
  40.             END
  41.             OTHERWISE
  42.               DO
  43.                 call WRITELN('SHELL','Error Number: 'RC)
  44.               END
  45.           END
  46.         END
  47.       END
  48.     END
  49.     CALL CLOSE ('SHELL')
  50.   END
  51.   FailAt AltFail
  52.  
  53. exit