Sharp PC-1500 Applications Manual page 202
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and
more about Sharp
PC-1500
at http:/lwww.PC-1500.info
PROGRAM
STOP
WATCH,
TIM
ER,
PROGRAM NO.
3
TI
TLE
AND
ALARM
CLOCK
PS- F-
2
[
Program
List
I
[
Memory
Contents
I
Timer
Function
10:"A"
:
CLEAR
:
555!PRI NT
"T
!M
E
LA
IJAl
T
0
PSE";USl NG
..
~
ti
A
20:
INPUT
"ALARM-I
";X;
"H";USlNG
B
I ME?";
T
"t'M
lf";Y;
•
n••;
30 :Q=TlME
USING
..
#fitf
,,
;
2;
c
40
:K= JNT
(Q
/
100>
I'
S"
D
50:
0
=<0-
K
*
L00l*
l
0
560:
IF
U=0GO TO 590
000
5/0:Q::N:
GO
TO
480
E
60:N=TJ
ME
590 :B£EP
20
F
/0:
K=
INT
(
N/1
00)
600: F.NO
80:N
=(N- K* 100lt
l0
650:
"S":
CL EAR
:
G
000
IJAfT
0
H
Tl111er Time (Hour)
90:
IF
O=NGOTO
200
655:PR1 NT "STOP
IJA
95:GOSUB
900
TCH"
I
100:PR
INT
"N
OIJ
-
TIM
660
:H=0!
M=0!S=0:U
=
E" ;US lNG
..
t*tl
tl
11
0
J
;H;
"H"
; USlNG
..
67
0
: A$
=
''
"
.tttt
"
..
;
n
; ..
M'';
680:
A$
=
I
NKEY$
K
Calculation
US
ING
"
attf~";S;
690:
IF
A$(>"
"GOTO
L
''S"
6.70
M
Tl111er Time {Minute)
120:
lF
T=NBEEP
20:
696:V=TlnE
GOTO 300
/30:U=U+
2
Timer
Time:
Elapsed
200:Q
=N
/
35:A::0
:A=0
N
Time
(Now)
210:GQTO
60
/40:
IF U< J
0LE
T S=S
300:
ENO
+0:A=0
0
Elapsed Time
(Old)
q00
:
"D"
;
CLtAR
;
750
:
IF
U=10L
ET
S=S
WAL
T
0
+I :
U=0
p
410:
INPUT
"T lMER?"
/60:
IF
S<60LET
n=n
a
;N
•
0: A=0
4
I5:GOSUB 900
/.70:
IF
S=60LET M=M
R
420:U=
<Ht60~2J+
<
n*
+
i:
S=0
60>•S
0I0:PRJNT
M;
"M'';
s
Tl111er Time
(Second)
440: S=0
USI
NG
"
Utitt";
S;
T
445: A$=""
1
'
S
11
; USING
ll~tl
,,
450!AS=I
NKEY$
;
U;
"SS''
Timer
time con·
460:
J F
A$
()"
"GO
TO
81S:
A$
=""
u
version to
seconds
445
020:A$ =JNKEY$
4/0:0=
TJ
ME :K=lNT
830:
lF
AS()" "GOTO
v
<O/
100>:
O= <O-K
.730
*100)1'
10000
840:
IJA
IT
:USING
:
w
480:N =T!M£
:
K=
lNT
PRINT
"STOP";n
x
Elapsed Time (Hour)
(
N/
J
00):N
=(N-
K
; "
M'
1
i S;
''
S"
;
Uj"
*100 )1:
10000
SS"
y
Elapsed Time
(Miiute)
490:
IF
O=NGOTO
480
850
: £NO
z
Elapsed
Timc
(Second)
500
:
S
=
S~
J
900:H::
JNT
(N/J 0000
505:U=U-
J
)
AS
IN KEYS
s1
0:z=s
9
J0:M=I
NT
«N-
Hf
10
520
:
lF
2<60GOTO 55
000)/100>
5
920:
S=J
NT
(H/10
0):
530:
Y
=
INT
<2/60
>:2
S-=N-5*100
=Z-
Y*60
930:RETURN
540:
I
F
Y<60GOTO 55
940: ENO
5
550:X=INT (
Y/60):Y
"Y-
X"t
60
STATUS
I
1037
Do not sale this PDF !!!
-
196
-
Advertisement
