home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cli / dosk / commands / prtk < prev    next >
Encoding:
Text File  |  1995-01-04  |  1001 b   |  44 lines
  1. failat 21
  2. lab start
  3. set trip 1
  4. skip clv
  5. lab start2
  6. requestchoice >env:pick "PrtK ©December 1994 by Kenneth J. McCormick. All Rights Reserved" "SELECT ACTION - PRINT TO:" "PRINTER" "FILE" "BYE"
  7.    IF $PICK EQ "0"
  8.       SKIP DONE
  9.    ENDIF
  10.    IF $PICK EQ "2"
  11.       requestfile >env:job title="Select File(S) To Print" MULTISELECT
  12.    ELSE
  13.       requestfile >env:job title="Select File To Print"
  14.       requestchoice >env:YN "Decision Time" "SELECT OPERATION" "PROCEED" "ABORT"
  15.       IF $YN EQ "0"
  16.       SKIP CHOICE
  17.       ELSE
  18.       ENDIF
  19.    ENDIF
  20.    IF $PICK EQ "1"
  21.       COPY $JOB TO PRT:
  22.    ENDIF
  23.    IF $PICK EQ "2"
  24.       requestfile >env:job2 title="Print To:" savemode
  25.        requestchoice >env:YN "Decision Time" "SELECT OPERATION" "PROCEED" "ABORT"
  26.       IF $YN EQ "0"
  27.       SKIP CHOICE
  28.       ELSE
  29.       ENDIF
  30.       endif
  31.       COPY $JOB TO $job2
  32.    ENDIF
  33. lab CHOICE
  34. SKIP START BACK
  35. LAB DONE
  36. lab clv
  37. UNSET PICK
  38. UNSET JOB
  39. UNSET JOB2
  40.    if $trip eq "1"
  41.       unset trip
  42.       skip start2 back
  43.    endif
  44.