home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cli / dosk / commands / residentk < prev    next >
Encoding:
Text File  |  1995-01-04  |  1.3 KB  |  65 lines
  1. FAILAT 21
  2. EVAL 7 LFORMAT "%C"
  3.  
  4. UNSET COMM
  5. LAB START
  6. REQUESTCHOICE >ENV:CHO "RequestK ©December 1994 By Kenneth J. McCormick. All Rights Reserved." "Choice Please" "SEE LIST" "ADD" "REMOVE" "PURE" "SYSTEM" "BYE"
  7. IF $CHO EQ "0"
  8.    SKIP FIN
  9. ENDIF
  10. IF $CHO EQ "1"
  11.    RESIDENT SYSTEM >RAM:RESTEMP
  12.    SYS:UTILITIES/MULTIVIEW RAM:RESTEMP
  13. ENDIF
  14. IF $CHO EQ "2"
  15.       UNSET COMM
  16.       REQUESTFILE >ENV:COMM TITLE="CLICK ON COMMAND TO ADD" SYS:C
  17.       RESIDENT $COMM ADD
  18.       RESIDENT >RAM:RESTEMP
  19.        if RC >10
  20.       EVAL 7 LFORMAT "%C"
  21.        UNSET RC
  22.        SKIP BACK START
  23.      endif
  24.       SYS:UTILITIES/MULTIVIEW RAM:RESTEMP
  25. ENDIF
  26. IF $CHO EQ "3"
  27.      UNSET COMM
  28.      REQUESTFILE >ENV:COMM TITLE="On File Line - Type Command"
  29.      RESIDENT $COMM REMOVE
  30.      RESIDENT >RAM:RESTEMP
  31.       if RC >10
  32.       EVAL 7 LFORMAT "%C"
  33.        UNSET RC
  34.        SKIP BACK START
  35.      endif
  36.      SYS:UTILITIES/MULTIVIEW RAM:RESTEMP
  37. ENDIF
  38.  
  39.  IF $CHO EQ "4"
  40.      UNSET COMM
  41.      REQUESTFILE >ENV:COMM TITLE="FORCE COMMAND TO RESIDENT LIST" SYS:C
  42.      RESIDENT $COMM SYSTEM PURE ADD
  43.      RESIDENT >RAM:RESTEMP
  44.       if RC >10
  45.            EVAL 7 LFORMAT "%C"
  46.            UNSET RC
  47.            SKIP BACK START
  48.      endif
  49.      SYS:UTILITIES/MULTIVIEW RAM:RESTEMP
  50. ENDIF
  51. IF $CHO EQ "5"
  52.    RESIDEN
  53.    SYSTEM >RAM:RESTEMP
  54.    SYS:UTILITIES/MULTIVIEW RAM:RESTEMP
  55. ENDIF
  56.  
  57.  
  58.  
  59.  
  60.  
  61. SKIP BACK START
  62.  
  63. LAB FIN
  64. UNSET CHO
  65.