home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / zahlenraten (.txt) < prev   
Encoding:
Commodore BASIC  |  1990-01-01  |  706 b   |  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.