home *** CD-ROM | disk | FTP | other *** search
- failat 21
- lab start
- requestfile >env:file1 title="SELECT FILE TO CMD COPY"
- REQUESTFILE >ENV:FILE2 TITLE="SELECT NEW FILE NAME"
- requestchoice >env:cho "CmdK ©December 1994 By Kenneth J. McCormick. All Rights Reserved." "Select Option" "BASIC" "NOTIFICATIONS" "HELP" "NOTIFICATIONS & HELP" "SKIP" "BYE"
- IF $CHO EQ "0"
- SKIP DONE
- ENDIF
- IF $CHO EQ "1"
- RUN cmd parallel $file2
- COPY FROM $FILE1 TO PRT:
- ENDIF
- IF $CHO EQ "2"
- RUN cmd parallel $file2 n
- COPY FROM $FILE1 TO PRT:
- ENDIF
- IF $CHO EQ "3"
- RUN cmd parallel $file2 help
- COPY FROM $FILE1 TO PRT:
- ENDIF
- IF $CHO EQ "4"
- RUN cmd parallel $file2 N HELP
- COPY FROM $FILE1 TO PRT:
- ENDIF
- IF $CHO EQ "5"
- RUN cmd parallel $file2 S
- COPY FROM $FILE1 TO PRT:
- ENDIF
- skip start back
- LAB DONE
- UNSETENV FILE1
- UNSETENV FILE2
- UNSETENV CHO
-