Sharp PC-1500 Anwenderhandbuch Seite 220

PROGRAMMNAME:
[ Programmlisting ]
25@:"D":FOR 1=@TO
N-1
255: 1F Ee¢Id=""
GOTO 282
-260:LPRINT (STRS <
-27@8:LPRINT "
Ed oe
>
"JPESCI
—$C1D
-28G:NEXT 1
299: END -
308: "F":CLS 4 INPUT. :
"GEOR. "UNGEOR.
?CGZUdI" FAS
"BIO: 1F (AS="G"D4CA
; $="U")<>1G0TO
-, 300...
320:5=0:1F As="UN
Eh Sa
340: "A°:WAIT Bo |
345: 1F S=ILET I=
RND N: (=I-1:
GOTO 368
358:FOR 1=8TOQ N-1
~360:CLS :PRINT ESC
ie
370! UNPUT "~--Y/N?
"sA$:GQTO 392
38@: END
390: IF CAS="Y"D+648
$="N")<>1GOTO
378
40@: tF AS="Y"GOTO
428
41@:CLS :WAIT :
PRINT J$c¢I)
420: WAIT Bi tF S=]1
GOTQ 345
43@:NEXT I
440:CLS :WAIT 62:
PRINT "ENDE DE
R TABELLE". END
450: "B": WAIT @
468: TF S=1LET I=
RND N: l=I-1:
GOTO 475
47@:FOR [=@TO N-}
475: K=8
48@:CLS :PRINT JH¢
1);° "jMIDS CE
SC 135.4, Ky;
494: INPUT AS. GOTO
518
5@0: END
a a e
WORTSPEICHER
S10: B$=MID$ CE$¢1)
1, K)+Aas
520: 1F E$<1)=Bs
GOTO 54@
530: K=K+1:GOTO 488
540: K=@+1F S=1GOTO
599:NEXT | |
562:CLS :WAIT 68:
PRINT "ENDE DE
R TABELLE": END
37@: °G"s INPUT "CLO
AD/CSAVE? (LS)
"ZAS
388: IF CA$="L")+¢A
~ $="S"9¢>1GOTO
378
598: 1F AsS="S"GOTO --
640
689: CLEAR
612: INPUT #"F-M-SP
p)
620: INPUT #"F-M-SP
EICHER" ;E$¢x),.
SOK)
638: END
649: PRINT #'"F-M-SP
EICHER' 5 N
658:PRINT #"F~M-SP-
EICHER" ;E$¢x),
I$CKD -
66@: END
STATUS 1
1381
— 214 =
. | PROGRAMM-NR. | F
| P5—F-7 3
[ Speicherinhalt ]
A | Anderungsnummer
le] |-|= Ill
Be
Anzahl der zu
| tegistrierenden Wortpaare _
>
Anzahl der zu regisirie-
tenden Wortpaare'
ne
<){e[<[e.
Markierung (Flag fiir»
key sequentiellen/willkiir-
lichen Auszug)
Liste der Worter in der'
Fremdsprache. | -