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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSDTRAK 3618 printed Nov 22, 2024@16:59:18 Page 2
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
