Programming instructions

150
Intermec Fingerprint 6.13 – Programmer's Guide
15. PRINTER FUNCTION CONTROL, cont'd.
6. Printer Setup,
cont'd.
Continued!
DISPSET2.PRG Utility Program
DISPSET2.PRG is included in many Configuration EPROM:s and
can be used for setting up such printers that are fitted with a display
but not a keyboard, e.g. EasyCoder 201 IIS, EasyCoder 401,
EasyCoder 501 S and EasyCoder 601 S. DISPSET2.PRG allows
the label stop sensor (LSS) to be adjusted and – when necessary –
the printhead resistance to be set. It also provides the possibility of
reading the present value of all other setup parameters in the display.
DISPSET2.PRG is a part of the Intermec Shell Standard startup
program for printers without keyboard. It also illustrates how to
solve the setup programming for printers with custom-made pro-
grams and no keyboard. Also refer to the Technical Manual of the
printer model in question.
1000 'Display setup in slave printer 201/910
1010 '930301 GI New LSS for 501
1100 on error goto 9500:dim S$(9)
1110 open "CONSOLE:" for input as #11
1115 open "CONSOLE:" for output as #10
1117 print #10,"Print=Setup":print #10,T$
1120 DUMMY$=input$(loc(11),11):close #11
1130 QSTEP$="FALSE":X$="S"
1140 on key(17) gosub 2000: key(17) on:'Print
1150 T1%=TICKS:OT$=""
1151 T$="0"+str$(500-(ticks-T1%))
1153 T$=right$(T$,3):T$=left$(T$,1)
1154 if OT$=T$ then goto 1160
1155 print #10:print #10,"Print=Setup":
print #10,T$+" Sec. left";:OT$=T$
1160 if (TICKS-T1%)<400 then goto 1151
1170 gosub 4800
1199 END
2000 setup write "SETUP0.SYS"
2010 on key(17) gosub 9200: key(17) on:'Print
2030 if (prstat and 1) then gosub 3000
else gosub 4000
2990 RETURN
2999 'Setup - - - - - - - - - -
3000 'Head up - LSS adj., HEAD RESISTANCE.
3005 setup write "XSETUP0X.SYS"
3010 open "XSETUP0X.SYS" for input as #5
3020 open "XSETUP1X.SYS" for output as #6
3030 gosub 9100: 'Read setup file
3040 if T$=”EOF” then close #5:close #6:goto 3500
3050 S%=SPLIT(T$,X$,44)
3060 if S$(2)="HEAD RESIST" then gosub 3200
else goto 3030
3070 print #6,T$:close #5:close #6:goto 3500:
'Copy to file #6.
Note:
Printer model 910 is no longer produced.