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

___

;

:..;..t~;

ir.oh

:;

~

~

~~.:::

...

:':'

. .

~

.

RON

Hier

ist

Ihr

per-

soen'

iehes

Mag

j-

sehes

Gluadrat

0'

1

12

7

1 1

8

79

2

5

10

3

82

4,81

..

?__

9

;:

"C":

CLEAR

:

WAIT

10:PRINT

"****MAG

1S

CHES

-**QUADRAT****

"

:BEEP

12

2:GRAPH

:R=0:P=0

5:

INPUT

"

lHR

UO

RNAME

?

"jN$

6:1F

LEN

N$(le

CSIZE

4:GOTO

11

7:

CS

·l

ZE

3

11:FOR 1=lTO

4:

GLCURSOR

(13+1,

e):LPR1NT

N$:

NEXT

1

15:

TEXT

· :

LF

1:

CSIZE 2:LPRINT

"H i

er

. i s t 1hr

per-":LPRINT

"

soen'iehes

Mag

j-":LPRINT

"se

hes

Quadrat

!"

313:

1

NPUT

" 1

HR

AL

TER

?

"j

Q

I':

in

;..po m

ma;t:

i"iotM!

:

~~

~~

b.

ri;

~

:.:

.':

...

~::

..

:

•..

:

..

:

....

. . : .0:

..

~~.::.:.:

60;J=ASC

J$;IF

J=

SAND

2)0LET

2;::

2-1

:CURSOR

2;

PRINT"

•

GOSUB

"EP

I'

;

GOTO

50

'0:Ir

Z<26AND

(J=

320R

(J)47AND

J<58)OR

(J>64

AND

J<~H»

CURSOR

z:

T$(2)

;::J$:PRINT

J$:2

=2+1:

GOSUB

"EP

":GOTO

50

80:IF

J<>13THEN 5

o

85:2;::2-1:BEEP

1

90:FOR

1=0TO

z.J=

ASC

T$(1):

IF

J

=32lET

M$U

)="

100'IF

J)64AND

J<9

lLET

11$0

)=A$(

J-65)

110:1F

J)47AND

J<5

alET

11$

(

1)

=Z$ (

J-48)

120;NEXT

1;BEEP

1

200;"

"

ClS

:WAIT

0

:PRINT

"BEEP 0

FF/.ON

?

(0)"

1)"

210.B=0:Js=INKEY$

;

IF

J$="

1"LET

B-=1:GOrO

230

220:

IF

J$<

)"0"THEN

210

230~

FOR·

1=1310

Z.

CLS :

wAIT

0

240'CURSOR

25:

PRINT

T$(l);X=

3:

IF

I+3>ZLET

X;::2-I

250:FOR

J;:;0TO

x:

CURSOR

6*J:

PRINT

11$(1+J);

NEXT

J

260:

IF

BGOSUB

I'M.

B

EEP"

.

270;

IF

B=0wAI

T .;

GCURSOR

0:

GPR1NT

POINT '0

2S0:

NEXT I _

290:

GOSUB

"EP":

GOSUB

I'PRT

TEX

T":

C=300

,

309:

J=ASC INI<EY$ •

c=c-

f:

IF

J=25

THEN

200

310:IF

J=13THEN

40

320.

IF

J=15END

330:

IF

CTHEN

300

340:GCUR50R

0:WAIT

: GPRINT POINT

0:GOTO

40

400;

"D"CLS

:

WAl

T 6

4:PRINT

I'Decod

i

el"l,An9";

WAI

T 0

: PRINT

"?":

FOR

I=0TO

25:

M$(

1)

=",;;

NEXT

I

410;FOR

1=0TO

25;

CURSOR

:BEEP 1

420:J$=INKEY$

:IF

J$=""THEN

420

430:

IF

l~N

11$(})=5

LET J$=CHR$

13

440:

IF

J$="0"OR

J$

::1'

•

"LET

M$U)=

M$<I

)+"

•

":

BEEP

1,

10,200

450:

IF

J$="

I"OR

J$

::"-"lET

M$<

1)=

MS(

D+"

";

BEEP

1,

10,600

40:DIM

FC4,4)

se:

LET

F<1,1)=Q-2

13

60:LET

F(2,1).::1

?0:lET

F(3,

1)=12

813:lET

FC4,1)=?

90:lET

FCl,2)=11

100:lET

FC2,2)=8

110:LET

FC3,2)=Q-2

1

120:LET

FC4,2)=2

1~0:LET

FCl,3)=S

140:LET FC2,3)=I13

150:LET

FC3,3)=3

1613:LET

FC4,3)=Q-1

8

170:LET

F<1,4)=4

lS0:LET

FC2,4)=Q-l

. 9

19~:LET

F(3,4)=6

2ea:LET

FC4,4)=9

210:GRAPH

:COLOR

1

:

GL

CJRSOR

(0,-

:

5):

SORGN

220:~OR

1=0TO

21313

STEP

50

250:L;NE

(13,-1)-(2

130,

-1)

26a~GLCURSOR

(0,-1

>

2le:NEXT 1

275:GLrURSOR

(13,13)

2S0:~OR

1=0TO

200

STI.:P

50

2913:LlNE

<1,13)-(1,

-200)

3d0:GLCURSOR

(1,13)

3113:N~XT

I:CSIZE

4

:

COLOR

2

3213;FCR

T=eTO

150

ST

C:J

50

460:

IF

J$=CHR$ 8

LET

11$(

1)=

LEFT$

(M$(l),

LEN

(1$

(

1)-1)

465;

IF

J$=CHR$

15

LET·

1=26;

GOTO

540

J

47B:CURSPR

;WAIT

0

:PRINT

(1$<1);

GOSUB

"EP";

IF

J$<>CHR$

13

THEN

420

475:

IF

(1$( I

)="

"LET

T$(

1)="

";

GOTO

530

480;BEEP

l;FOR

K~0

TO

25;

IF'

(1$(

1)

=A$(K)LET

T$<

1

)=CHRS

(K+6S);

K=26:GOTO

530

490:NEXT

K

500:FOR

K=BTO

9:IF

MS(I),::Z$(K)LET

T$O

)=CHR$

(K+

48):K=10:GOTO

530

510:NEXT

I<

520:CLS

:WAIT

96:

PRiNT

"ERROR":

CLS :

GOTD

420-

530:

CLS .:

WAI

T

0:

PRINT

"?";

CURSOR

18:

PR

INT

M$(

1):

Z=

I:CURSOR

25:

PRINT

T$(1):

GOSUB

I'

EP"

540:NEXT

I:GOSUB "

PRT

TEXT";

GOSUB

"Er"

550:

IF

INKEY$ <>

CHR$

13THEN

55

o

PC-1500

325:P=P+l

330:FOR

1=eTO

1513

STEP

50

335:R.::R+1:1F

R>4

LET

R=1

3413:GLCURSOR

(7+1,

-4e-T):

IF

FCR,

GrnbH

P

»9GLCURSOR

(

7+1-29,

-4e-T):

Kaiser

-

Friedrich

-

Strasse

54a

~~~It'~

,,'

GOTO

344

1BBB

Berlin

12

342:

1F F C

R,

P)

>-1

GL

CURSOR

.</+

1-

12,-4e-T)

------------------------------------

343:1F

FCR,P>(-9

CSIZE 2

344:LPRJNT

FCR,

P)

STATUS

345:CSIZE

4:NEXT

1

934

F

3513:NEXT

T

Hier

ist

Ihr

per-

3613:GLCURSOR

(13,-2

soen'

iches

Magi-

30)

sches

Quadrat

!

3?13:TEXT

:CSIZE 2:

L

PR

1NT

"0

i e

Qu

ersumme

er-":

LPRINT"gibt

i

7

-14

12

1

h

rA'

t

er:

" :

LPRINT

.

Qj"

Jah

-15

2

8

11

re

!"

-12

5 3

10

David

Wagner

9

4

-13

6

Martinsbergstr.

11

5470

Andernach

Die

Quersumme

er-

g i

bt

j h t"

A'

t

er:

6

Jahre

~

560:GOTO

200

\000:

"!'10RSECOOE"

DATA"

","

... , -.-.

"_

••

'~,

tt

,

~~,

It

_.

u,

,.

__

•

It,

~I

" "

!'

,:

,.

... , ,

~.

"~

1019;

DATA

"-.

-I',

"

._

••

tt,

"

__

",

!'

_. ",

,1

___

",

't.

__

•

t.,

"_-.

_",

'.

-

It

,t

!I

. . , .... ,

.,-,Y,"

_"

1020'DATA

•••

-",

p

n •

__

It,

It

_ _

,t

,

r_.

__

",

"

__

.

.

'I,

It

_____

-1,

1030:

DATA

" ____

I'

--- ,

__

tt,

I'

U

It

_,1

....

.;

•

",

~I_

..

",

,1_

°-

.!'

, "

___

...

't, "

__

.:-_

It

11130:

"EP"BEEP

1,2

55,

1

1110;

IF

INI<EY$

THEN

1110

STATUS

112B:RETURN

21316

1200;

"(1.BEEP"IF

(1

$(

I

)=

"

"""AI

T

STATUS 1+(MEI1

-(

24.GCURSOR 0

STATUS

3-STATUS

2)

:GPRINT

)

POINT

0:

2354

RETURN

·

..

---

-'-"''''

. .

,

'

~

•

:..w_

J

",,

:.,

_:

.

~

..

_------

-

-"

1210;rOR

K==lTO

LEN

M$U);

B$

=(110$

(M$(

1)

,

K,

1):

IF

B$::

".

"BEEP

SGN

B,10,200

1220:

IF

B$="-"

BEEP

SGN

B,

1

0,6B0

12313: WAIT

0:

GCURSOR

0·;

GPRINT POINT

o

1240:NEXT

K:

RETURN

1300:

"PRT TEXT"

CLS

· :

WAI

T

0:

FOR

1=0TO

Z:

PRINT

T$O);

:NEXT

I:

RETURN

1310:

"L"GOSUB "PR

T

TEXT";

WAIT

:

GCURSOR

e;

.

GPRINT POINT

0:END

All

EoS

+'uet-'

._

_

Heft

'

16

Seite

.

45

SHARP-Compu

'

'ter

-

~

1 2 ... 40 41 42 43 44 45 46 47 48 49 50 ... 59 60

Comments to this Manuals

No comments