home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Misc / SOB-ME5.DMS / in.adf / Guide / Deutsch / Rexx / OpenAndExecute.msrx
Encoding:
Text File  |  1996-11-11  |  969 b   |  43 lines
  1. /* Execute Command */
  2.  
  3. ADDRESS MOVIESHOP
  4. Options RESULTS
  5. Options FAILAT 21
  6.  
  7. Parse ARG Command Param
  8.  
  9. REQTEXT4 = '"Es wird mindestens MovieShop 4.0 benötigt"'
  10.  
  11. /* ab 4.0 ist auch '\n' im Requester-Body erlaubt */
  12.  
  13. REQTEXT = '"Es ist noch kein Projekt offen!\nSoll eines geöffnet werden?"'
  14. REQGADS = '"  Neues  |Bestehendes| Abbruch "'
  15.  
  16. VERSION 4 0
  17. If RC >= 5 Then REQUEST REQTEXT4
  18. Else Do
  19.   Param = Strip(Param,'L')
  20.   If Command ~= '' Then Do
  21.     If Param ~= '' Then CommandLine = Command||' "'||Param||'"'
  22.     Else CommandLine = Command
  23.     GETPROJECTNAME
  24.     If RC = 0 Then CommandLine
  25.     Else Do
  26.       REQUEST REQTEXT 'GADGETS' REQGADS
  27.       CHOICE = RESULT
  28.       Select
  29.         When CHOICE = 1 Then Do
  30.           NEWPROJECT
  31.           If RC = 0 Then CommandLine
  32.         End
  33.         When CHOICE = 2 Then Do
  34.           OPENPROJECT
  35.           If RC = 0 Then CommandLine
  36.         End
  37.         When CHOICE = 0 Then Exit 5
  38.         Otherwise Exit 10
  39.       End
  40.     End
  41.   End
  42. End
  43.