;q
4.f
r -p h
;~
~
~
h;-f
p
rH
m~
Sehr geehrter Hel'r Fischel,
anbei
uber~eiche
ich Ihnen das Programm LOTTO-KONIG zur Veroffentlichung
in
Ihrer ·Zeitschrift.
Es
soli alien glUcklosen Lotto-Spielern bei
der
Findung
der
ridltigen Zahlen helfen I
Natiirlich muS auch hier das Gesetz der GroBen Zahlen angewandt werden und
bleibt somit auch nur ein Gllicksspielllll!!
I1
Oas Programm beinhaltet eine kleine Statistik
Uber
die Hiufigkeit der Zahlenziehungen
und erlaubt somit z.b. eine Rangfolgeverteilung .
le
213
313
413
se
613
713
813
913
11313
1113
120
1313
1413
1513
.
1613
1713
180
1913
21313
210
2213
2313
2413
2513
2613
2713
2813
290
31313
3113
3213
330
3413
3513
Prograinmlisting:
ARUN
:ON
ERROR
GOTO
CLEAR
:DIM
A(5),
B(49):ON
"M":BE~P
2:WAlT
;PRINT
BEEP
2:WAlT
:PRINT
BEEP
2:WAlT
:PRINT
BEEP
2:WAIT
:PRINT
BEEP
2:
WAlT : PRINT
BEEP
2:WAIT
:PRINT
BEEP
2:WAlT
:PRINT
BEEP
2,59,
199:
-
WAl
T
"Z":CLS
:USING
:WAlT
CLS :WA1T
0:PRIHT
IF
A$<>"J"LET
P=B'
IF
A$="J"LET
P=l
FOR
ZI=B(e)+1TO
B(e)+ZZ
CLS
:WAIT
e:PRINT"Ziehung
FOR
1=13TO
5
A=RND
49
IF
A(10R
A>49LET
IF
A=A(e)OR
A=A(l)OR
A=A(2)OR A=A(3)OR
A=A(4)OR
A=A(5)LET
A(l)=A
NEXT
]
CLS
:USING
:WAIT
IF
P=lUSING
U$:CSIZE
BEEP
1
Z=1:
BOD=8(0)+1
FOR
1=13TO
5:FOR
Y=lTO
IF
A(I)=YLET
B(Y)=B(Y)+Z
NEXT Y:NEXT
1:
]=e:NEXT
"C";CLS
:BEEP
5
PAUSE
B(e);"
Z]EHUNGEN"
FOR
l=lTO
49
WAll
3e:PRINT
"ZAHL:
NEXT
l:GOTO
"M"
"D":CLS
:WA]T
0:PRINT
~
~
~
q
rH
~
Programme
fUr
den
PC
1509
.
--------
.
.
.
_.
.
.
.
:
~.)
q r
ri·~
,--
~
---
,--,."----,.,,
.,
,
,~
"
" "
,
'/,
...
""
.",
""",
,
"'"
,
,,~~,,~:
""'"
,
',';~'
, ,
" ,
"'.'
.#.
"
,
,~,
,'4,~,'.
, , ,
,
,"
..
'
/'
,-~
.'
6.c
,
",-t;
-.;
,
.1/
,;',
..
"',.~",
.'
~".~
."
von
He
i
nz
O.
Sch
u It z
Ingersheimer
Str12
7140
Ludwi9SburQ
3613
,
3713
3813
3913
4013
4113
420
430
440
4513
460
4713
4813
4913
500
5113
5213
530
5413
5513
5613
570
see
l.
_
Q
.
~TO-KONIG
20:A(e)=A(e).:U$="tttttttt":GOTO
"M"
ERROR
GOTO
"M":GOTO
Je
,
"******'
Lotto
Koeni9
******"
"Weitel"e
Z-
iehungen
=
OEF
Z"
"Oisplay-Ueber-sicht
OEF
C"
"Dl"uck-Uebel"Sicht
DEF
0"
"Dr-uck-Uer-t
e i
lung
DEF
U"
"Oaten
speicher-n
OEF
S"
"Oaten
laden
OEF
L"
: PRINT "RUN
ENTER>Loescht
Spe i
chel"":
GOTO
313
e:PRINT
"Ziehungen
(mem"jBCe)j"):"j:lNPUT
ZZ
"Ziehungen
dl"'ucken
J7N
:";A$;:]HPUT
A$
laeuft
!!"
A=0:GOTO
1813
A=e:GOTO
1813
e:PRINT
Zlj".T]p"jA(e)jA(1)jA(2)jA(3)jA(4);A(5)
l:LPRINT
Z]j".TIP:"jA(e);A(l);A(2);A(3);A(4)jA(5)
49
Z]:GOTO
se
"
ili"
GEZOGEN:
"jB(1);"
x"
"Ausdr-uck
der-
Ueber-sicht":ON
ERROR
GOTO
"M"
FOR
1=1TO
49
USING
U$:CSIZE
l;LPRINT
"ZAHL:
"'I'TAB
lej"
GEZ.:"·8Cl)·"
x"
NEXT
J:
GOTO
,"M" ' , . "
"U":
CLS :
WAl
T
13:
PRINT
"Ausdr-uck
der-
Ver-t
e i I
un9":
ps=e:
Z=1:
ON
ERROR
GOTO
"
M"
LF
2:CSIZE
l:LPRINT
"Bei
";B(e);"
Ziehungen
folgende"
LPRINT
"Uel"tei
lung:";LF
1
LPRINT
"I
Pos.
1
gezogen
1
Zahl
1":USING
U$
LPRINT
"1-------I---
....
-----I------I":LF
1
FOR
Y=lTO
49
IF
MAX<B(Y)LET
MAX=B(Y)
JF
MIN>B(Y)LET
MIN=BCY)
NEXT
Y
FOR
I=MAXTO MINSTEP
-1
FOR
Y=lTO
49
IF
I)B(Y)GOTO
5213
IF
]=B<Y)AND
Y(=49LPRINT
Z;"."jTA8
1ejB(Y);"x";TAB
2ejY:PS=PS+B(Y):Z=Z+1
NEXT
Y
NEXT
1
LPRINT
"I-------l---------l------]":USING
LPRINT
"Statistische
Fehler-:
";INT
«B<B)*6)-PS):LF
"L":CLS
:WAlT
:PRJNT
"Ziehungen
in
Rechnel"
laden"
CLS
:WAlT
:PRJNT
"BlTTE
)
Recor-der-
auf
Play"
INPUT
""LOTTO-DATEN";B<*):BEEP
2':GOTO
"M"
7:GOTO
"M"
5913
"S":CLS
:WAlT
:PRINT
"Ziehungen
a.Band
speicher-n"
/
CLS :
WAl
T :
PRl
NT
"Bl
TTE >
Recol"d;~1"
au
r REC"
r-,
I
61313
6113
PRINT
#"LOTTO-DATEN"jB(*):BEEP
2:GOTO
"M"
8
IIF1SCHEL
GmbH
IJ
00000000
0
DDDDDDDODD
DDDDDDDDtJO
OtJOODDDDDD
Lobels
(OEF):
M
MENUE
Z
lIEHUNGEN
C
DISPLAY
o DRUCK-UEBERS.
U DRUCK-UERTEI.
L
OATEN
LADEN
S
OATEN
SPEICH.
Dimensionen:
8(49)
A(5)
Pr09l"ammgl"'oesse:
PSIZE
1922
Heft
16Seite
47
mw.,
i
UW"
,:
.:~
~
.
-
SHARP~C
-
o
.
mp
_~
u
~
;t.e
.
~
Comments to this Manuals