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

'

' "!

;-- .

:

:.;......

,;

i~ci

J+i:~!

:r:

,

~;-p'o

tMmat:~

o n ,

..

;

~~

~~

r.

ri;

:

~~.::-:

f'

••

:

.":

.•

~~:~:

..

:

.....

::

...

:

.....

:

••

:

........

~.

: . ,

~

~

..

::

..

:.:

~

1035

D=WU

TIC-

TAC-'TOE

HI35

GOTO

1040

103.7

D=M

14S0:LET G(K)=2

I

1040

ON

OGOTO

104

14SS:LET

W(KY=CO-

1,1042,1043,

SP

01

XIX

1044, 1045,

le

1480:NEXT K

46, 104.7,

HJ48

1490:LET MAX=-le0

, 1049

o

><1

I

0 ,

10

1041:GLCURSOR (40

1492:FOR

K=lTO

9

,

-50):

GOTO

1

1494:

IF

W(K»MAX

0se

THEN

LET

MAX

1042:GLCURSOR

(~9

=W(K):LET

WU

OIOIX

,

-50):

GOfO

1

=K

0S0

149S:NEXT K

1043:GLCURSOR

(is

1498:RETURN

9,

-60):

Gora

1500:GOSUB

200

10S0

1510:

INPUT

"WILLS

10:CLEAR

:CLS :

1044:GLCURSOR

(40

T

DU

BEGINNE

WAlT

10:PRINT ,

-133):

GOTO

N

?(J/N)"jM$

Tl C -

TA

1050

,IS15:LET Z$="W":

C -

TOE"

1045:GLCURSOR

(99

LET

ZUG=0

2e:

BEEP

4, 48,

100:

,

-133):

60TO

IS20:1F

M$="N"

BEEP

1,

100, Hl0 1050

THEN

GOTO

15

21:GRAPH

:CSIZE 3

1046:GLCURSOR

(IS

50

:FOR J=ITO 4: 9,-133)!GOTO

1530:GOTO 15.70

GLCURSOR

(0+

1,

1050

lSS0:LET

ZUG=ZUG+

0):LPRINT "TIC

104.7:GLCURSOR

(40 '

1

-TAC-TOE":NEXT

, -19.7):GOTO

1555:REM

BRETTAN

1

10S0

ALYSE

23:,

GLCURSOR

(0,-1

1048:~LCURSOR

(99

lS50:GOSUB

130e:

'

0)

,

, -197):GOTO

GOSUB

1035:

25:"A":WAIT

10:

10S0

REM

COMPUTE

PRINT"

DU

=

1049:GLCURSOR

(IS

RZUG

X

ICH

= 0"

9,-19.7)

1555:GOSUB

1900:

26:BEEP

4,100,300

10S0:LPRINT F$(O)

IF Z$<)"W"

30:GOSUB

1000

10SS:GLCURSOR

(e~

THEN

GOTO

19

40:GOTO

1500 -220>

50

S0!bATA

40,-50,93

1060:

RETURN

1570:LET

ZUG=ZUG+

, -se, 155,

-S0,

4 1200:

BEEP

3, 14.7,5

I:GOSUB

1200

0,-123,93,-123

5

:GOSUB

1037

,155,

-123,40,-

12eS:lNPUT

~DEIN

1575:GOSUB

1900:

IS7,

93,

-lS7,

15

ZUG

? Cl-:-9)"

IF

Z$<

>"W"

0, -IS.7

jM

THEN

GOTO

19

50:

DATA

1,2,3,,4,5

1230: IF

FCM><)2

50

,

5,

.7,

8,9,

1, 4,

.7

THEN

GOTO

12

1595:

Gom

1550

,

2,

5,

8,

3,

5,

9

05

~800:REM

.70:DATA

1,S,9,3,S

1240:LET F<M)=3:

1805:RESTORE 60

, 7

LET

F$(M)="X

1810:FOR L=lTO

2~

200:GRAPH :CSIZE 5

"

STEP

3

:COLOR

1:S0RGN 1290:RETURN

181S:READ

Xl,X2,X

210:LINE

(0,

-.73)-(

1300:REM

3

220,

-.73):

,

130S:WAIT 0:PRINT

1820cLET X=G<Xl)*

GLCURSOR

(0,-1

"ICH

DENKE"

G<X2)*G(X3)

46):LlNE

U3,-1

1310:GOSUB 1400

1825:IF

X=120R

X=

46)-(220,-145)

!350:LET F(WU)=5:

18THEN

LET

S

220:LINE

(.73,0)-(.7

LET

F$(WU)="

P=SP+1

3,

-220):

0"

1830:1F

X=200R

X=

GLCURSOR

<145,

1360:

RETURN

S0THEN

LET

C

0):

LINE

<145,0

1.400:

REM

0=CO+1

)-(

146,

-220)

1410:FOR

K=lTO

9:

1840:IF

K<>XIANO

22S:GLCURSOR

(0,-2

LET

W<K)=-10

,

K<>X2AND

K<>

20)

0e:LET

G(K):=

X3

THEN

-

GO

TO

230:

RETURN

F(K):NEXT K

1850

100e:CLEAR

:D1M

F-

1430:

FOR

K=1

TO

9

1845:1F

X=125THE~

(9),F$(S)

143S:1F

G(K)<>2

LET

CO=CO+10

1010:DIM G(S),WC9

THEN

GOTO

14

00

)

80 '

18S0:1F

X=45THEN

1020:FOR I=lTO

9:

1440:LET

WU=K:LET

LET

CO=CO+50

LET

F(J)=2:

SP=0:LET

CO=

o

NEXT

1

o

1860:NEXT L

1030:

RETURN

144S:LET G(K)=S:

1890:

RETURN

GOSUB

IB0e

ewe,

'PI#I.,

·

'~:'

~

'~

SHPlRP~

,

Co

'

Heft

'

16

Se

"i

te

39

' .

1900:REM

1905:RESTORE 50

1310:FOR L=ITO

24

STEP

3

1915:REAa

XI

/

X2

/

X

3

1920:LET X=F(Xl)* '

F(X2)*F(X3)

,

1925:IF

X=I2STHEN

LET Z$="

1":

Gora 1945

193

'

0:

IF

X=27THEN

LET

Z$="2":

GOTO

1945

1935:NEXT L

19~0:1F

ZUG=9THEN

LET

Z$="3"

1945:RETURN

1950:REM

ENDE

1955:

IF Z$="2"

PRINT

"DU

H

~I£GTr.ICH

BE

1950:

IF

Z$="

I"

PRINT

"lCH H

ABE

GEWONNEN

!II

1955:

IF Z$="3,"

PRINT

"UNENT

SCHlfDEN"

1370:BEEP 5,,4.7,90

:

WAlT

400

1380:

INPUT

"NOCH

MAL

?

(j/N)

"jQ$:

IF

Q$="

J"GOTO

25

1985:

BEEP

4,4

.8,

14

--:

8:

BEEP

1, 48,

500:

TEXT

:

LF

,)

2:END

STATUS

20.76

David

Wagner

Martinsbergstr.

11

5470

Andernach

,~

[11

.,,'llytl

~

mp

.

u

,

ter

,

_,.,l.u:,

"

1 2 ... 34 35 36 37 38 39 40 41 42 43 44 ... 59 60

Comments to this Manuals

No comments