Sharp PC-1500 Anwenderhandbuch Seite 210

18: "A": CLEAR :
WAIT @
20:P=7:N1IM AS(P):
DIM ACP)
30: A$¢CB)="TOKYO":
~ 468 =8.6
40:A$C1)="SINGAPU ~
R':AC1)=-1.3
5@:A$(2)="NEW YOR
K":Q¢2)=-14
68: A$<3)="LOSANGE
LES":Q(3)=-12
78: A$(4)="SIDNEY"
:AC4)=41
88: A$(5)="CHIKAGO
"3A(5)=-16
96: 4$(6)="LONDON"
:QC6)=-3 |
180:48(7)="PARIS".
4¢7)=-8
3538: 1=8:O7%=]
360: GOQSUB 588
370: GOSUB 652
380: BS=INKEYS .
396: 1F BS=""GOTO 3
76
408: 1F BS="8"GOTO
438
410: 1F BS="2"GOTO
462
420: 60TO 370
43¢@:O0151: l=I-1
'440: 1F I< @LET 'I=I+
P+]
450:GOTO 360
460: 0Q1=1: 1=1+}
470: IF I>PLET J=I-
P=] ©
438:GOTO 362
5@QZ:CLS :USING :
PRINT USING "&
SEEEEBRER" 5S ASC
1)
528: Y2ACII: IF ¥<B
LET X=-INT ¢
ABS ¥3:GOTO 54
2
938: xX=INT Y
348; Y=(Y-X3*189
550: G=TIME
568:C=INT (6719008
y)
379: D=INT (G/1@8)-
Ck1a
384@:E=INT G-Ck1g@e
8~Dx* 1828
S98:F=INT ¢CG-INT
G)*188)
606:K=C.L=N
610-M=E+X.N=F+Y: 9].
=1: RETURN
630: G=TIME
-66@:S=INT (CG-INT
6)*1@B)
665: 1F QI=ILET QI=
8:GOTQ 698 ,
678: IF S=FRETURN
680: N=N+1
636: IF N>=68LET M=
M+1:N=N-62
218: 1F NCOLET M=n-
1: N=N+66
730: 1F M>=24LET L=
L+1:M=M~24
750: 1F M<OLET L=L~
1:M=M+24
776: 1F L<1GOTO sgB
788: IF L<=28GO0TO 9
6B ie
790: 1F (K=1)4+¢(K=3)
+ CK=5)+¢€K=7)4+¢
K=8)+(K=18)4+¢K
=12)=1LET .2=31
:GOTO 849°
880: 1F K=2LET: 2=28
:GOTO 848
814: 27=38
8480: (F LOZLET LeL-
2: K=K+]
B68: 1F K>12LET K=kK
-I2
878: GOTO 968
888: K=K-]
898: 1F K<1LET K=K+
12
91B:1F K=2LET LeL+
28:GOTO 96@
928: 1F (K=4)+(K=6)
+(K=9)4+(K=11)=
ILET L=L+32:
GOTO 960
93@:L=L+31
96@:CURSOR 12
966: USING , : PRINT
USING "HHH. "3K
;USING "HHH. 5
L;USING "###";
M3." 3;USING "#
HEY SN
970: F =S: RETURN
STATUS |]
1168
— 204 —
PROGRAMM-NR. |
F—5 (Standard
PS init rweiterung)
[ Speicherinhalt ]
Monat fiir jede Stadt
Tag fiir jede Stadt cs
Stadtnamen-
Tabelle
Zeitverschiebungs-