Sharp PC-1500 Applications Manual page 211

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
TITL E
WOR LD CLOC K
[ Program List
I :
Expanded Version
J
0: "A": CLEAR :
WAJ
T 0
20:P=29:0JM A$(PJ
:OJM A<P>
30: A$ (0) ="TOKYO":
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 )=" LOSANGE
LES":A<3> =-17
70:A$C4> ="SJONEY"
:A(4)•- l6
80:A$<5>= "CHICAGO
'":A<SJ.:- 19
90:AS<6> ='"LONOON"
:A<6> =-9
100:A$<7J ='' PARJS'':
A<7> =- 9
IJ0:A$19) ='"ROME'':A
(8)=- 9
120!A$<9> =''UANCOUU
ER '": A<9> =- 17
130: ASIJ 0)= '"M ONTR 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•"AUCKLA
HO": A<l6> • .. 4
200: At
(J? )•"MOSCOW
"; A<J 7J•-6
2J0:A$(J8J ="CAJ RO ''
: A< 18> .,-7
220:A$(J9 J="TEHRAH
" :A( 19>=-5
230:A$C20J ="ZURJ CH
" :A(20) •-8
240:A$(2J)=''HO NG K
ONG ": A(21J •-I
250:A$<2 )=''SEOUL ' . '
:A<22>=0
260:A$C23J ='"PEKJHG
".; AC23l·=- l
270:Atl24>="H0NOLU
LU": IH24> =-·19
Do not sale this PDF !!!
280:A$(25 J ="ATHEHS
":At25)=- 7
290:AS<l6J ="CAPE TO
WN":A(26J• -7
300: ASC27J="8ERLIM
" : A<27
)• -8
310:A$C2B>="MELBOU
RN£ " :AC28J=+2
320: A$( 29> =" ABUOHA
BJ":AC29J • - 5
350: 1=0:0J=)
360:60SUB 500
3?0 :60SUB 650
380:8S•I NK£Y$
390 : IF 8$•""GO TO
3
7 0
400: IF 8S""B"GOTO
430
410: IF 8$="2 "GOTO
460
420:GOTO 370
430: OJ=J : 1=1- J
440: IF J<0LET 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
500: CLS :US I 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
530: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=JN T <CG- INT
G> t l00J
600:K•C:L=O
6J0:M=E+X:N=F +Y:Ol
=l: RETURN
650:G =TlME
660:S= JNT C<G:JNT
6)'tJ00)
- 205 -
PROGRAM NO.
4
F-S
PS- cf,p•ndcd.
S 1.iid1tdl
665: JF OJ= lLE T OJ=
0!GOTO 690
670: IF S=FRETURN
680:H• N+I
690: IF H)=60LET M =
M+ ! :
H• H-60
710: !F H<0LE T M=M-
!
:N=H+60
730: !F M> =24LE T L=
L+
! :
M-M-24
750:
!F
M<0L£ T L=L-
! :
M=M+
24
770:
l F 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=3 1
:GOTO 840
800: !F K=2 LE T
Z=28
: GO TO 840
8 J0 : Z=30
640:
lF
L> ZLET L=L -
Z:K=K+J
860: !F K) l 2LET K=K
- 12
870 :GO TO 960
880:K=K- l
890:
l F
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£TURN
STATUS J
1802