PSDTRAK ;BIR/DAV-Set up TRAKKER ; 14 Sept 94
 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
 W !," "
 W !,"To set-up the TRAKKER:"
 W !," "
 W !,"(1) Turn on the TRAKKER by pressing the [on-off] key."
 W !," "
 W !,"    After the TRAKKER performs a self test the following prompt will"
 W !,"    be displayed   ""Ready"""
 W !," "
 W !,"(2) At this point hold down the [ctrl] key and press [E]."
 W !," "
 W !,"    The words ""CONFIGURATION MENU:"" should appear."
 W !," "
 W !,"(3) Press the [Enter] key until you are prompted to ""Select or modify"
 W !,"    operating parms.?"" The word NO will appear. Use the space key to"
 W !,"    toggle this to a YES and press [Enter]."
 W !," "
 W !,"(4) Use the [enter] key to step through the basic operating parameters"
 W !," "
 W !,"    NOTE - in most cases the proper selection can be made using the"
 W !,"    [space] key."
 W !," "
11 D WAIT G Q:$D(ERR)
 W !,"a. BEEP VOLUME - low or high"
 W !,"b. DIPLAY MODE...............BUFFERED"
 W !,"c. CHARACTER SET.............US-ASCII"
 W !,"d. CPU RESP REQD MODE........DISABLED"
 W !,"e. PREAMBLE REQUIRED.........NO"
 W !,"f. LASER SCANNER MODE........ONE SHOT TRIGGER"
 W !,"g. APPEND TIME TO DATA.......NO"
 W !,"h. TIME IS SECONDS...........YES"
 W !,"i. RESUME IRL PROGRAM........NO"
 W !,"j. AUTOMATIC SHUT-OFF........10"
 W !,"k. BACKLIGHT TIMEOUT.........60"
 W !," "
 W !,"(5) The next configuration heading is ""Select or modify comm protocol?"""
 W !," "
 W !,"    Use space bar to obtain POINT TO POINT"
 W !," "
 W !,"(6) Use the [enter] key to step through the ""comm protocol"""
 W !," "
22 D WAIT G Q:$D(ERR)
 W !,"a. CHECK CTS............NO"
 W !,"b. XON..................Hold down the [ctrl] key & press [Q], to get DC1"
 W !,"c. XOFF.................Hold down the [ctrl] key & press [S], to get DC3"
 W !,"d. BAUD RATE............1200"
 W !,"e. PARITY...............DISABLED"
 W !,"f. DATA BITS............8"
 W !,"g. STOP BITS............1"
 W !,"h. TIMEOUT DELAY........10 seconds"
 W !,"i. INTERCHAR DELAY......50 milliseconds"
 W !,"j. TURNAROUND DELAY.....0 ms."
 W !," "
 W !,"At this point you will see ""Select or modify barcodes?"""
 W !,"Press [alt] then [E] to exit and save changes."
 W !,"or"
 W !,"Hold [ctrl] and press [Z] to exit without saving changes."
 W !," "
33 D WAIT G Q:$D(ERR)
 W !," "
 W !,"TO DOWNLOAD to the TRAKKER or to UPLOAD to DHCP, new entries must be made"
 W !,"in the TERMINAL TYPE and DEVICE files."
 W !," "
 W !,"TERMINAL TYPE"
 W !,"-------------"
 W !,"NAME               : C-VT420 (9440)"
 W !,"FORM FEED          : #"
 W !,"OPEN EXECUTE       : W $C(0)"
 W !,"DESCRIPTION        : TRAKKER 9440 TO AUX PORT OF VT420"
 W !,"OPEN PRINTER PORT  : W $C(27)_"_"""[5i"""
 W !,"CLOSE PRINTER PORT : W $C(27)_"_"""4i"""
 W !,"RIGHT MARGIN       : 80"
 W !,"PAGE LENGTH        : 9999"
 W !," "
44 D WAIT G Q:$D(ERR)
 W !,"DEVICE"
 W !,"-------"
 W !,"NAME               : TRAKKERSL"
 W !,"LOCATION           : SLAVED 9440 FROM VT420 AUX PORT"
 W !,"MARGIN WIDTH       : 80"
 W !,"PAGE LENGTH        : 9999"
 W !,"MNEMONIC           : TRAKKERSL"
 W !,"FORM FEED          : #"
 W !,"BACK SPACE         : $C(8)"
 W !,"SUB-TYPE           : C-VT420 (9440)"
 W !,"TYPE               : TERMINAL"
 W !,"$I                 : 0 (zero)"
 W !," "
 W !,"---------------------------------------------------------------------"
Q K AN,ERR Q
WAIT I $E(IOST)["C" W !,"Press <RET> to continue, or '^' to abort: " R AN:DTIME I AN="^"!('$T) S ERR=1 Q
 I $E(IOST)["C" W @IOF,"SET UP PROCEDURES",!
 Q