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