home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / misc / where_k / commands / placek < prev    next >
Encoding:
Text File  |  1995-02-25  |  1.2 KB  |  52 lines
  1. FAILAT 21
  2. LAB START
  3. REQUESTCHOICE >ENV:CHO2 "PlaceK ©1 February 1995 By Kenneth J. McCormick. All Rights Reserved." "Select Appropriate Button" "PROGRAM" "SCRIPT" "BYE"
  4.    IF $CHO2 EQ "0"
  5.        SKIP FIN2
  6.    ENDIF
  7.        REQUESTFILE >ENV:MSG TITLE="SELECT FILE"
  8.    REQUESTCHOICE >ENV:CHO "PlaceK" "Select Button" "DO IT" "ABORT" "BYE"
  9.    IF $CHO EQ "0"
  10.        SKIP FIN2
  11.    ENDIF
  12.    IF $CHO EQ "2"
  13.        SKIP BACK START
  14.    ENDIF
  15.    IF EXISTS $MSG
  16.           IF $CHO2 EQ "1"
  17.                ECHO >RAM:PlaceK_MARKER RUN $MSG
  18.           ENDIF
  19.           IF $CHO2 EQ "2"
  20.               ECHO >RAM:PlaceK_MARKER RUN EXECUTE $MSG
  21.           ENDIF
  22.     ENDIF
  23.    ELSE
  24.       ECHO "PATH NOT FOUND"
  25.       EVAL 7 LFORMAT "%c"
  26.       SKIP BACK START
  27.    ENDIF
  28.    IF NOT EXISTS SYS:S/USER-STARTUP
  29.         EVAL 7 LFORMAT "%c"
  30.         ECHO "USER-STARTUP FILE MISSING"
  31.         ECHO "ABORTING..............."
  32.         SKIP FIN
  33.    ENDIF
  34. LAB FIN
  35. LAB FIN2
  36.    IF EXISTS RAM:PlaceK_MARKER
  37.        COPY RAM:PlaceK_MARKER TO SYS:S
  38.    ENDIF
  39. UNSETENV CHO
  40. UNSETENV CHO2
  41. UNSETENV CHO3
  42. UNSETENV MSG
  43.    IF EXISTS RAM:USER-STARTUP
  44.        DELETE RAM:USER-STARTUP QUIET
  45.    ENDIF
  46.    IF EXISTS RAM:PlaceK_MARKER
  47.        DELETE RAM:PlaceK_MARKER QUIET
  48.    ENDIF
  49.  
  50.  
  51.  
  52.