home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh19.d64 / zahlenraten (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  706b  |  38 lines
  1. 10 PRINT"[147]
  2. 20 [153]"******** ZAHLEN RATEN *******
  3. 30 PRINT
  4. 40 :
  5. 50 REM+++++++ VORBEREITUNG ++++++++++++
  6. 60 :
  7. 70 Z=INT(RND(0)*100)+1
  8. 80 V=0
  9. 90 :
  10. 100 REM+++++++ RATEN +++++++++++++++++
  11. 110 :
  12. 120 PRINT"ICH HABE MIR EINE ZAHL
  13. 130 [153]"ZWISCHEN 1 UND 100 GEMERKT.
  14. 140 PRINT
  15. 150 INPUT"WELCHE ZAHL IST ES ";R
  16. 160 V=V+1
  17. 170 :
  18. 180 REM+++++++ PRUEFEN +++++++++++++++
  19. 190 :
  20. 200 IF R>Z THEN PRINT R;:GOTO 230
  21. 210 IF R<Z THEN PRINT R;:GOTO 240
  22. 220 IF R=Z THEN PRINT R;:GOTO 250
  23. 230 PRINT"IST ZU GROSS":GOTO 140
  24. 240 PRINT"IST ZU KLEIN":GOTO 140
  25. 250 PRINT"IST RICHTIG"
  26. 260 PRINT"SIE HABEN";V;"VERSUCHE ";
  27. 270 PRINT"BENOETIGT
  28. 280 :
  29. 290 [143]+++++ WIEDERHOLUNG ODER ENDE ++++
  30. 300 :
  31. 310 [153]:[153]:[153]
  32. 320 [153]"NOCH EINMAL (J/N) ?
  33. 330 GET A$: IF A$=""THEN 330
  34. 340 IF A$="J"THEN 10
  35. 350 IF A$<>"N" THEN 320
  36. 360 PRINT:PRINT:PRINT"AUF WIEDERSEHEN
  37. 370 [128]
  38.