home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / apfel / apfel.bas next >
Encoding:
BASIC Source File  |  1997-10-09  |  1.5 KB  |  48 lines
  1. 100 REM *** '23 MATCHES'"
  2. 101 print "Ein Public Domain Programm von"
  3. 102 print "Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach" 
  4. 103 print
  5. 110 PRINT "Spiel mit 23 Äpfel,"
  6. 115 PRINT "Du nimmst 1,2 oder 3 Äpfel."
  7. 120 PRINT "und ich nehme 1,2 oder 3 Äpfel."
  8. 125 PRINT "Es verliert der, der den letzten "
  9. 130 PRINT "Apfel nimmt."
  10. 135 REM
  11. 140 PRINT
  12. 150 LET M=23
  13. 200 REM *** THE HUMAN MOVES
  14. 205 PRINT
  15. 210 if M=1 then COLOR 0,7:PRINT " Es ist ";M;" Apfel im Korb.  ";:COLOR 7,0:print
  16. 211 IF M>1 THEN COLOR 0,7:PRINT " Es sind ";M;" Äpfel im Korb. ";:COLOR 7,0:print
  17. 215 PRINT
  18. 220 INPUT "Wie viele Äpfel nimmst du"; H
  19. 240 IF H>M THEN 510
  20. 250 IF H<>INT(H) THEN 510
  21. 260 IF H<=0 THEN 510
  22. 270 IF H>=4 THEN 510
  23. 280 LET M=M-H
  24. 290 IF M=0 THEN 410
  25. 300 REM *** THE COMPUTER MOVES
  26. 305 IF M=1 THEN 440
  27. 310 LET R=M-4*INT(M/4)
  28. 320 IF R<>1 THEN 350
  29. 330 LET C=INT(3*RND)+1
  30. 340 GOTO 360
  31. 350 LET C=(R+3)-4*INT((R+3)/4)
  32. 360 LET M=M-C
  33. 370 IF M=0 THEN 440
  34. 380 PRINT "Computer nimmt ";C;".....":print
  35. 390 GOTO 210
  36. 400 REM *** SOMEBODY WON (SEE LINES 290,305,370)
  37. 410 PRINT
  38. 420 PRINT "Schade du hast verloren, da du letzten Apfel genommen hast.":print:print "Noch ein Spiel ";:input "";noch$:if noch$="N" or noch$="n" then end
  39. 430 GOTO 140
  40. 440 PRINT
  41. 450 PRINT "Super du hast gewonnen.":print:Print "Noch ein Spiel ";:input "";noch$:if noch$="N" or noch$="n" then end
  42. 460 GOTO 140
  43. 500 REM *** THE UMAN CHEATED! (SEE LINES 240 THRU 270)
  44. 510 PRINT "Bitte nur 1 bis 3 Äpfel nehmen."
  45. 520 GOTO 215
  46. 999 END
  47.  
  48.