Sharp CE-140P User Manual download pdf (Page 41)

~

Start

mit

RUN

~

~

~

'

~

'

9

h

:i

~

~

~tff

9

h

.

m~

~~

~

~ h

'

~

-;

'

0,

~

q

h

h:

Hier

nochmal

-zusammengefaBt

aus

Heft

7/85-

alle

Preise

Preise

<incl.

14%

Mwst.):

PC-1500

Universal-

MeB-

und

Steuergerat

incli

Software

etc.

455

DM

D/A

Wandl

er-Modul

incl.

Funkti

onsgenerator-et

'-

c.

'

Software

1'511

~&):::

Komfortabl

es

Telefoncomputerprogr

.

amm

mi t

Superdatenspeicher

und

schnellen

Suchroutinen

Wochentagsweckprogramm

mit

Melodien

usw.

(ver5ffentli~ht

in

CHIP

7 1

84)

jetzt

auc

ohne

Speicherzusatz

Umbauanleitung

fur

64k

Speicherplatine

75

DM

.

Sehr

geehrter

Herr

Fischel,

"'-1

•

••••

••••

••••

••••

. i

SHARP-PC-1.21

I

__

•••••

-::::::-:

.... .

--------_

..

... .

---------

.... .

~~t:'~#$$~#&.

11

-------

... .

----- ... .

-----

--

... .

------ - ... .

anbei

sende

ich

rEnen

ein

Programm

zum

VOkabeln-~ernen'~C-1401).

Vokabeln,

die

beim '

ersten

Abfragen

falsch

tlherse

zt

wur

en,

.

konnen

anschlieBend

wieder~olt

werden.

100:'D"

FOR

K=l

TO

y .

110tLPRINT

ES(K):LPRINT

'jD$(K)

12iH

'

IiEXT

K

130:'A'

PRINT

·ABFRAGE:'

:

WAIT

150

149:FOR

1=1

TO

Y

159:PR1NT

ES(l)

160:INPUT

PS(9)

170:IF P$(0)=D$(I)

PAUSE

'RICHTIG,·:GOTO

195

180:PAUSE

YFALSCH'":

PRINT

D$(I):PAUSE

'I

ST

RICHTIG'

199:ES(I)=E$(1)+':'

195:NEXT

I

~

Eingabe

der

Vokabelliste

Ausdrucken

der

Liste

mit

dem

CE-126p

Abfragen

..

der

Vokabeln

durch

den Computer

Wiederholung

der

falsch

Ubersetzten

Vokabeln

IB:PAUSE

'YOKABELTRA1NE

R'

20:~PUT

'W1EV.

VOKABEL

H?'jY

30:DIM

D$(Y),E$(Y)*20,P

$(0)

40:PAUSE

'EINGABE

D.

PA

ARE':PAUSE

'FREMDSPR

-DEUTSCH':PAUSE

YLAE

NGE<=16

B.sr

50:FOR

H=1

TO

V

60:PAUSE

Nj'PAAR

:'

79:IHPUT

E$(H),DS(N)

a9:NEXT

N

99:INPUT

'AUSDRUCK

J/H

?'jBS:IF

BS='N'

THEN

130

208:INPUT

'W1EDERHOLNG?J

/N'jO$:IF O$='N'

THEN

280

210:'N"

F.OR

J=1

TO

Y

229:L=LEN

ES(J)

239:IF

MID$

(ES(J),L,1)<

)'.'

THEN

279

240:

PRIN·T

E$(J)

250:

INPUT

P$(0):IF PS(0)

=DS(J)

PAUSE

'RICHTI

G!':GOTO

278

260:PAUSE

'WIEDER

FALSCH

!':PRINT

DS(J):PAUSE

'WAERE

ES

GEWESEN'

27e:NEXT

J

280:

PAUSE

'

ABFR/J,H

ED/END

E?':INPUT

'A/W/E

-)'

j1$

290:IF

IS=-A"

THEN

99

300:IF I$='W'

THEN

219

310:END

Peter

Tippelt

Mozartstr.

6

6840

Lamp

e

rthe

1m

-=W_I

»-UI#I#

..

-,

Heft

~

6

Seite

~

~

-

::.,

SHARP-

·9-

ori:

fBGi

te

n

1 2 ... 36 37 38 39 40 41 42 43 44 45 46 ... 59 60

Comments to this Manuals

No comments