home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / varie / rc5control / springclean < prev   
Encoding:
Text File  |  1992-06-13  |  1.5 KB  |  77 lines
  1. ;$VER: RC5 Control SpringClean 1.1 (13.06.2000)
  2. ;Copyright © 1999-2000 Daniel Pimley
  3.  
  4. FailAt 21
  5.  
  6. If NOT EXISTS ENV:68K
  7.  
  8.  If NOT EXISTS ENV:PPC
  9.  
  10.   If EXISTS ENVARC:RC568K
  11.    Delete >NIL: ENVARC:RC568K
  12.    If WARN
  13.     RequestChoice >NIL: "RC5 Control" "Could not delete ENVARC:RC568K" "OK"
  14.    EndIf
  15.   EndIf
  16.  
  17.   If EXISTS ENVARC:68KLOG
  18.    Delete >NIL: ENVARC:68KLOG
  19.    If WARN
  20.     RequestChoice >NIL: "RC5 Control" "Could not delete ENVARC:68KLOG" "OK"
  21.    EndIf
  22.   EndIf
  23.  
  24.   If EXISTS ENVARC:RC5PPC
  25.    Delete >NIL: ENVARC:RC5PPC
  26.    If WARN
  27.     RequestChoice >NIL: "RC5 Control" "Could not delete ENVARC:RC5PPC" "OK"
  28.    EndIf
  29.   EndIf
  30.  
  31.   If EXISTS ENVARC:PPCLOG
  32.    Delete >NIL: ENVARC:PPCLOG
  33.    If WARN
  34.     RequestChoice >NIL: "RC5 Control" "Could not delete ENVARC:PPCLOG" "OK"
  35.    EndIf
  36.   EndIf
  37.  
  38.   If EXISTS ENV:RC568K
  39.    Delete >NIL: ENV:RC568K
  40.    If WARN
  41.     RequestChoice >NIL: "RC5 Control" "Could not delete ENV:RC568K" "OK"
  42.    EndIf
  43.   EndIf
  44.  
  45.  
  46.   If EXISTS ENV:68KLOG
  47.    Delete >NIL: ENV:68KLOG
  48.    If WARN
  49.     RequestChoice >NIL: "RC5 Control" "Could not delete ENV:68KLOG" "OK"
  50.    EndIf
  51.   EndIf
  52.  
  53.   If EXISTS ENV:RC5PPC
  54.    Delete >NIL: ENV:RC5PPC
  55.    If WARN
  56.     RequestChoice >NIL: "RC5 Control" "Could not delete ENV:RC5PPC" "OK"
  57.    EndIf
  58.   EndIf
  59.  
  60.   If EXISTS ENV:PPCLOG
  61.    Delete >NIL: ENV:PPCLOG
  62.    If WARN
  63.     RequestChoice >NIL: "RC5 Control" "Could not delete ENV:PPCLOG" "OK"
  64.    EndIf
  65.   EndIf
  66.  
  67.  Else
  68.  
  69.   RequestChoice >NIL: "SpringClean" "PPC client active" "Quit"
  70.  
  71.  EndIf
  72.  
  73. Else
  74.  
  75.  RequestChoice >NIL: "SpringClean" "68K client active" "Quit"
  76.  
  77. EndIf