home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43a.d64 / woerterraten (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  579 b   |  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.