Sharp PC-1500 - Page 211

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
TITL E
WOR LD CLOCK
[ Program List I : Expa nd ed Version
J 0: "A": CLEAR :
WAJ T 0
20:P=29:0JM A$(PJ
:OJM A<P>
30: A$ (0) ="TO KY O":
AC0> =0. 0
40: A$Cl)• "SINGAPO
RE ":A(I >=-J . 3
50:A$ C2J =" NEW YOR
K ":A<2>,,-J 4
60:A$( 3
)=" L OSANGE
LES":A<3> =-17
70:A$C4>=" SJON EY "
:A(4)• - l6
80:A$<5>= "CHICAGO
'":A<SJ .:- 19
90:AS<6>=
'"L ONOON"
:A<6> =-9
100:A$<7J='' PARJS'':
A<7> =- 9
IJ0:A$19) = '"R OME'':A
(8)= - 9
120!A$<9>=' 'UANCOUU
ER ' ": A<9> =- 17
130: ASIJ
0)= '"MON TR E
AL": A
( J 0 > =- J 4
140:A$(JJ) • ''RJO":A
(
IJ ) •- 12
JS0:A$Cl2J =' "MADRJD
":A(J2) =-9
160:A$(J3) • ''AMSTER
DAM": A<J3J =-9
170: A$ (J 4 > =" 0 EL HJ "
:A(J4 )= - 3.3
180:AS<J5) •"NAJ ROB
J":A(l5J= - 6
190:A$Cl6J •"A UCKLA
HO ": A<l6>• .. 4
200: At (J? )•"MOSCOW
"; A<J 7J•-6
2J0:A$(J8J ="CAJ RO ''
: A< 18> .,-7
220:A$(J9 J="TEH RAH
" :A( 19 >=-5
230:A$C20J ="ZU RJ CH
" :A(20) •-8
240:A$(2J)= ''HO NG K
ONG ": A(21J •-I
250:A$<2 )=''SEOUL '. '
:A<22>=0
260:A$C23J='" PE KJHG
".; AC23l·=- l
270:Atl24>=" H0NOLU
LU": IH24>=-·19
Do not sale this PDF !!!
280:A $(25 J= "ATHE HS
":At25)= - 7
290:A S <l6J = "CAPE TO
WN":A(26J•
-7
300 : ASC27J="8E RLIM
" : A<2 7 )• -8
31 0:A$C2B>="MELBOU
RN£ ":AC28J=+2
320: A$( 29> =" ABUOHA
BJ":AC29J• - 5
35 0: 1=0:0J=)
360:60SUB 50 0
3? 0 :60SUB 650
380:8 S •I NK£ Y$
390: IF 8$•""GOTO 3
70
400: IF 8S""B"GOTO
430
410: IF 8$="2 " GOTO
460
420:GOTO 370
430:
OJ=J: 1=1- J
440: IF J<0 LET l =J+
P+I
450: 6QTO 360
4 60: 0 I= J : I= J + J
470: IF J >PLET J= J-
P-1
490:GOTO 360
5 00: CLS :USI NG :
PRl NT US!NG " &
8.8.8.8.8.8.8.8.8."; AS (
J )
520:Y=ACJ): !F Y<0
LE T X•-JNT <
ABS YJ:GO TO 54
0
53 0:X = INT Y
5
40:Y =C Y-X>'tl00
550:G = TIME
560:C=INT CG/10000
)
5?0:0•! NT {G /J00>-
Ctl00
SB0:£=1NT G- C 'tl000
0-0tJ00
590• F=JNT <CG - INT
G> t l00J
600:K•C:L=O
6J0:M=E+X:N=F+Y:Ol
=
l: RETURN
650:G=T lME
660:S = JNT C<G:JNT
6)'tJ00)
- 205 -
PROGRAM N O. 4
F-S
PS - cf,p•nd cd . S 1.iid1tdl
665: JF OJ=lLE T OJ=
0!GOTO 690
670: IF S =FR ETU RN
680:H• N+I
690: IF H)= 60LET M=
M+ ! : H• H-60
710: !F H<0LE T M=M-
! :N=H+60
7 30: !F M> =24LE T L=
L+
! : M-M-24
750: !F M<0 L£ T L=L-
! : M=M+ 24
770: lF L <JGOTO 880
780: JF L< = 29GOTO 9
60
790: JF CK= I J+CK = 3>
+ CK = S> +< K=7>+C
K= 8) +C K=l0J+CK
= J2) =l LET 2=31
:GOT O 840
800: !F K=2 LE T Z=28
: GO TO 840
8J0:
Z=30
6 40: lF L> ZL ET L =L -
Z:K= K+J
860: !F K) l 2LET K=K
- 12
870
:GO TO 960
880:K=K- l
890: lF K( l LET K=K+
J2
SJ0: JF K=2LET L=L+
28:GOTO 960
920: JF <K = 4>+CK = 6J
+CK=9)+(K=J 1>=
llf T L=L+30:
60T0 .96fi
930:L=L•3l
960:CURSOR 10
966:US IHG :PR lH J
USJ NG " fiff ff. "; K"
: US! NG " 111111. ";
L; USJNG " Ullll ";
M ;":";USJ NG " fi
tttt
1
';N
970:F=S:R £TU RN
S TATUS J
1802