PSDTRAK.m

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

PSDTRAK   ;BIR/DAV-Set up TRAKKER ; 14 Sept 94

 +1       ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 +2        WRITE !," "

 +3        WRITE !,"To set-up the TRAKKER:"

 +4        WRITE !," "

 +5        WRITE !,"(1) Turn on the TRAKKER by pressing the [on-off] key."

 +6        WRITE !," "

 +7        WRITE !,"    After the TRAKKER performs a self test the following prompt will"

 +8        WRITE !,"    be displayed   ""Ready"""

 +9        WRITE !," "

 +10       WRITE !,"(2) At this point hold down the [ctrl] key and press [E]."

 +11       WRITE !," "

 +12       WRITE !,"    The words ""CONFIGURATION MENU:"" should appear."

 +13       WRITE !," "

 +14       WRITE !,"(3) Press the [Enter] key until you are prompted to ""Select or modify"

 +15       WRITE !,"    operating parms.?"" The word NO will appear. Use the space key to"

 +16       WRITE !,"    toggle this to a YES and press [Enter]."

 +17       WRITE !," "

 +18       WRITE !,"(4) Use the [enter] key to step through the basic operating parameters"

 +19       WRITE !," "

 +20       WRITE !,"    NOTE - in most cases the proper selection can be made using the"

 +21       WRITE !,"    [space] key."

 +22       WRITE !," "

11         DO WAIT

           IF $DATA(ERR)

               GOTO Q

 +1        WRITE !,"a. BEEP VOLUME - low or high"

 +2        WRITE !,"b. DIPLAY MODE...............BUFFERED"

 +3        WRITE !,"c. CHARACTER SET.............US-ASCII"

 +4        WRITE !,"d. CPU RESP REQD MODE........DISABLED"

 +5        WRITE !,"e. PREAMBLE REQUIRED.........NO"

 +6        WRITE !,"f. LASER SCANNER MODE........ONE SHOT TRIGGER"

 +7        WRITE !,"g. APPEND TIME TO DATA.......NO"

 +8        WRITE !,"h. TIME IS SECONDS...........YES"

 +9        WRITE !,"i. RESUME IRL PROGRAM........NO"

 +10       WRITE !,"j. AUTOMATIC SHUT-OFF........10"

 +11       WRITE !,"k. BACKLIGHT TIMEOUT.........60"

 +12       WRITE !," "

 +13       WRITE !,"(5) The next configuration heading is ""Select or modify comm protocol?"""

 +14       WRITE !," "

 +15       WRITE !,"    Use space bar to obtain POINT TO POINT"

 +16       WRITE !," "

 +17       WRITE !,"(6) Use the [enter] key to step through the ""comm protocol"""

 +18       WRITE !," "

22         DO WAIT

           IF $DATA(ERR)

               GOTO Q

 +1        WRITE !,"a. CHECK CTS............NO"

 +2        WRITE !,"b. XON..................Hold down the [ctrl] key & press [Q], to get DC1"

 +3        WRITE !,"c. XOFF.................Hold down the [ctrl] key & press [S], to get DC3"

 +4        WRITE !,"d. BAUD RATE............1200"

 +5        WRITE !,"e. PARITY...............DISABLED"

 +6        WRITE !,"f. DATA BITS............8"

 +7        WRITE !,"g. STOP BITS............1"

 +8        WRITE !,"h. TIMEOUT DELAY........10 seconds"

 +9        WRITE !,"i. INTERCHAR DELAY......50 milliseconds"

 +10       WRITE !,"j. TURNAROUND DELAY.....0 ms."

 +11       WRITE !," "

 +12       WRITE !,"At this point you will see ""Select or modify barcodes?"""

 +13       WRITE !,"Press [alt] then [E] to exit and save changes."

 +14       WRITE !,"or"

 +15       WRITE !,"Hold [ctrl] and press [Z] to exit without saving changes."

 +16       WRITE !," "

33         DO WAIT

           IF $DATA(ERR)

               GOTO Q

 +1        WRITE !," "

 +2        WRITE !,"TO DOWNLOAD to the TRAKKER or to UPLOAD to DHCP, new entries must be made"

 +3        WRITE !,"in the TERMINAL TYPE and DEVICE files."

 +4        WRITE !," "

 +5        WRITE !,"TERMINAL TYPE"

 +6        WRITE !,"-------------"

 +7        WRITE !,"NAME               : C-VT420 (9440)"

 +8        WRITE !,"FORM FEED          : #"

 +9        WRITE !,"OPEN EXECUTE       : W $C(0)"

 +10       WRITE !,"DESCRIPTION        : TRAKKER 9440 TO AUX PORT OF VT420"

 +11       WRITE !,"OPEN PRINTER PORT  : W $C(27)_"_"""[5i"""

 +12       WRITE !,"CLOSE PRINTER PORT : W $C(27)_"_"""4i"""

 +13       WRITE !,"RIGHT MARGIN       : 80"

 +14       WRITE !,"PAGE LENGTH        : 9999"

 +15       WRITE !," "

44         DO WAIT

           IF $DATA(ERR)

               GOTO Q

 +1        WRITE !,"DEVICE"

 +2        WRITE !,"-------"

 +3        WRITE !,"NAME               : TRAKKERSL"

 +4        WRITE !,"LOCATION           : SLAVED 9440 FROM VT420 AUX PORT"

 +5        WRITE !,"MARGIN WIDTH       : 80"

 +6        WRITE !,"PAGE LENGTH        : 9999"

 +7        WRITE !,"MNEMONIC           : TRAKKERSL"

 +8        WRITE !,"FORM FEED          : #"

 +9        WRITE !,"BACK SPACE         : $C(8)"

 +10       WRITE !,"SUB-TYPE           : C-VT420 (9440)"

 +11       WRITE !,"TYPE               : TERMINAL"

 +12       WRITE !,"$I                 : 0 (zero)"

 +13       WRITE !," "

 +14       WRITE !,"---------------------------------------------------------------------"

Q          KILL AN,ERR

           QUIT 

WAIT       IF $EXTRACT(IOST)["C"

               WRITE !,"Press <RET> to continue, or '^' to abort: "

               READ AN:DTIME

               IF AN="^"!('$TEST)

                   SET ERR=1

                   QUIT 

 +1        IF $EXTRACT(IOST)["C"

               WRITE @IOF,"SET UP PROCEDURES",!

 +2        QUIT