Programming instructions

153
Intermec Fingerprint 6.13 – Programmer's Guide
15. PRINTER FUNCTION CONTROL, cont'd.
6. Printer Setup,
cont'd.
DISPSET2.PRG Utility Program, cont'd.
4500 'PAPER TYPE
4510 gosub 9100:gosub 9100:
'Read setup file, ignore head res.
4522 S%=SPLIT(T$,X$,44)
4530 D1$=S$(2):D2$=S$(3)
4540 gosub 9000
4550 if (prstat and 1) then goto 4800
4600 'PERFORMANCE
4610 gosub 9100:'Read setup file
4622 S%=SPLIT(T$,X$,44)
4630 D1$=S$(1):D2$=S$(2)
4640 gosub 9000
4650 if (prstat and 1) then goto 4800
4700 'MEMORY ALLOC
4710 gosub 9100:'Read setup file
4720 if T$="EOF" then close #5:goto 4000
4722 S%=SPLIT(T$,X$,44)
4725 if S$(1)<>"MEMORY ALLOC" then goto 4710
4730 D1$=S$(2):D2$=S$(3)
4740 gosub 9000
4750 if (prstat and 1) then goto 4800 else goto 4710
4800 print#10
4805 print #10:print #10,version$;
4810 close:kill "SETUP0.SYS":key(17) off
4999 RETURN
9000 'Display
9010 print#10:print#10,left$(D1$,16)
9020 print#10,left$(D2$,16);
9030 if QSTEP$<>"TRUE" then goto 9030
9040 QSTEP$="FALSE"
9050 RETURN
9100 'Read setup file
9110 if EOF(5) then T$="EOF":RETURN
9120 line input #5,T$
9150 RETURN
9200 'Print key, step to next setup parameter
9210 QSTEP$="TRUE"
9299 RETURN
9500 'error rut.
9599 RESUME NEXT