UBI EasyCoder 201 IISA Manuel d'instructions Page 152

  • Télécharger
  • Ajouter à mon manuel
  • Imprimer
  • Page
    / 181
  • Table des matières
  • MARQUE LIVRES
  • Noté. / 5. Basé sur avis des utilisateurs
Vue de la page 151
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!
Vue de la page 151
1 2 ... 147 148 149 150 151 152 153 154 155 156 157 ... 180 181

Commentaires sur ces manuels

Pas de commentaire