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

f

~

~~

;~Fp

'

h

~

i

'

~ .

~-M

~

9 m

m~

~

,c

r~r~

m

,

~

' !

'

~

p'r

h:

-

K 0 M

BIN

A T

ION

fUr den PC-1500

Bei

diesem

Spiel

mlissen

Sie

versuehen

vier

vom

,Computer

in

einem 10 x 10

Koordinatennetz

versteekten

Gegenstande

aufzusptiren

(siehe

Beispielausdruk-

ke).

Es

verlangt

von

Ihnen

ein

hohes

MaB

an

Kombinationsvermogen.

Sie

wahlen

sieh

im

Koor-

A

BeD

E f 6

~

J

e

:1

8

8

1

8

1

J

:1

0

J

e

e

,0

.2

4

8

.2

&lSe-OfF

G H J

:1

1

1

:1 :1

1

1

e

'I

e e

/ 8

1

8

1

1

e e

2 2

3 3

[2]

1

e

e

:1

1

1

:1

e

1

1

-

. _

_._

_,

.~-.!J

dinatennetz

jewel!

ein

-'

-

A

A

Od

mi

ttels

den

~

und

B

B

'iJ'

Tasten

aua.

u' ,

er

-

c

..

c

nzeige

erseheinen

dann

o

o

die

~eweiligen

Buehsta-

E

E

ben

(A-J).

Bei

der

ge-

F

F

wlinsehten Kombination

G

G

mlissen

Sie

ENTER

drticken •

H

H

Darauf

druckt

der

Compu-

J

J

ter

in

das

ent$prechende

Feld

eine

Zahl

zwischen

Sit

hClben

56

Punlne

trreicht

!

-SIt

hClben

82

PunIc\e

erreicht

I

null

und

vier.

Die Zahl

gibt

dartiber

AufsehluB,

wieviele

Gegenstande

sieh

entlang

der

davon

auage-

henden

waagerechten

und

senkrechten

Netzlinie

befinden.

Wie

Sie

sieherlieh

nach

ein

paar

Spielen

feststellen

werden,

ist

null

die

aussagekraftigste

In-

formation.

_ .

Anfangs

besi

tzt

man

100

Punkte.

Der

Computer z;i.eht "

jewe'ils

einen

Punkt

f~

eine

eingegebene

Kombina

tion

ab.

-'

Wenn

Sie

sieh

sieher

sind

an

dieser

nder

jenen

-

Position

im

Koordinatennetz

miiBteein

Gegenstand

-liegen,

mussen -

Sie

die

Taste

fTldrticken.

Auf

dem

Dis-

play

erseheint

dann

"TIP".

SolI

te

sich

Ihre

Vermu~

als

riehtig

heraus-

stellen,

wird

das

Feld

durch

ein

Quadrat

gekennzeichnet.

Andernfalls

bekom-

men

Sie

10

Punkte

a/jointfilesconvert/338009/bgezogen.

STATUS

1

betragt

1167.

Listing:

S0:IF

INKEV$

=

2

CLEAR

2=2+1

CHR$

10BEEP

1:

4

GRAPH

:CSI2E

92:t~EXT

1

X=X+1

6

DIM

A(10,10)

94:IF

A(X,V)=lLET

S2:IF

INKEV$

=

8 P=lE2

2=2-1

CHR$

11BEEP

1:

10

WAIT

0:PRINT

96:P=P-l:CURSOR 2

I'

X=X-1

KOMBINA

2;PRINT P

54:IF

X)10BEEP

I,

TIOH"

98:1F

T=lGOTO

122

99:X=10

12:LINE

(0,0)-(20

100:CURSOR

9:PRINT

56:IF

X<lBEEP

1,9

2,

-202),

0, 0, B

2

9:X=1

14:LINE

(1,-1)-(2

102:X=(X*20)-16

58:

IF

INKEV$-=

01,

-201),0,0,

B

104:V=(-V*20>+6

CHR$

13BEEP

3:

16:FOR

1=2fTO

201

106:GLCURSOR

(X,

V)

BEEP

1,255:

STEP

20

:LPRINT

Z

GOTO

64

18:A=A+1

108:GOTO

42

60:CURSOR

2:PRINT

20:GLCURSOR

(1-11

110:CURSOR

9:PRINT

,

CHR$

(X+64)

,.

,-

,4):

LPRINT

62:GOTO

48

CHR$

(A+64)

112: IF

A(X,

V)=0

64:BEEP 1,99:V=1

22:LINE

(1,-1)-(1

BEEP

3,255:P=P

66:1F

INKEV$

="T"

-201)

-9:GOTO

96

J

BEEP

3:

T=l:

24:LINE

(1,-1)-(2

114:G=G+l:CURSOR

CURSOR

9:PRINT

01,

-1>

'

0:PRINT "*"

"TIP"

26:GLCURSOR

(206,

116

X=

(X*20)

-1]

6S:IF

INKEV$

=

-I+]):LPRINT

118 V=(-V*20)+17

CHR$

10BEEP

1:

CHR$

(A+64)

120

LINE

(X,V)-(X+

V=V+l

28:HEXT

I

16, V-16), 0, 0, B

70:IF

INKEV$

=

30:FOR

I=1TO

4

122

T=0

CHR$

11BEEP

1:

32:X=RND

10:V=RND

124

GOTO

42

V=V-1

10

126

GLCURSOR

(0,-2

72:IF

V>10BEEP

1,

34: IF

A(X,

V)=l

22):LPRINT "Si

99:Y=10

GOTO

32

e

haben";P;"

P

]4:IF

V<lBEEP

1,9

36 A(X,V)=l

un!cte el"l"eicht

9:V=1

38

NEXT

I

-

76:IF

INKEY$

=

~

I1

40

PRINT

")

A A <

128:ENO

CHR$

13BEEP

3:

) <

Punkte

BEEP

1,255:

GOTO

82

:

..

42:IF

G=4GOTO

126

78:CURSOR

4:PRINT

44:GLCURSOR

(0,-2

CHR$

(V+64)

62)

80:GOTO

66

46:

X=1

:

WAIT

' 0:

82:IF

T=lGOTO

110

CURSOR

0:PRINT

Dominik

A.

Huller

84:BEEP

1,99:2=0

") A A

("

86:FOR I=lTO 10

Hohnerkamp 30

48:IF

INKEV$

="T"

88:IF

A(I,V)=lLET

BEEP

3:

T=l:

2000 Hamburg

56

2=2+1

CURSOR

9:PRINT

90:

IF

A(X,

I )=lLET

"TIP"

.'-"

,

uaa"

--

-::

Heft

_

16

Seite

55

.~.",

SHA

'

RP

,

:

'

C

_

omp

-

cJ

,

te

-

~

1 2 ... 50 51 52 53 54 55 56 57 58 59 60

Comments to this Manuals

No comments