Directory of image this file is from
This file as a plain text file
5 PRINT "KENNEN SIE DIE SPIELREGELN:";\INPUT A$\IFA$="JA" THEN 180 10 PRINT TAB (30);"SPIELREGELN:" 20 PRINT \PRINT\PRINT 30 PRINT "BEI DIESEM SPIEL SOLLEN SIE GEGEN DEN COMPUTER SPIELEN." 40 PRINT "SIE KOENNEN EINEN WERT ZWISCHEN 1 UND 6 EINGEBEN." 50 PRINT "SINN DES SPIELS IST ES EINE ZIELZAHL ZU ERREICHEN." 60 PRINT "AUSSERDEM HABEN SIE DIE MOEGLICHKEIT ZWISCHEN " 70 PRINT "SYSTEM UND ZUFALL ZU WAEHLEN DAS HEISST:" 80 PRINT "BEI ZUFALL ERWUERFELT DER RECHNER SEINE WERTE," 90 PRINT "DIES GESCHIEHT JEDOCH BEI SYSTEM NICHT." 100 PRINT "NACH EINER BESTIMMTEN ZAHL VON DURCHLAEUFEN WIRD DAS " 110 PRINT "SPIEL ABGEBROCHEN. DANN ERHALTEN WEDER SIE NOCH DER" 120 PRINT "RECHNER EINEN PUNKT. WENN SIE ODER DER RECHNER DIE" 130 PRINT "ZIELZAHL ERREICHT HABEN ERHAELT DER BETREFFENDE EINEN" 140 PRINT "PUNKT.DAS ENDERGEBNIS DES SPIELS WIRD AM SCHLUSS AUSGEDRUCKT" 150 PRINT "WENN SIE ODER DER RECHNER DIE ZAHL 15 ERREICHEN WIRD DIE" 160 PRINT "SUMME HALBIERT.WENN SIE ODER DER RECHNER DIE ZAHL 23" 170 PRINT "ERREICHEN ERHAELT JEWEILS DER GEGNER EINEN PUNKT" 180 PRINT \PRINT\PRINT\PRINT 190 PRINT "ZIELZAHL "; 200 INPUT A 210 PRINT "MAXIMALE DURCHLAUFZAHL "; 220 INPUT B 230 LET U=0\ LET V=0 240 LET X=0 250 PRINT "WOLLEN SIE ZUFALL ODER SYSTEM?"; 260 INPUT C$ 270 IF C$="ZUFALL" THEN 310 280 IF C$="SYSTEM" THEN 870 290 PRINT "WAS SOLL DAS BEDEUTEN?" 300 GOTO 250 310 FOR I=1 TO B 320 PRINT "DURCHLAUFNUMMER:",I 330 RANDOMIZE 340 LET W=INT(1+6*RND(1)) 350 PRINT "MEIN WERT:";W 360 LET X=X+W 370 PRINT "DERZEITIGE SUMME:";X 380 IF X=15 THEN 820 390 IF X>=A THEN 600 400 IF X=23 THEN 620 410 PRINT "IHR WERT:"; 420 INPUT Z 430 IF Z>6 THEN 850 440 IF Z<1 THEN 850 450 LET X=X+Z 460 PRINT "DERZEITIGE SUMME:";X 470 IF X>=A THEN 620 480 IF X=15 THEN 820 490 IF X=23 THEN 600 500 NEXT I 510 PRINT "ES SIND ";I;"DURCHGAENGE VORBEI." 520 PRINT "WEDER SIE NOCH DER RECHNER ERHALTEN EINEN PUNKT!" 530 PRINT\PRINT\PRINT 540 PRINT "WOLLEN SIE NOCH EINE RUNDE? (JA 0DER NEIN) "; 550 INPUT S$ 560 IF S$="JA" THEN 240 570 IF S$="NEIN" THEN 640 580 PRINT "WAS SOLL DAS BEDEUTEN?" 590 GOTO 540 600 GOSUB 1230 610 GOTO 540 620 GOSUB 1270 630 GOTO 540 640 PRINT "DER COMPUTER HAT";U;"PUNKTE" 650 PRINT "SIE HABEN ";V;"PUNKTE" 660 PRINT \PRINT\PRINT\PRINT 670 PRINT "WOLLEN SIE NOCH EIN SPIEL? (JA ODER NEIN)"; 680 INPUT T$ 690 IF T$="JA" THEN 730 700 IF T$="NEIN" THEN 800 710 PRINT "WAS SOLL DAS BEDEUTEN?" 720 GOTO 680 730 IF U>V THEN 760 740 PRINT "DAS SPIEL IST UNENTSCHIEDEN!" 750 GOTO 190 760 PRINT "DER COMPUTER HAT MIT";U;"PUNKTEN GEWONNEN!" 770 GOTO 190 780 PRINT "SIE HABEN MIT ";V;"PUNKTEN GEWONNEN!" 790 GOTO 190 800 PRINT "DAS SPIEL IST ZU ENDE" 810 STOP 820 LET X=INT(X/2) 830 PRINT "DIE SUMME WURDE HALBIERT" 840 GOTO 320 850 PRINT "DIESER WERT IST ZU HOCH ODER ZU TIEF" 860 GOTO 410 870 FOR I=1 TO B 880 PRINT "DURCHLAUFNUMMER: ";I 890 LET D=INT(X/7) 900 LET P=X-INT(7*D) 910 IF X=22 THEN 1350 920 IF P >0 THEN 940 930 LET P=1 940 PRINT "MEIN WERT";P 950 LET X=X+P 960 PRINT "DERZEITIGE SUMME:";X 970 IF X>=A THEN 600 980 IF X=15 THEN 1310 990 IF X=23 THEN 620 1000 PRINT "IHR WERT:"; 1010 INPUT Y 1020 IF Y>6 THEN 1370 1030 IF Y<1 THEN 1370 1040 LET X=X+Y 1050 PRINT "DERZEITIGE SUMME:";X 1060 IF X>=A THEN 620 1070 IF X=15 THEN 1310 1080 IF X=23 THEN 600 1090 IF X>=A-7 THEN 600 1100 NEXT I 1110 PRINT "ES SIND ";I;"DURCHLAEUFE VORBEI!" 1120 PRINT "WEDER SIE NOCH DER RECHNER ERHALTEN EINEN PUNKT" 1130 PRINT "WOLLEN SIE NOCH EINE RUNDE? (JA ODER NEIN)"; 1140 INPUT T$ 1150 IF T$="JA" THEN 250 1160 IF T$="NEIN" THEN 640 1170 PRINT "WAS SOLL DAS BEDEUTEN?" 1180 GOTO 1130 1190 PRINT "DER COMPUTER HAT";U;"PUNKTE" 1200 PRINT "SIE HABEN ";V;"PUNKTE" 1210 GOTO 660 1220 GOTO 1000 1230 REM SUBROUTINE RECHNER 1240 LET U=U+1 1250 PRINT "DER RECHNER HAT EINEN PUNKT ERHALTEN!" 1260 RETURN 1270 REM SUBROUTINE SPILER 1280 LET V=V+1 1290 PRINT "SIE HABEN EINEN PUNKT ERHALTEN!" 1300 RETURN 1310 LET X=INT(X/2) 1320 PRINT "DIE SUMME WURDE HALBIERT" 1330 PRINT "DERZEITIGE SUMME:";X 1340 GOTO 870 1350 LET P=2 1360 GOTO 940 1370 PRINT "DIESER WERT IST ZU HOCH ODER ZU TIEF" 1380 GOTO 1000 1390 END