UBI EasyCoder 201 IISA Manuale delle Istruzioni Pagina 154

  • Scaricare
  • Aggiungi ai miei manuali
  • Stampa
  • Pagina
    / 181
  • Indice
  • SEGNALIBRI
  • Valutato. / 5. Basato su recensioni clienti
Vedere la pagina 153
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
Vedere la pagina 153
1 2 ... 149 150 151 152 153 154 155 156 157 158 159 ... 180 181

Commenti su questo manuale

Nessun commento