home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Index / Scripts / show_prg_hotlist < prev    next >
Encoding:
AmigaDOS Script File  |  1995-09-17  |  1.6 KB  |  80 lines
  1. .key Language/A,Application/A,DEV,DEL/S
  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. ; The following construction is not totally save.
  50.  
  51. IF $MPSRCCNT GE 1
  52.     Eval $MPSRCCNT + 1 TO ENV:MPSRCCNT
  53. ELSE
  54.     SetEnv MPSRCCNT 1
  55.     Assign MPCD_S: :
  56. ENDIF
  57.  
  58. RX :Index/Scripts/Hotlist.rexx {Language} {Application} {DEL}
  59.  
  60. Set Hotlistres 0
  61. IF {Language} EQ "deutsch"
  62.     :C/AutoReq "-tNeue Hotlist anzeigen?" "-pJa" "-nNein"
  63.     IF WARN
  64.         Set Hotlistres 5
  65.     ENDIF
  66. ELSE
  67.     :C/AutoReq "-tShow new hotlist?" "-pYes" "-nNo"
  68.     IF WARN
  69.         Set Hotlistres 5
  70.     ENDIF
  71. ENDIF
  72. IF $Hotlistres EQ 0
  73.     Execute :Index/Scripts/display_hotlist {Language} {DEV}
  74. ENDIF
  75.  
  76. Eval $MPSRCCNT - 1 TO ENV:MPSRCCNT
  77. IF $MPSRCCNT EQ 0
  78.     Assign MPCD_S:
  79. ENDIF
  80.