Herunterladen Diese Seite drucken

Sharp PC-1500 Handbuch Seite 222

Vorschau ausblenden Andere Handbücher für PC-1500:

Werbung

All
and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAMMNAME:
WO
RTSPE
ICH
ER
PROGRAMM-NR.
5
PS-
F-
7
( Programmlisting
)
l
Speicherinhalt
)
250:
" 0'
.
J:'OR 1
-
0TO
5J0:9$ =Ml0-S
(1
$
( ) )
A
Änderun~nummcr
N-
1
,
I,K)+A~
255:
1
F
E$<J>
='
'
520: 1 F
E$<
l>
~as
B
GOTO 290
GOT
O 540
c
260:
LPR
J'N
T <S
TRS
(
530:
l(:
K+
1:
GOTO
400
1„1
)+"
"
)
; E$
<l
5
40:
1(=0
:
I
F
S=
JGO
rO
0
)
460
E
270:
LPRI
N
T
"
"
;
J
550
: NEXT
1
$(
J>
5
50:
CLS
:
WA
l
r
60
:
F
280:NEXT
J
PRJ
N
T
"F.NDE
DE
290:
r
NO
R
Tf\BELLE
"
.
F
.ND
G
300:
"
F":C
L
S
:
INPU
T
570:
"'
G"
;
1
NPUT
Cl
O
H
"GEOR.rUNGEOR.
AOrCSAVE?<
LrS)
,,;
?(GrU>"
;Q$
";
AS
1
310:
IF
(A$="G
"
>+
<A
5
00:
1
F (A$
=
"L
"
)+(A
J
S="U"
><>JGOfO
S=
"S"><>IGOTO
3
00
570
K
,,;
320:
5=
0:
IF
AS.:::
''U''
590:
1
F AS
=
'
S'"
GOTO
L
LEf S=I
640
330
:
ENO
500:CU:.AR
M
340:
"
Q':
WCIJ
l
0
6
J 0:
l
NPiH
tl
'
F
M-
SP
345:
l
F
S~
I
LET
1
~
E JCHER
"
; N:OJM
A
Ani;ahJ der
zu
RNO N:
1
~
l
-
l
:
Es<N-
l),
JS(
N··
J
regist1ie.
1 enden
Wor1pi:irc
GO TO
360
)
0
350:1"0R
1
...
0ro N-
J
620:
lNPUT
1i
"F
- M-
SP
360: CL
S
:
PR
JNT ES<
F.
l
CHe:R
"
;
E$
(
p
J)
;
Js<*
>
Q
370!
1NPUT
'"
·
--YrN?
530
:
END
"
;As:GQTO
390
640:
PRJN
T
II
"r
M
SP
R
3B0:END
EJCHER";N
Anzahl der
zu
rcgjslric-
390
:
1
F (f\S="
Y"
)
+
<
A
550
:
PRJNT tt'
F-M-SP
s
S:
"N' ><>JGO
TO
E
J
CHER";
ES<*»
renden Wonpaarc
370
J$(f)
T
400
: 1
F
AS="Y
"
GOTO
6
6
0: ENO
4
20
u
4J0:(LS
:WAJ
T
;
V
PRJHT
J
'S
( ( )
420
:
WA
1 T 0:
1
F
S=
I
ST
ATUS
1
w
GOTO
3
45
138!
430:N
E.Xr
J
X
440
;CL
S
:WAIT 50
:
y
PRJ
N
T "ENDE
D
E
R
TABl:.LLE
"
.
F.
NO
z
150:
"
O":WA
J
T 0
AS
,,;
460:
l'F
s-JLt:
T l
.~
RNO
N:
1= 1-
J:
Markierung
(flag
für
GOIO 4)5
JS
sequentiellen/willkü
r-
'-70:
"
0R 1=0 TO
N-
J
(N-1)
Lichen
AuS2ug)
475:1(:
0
480:
CLS , PRJNT
J$(
ES
liste
der
Wörter in d er
1
)
j
„ ";MI Os
<!;,
lN-1)
Fremdsprache.
'S
(J),
1,1(),
"90.
I NPU
T
A'S
.
COTO
510
5
00
-
~
NJl
Do not
sale
this PDF
!!!
-
21
4

Werbung

loading