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

8

-

----

......

. ' .

. .

'

N""

,..

__

#

----"""---

1423:DATA "0.11111

RUC':'

I

cr'HE':'

.'.

BI-'

E

E)f(

3 H AK

Jl

P1H

'.

._1._'

,_I

_'

,_,

H

_,

11110.0.0.0."

1424:

DATA

"0.10.0.0.0.

f\~er

0.0.0.0.0.0.0.0."

.

onpCT

1425:DATA

"0.i0.0.0.0.

PC-150€1

fil i

t.

CE-150

~4>XU

liWlll310SI

npOrPRPlf11R

XOPOWO

'

ERKLAERUNG:

"Ta.stenbe

legung"=

Ausspl"ache

IIA

II

: a

"B"=

b

"W"=

lIJ

"G"= 9

"0"=

d

11+11=

je,

; e

"#"=

jo,

; 0

"JII'::

j

(lIJ

i e ; n

JOUI"-

na

I)

,

",

"=

s ; n

"sausen"

" I

"=

i;;

j;

j i

"i"=

kurzes

"K"= k

"L"=

I

"M"= m

" N"= n

"0"=

0

"P"=

P

"R"=

r

"S"=

's i'n

" T"= t

'.'U"= U

"F"=

f

"C"=

ch

IIZ"=

z

"Y"=

tsch

"/"=

sch

11*11=

schtsch

"

E"=

e

PQI'=

ju

,,-,,-

ja

"$"=

hal"tes

Zeichen

"%"=

hartes

i

i"t&"=

lIJe

i

ches

Zeichen

******************

*

cop~l"i9ht

*

**1986******1986**

* *

* S H A R P *

* *

*

Basic-Team

*

* *

******************

LISTING:

80:PAUSE"

RUS

SISCHES

ALPHAB

ET"

100:CLEAR :GRAPH :

INPUT

"COLOR

0.

•••

3="jO:COLOR

o

120:DIM

P$(0)*14,Z

$(0H26

130.: INPUT

"Punkt

I a

enge

:";

PL

140:

INPUT

"Punktho

.

ehe

:

";

PH

150:

A$=" " : I

NPU

T " N

(ormal)

o.

I(n

vert

iel"t)"jA$

160:

IF

A$="N"LET A

$="1"

1:/0:

IF

A$="j"LET

A

$="0"

180.:

IF

A$<

)"0."AND

A$<>"I"GOTO

15

o

190:

C$="":

INPUT

"S

pjegelung

(J/N

)

".

C$

ai,

Pi#iilf

~

r-

PROGRAMM

GUT

Als

;ch

zlIJischen

Weihnachten

und

Neu:iahl"

nach

Muenchen

zu

einem

Spiel

mit

Schach-

lIJeltmeistel"

Gal"!";

Kaspal"ollJ

flD9,kam

mi r

d;

e I

de

e,

e

in

Pl"ogl"amm fuel"

rus-

sische

Buchstaben

zu

schl"eiben,Mit

dem

Matrixpl"ogramm

aus

Heft

1/86

und

meinen

Ideen

kam

dann

das

fo

Igende

Pro9ramm

zustande.

Die

Tast~nbelegung

auf

dem-

PC-1500.

el"sehen

Si

e

aus

del"

El"klael"ungs-

lis

t

e.

20.0.:

IF

C$="j"LET

8

1=14:82=1:83=-

1

210.:

IF

C$="N"LE.T 8

1=1:82=14:83=1

220.:

IF

C$<)"j"AND

C$<

)"N"GOTO

19

0.

221:

PAUSE

"WORT

El

NGEBEN": iNPUT

Z$(0.)

222:FOR

U=1TO

(LEN

Z$(0»:Y=ASC

MID$

(Z$(0),

IJ,

1>

.

229:

D=lE3+Y·*10.:

RESTORE

0

230:0=lE3+Y*10.+1

240.:READ

P$(0)

260:FOR

1=1TO

13

270.:11=1

280:

IF

C$="j"LET

1=15-1

290~P$=MID$

(P$(0.)

,

1,

1)

30.0:

IF

P$="2"GOTO

40.0

310.:1F

P$=A$GOSUB

350

320:NEXT I

330.:GLCURSOR

(0.,-P

H):SORGN

340:GOTO

:230.

350:P1=I1*PL-PL:~2

=Pl+PL

360.:FOR J=P1TO

P2

370:L1NE

(J,0.)-(J,

-PH)

380.:NEXT J

390:

RETURN

400:NEXT IJ:TExT :

INPUT "WEITER

J/N?

";F$:

IF

F

$.::"N"TEXT :END

4e1:GOTO,

10.0.

i.

, .

SI:iA~P-Com~

u

xer.:':

·

Heft

16

1320:

DATA

"000.0.0.0

0.0.0.00.0.00"

1321:

DATA

"00.0.00.0.

0.0.0.0.0.0.0.0"

1322:

DATA

"0.0000.0.

0.0.0000.00"

1323:DATA "0.000.0.0

000.0.0.0.0.0"

1324:DATA "00.0.0.0.0

0.0.000.000."

1325:

DATA

"0.0.00.0.0.

0.00000.0.0." .

1326:DATA

"2"

1350.:

DATA

"0.1

-1111

1111000.0"

1351

:

DATA

" 01

0.0.01

00.010.10.0"

1352:DATA

"010001

0.0.010.0.0.0."

1353:DATA "0.1000.1

000.10100"

1354:DATA "0.10.0.0.0

000.10.00.0"

1355:DATA "0.0000.0.

00.0.0.0.0.00"

1356:DATA "00.0.00.0

0.00.0.0.0.0.0."

1357,DATA "2"

1360:DATA

"0.0.00.0.0.

0.0.010000"

1

361

:

DATA

"01 1

11

1

11110000"

1362:

DATA

"0.10.00.1

00.0.0.0.0.0.0"

1363:DATA

"0.10.0.0.1

00.00.0.0.0.0"

1364:DATA

"001110

0.000.0.0.00"

1365:DATA "000.0.00

000.0.0.000"

1366:

OAT

A " 0.0.0000.

000.0.0.000"

1367:

DATA

"2"

1370:

DATA

"011111

11110.000."

1371:

DATA

"010.001

0.00.000.00"

1372:

DATA

"010.0.01

0.0.0.0.0.0.0.0."

1373:

DATA

"0.0.1110.

0.0.0.0.0.0.0.0."

1374:DATA "000.0.00.

0.0.000.00.0"

1375:DATA

"011111

11110.0.0.0. "

1376:DATA

"0.0.0.0.00.

000.0.0.0.00."

1377:

DATA

"0.0.0.0.0.0.

0.0.00.0.00.0."

1378:DATA "2"

1380.:DATA

"011111

11110000"

1381:DATA "0100.0.1

0000000.0."

1382:DATA "01000.1

0.0.0.0000.0"

1383:DATA "0.0.1110

0.0.0.00.0.0.0."

1384:DATA

"0.00.0.0.0.

0.0.0.0.0.0.0.0."

1385:DATA d

0.0.0.0.0.0

0.0.000.0.0.0."

1386:

DATA

"2"

1420.:0ATA "0.11111

11110.0.0.0."

1421:DATA "0.100.00.

0.0.00.0.0.0.0."

1422:DATA "0.10.000.

0.0.00.00.00."

Sei

te

12

·

1464:DATA

"000110

110.0.0.00.0."

1465:

DATA

"0.0.0.0.0.0.

0.0.0.0.0.0.0.0."

1466:

DATA

"0.000.0.0.

0.0.0.0.0.0.0.0."

1467:

DATA

"2"

1470.:DATA "0.11111

11110.0.00"

1471:

DATA

·"010.0.0.0.

00.0.0.0.00.0."

1472:DATA

"0.10.0.0.0.

00.0.00.0.0.0"

1473:DATA

"011111

11110.0.0.0"

1474:

DATA

"01000.0

0.0.0.00.0.0.0"

1475:DATA "010.0.0.0

0.0.000.00.0"

1476:

DATA

"011111

11110000"

1477:

DATA

"00000.0

000000.0.0."

1478:DATA "00.000.0.

0.0.000.000"

1479:DATA

"2"

1610.:DATA

"0.10.0.0.0.

1110.0000"

1611:DATA "00.1001

00010.0.00."

1612:DATA "0.0.010.1

0.0.0.10.0.0.0"

1613:DATA

"000011

000.10.00.0"

1614:DATA "0.11111

11110000."

1615:

DATA

"0.0.0000

00.0.0000.0"

1616:DATA

"00000.0

00000000"

1617:0ATA

"2"

1650.:DATA "0.11111

11110.000"

1651:

DATA

"0.0.0010.

0.001000.0"

1652:

DATA

"0.0.0010. '

. 0.000.0.0.00"

0.00.10.000"

1653:0ATA

"000010

0001000.0."

1654:0ATA

"0.11111

1111000.0."

1655:

DATA

"0.0.0.00.0

0.0.0000.00"

1682:DATA

"01000.0

11110000"

1683:

DATA

"010.-000.

0.0.0.10.0.00."

1684:DATA

"111111

11110000."

1685:DATA "000.000.

0.0.000.000."

1686:DATA "00.0.0.0.0

000.0.00.0.0"

1687:DATA

"2"

1690:DATA "0.010.00.

0.0.10.00.0.0."

1691:DATA "0.10001

000.100.0.0 "

1692:0ATA

"0.10.0.01

0.0.010.000."

1693:DATA "00.1001

0.010.0000"

1694:DATA "00.0.111

110.0.000.0"

1695:DATA

"000000

000.0.0.000"

1696:DATA

"0.0.0.0.00.

.

0.0.0.0.0.000."

1697:

DATA

"2"

17e0:DATA "0.000.11

100.00000."

17e1:0ATA

"00010.0

0.10.0.000.0."

1702:DATA "0.0100.0

0.0.100.000"

1703:0ATA

"011111

11110.0.00"

1?04:DATA

"001000

0.010.000.0"

170.5:DATA "00.0.10.0.

0.1000000."

17e6:DATA "0.00.011

10.0.00.000."

l?07:DATA

"000.0.0.0

000.0000.0." .

1?0.8:DATA

"0.00000

000.00.00.0"

1709:DATA

"2"

1710.:DATA·

"0.11111

11110.000."

1711:DATA "00000.0.

00010.0.0.0"

1?12=-DATA "000.0.0.0.

000.10.0.0.0."

1?13:DATA

"0.0.00.00.

000!00.e0"

0.0.0.0.0.0.0.0."

1426:DATA

"0.1q11

11110.0.0.0."

1427:DATA

"10.0.0.0.0.

0.0.0.0.0.0.0.0."

1428:

DATA

'!0.0.0.0.0.0.

0.0.0.0.0000."

1429:DATA

"2"

1430.:DATA

"011111

11110.000. "

1431:DATA "0100.01

0.0010.000."

1432:DATA "0100.0.1

0.0010.00.0."

1433:

DATA

"0.10.0.0.1

00.0.10.0.0.0."

1434:

DATA

"0.10.0.0.0.

0.0.0.100.0.0.

"

1435:

DATA

"0.0.0.0.00

0.0.0.0.0000."

1436:DATA "0000.00.

0.000.0.0.00."

1437:

DATA

"2"

1460:DATA "00100.0.

0.0.100.0.00"

1461:DATA

"010.000

000.10.0.00"

1462:

DATA

"0.10.0.01

000.100.00"

1463:DATA

"0.0.10.0.1

0.0.10.0.00.0."

1656:

DATA

"000.00.0.

0.0.0000.0.0"

165:/:

DATA

"2"

1660.:DATA "0.11111

11110.0.0.0."

1661:DATA "010.0.0.1

00010000."

1662:

DATA

"0100.0.1

0.0.010.000"

1663:DATA "010.00.1

0.00.10.000"

1664:DATA

"011111

. 0.0.110.000."

1665:

DATA

"00.00.00

0.0.0.0.000.0"

1666:

DATA

"0.0.000.0

00.0.000.00."

1667:

DATA

"2"

1670:

DATA

"01100.0.

0.0.110003"

1571:DATA

"000110

11000000."

1672:DATA "0.0000.1

0.00.0.0.0.0.0"

1673:DATA "00.0.110.

110.0.0.000."

1674:

DATA

"01100.0.

0.0.1100.00."

1675:

DATA

"0.0.00.00.

0.0.0.0.0.0.0.0."

1676:

DATA

"00.0.0.00

0.0.0.00.00.0"

1677:

DATA

"2"

1680.:DATA "11000.0.

0.0.000.000"

1681:DATA "0.11111

1 2 ... 7 8 9 10 11 12 13 14 15 16 17 ... 59 60

Comments to this Manuals

No comments