Directory of image this file is from
This file as a plain text file

OTO 4710
5980 H(I,R)=6\GOTO 4710
6000 H(I,R)=7\GOTO 4710
6020 H(I,R)=8\GOTO 4710
6040 H(I,R)=9\GOTO 4710
6060 H(I,R)=10\GOTO 4710
6080 H(I,R)=11\GOTO 4710
6100 H(I,R)=12\GOTO 4710
6120 H(I,R)=13\GOTO 4710
6140 PRINT N$(I);" HAT FOLGENDE KATEGORIEN GEBRAUCHT:"
6150 FOR S=1 TO R-1
6160 IF H(I,S)>7 THEN 6180
6170 IF H(I,S)=2 GOTO 6210\IFH(I,S)=3GOTO6230\IFH(I,S)=4GOTO6250
6175 IF H(I,S)=5 GOTO 6270\IFH(I,S)=6GOTO6290\IFH(I,S)=7GOTO6310
6180 IF H(I,S)=8 GOTO 6330\IFH(I,S)=9GOTO6350\IFH(I,S)=10GOTO6370
6185 IF H(I,S)=11GOTO6390\IFH(I,S)=12GOTO6410\IFH(I,S)=13GOTO6430
6190 PRINT "EINS, ";\GOTO 6440
6210 PRINT "ZWEI, ";\GOTO 6440
6230 PRINT "DREI, ";\GOTO 6440
6250 PRINT "VIER, ";\GOTO 6440
6270 PRINT "FUENF, ";\GOTO 6440
6290 PRINT "SECHS, ";\GOTO 6440
6310 PRINT "DREI GLEICHE, ";\GOTO 6440
6330 PRINT "VIER GLEICHE, ";\GOTO 6440
6350 PRINT "VOLLES HAUS, ";\GOTO 6440
6370 PRINT "KLEINE STRASSE, ";\GOTO 6440
6390 PRINT "GROSSE STRASSE, ";\GOTO 6440
6410 PRINT "YAHTZEE, ";\GOTO 6440
6430 PRINT "CHANCE, ";
6440 NEXT S
6445 PRINT\PRINT "DU HAST ";K1(I);" PUNKTE."
6447 PRINT "UND ";K(1,I);" VON DEN 65 PUNKTEN BENOETIGT VUER DEN BONUS";
6450 PRINT "."
6460 RETURN
6470 G=0
6480 FOR X=1 TO P
6490 IF S1(X)>=S1(X+1) THEN 6540
6500 H=S1(X)
6510 S1(X)=S1(X+1)
6520 S1(X+1)=H
6530 G=1
6540 NEXT X
6550 IF G=1 THEN 6470
6560 PRINT "DAS SPIEL IST AUS."\PRINT
6571 FOR X=1 TO P\IF K1(X)=S1(X) THEN 6580\NEXT X
6580 GOTO 6585
6585 IF P=1 THEN 9999
6586 PRINT "ENDRESULTAT:"
6590 FOR Y=1 TO P