Programming instructions

152
Intermec Fingerprint 6.13 – Programmer's Guide
DISPSET2.PRG Utility Program, cont'd.
3900 'Change LSS ,501 printer lss = 0-7-127
3910 QLSS%=0
3920 if QLSS%=8 then QLSS%=7
3930 if QLSS%>127 then QLSS%=0
3940 SYSVAR(8)=QLSS%
3950 gosub 3600
3955 QLSS%=QLSS%+8
3960 if (prstat and 1) then goto 3920 else RETURN
3990 RETURN
3999 'Head down - show parameters
4000 'CONTRAST
4005 open "SETUP0.SYS" for input as #5
4010 gosub 9100:'Read setup file
4025 S%=SPLIT(T$,X$,44)
4030 D1$=S$(0):D2$=S$(1)
4040 gosub 9000
4050 if (prstat and 1) then goto 4800
4100 'SER-COM
4110 gosub 9100:'Read setup file
4122 if left$(T$,7)<>"SER-COM" then goto 4210
4125 S%=SPLIT(T$,X$,44)
4130 if S$(2)<>"FLOWCONTROL" then goto 4138
4135 if S$(3)<>"XON/XOFF" then goto 4137
4136 D1$="U"+right$(S$(1),1)+",XO,"+mid$(S$(4),6):
D2$=S$(5):goto 4140
4137 D1$=S$(1)+","+S$(3):D2$=S$(4):goto 4140
4138 if S$(2)="CHAR LENGTH" then S$(2)="CHAR-LEN"
4139 D1$=S$(1)+","+S$(2):D2$=S$(3)
4140 gosub 9000
4150 if (prstat and 1) then goto 4800 else goto 4110
4200 ‘FEEDADJ
4210 gosub 9100:’Read setup file, ignore LSS
4222 S%=SPLIT(T$,X$,44)
4225 if S$(1)<>"FEEDADJ" then goto 4322
4230 D1$=S$(2):D2$=S$(3)
4240 gosub 9000
4250 if (prstat and 1) then goto 4800 else goto 4210
4300 'MEDIA SIZE
4310 gosub 9100:'Read setup file
4322 S%=SPLIT(T$,X$,44)
4325 if S$(1)<>"MEDIA SIZE" then goto 4422
4330 D1$=S$(2):D2$=S$(3)
4340 gosub 9000
4350 if (prstat and 1) then goto 4800 else goto 4310
4400 'MEDIA TYPE
4410 gosub 9100:’Read setup file
4422 S%=SPLIT(T$,X$,44)
4430 D1$=S$(1):D2$=S$(2)
4440 gosub 9000
4450 if (prstat and 1) then goto 4800
15. PRINTER FUNCTION CONTROL, cont'd.
6. Printer Setup,
cont'd.
Continued!