home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Index / Scripts / show_prg_opus < prev    next >
Encoding:
AmigaDOS Script File  |  1995-09-25  |  1.0 KB  |  50 lines
  1. .key Language/A,Application/A,DEV
  2. .bra {
  3. .ket }
  4.  
  5. CD {DEV}:
  6.  
  7. Which RX
  8. IF WARN
  9.     FailAt 25
  10.     Path SYS:Rexxc ADD
  11.     IF ERROR
  12.         IF {Language} EQ "deutsch"
  13.             :C/AutoReq "-tWarnung: Verzeichnis SYS:Rexxc konnte nicht gefunden werden." -nOK
  14.         ELSE
  15.             :C/AutoReq "-tWarning: Could not find drawer SYS:Rexxc." -nOK
  16.         ENDIF
  17.     ENDIF
  18.     Which RX
  19.     IF WARN
  20.         IF {Language} EQ "deutsch"
  21.             :C/AutoReq "-tWarnung: RX ist nicht im Pfad enthalten." -nOK
  22.         ELSE
  23.             :C/AutoReq "-tWarning: Cannot find RX in current path." -nOK
  24.         ENDIF
  25.     ENDIF
  26. ENDIF
  27.  
  28. Which RexxMast
  29. IF WARN
  30.     FailAt 25
  31.     Path SYS:System ADD
  32.     IF ERROR
  33.         IF {Language} EQ "deutsch"
  34.             :C/AutoReq "-tWarnung: Verzeichnis SYS:System konnte nicht gefunden werden." -nOK
  35.         ELSE
  36.             :C/AutoReq "-tWarning: Could not find drawer SYS:System." -nOK
  37.         ENDIF
  38.     ENDIF
  39.     Which RexxMast
  40.     IF WARN
  41.         IF {Language} EQ "deutsch"
  42.             :C/AutoReq "-tWarnung: RexxMast ist nicht im Pfad enthalten." -nOK
  43.         ELSE
  44.             :C/AutoReq "-tWarning: Cannot find RexxMast in current path." -nOK
  45.         ENDIF
  46.     ENDIF
  47. ENDIF
  48.  
  49. RX :SYS/Rexx/openopuswindow.rexx -:{Application}
  50.