Sharp PC-1500 Handbuch Seite 213
Vorschau ausblenden
Andere Handbücher für PC-1500:
- Bedienungsanleitung (166 Seiten) ,
- Anwenderhandbuch (222 Seiten)
Werbung
All
and more about Sharp PC-1500
at
http://www.PC-1500.info
PROGRAMMNAME:
WELTZE ITUHR
[
ProgTammlisting) :
Erweiterte
Version
10:
"A"
:
CLEAR
:
WAJr 0
20:P=29:01M A$(P)
:OJM A<P>
30: A$(0)
•
"
TOKYO":
<H0>=0
.
0
40:A$
(J)• "S!
HGAPU
R":
ACJ
>=-
J.3
50:A$<2
>= "HEW VOR
J(
"
:IH2>=-1
4
60:
A$
c
3
>
= ,.
LOSAHGE
LES" :A<3>
=-
17
70:
ASC4>=
"SIDNEY"
:AC4>=-!6
80:A$(5)•"CHJJ<AGO
":AcS>-,-19
90:A$(6)•" LONOOH"
:C\(6)•
-9
J 00:
A$
CJ
>=''PAR
l
S":
Q(/)=-8
110:A$(8>="
R0M
"
:A(
8>
=-8
120:A$19>="VnNCOUV
ER":
A<9>
=-
J7
!30:A$IJ0l
=''M
ON TRE
AL":A<J0)
=-
14
140: AS
(JJ) ="RIO
"
:A
(J
J
)=- 12
l50:AS<
J2l•
"M
AORJO
"
:AcJ
2>=
-
8
J60:AS
cJ3)=
"AM STF.R
OAM":
Al
1
3>~-8
JJ0:A$IJ4
J="DELHJ''
: A<J
4
J
"
-
3. 3
l80: AS
I JSJ
="
NAJR08
J":
Al
J5)„-6
190:AS(J6J=''AUCKLA
NO":A<J6>
=·•4
200:AS<l7J
="
MOSKAU
":<H
1
;>
>=-
6
2J0:
AS<Jß) ="KAJR0
"
:A<J8J=-7
220:AS
CJ9J
="
TEHERA
H'":A(J9>
=-5
230: ASC20
J
="
ZURJCH
••
:
AC20>=-
8
240:A$
C2J
J
="
ttONG K
ONG
"
:A<21>=-
I
2S0:A$122J
="SEOUL"
:A(22J"0
260: ASC23J
="Pfl<
JNG
"
:A<23>=-
l
2/0:AS l24
>="
HONOLU
LU":
nc24>
=-
19
Do not sale this PDF !!!
2
B
0
·
A~C2S>~
'
ATHEN
•
.
AClS>
=-7
290
:ASC
2
6>="KAPSTA
OT":
<H26>
=-7
300: AS<27> ="BERL!N
"
:A<27J=-8
310:As<28>='
M
ELBOU
RNE
"
:
IH28>
=•
2
320:AS(29> ="ABUOHA
8J
"
:
A<29> =-5
350: 1=0
:0!=1
.360:GOSUB
500
370:GOSUB
650
380:0S=J
NKEYS
390:
1
F
BS
=""
GOTO
3
70
400:
1F
9S=
"
8"GOTO
430
410:
1F
BS
="
2"GOTO
460
420:GOT
O
370
430:0J
=J: l
=l
··
J
440:
I
F
J<0LET
!
•
I„
P+
l
450
:
GOTO
360
460:
01
=
!
:
1.7
1+1
4
/0
:
LF
J
>PLET l
·
•
I··
P
··
l
490
:
GOTO
360
5
00:C
LS :US!NG :
PRJNT USJNG
"
&
8.8.8.&8.8.8.8.&
„
;
Q
$ (
1
)
5
20:Y=AC
J
J
.
1F
Y<0
LET
X=-
!NT
C
ABS
Y>:GO TO 54
0
53fd:>(:
IN
f
Y
5 40:V=<Y-
X>lJ00
550;
G=
T
IME
560;
(-
JN
T
(G/!0000
)
570
:0=
1NT
<G/
J00>
-
C*
l00
580:E
=INT
G-C*J000
0-
u:r 100
590.
C=
INT
<<G-
INT
Gl'
i J00>
600.
'<=C: L
·.o
610:M
~
E
+X.N=F•Y:OJ
••
J
.'~E
iURN
6S0:
G=
' •ME
-
205
-
PROGRAMM-N
R.
PS
F'-
S
/Standard
-
mit Erweiterung)
660:5=
lN
T
<<G-JNT
G)*l00)
665:JF
OJ=JLET
01
=
0:GOT0 690
670:
IF
S=FRETURN
680:N=N.,.J
690: JF
N>=60LEf
M=
M• J:
N=N-
60
7 10:
IF
N<0LET M
=M-
1
;
N=N+60
730:
!F
M>=24LET
L=
L
...
J:M =M
-
24
750:
I
F
11<01..ET
L=L-
J:
M =M•24
770:
!F L< IGOTO 880
/
80:
I
F
L<=2860 TO 9
60
790
:
!F
CK
=I
l•<K=3J
"CK=5 >•CK=7
>• C
K=8>•<K=J
0)•(
K
=l
2>
=
1LET
Z=3J
:
GO
TO
840
800:
!F
K=2LE
T
2=28
: GO
TO 840
8J0:
Z=30
840:
!F
L>ZLE
T
L=L-
<.
;
'<=K•
I
ea0:
IF
K)l2LE
T
K~K
-12
870:
GOTO
960
880:
K=K-J
890
:
I
F
K(
JLET K=K•
12
910;
LF
K=2LET
L=L+
28;GQ
TO
960
9
20:
IF
<K =4J
•<
K=6>
•(
K=9J„CK=
1
1
l=
!LET
L=L
•30
:
GOT
O 960
930;
L=
L•
3
!
960:
CURSOR 10
966:
US!NG
; DRJNI
US
ING
"lifi
U.
;'<
;
USJNG
"
älifi.
;
L;USJNG
„#
fiM
'
;
n;
.
·
;
USJ NG
•
i;
t; ...
. ;
....
970:•=S:~E
TURN
STATUS
1
1800
4
Werbung
