home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 May / 64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64 / strings.list3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  579b  |  38 lines
  1. 10 rem****** listing 3 *******
  2. 15 :
  3. 20 rem ---- chiffrieren-raten ------
  4. 25 :
  5. 30 print chr$(147)
  6. 35 input "wort eingeben";a$
  7. 40 b$=a$
  8. 45 la=len(a$)
  9. 50 lb=len(b$)
  10. 55 h=0
  11. 60 :
  12. 65 z=int(rnd(0)*la)+1
  13. 70 c$=c$+mid$(a$,z,1)
  14. 75 a$=left$(a$,z-1)+right$(a$,la-z)
  15. 80 la=la-1
  16. 85 if la<>0 then 65
  17. 90 print c$
  18. 95 print
  19. 100 :
  20. 105 print "raten oder hilfe ? (r/h)"
  21. 110 get x$:if x$="" then 110
  22. 115 :
  23. 120 if x$="r" then170
  24. 125 :
  25. 130 if x$<>"h" then 105
  26. 135 :
  27. 140 h=h+1
  28. 145 if h=lb-1 then 195
  29. 150 print c$,,left$(b$,h)
  30. 155 print
  31. 160 goto 105
  32. 165 :
  33. 170 input"was raten sie ";r$
  34. 175 if r$<>b$ then print"nein":goto 105
  35. 180 if r$=b$ then print "richtig"
  36. 190 :
  37. 195 print "das wort war " b$
  38.