10 REM****** LISTING 3 *******
15 :
20 REM ---- CHIFFRIEREN-RATEN ------
25 :
30 PRINT CHR$(147)
35 INPUT "WORT EINGEBEN";A$
40 B$=A$
45 LA=LEN(A$)
50 LB=LEN(B$)
55 H=0
60 :
65 Z=INT(RND(0)*LA)+1
70 C$=C$+MID$(A$,Z,1)
75 A$=LEFT$(A$,Z-1)+RIGHT$(A$,LA-Z)
80 LA=LA-1
85 IF LA<>0 THEN 65
90 PRINT C$
95 PRINT
100 :
105 PRINT "RATEN ODER HILFE ? (R/H)"
110 GET X$:IF X$="" THEN 110
115 :
120 IF X$="R" THEN170
125 :
130 IF X$<>"H" THEN 105
135 :
140 H=H+1
145 IF H=LB-1 THEN 195
150 PRINT C$,,LEFT$(B$,H)
155 PRINT
160 GOTO 105
165 :
170 INPUT"WAS RATEN SIE ";R$
175 IF R$<>B$ THEN PRINT"NEIN":GOTO 105
180 IF R$=B$ THEN PRINT "RICHTIG"
190 :
195 PRINT "DAS WORT WAR " B$