Sharp PC-1500 - Page 114

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM WORKING HO UR PROGRAM NO.
3
T I TL E PROPORT I ONA L PRO CESS ING PS- D--11
I Pr ogram List ]
I Memory Contents I
IS: "A" WAI T : INP UT
" START? "; O:
A
GO TO
20
B
JB: ENO
20: GOSU B 50 0 :5 =0
c
30 : IN PUT "EN O?";O
0
Proport iona l Value
40:GO SU B
500 : E
=O
Closing Ti me (a ft er
50:M=0
E
50:M=E-S
ca l cu l ati on)
300: F=M *O
F
Value for Working
303: 0= M:GOSUB
500:
Hours
M=O
G
320 : T=T+F
33
0: USI NG
:PRINT H
US ING
" ! Iii II • 1111 "
I .J
;M; "<T) * ";
USING
"ttli111rn";
J
o· ,, _ ,.
.J
' -
K
33 5: USJ NG
:PRINT
USI NG
" llllll!Ullll
L
,. ; F
M Elapsed Ti me
340: GOTO 15
N
350 : "B" :USI NG
:
PRINT
" TO T AL= "
0
St arti ng Time/
; US! NG
"111111111111
Closing Ti me
llll" j T
p
36 0: ENO
4 00 : " C" : I NPU T
"
PRO 0
PO RT.
VA L. "; O
R
4 20: EN O
Starting Time
450:"0" :T=0
s
460 :U SING
:PA
USE
"
(after calcul at ion)
TOTAL
CL EAR "
T Total of F
470 : EN O
u
50 0:K =I NT
Q: I= <O - K
)*100
v
510: l= J/ 60:0=K+l
w
520:RETU RN
600: K=INT
Q:J=<O-K
x
)
y
510: I =< I *60) / I 00: 0
z
=K +J
620:R E TURN
ST AT US
I
402
Do not sale this PDF ! !!
- 10 8-