Werbung
PROGRAMMBEISPIELE
PROGRAMMLISTING
10:"A%:
CLEAR
: WAIT
52
: RANDOM
: DIM B${4)
20:PRINT
"DOPPELTE
ROTA
TION"
30:B$(0):"ABCDEFGHIJ"
40:Bg(1)="8
50:A=0
60:FOR
I=1
TO
190
70:R=
RND
18
80:S=""(R-1):BsS AND A
90:IF B><@ GOTO 7@
190:AsA OR S
110:B$(1)=B$(1)+ MID$ (B
$(@),R,1}):
NEXT I
120:B$(2)=BE(1)
130:N=@
150:BEEP
1
170:D$="":
PRINT B$(2):D
$= INKEY$
18@:C=
VAL
D$
19@:IF C=® GOTO 170
210:B$(3)=
LEFT$
(B$(2),
Cc)
220:B$(4)=
RIGHT$
(B$(2)
,10=C)
24Q:IF C=1 GOTO 260
250:B$(3)=
RIGHT$
(B$(3)
yi)+
LEFT
(B$(3),C-
1)
260:IF
C=9 GOTO 280
270:B$(4}
RIGHT$
(B$(4)
,9-C)+ LEFT$ (BSC4),
1)
280: B$(2}=B$(3)4+B$(4)
290:N=N+1
300: IF B$(2)><BS(0)
GOTO
158
310:BEEP
5: PRINT
"SPIEL
AUS"
320:WAIT
200:
PRINT
USING "son"; "PUNKTE
" 3N
330:END
4@@:"B":
WAIT
50;
GOTO
1
20
410: END
SPEICHERINHALT
Eingabe
Taste
lel
ate
Pe
Zufallszahlen
$(4}
Alphabet
Folge
223
Werbung
