Table of Contents
Advertisement
1
r
IS
Y
it
~r
Software Usage and Examples
10 D H1 A $ [ 4 2 ]
! All
0
1.,.1
f
0
t- Pla >:: i P1U Pl 1 en 'd t. h 1
.~
bel
2~)
A:::::: I Gt·j # 1 TO
II
Hj',,o'Et·j: ::·::t'1Et'1
11
,
TE::-n
!
Open
elect.
t-on i c disc
f
i 1
e
30 DELAY 0 ! Prevent. DISP froM wait.ing
40 CDIGIT ON ! Aut.oMat.ic check digit. verificat.ion
5(1 I t·lPUT
II
Lengt. h of labe 1:
"; L !
Get.
fie 1 d 1 en'dt. h
60 FOR 1=1 TO 50 ! St.art Main loop for 50 readings
7(1 C=0 ! In i t i 031 i ze
b.~d
scan count
::: 0 D I ::: P " :::
c.~
n 1
.~
bel"
! ' . ,.' i s
u·~
1 p t-
0
f' l P t t
0
S t .. :3 t- t s
c.~
n
'30 BEEP 1000,. 1 ! Aud i b 1
e
pt-or'lPt. to st .:H-t
sc.~n
100 A$=CODE39$ ! Decode
label
110 IF A$="" THEt·j 230 !
B.~d
t-e.~d
120 IF LEN(A$)#L THEN
230
! Bad length
1
:::~)
HlP U T "G! u ·:m tit ' : :I :
"; 0 $ ! t·j W'l b
e
t-
0
f i t
e
r'l s
1.,.1
i t h t. his 1 ·3 bel
140 ! Write the label, quant.ity, and dat.e
150 P F.: I tH # 1 ;
" ", A $," ", 0 $," ", D
I~
T E $
160 t·jE::·::T I
! Cont inue loop
17[1 CD I G I T OFF ! TUtTI of f check
1:::0 ASSIGN # 1 TO
*
!
Close
INVEN file
190 Et·m
2~)[1
210 ! Bad scan or bad length
220
I
23(1 C=C+ 1
!
I nCn?r'lent.
b.~d
SC·3n count
240 IF C<3 THEt·j DI:::P "Re::::can
1.~bel"
I~
GOTO 90 ! Tt-'='
·~'d·~in
250 A $ = ""
!
I nit i ali z
e
f
0
t- k
e
' : :I b
0
·:W din put
26~)
I t·1PUT
"L.~be
1: ", A$; FI$ ! Tt'wee b.:3d
sc.~ns,
IJse k
e'::Ibcl.~I·-d
270 ! If good keyboard input, go check lengt.h else try again
2:::0 IF CDV39(A$)=0 THEN 300
290 IF LEt·l(A$)=L THEt·l 130
!
If length OK, 'det. qtBnt.it.'::I
::: eH]
D I ::: P "I n '·)·3 1 i d 1 abe 1"
I~
~'J
A IT. 5
I~
G
I]
T 0 2
Eo
0
S9
Advertisement
Table of Contents
