home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 43
/
64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64
/
woerterraten
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
579b
|
38 lines
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$