home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTL-MS01.DMS / in.adf / Macros / Shell.rx < prev    next >
Encoding:
Text File  |  1994-10-23  |  992 b   |  43 lines
  1. /* MovieShop-Arexx-Script
  2.  
  3.    Dieses Script öffnet eine Shell auf dem MovieShop-Screen.
  4.    Auf dieser Shell lassen sich die ARexx-Kommandos von MovieShop
  5.    ausführen.
  6.  
  7. */
  8.  
  9. ADDRESS MOVIESHOP
  10. OPTIONS RESULTS
  11. OPTIONS FAILAT 21
  12.  
  13. GETPUBSCREENNAME
  14. TITEL = 'CON:0/600/720/60/MovieShop Shell/ALT1000/600/40/60/CLOSE/SCREEN'RESULT
  15.  
  16. if open('WINDOW',TITEL) then do
  17.   SCREENTOFRONT
  18.   do while (~eof('WINDOW'))
  19.     call writech('WINDOW','MS> ')
  20.     cmd = readln('WINDOW')
  21.     if ~eof('WINDOW') then
  22.     do
  23.       COMMANDERRORS OFF
  24.       cmd
  25.       select
  26.         when RC = -1 then writeln('WINDOW','Unbekannter Befehl')
  27.         when RC = 0 then
  28.           do
  29.             if RESULT ~= 'RESULT' then writeln('WINDOW',RESULT)
  30.           end
  31.         otherwise
  32.           do
  33.             writech('WINDOW','FEHLERCODE: 'RC)
  34.             if RESULT ~= 'RESULT' then writech('WINDOW','   'RESULT)
  35.             writeln('WINDOW','')
  36.           end
  37.       end
  38.       COMMANDERRORS ON
  39.     end
  40.   end
  41.   call close ('WINDOW')
  42. end
  43.