Sharp PC-1500 Applications Manual page 114

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM WORKING HOUR
PROGRAM NO.
3
T I TL E PROPORTIONAL PROCESSING
PS- D--11
I
Program List ]
I
Memory Contents
I
IS : " A"WAI T : INPUT
" START?" ; O:
A
GOTO
20
B
JB: ENO
20: GOSUB 500 :5=0
c
30 : INPUT "ENO?";O
0
Proportional Value
40: GOSUB 500 : E=O
Closing Time (after
50:M=0
E
50:M=E-S
calculation)
3 00: F=M *O
F
Value for Working
303: 0=M:GOSUB
500 :
Hours
M =O
G
320 : T=T+F
3 30:
USI NG :PRINT
H
US ING
" !Iii II • 1111 "
I
.J
;M; "<T)
* ";
USI N G "ttli111rn";
J
o· ,, _ ,.
.J
'
-
K
335 : USJ N G
:PRI NT
USI N G
" llllll!Ullll
L
,. ; F
M Elapsed Time
340: GOTO
15
N
350 : " B" :US ING
:
PRINT
" TOTAL= "
0
Starting Time/
; US! NG "111111111111
Closing Time
llll" j T
p
360: ENO
4 00 : " C" : INPU T
"PRO
0
PORT.
VAL. " ; O
R
4 20: ENO
Starting Time
450:"0" :T =0
s
460 :US
ING :PAUSE "
(after calculation )
TOTAL
CLEAR"
T To tal of F
470 : ENO
u
5 00:K=
INT Q: I= <O- K
)*100
v
510: l = J/60:0=K+l
w
520:RETURN
600:
K=INT Q:J=<O-K
x
)
y
510: I =< I *60) / I 00 : 0
z
=K +J
620:RETURN
S TATUS
I
402
Do not sale this PDF !!!
- 108-