Sharp PC-1500 Anwenderhandbuch Seite 211

PROGRAMMNAME:
WELTZEITUHR
PROGRAMMN-NR.
F—5 (Standard
PS— mit
[ Programmlisting ] : Erweiterte Version
{Q:"A":CLEAR =
WAIT @
28:P=29:DIM ASC(P>
>DIM ACP)
3B: A$(Bds"TOKYO":
ACO)=8.4
49: AS$C1)="SINGAPU
R'sacl>=-1.3
5@:A$(2)="NEW YOR
K"ZAC2)5-14
6B: A$(3)5"LOSANGE
LES": AC3)=-17
7B: A$¢4)="SIDNEY"
>AC4I=4+)
88: 4$(5)="CHIKAGO
"SACS)=-16
98: A$(6)="LONDON"
'ACB8I=-3
1BB:ASC7IS"PARIS":
AC? I=-B
118: A$¢8)="ROM": AC
8)=-8
120: A$ (3)5"VANCOUU
ER": AC9s-17
138: A¢$¢1@)="MONTRE
AL"2AC1G)=-14
14@:A$C11>5="RIO":A
€11)5-12
158: A$(12)="MADRID
"SAC12)=-8
168: A$€13)5"AMSTER
DAMN": AC13I=-8
178:A$(14)="DELHI"
*A0149=-3.3
188: A$¢15S)="NATROB
I":AC15)=-6
198: A$(16)="AUCKLA
ND": AC16)=+4
208: A$¢(17)="MOSKAU
"SAC127)=-6
218: A$C18d="KAIRO"
*AC18)=-7
220: A$(19)="TEHERA
N'2AC19)=-5
238: A$(2B)5" ZURICH
"SAC2ZB)=-8
248: AS(21)="HONG K
ONG": AC21>=~-]1
258: A$(22)5"SEOUL"
>AC22)=8
268: A$(23)="PEKING
"$AC23)=-1
278: A$(24)="HONOLU
LU": AC24)=-19
280. A$¢625)="ATHEN"
2AC25)=-7
298: A$C26)="KAPSTA
DT":A¢26)=-7
310:A$¢(28)="MELBOU
RNE":AC28)=+2
3228:0$¢€23)="AQBUDHA
B]":qQ¢29)=-5
358: 1=@:01=1
366: GOSUB 5868
370:GOSUB 658
380: BSY=INKEYS
39@:1F Bs=""GOTO 3
78
4098: 1F Be="8"GOTO
438
41@:1F BS="2" GOTO
468
428: GOTO 372
438:01=1]- 1=1-!
44@:1F 1<@LET 1]=1+
P+1
45@: GOTO 368
468:O01=]: l=1+!
478: 1F 1>PLET I=I-
P=)
49@:GOTO 368
5@@:CLS :USING :
PRINT USING "8%
REKRRKER! 5 ASC
a)
520: Y=AC]): 1F Y<@
LET X=-INT ¢
ABS Y):GOTO 54
2)
538:xX=INT Y
548: Y=CY-X)*108
558: G=TIME
56@:C=INT (67189628
)
570: D=INT (67100)-
C*1B8
58@:E=INT G-C*1468
8-D* 108
590:F=INT (¢¢G-INT
G)*18@>
688: kK=C:L=D
B10:M=€+X:N=F +7: 01
=];RETURN
65@: G=TIME
— 205 —
rweiterung)
662: S=INT ¢¢G-INT
6)*186)
665: 1F O1=1LET O1=
@:GOTO 6928
678: 1F S=FRETURN
688: N=N+]
698: 1F N>=6BLET M=
M+1:N=N-68
718: 1F N<BLET M=M-
1: N=N+68
730: 1F M>=24LET L=
L+1:M=M-24
258: 1F M<B@LET L=L~
1; M=MN+24
77@:1F L<1GOTO 88B
788: 1F L<=28GOTO 9
68
798: 1F ¢(K=1)+¢K=3>
+(€K=5)4+C(K=7)+¢
K=89+(K=]18)+CK
=12).=1LET 2=3]1
:GOTO 84a
B8BZ: 1F K=2LET Z=28
: GOTO 84a
818: 2=38
844: 1F L>ZLET L=L-
2: K=K+]
868: IF KDI2LET K=K
-12
878: GOTO 9368
880: K=K- ]
898: 1F K<ILET K=K+
12
916: 1F K=2LET L=L+
28: GOTO 360
920: 1F (K=4)+CK=6)
+CK=9)4+CK=11)9=
1ILET L=L+38:
GOTO 964
938:L=L+3]1
966: CURSOR 18
966:USING :PRINT
USING "HHH. > 3K
;USING "#848. °3
L;USING "#H#"S
M4" USING. "A
HH'SN
978: F=S: RETURN
STATUS 1
1868