home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / dosk-1.0.lha / DosK / Commands / AliasK < prev    next >
Text File  |  1995-01-04  |  2KB  |  69 lines
  1. FAILAT 21
  2. LAB START
  3. IF EXISTS RAM:TFILE1
  4.      DELETE RAM:TFILE1 QUIET
  5. ENDIF
  6. IF EXISTS RAM:TEMPFILE
  7.      DELETE RAM:TEMPFILE QUIET
  8. ENDIF
  9. IF EXISTS RAM:USER-ALIASES
  10.      DELETE RAM:USER-ALIASES QUIET
  11. ENDIF
  12. IF EXISTS RAM:ALIASTEMP
  13.      DELETE RAM:ALIASTEMP QUIET
  14. ENDIF
  15. REQUESTCHOICE >ENV:MAIN "AliasK ©January 1995 By Kenneth J. McCormick. All Rights Reserved" "Choice Please" "CONTINUE" "LIST" "BYE"
  16.      IF $MAIN EQ "0"
  17.            SKIP FIN
  18.      ENDIF
  19.       IF $MAIN EQ "2"
  20.          REQUESTCHOICE >ENV:MAIN2 "AliasK" "Pick One" "ACTUAL" "USER-ALIASES LIST"
  21.          IF $MAIN2 EQ "1"
  22.             ALIAS >RAM:ALIASTEMP
  23.             SYS:UTILITIES/MULTIVIEW RAM:ALIASTEMP
  24.             SKIP BACK START
  25.          ELSE
  26.             IF EXISTS SYS:S/USER-ALIASES
  27.                 SYS:UTILITIES/MULTIVIEW SYS:S/USER-ALIASES
  28.              ENDIF
  29.             SKIP BACK START
  30.          ENDIF
  31.      ENDIF
  32.      REQUESTFILE >ENV:FILE TITLE="PICK FILE/PATH FOR ALIAS"
  33.      REQUESTFILE >ENV:FILEA TITLE="TYPE ALIAS ON FILE LINE"
  34.      REQUESTCHOICE >ENV:CHO "AliasK" "Decision Time" "DO IT" "ABORT" "BYE"
  35.      IF $CHO EQ "0"
  36.          SKIP FIN
  37.      ENDIF
  38.      IF $CHO EQ "1"
  39.               ALIAS $FILEA $FILE
  40.               REQUESTCHOICE >ENV:CHO2 "AliasK" "" "NEXT" "PERMANENT" "BYE"
  41.          IF $CHO2 EQ "0"
  42.               SKIP FIN
  43.          ENDIF
  44.          IF $CHO2 EQ "1"
  45.              SKIP BACK START
  46.          ENDIF
  47.           IF $CHO2 EQ "2"
  48.                ECHO >RAM:TEMPFILE "ALIAS" $FILEA $FILE
  49.                LAB REDO
  50.                IF EXISTS SYS:S/USER-ALIASES
  51.                ELSE
  52.                ECHO >SYS:S/USER-ALIASES ";USER ALIAS LIST"
  53.                SKIP BACK REDO
  54.                ENDIF
  55.                 COPY SYS:S/USER-ALIASES TO RAM:
  56.                 RENAME RAM:USER-ALIASES AS TFILE1
  57.                 JOIN RAM:TFILE1 RAM:TEMPFILE AS RAM:USER-ALIASES
  58.                 COPY RAM:USER-ALIASES TO SYS:S
  59.                 DELETE RAM:TFILE1 RAM:TEMPFILE RAM:USER-ALIASES RAM:ALIASTEMP QUIET
  60.           ENDIF
  61.      ENDIF
  62.      SKIP BACK START
  63. LAB FIN
  64. UNSETENV FILE
  65. UNSETENV FILEA
  66. UNSETENV CHO
  67. UNSETENV CHO2
  68. UNSETENV MAIN
  69.