Sharp PC-1500 Applications Manual page 210

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
WORLD CLOCK
PROGRAM NO.
3
T I T
L E
F- S
PS-
m~r~t1d«t.
S•:L.'ld: u dJ
[ Program List
I
Standard Version
[ Memory Contents
I
10: "A": Ct.EAR :
590:F=INT «G-IN T
A
WAIT 0
G>1<100 )
20:?=/:0J M AS <P>:
600:
K=C: L=D
B
DIM A<P>
6 10: M=E•X:N=F•Y:OI
30:AS<0>="TDKY0":
=!:RETURN
c
Month (Japan)
A<0>=0.0
650 :
G= T
ltlE
D
Day (Japan)
<10: AS<J ).' "S !NGAPD
660:5=IN T «G- !NT
RE " : A<J >=- 1.3
G) t J00>
E
Hour (Japan)
S0:AS<2> ="NEW YOR
665 : l F OI=lLET OI=
K" :A<2> =- 11
0:GOTO 690
F Minute (Japan)
60:AS<3>=" LOSANGE
6/0: IF
S=FRETURN
Current Time
LES":A<3> =-J/
680 : N=N• I
G
'0:As<4 1='' SIDNEY"
890: IF Nl-"60LET
M =
H
: AC4>=- 15
M•I: N=N- 60
80:AS<5>="CHICAGO ?1 0 : IF N<0LET M =M - I City indicator
": A<5>=-J9 I : N=N•60
90: AS (6l= "LONDON "
?30:1F M>=24LET L=
J
:A<6>=- 9
l..•
l : M=M- 24
K
Month for each city
100:AS(/)='' PARJS'' :
750:IF M<0LET L=L-
A( /) : -8 1: M=M•24
L
Day for each city
350: 1=0:0 J=I
;>;;>0 :1F L< l GOTO 880
360:60SUB 500 ?80:
IF t.<=28GOTD 9
M
Hour for each city
3;>0:GOSUB 650 60
N Minute fo r each cily
380: BS= INKEYS
?90: IF <K= l
>•<!<=3>
390: IF BS =""GOTO
3
+ CK=Sl• CK=/ >-«
0
/0
K=8)+ <K= 10).+ <K.
v
400: IF BS="8"GOTO
=12> =1LET
Z=31
p
~30
: GOTO 8'10
Q
4J0:1F 8 $=''2" GOTD 800: IF K=2LET 2=28
460
:GOTO 840
R
420 : GOTO 3/0
810:Z=30
430 : 01=1 : l=l-1
840: IF L>ZLET L=L-
s
v
4"10: IF J<0LET
1=1•
Z:K=K+J
P•l
860: IF K>12LET
K=K T
450: GOTO 360
-12
u
Number
460 : 01=I: l =I-+l
8/0:GDTD 960
470 : IF
l >PLET
1"'1-
880: K,,K-l
Time Difference
P-1
890: IF K<JLET K=K•
v
490 : GO TO 360 J;2
Month
500: CLS : USING :
910: IF K=2LET L=L•
Time Difference-Day
PR INT USING
"&
28:GOTO 960
w
&&&&&&&U." ;
AS (
920: IF <K=4) +(K"'6>
Time Difference·
.
I )
«K=9>•<K=I I>=
x
520:Y=A<ll: IF Y<0
It.ET L=t.•30:
Hour
LET X"-INT
(
GOTO 960
ABS Yl: GOTO 54
930:L=L+31
Time Difference-
0
960:CURSOR 10
y
530:X,,HH
y
966: US ING :PRINT
Minute
5"!0:Y=<Y- X>*100
US ING "tltttt. ";
K z
v
550:G=T JME
;USING
"tlNtt. " ;
560:C=INT
(6/10000 L;USI NG
.........
;
AS(291
City Name Table
)
M; " :";USING
...
Tirne Difference Table
S/0: D=JN T
<G/100> -
tli:l
1' ;
N
A(29)
C* l 00
9 70 : F=S: RE TURN
580:E= I NT G-C:f1000
0-01<100
STATUS
I
1169
Do not sale this PDF !!!
- 204 -