Programming instructions

151
Intermec Fingerprint 6.13 – Programmer's Guide
DISPSET2.PRG Utility Program, cont'd.
3200 D1$="HEAD RESISTANCE":D2$=S$(3)
3210 gosub 9000: 'Display
3220 if (prstat and 1) then gosub 3300
3299 RETURN
3300 'Change resistance
3310 QRES%=head(-8): 'Min
3315 D2$=str$(QRES%):
T$=S$(0)+","+S$(1)+","+S$(2)+","+D2$
3320 gosub 9000: 'Display
3330 if (prstat and 1) then goto 3340 else RETURN
3340 QRES%=QRES%+10:QRES$=str$(QRES%)
3345 if (QRES%>head(-8) and right$(QRES$,1)<>"0")
then QRES$=left$(QRES$,2)+”0"
3346 QRES%=val(QRES$)
3370 if QRES%>head(-9) then QRES%=head(-8)
3380 goto 3315
3499 RETURN
3500 'LSS- Adjust
3505 setup "XSETUP1X.SYS" : kill "XSETUP1X.SYS"
3510 D1$="LSS ADJUST":D2$="":gosub 9000
3520 D1$="LABEL <> GAP":QLSS%=SYSVAR(8)
3555 LASTF$="YES":gosub 3600
3560 if (prstat and 1)=0 then goto 3585
3565 if VERSION$(1)<>"501" then gosub 3800
else gosub 3900
3585 gosub 4000: 'Show par.
3590 RETURN
3600 'Display LSS receiver
3615 POS%=sysvar(1)\16:X1$=" "
3617 LASTPOS%=POS%
3620 D2$=string$(pos%,X1$)+chr$(255)
3623 QLSS$=right$("00"+str$(QLSS%),3)
3625 D1$="LABEL <"+QLSS$+"> GAP"
3630 print#10:print#10,left$(D1$,16)
3640 print#10,left$(D2$,16);
3641 POS%=sysvar(1)\16
3643 if (prstat and 1) then LASTF$="NO" :goto 3645
3644 if (LASTF$<>”YES”) then TESTFEED:LASTF$="YES"
3645 if LASTPOS%<>POS% then goto 3617
3650 if QSTEP$<>"TRUE" then goto 3641
3660 QSTEP$="FALSE"
3690 RETURN
3800 'Change LSS , 101, 201 printer. lss = 0 - 3
3810 QLSS%=0
3820 if QLSS%>3 then QLSS%=0
3840 SYSVAR(8)=QLSS%
3850 gosub 3600
3855 QLSS%=QLSS%+1
3860 if (prstat and 1) then goto 3820 else RETURN
15. PRINTER FUNCTION CONTROL, cont'd.
6. Printer Setup,
cont'd.
Continued!