Sharp PC-1500 - Page 210

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRA M
WOR LD CLOCK
PROGRAM NO.
3
T
I
T L E
F- S
PS - m~r~t1d«t. S• :L.'ld : ud J
[ Program List I Standard Version
[ Me
mory Contents I
10 : "A": Ct.EA R
: 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 1 0: M= E•X:N=F•Y:OI
30:AS<0>="TDKY0":
=!:R ET URN
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:A S<3>="L OSANGE
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<0 L ET M=M-
I City indicator
": A<5>=-J9 I : N=N•60
90 : AS (6l= "L ON D ON "
?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<0LE T 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 Mi n ute for each cily
380: BS= I NKEYS
?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" G OTD 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<0L
ET 1=1•
Z:K=K+J
P•l
860: IF K>12LET K=K
T
450: GO TO 360
-12
u
Number
460 : 01=I: l=I-+l
8/0:GDTD
960
470 : IF
l >PLE T 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=2L ET L =L •
Time Difference-Day
PR I NT 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
I t. 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 I NG :PRINT
Minute
5"!0:Y=<Y- X>* 1 00
US I NG
"tltttt. "; K
z
v
550:G=TJ ME
;USING "tlNtt. " ;
560:C=INT
(6/10000 L;USING
........ . ; 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
970: F=S:
RE T URN
580:E= INT G-C:f1000
0
-0 1<100
STATUS I
1169
Do not sale this PDF !!!
- 204 -