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

,

~

:q

~

-m

Q h;:

~

~

mf 9 m

m~

~

~

~

9 h

~

:

~.i),

q r h

~

1-

-

~

'

_1

is..-.

7!\:

,--

~:

;i

:~-

-~

1714:

OAT

-A

"000000

00010000"

1715:DATA

"000000

00000000"

1716:DATA

"00.0.00.0.

0.0001300.0"

1717:DATA

"2"

1730:DA-TA

"01111

-1

111100130"

1731:

DATA

"000110

013130013130"

1732:

DATA

"0.21210.11

1131300000"

1733:DATA

"13130000

110000.00"

1734:DATA "2111111

111100.00"

1735:

DATA

"0.0.01300

0131313013210"

1736:DATA

"2113210013

131300013130"

1737:DATA

"2"

174e:DATA "0110.130

131311130013

"

1741:DATA "0.00111

1100.013130"

1742:DATA

"02101301

013013013013"

1743:DATA

"011111

111leeee"

1744:DATA "1300001

0000001313"

1745:DATA "1300111

11000000"

1746:

DATA

"0110'00

00110000"

1747:

DATA

"000.0130

01300013130"

1748:DATA

"00001313

13001300013"

1749:DATA

"2"

1750:DATA

"011111

111100130"

1751:DATA "1300001

0.0000000"

1752:DATA

"0000.10

10000000"

1753:DATA

"000100

01000000"

1754:

DATA

-"011000

00110000"

1755:DATA

"000000

00000000"

1756:

DATA

"0000.00.

1313131300130"

1757:DATA

"2"

1760:

DATA

"01 Hl00.

013013130013"

1761:DATA

"011111

000130000"

1762:DATA

"01300.013

1110001313"

1763:DATA

"131313000

000100130"

1764:

DATA

"011111

11110000."

1765:

DATA

"0130131313

0131300.0.0.0."

1766:

DATA

"0.0.00.00.

0000.00.0.0"

1767:DATA "

2"

1770:DATA "

011111

11110000"

1771:DATA

"1313130130

00131130130"

1772:

DATA

"013130

_

01

111100130"

1773:DATA

"02100.013

021010000"

1774:

DATA

-"

011111

11110000"

1775:DATA "0021000

0000.001313"

1776:DATA

"000131313

013131313131313

"

1777:

DATA

"2"

1-

7813:

DATA

"1311111

11111313013"

17-81

:

DATA

"13131313131

;'

L

13130211321013"

PC-15~e

1782:DATA

"01301301

00130021021"

1783:DATA

"02113~01

0.013130000"

1784:

DATA

,.

011111

111113000"

1785:DATA "0000130

00000000."

1786:DATA

"13001300

00.000000"

1787:

DATA

"2"

1790:

DATA

"001111

11100000"

1791:DATA

"010000

00010000"

1792:DATA

"01001313

00010000"

1793:DATA

"010000

00.0121000"

1794:DATA "0211111

1110.021210."

1795:DATA

"00.0.00.0.

0.000.0.000"

1796:DATA

"000000

130002121013"

1797:DATA

"2"

18210:0ATA "

011111

111102100"

1801:DATA "0130.000

00010000"

1802:

DATA

"00000.0

00010000"

1803:DATA

"0.210.0.00

0001000.0"

1804:DATA

"011111

11110000"

181il5:DATA

"00210021

1300.00000"

18_

06:

DATA

"000000

000.021000"

1807:

DATA

"2"

1810:DATA "0.11111

11110000

"

1811:DATA

"000001

00000000"

1812:

DATA

"001111

11100000"

1813:

DATA

"_

010000

000121000"

1814:DATA "0101300

00010000"

1815:DATA

"010000

00010000"

1816:DATA

"001111

11100000"

1817:

DATA

"0001300

00000000"

1818:DATA "00.000.0

00.000000"

1819:DATA

"2"

1820:

DATA

"0111U

111100.210" -

1821:

DATA

"000001

00010000"

1822:DATA

"01301301

001310000"

1823:DATA "0000.01

00010000

"

1824:

DATA

"00.0000

11101313130

"

1825:DATA

"000000

130000212121"

1826:

DATA

"00210021

2100000210 "

1827:

DATA

"2'"

1830:DATA

"001111

11101301313"

1831:DATA

"010000

0001001313"

1832:

DATA

"010.000

000.10000"

1833:DATA

"010000

000121000"

1834:DATA

"001100

01100210.0"

1835:DATA

"00.0.0.013

013131301300"

1836:

OAT

A "

131313000.

ClClClClGlOlClCl"

1837:

DATA

"2"

1840:DATA

"000000

00010.000"

1841 :

DATA

"0.00000

00010.130.0"

1842:DATA

"011111

11110.00.0"

1843:DATA

"000000

00010000"

1844:DATA "0.00000

00.010000"

1845:DATA

"000000

000000130"

1846:DATA

"000000

0013021000"

1847:

DATA

"

2"

1850:DATA

"000001

11110000"

1851:

DATA

"010001

000021000"

1852:DATA "

001001

2100021000"

185~:DATA

"000101

000002100"

1854

-:

DATA

"000011

-

111121000"

1855:

DATA

"00.00.00

00.0.0.001313"

1856:DATA "00000.0

013000000"

1858:DATA

"2"

1870:DATA

"011111

111 1

131300."

1871:DATA

"010001

00010000"

1872:DATA "0.10001

0001000.0."

1873:DATA

"010001

00010000

"

1874:0ATA

"0.11110

11110.000"

1875:

DATA

"000000

00000000"

1876:DATA "0000130

000130000"

1877:

DATA

"2"

1890:DATA

"000001

11

.\:10.00.0

"

1891:DATA

"000001

000.00000"

1892:

DATA

"000001

00000000"

1893:

DATA

"0.000.01

00.00210.00"

1894:

DATA

"

011111

11110.000"

1895:

DATA

"000.000

00.000.0.00"

1896:

DATA

"

000000

0000000.0"

1897:

DATA

"

2"

81

ick

1900:DATA

"011111

11110.000

"

1901:

DATA

"

010000

0.0.0.0.0000"

1902:DATA

"010000

00000000"

1903:

DATA

"010000

00000000"

1904

:

DA

TA"

01 1111

11110000"

1905

-:

DATA

"10.0.00.0.

00000000"

1906:DATA

"000000

00000000"

1907:DATA

"000000

000.0.0.00._

0"

1908:DATA

"2"

2050:DATA

"011111

11110000"

2051:

DATA

"000110

-

0000.1000"

2052:

DATA

"000011

121010000"

2053:DATA

"000000

110.0.10.00"

2054:DATA

"011111

11110000"

2055:

DATA

"000000.

0.0000000

,,

' - -

2056:

DATA

"000000

00000000"

2057:

DATA

"2"

STATUS

1

6484

~

(j)

Z

»

;0

I

'""D

•

CD

7J

~

lA

"

JJ

•

.....,

m

l)

~

3

-

Ins

Glueck

Mit

diesem

P~09~amm

koennen

$ie

jede

5130. Moeg I i

chke

i t

de~

Lot

t

0-

zahlenkombinationen

ausd~ucken

lassen.Wenn

Sie

die

IF-8edingung

vor

dem

LPRINT-8efehl

aende~n,

koennen

Sie

do~t

Ihre

eigne

Wunschzahl

eing~ben.Das

PC-1500

PrOQramm

laeuft

nur

ouf

diesem.

I

I

I

10:8=1:C=2:0=3:E=

4:F=5:G=6:J=1:

GOTO

.78

20:8=8+1:C=8

30:C=C+l:[I=C

40:0=D+1:E=D

50:E=E+1:F=E

60:F:.:F+1:G=F

713:G=G+1

78:I=I+1:IF

J{>50

0GOTO

130

80:LPRINT

STR$ I

81:LPRINT

8;C;DjE

jFjG:J=0:X=X+1

82:IF

X(>20e0GOTO

130.

83:lNPUT

"PAPIERW

ECHSEL

J

/N?

"j

L$:IF

L$="J"

LET

X=0:END

84:CLS

:X=0

130:

-

"A

"

J=J+l:

IF

G=

49AND

F=48AND

E=47AND

0=46

AND

C=45ANO

8=

~

44GOTO

200

140.:

IF

G=49AND

F=4

8AND

E=47AND 0

=46AND C=45

GOTO

20

145:IF

G=49AND

F=4

8AND

E=47AND 0

=46GOTO

30

1513:

IF

G=49AND

F=4

8AND

E=47GOTO

40

160:IF

G=49AND

F=4

8GOTO

50

170:IF

G=49GOTO

60

180:GOTO

70

200:LPRINT

"ES SIN

0"

201:LPRINT

I

2e2:LPRINT

"MOEGLI

CHKEITEN. "

I:REM

PC-1500

5:CSIZE

l:COLOR

2

10:FOR A=ITO

44:

FOR

8=A+ITO

45

:FOR C=8+1TO 4

6:

FOR

D=C+1

TO

47:FOR

E=O+lTO

48:FOR

F=E+1TO

49

20:H=H+l:I=I+l:lF

1=500LPRINT

Hj

TA8

18jAjTAB

2

1j8jTA8

24;C;

TA8

27jDjTAB

3

0jE;TAB

33jF:I

=0

30:NEXT F

NEXT

E:

NEXT

D

NEXT

C:

NEXT

B

NEXT

A

40:LPRINT

"Es

sin

d"j

HP; 11 . U

41:LPRINT

"Moe91 i

ch

ke i

ten.

" :

END

STATUS

1

245

wei I

die

anderen

PCs

nu~

5 FOR-

NEXT-Sch

le

i

fen

9

le

i

chze

it

i 9

ver-

vom

dauen

koennen

(PC-1513e=16).Start

.

m~t

RUN

und

nach

Papierwechsel

5HRRP-8a.SiI:-Tea.m

mI t

DEF

A.

.Fuer

al

le

SHARP-pes

Der

We9

ins

Glueck

Ausdruck

al

Jer

Lottozahlen

(6aus49)-

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

*

cop~ri9h~

*

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

* *

* S H A R P- *

* *

*

Basic-Team

*

* *

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

I

~

~

.~

-~

-,

,

- -

Heft

·

W@'.i

,aw#

; -/

"-

,~.~

, _ _

;"l

...

.'-

~

16

_

se}

te

·

13

..

;'-~

SH

J9R

I?~

-

CQ

rnr?

yj

~

.-

~r

:~

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

Comments to this Manuals

No comments