8121
PRINT
@ll,
"RADID
SHACK";
7121
PRINT @28, DATE$;
8121.
LINE
(2llt15)-(21121,31>
,12I,BF
8121
PR
I
NT
@8ll,
"PAY
TD:
";
N$
( I ) ;
1121121
PRINT @12ll,
R(I)
*
H(I);
11121
PRINT@1ll8,"DOLLARS"j
12121
FOR
K=1
TO
1000
:
NEXT
K
130
NEXT
I :
END
1110
PRINT
@2lll2l,
ER$;
150
PRINT
@28121,
ER$;
180
PRINT
@2lll2l,
"NAME"
j
170
INPUT
N$
180
FOR
J=1
TO
8:IF
N$<>N$(J)
GOTO
210
180
PRINT@280
,"RATE"R(J)"
HOURS"H(J);
21210
RETURN
210
NEXT
J :
RETURN
300
DATA
SUE
SMITH,7.5,lll2l,TIM
LEE,8,35
310
DATA
RON
REED,8,ll0,ANN
JONES,8.5,38
320
DATA
JAN
ELY,7,lll2l,SAM
BAKER,15.5,38
Check the program carefully against the listing and then execute it.
You will see a
"check"
drawn
on
the display similar to the one illustrated below:
RADIO
SHACK
PAY
TO:
SUE
SMITH
3121121
1121/1121/83
DOLLARS
If you let the program run for a few minutes, you will see checks display in
succession for each of the employees listed in the data statements. As you can see,
it
takes quite a bit of time to display each check. This was intended to simulate the time
it would take to print a check using a printer instead of the LCD display.
Execute the program again. This time however, press
Cf1)
before the second check
is
displayed. You should
see:
RADIO
SHACK
PAY
TO:
SUE
SMITH
300
1121/10/83
DOLLARS
NAME?
Notice the NAME? prompt just below the check.
If
you enter the name SAM
BAKER, you should see his pay rate and hours worked this week appear on the
bottom line of the display
as:
RATE
15.5
HOURS
38
As soon
as
the rate and hours appear, the checks continue printing. You can interrupt
the check printing at any time to find out the pay rate and hours worked of any
employee listed in the data statements.
161
To Next Page
Loading...
