Werbung
" : PROGRAMMBEISPIELE
PROGRAMMLISTING
dies ie
o o
630865)
RANDOM
13: WAIT @: CLS:
CURSOR
UNG":
CURSOR 29
| Tt PRINT "SCHRETBUEB _
'
'CLEAR:
DIM B$¢ = > -
tak INPUT
eee
2,3)?" iy
sL::WAIT @
47: IF (L=1)4(L= 2)+(s 3)
=
<>1 THEN
13°
ois
20: ta": WAIT @:P=0: CLS
—- -CHRETBUEBUNG" : Seat
CURSOR
25; PAUSE
"HO'
:
ECHSTE PUNKTZAHL=" 5 X
3@:FOR-S=1 TO 10-
'4Q:B= RND 442:¥$21 ype
:
INT (B/2)
'50:FOR C=0-TO-B=1
-60:D=
RND 26:B$(C)s 0 03.
CHR$
(D+&40) :¥$=¥$+'*
: NEXT ¢
~~~ CHR$" (D$84@)
70:BEEP 3:E=0
'75:CLS : PRINT "SCHREIB
-UEBUNG"; RIGHTS ("2 m:-08) cP
Horie STR$ :(S);2) eter pygicey
: CURSOR | 36
80:FOR.W=1
TO -B¥1@/L#2:
IF E=B LET W=B*20/L*
2: GOTO
100
85:LET
C$(E)=
INKEY$
:
"IF
C$(E)=""
THEN
100
'87 :A$=A$+C$(E):..
PRINT C
SCE) seat
90: E=E+1
1@0:NEXT
W:Q=@
110:FOR
W=@
TO B-1:
IF B
$(W)=C$(W)
LET Q=Q+1
120:NEXT
W:
IF Q<=R
THEN
150
130:IF
Q=B
LET
P=P+1@:
GOTO
150
140: P=P45
15@:NEXT
S:
BEEP
3:CLS
: WAIT
10@:
PRINT
"I
HRE
PUNKTZAHL="*;P
16@:IF
P>X
LET
X=P
165:WAIT
: CURSOR
25:
PRINT
"HOECHSTE
PUNK
TZAHL="3X
170:GOTO
73
Flid
"yds 1270
SPEICHERINHALT
Meh
OP eee
HAT
AS-
.
-
er
ae ay Vp
ce
i
ieee
sara
uP
B
:
edna
Mgeha le |
C
Schleifenvariable:
ur!
E
if
i
F
f
raed
|
!
[e
=
H
|
I
eer ares
wae tabiiaiade
om
ies
Pees
}
i
Renan
>
[4 _Sehwierignettagrad
aie
eM bata
8
.
yi
:
i]
a
w d )
Built 'Purktzahi
Q
R
Pi
ane
=
"Ege
"'Schlei fenvariable.
T
|
a
—————
Vv
i
-a_-Sehiei fenvariabie
TEXT
_ceehste
Punktzahl
Z
B${5}
C${5)
Werbung
