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

10 REM HOELZCHENSPIEL\DIM A$(72)
20 PRINT "SPIELANLEITUNG: ES GIBT 10 KAESTCHEN ";
30 PRINT "MIT 1 BIS 10 HOELZCHEN. SIE KOENNEN"
40 PRINT "NUN AUS EINEM BELIEBIGEN KAESTCHEN 1";
50 PRINT ",2 ODER 3 HOELZCHEN WEGNEHMEN.  WER"
60 PRINT "AM SCHLUSS DAS LETZTE HOELZCHEN WEG";
70 PRINT "NIMMT HAT GEWONNEN. ANTWORTEN SIE JE-"
80 PRINT "WEILS AUF ANFRAGE! BEI JA-NEIN-FRAGEN ";
90 PRINT "BITTE MIT JA BZW. NEIN ANTWORTEN!"
100 PRINT "AUSSERDEM GELTEN DIE ABKUERZUNGEN K ";
110 PRINT "UND H FUER KAESTCHEN UND ZU ENTFER-"
120 PRINT "NENDE HOELZCHENZAHL."\PRINT
140 A1=1\A2=2\A3=3\A4=4\A5=5\A6=6\A7=7\A8=8\A9=9\A0=10\B=55
150 PRINT "WOLLEN SIE BEGINNEN";
160 INPUT A$\IF A$="JA" THEN 180\IF A$="NEIN" THEN 190
170 PRINT "BITTE NUR MIT JA ODER NEIN ANTWORTEN! ALSO";\GOTO 160
180 LET E=1
190 PRINT
200 FOR I4=1 TO 10
210 LET R=I4\GOSUB 680
220 PRINT T;" ";\NEXT I4
230 IF A0=10 THEN 240\PRINT " ";
240 PRINT "   ";\IF E=1 THEN 490
250 RANDOMIZE\LET G=INT(10*RND(1))\FOR I1=1 TO 10
260 LET G=G+1\LET G=G-10*INT(G/10)\LET R=G+1\LET Q=0\GOSUB 680
270 IF Q=3 THEN 440\IF T=0 THEN 440\LET Q=Q+1
280 FOR I2=1 TO 10
290 LET R=I2\IF R=G+1 THEN 310\GOSUB 680
300 GOTO 340
310 NEXT I2\GOTO 390
330 IF R=G+1 THEN 410\GOTO 310
340 LET X=T-4*INT(T/4)
350 IF X=0 THEN 330\IF X=2 THEN 370\IF X=3 THEN 380
360 LET K=K+1\GOTO 330
370 LET L=L+1\LET N=N+2*INT(T/4)\GOTO 330
380 LET L=L+1\LET N=N+1+2*INT(T/4)\GOTO 330
390 LET R=G+1\GOSUB 680
400 LET T=T-Q\GOTO 340
410 LET M=K+L+N-2*(INT(K/2)+INT(L/2)+INT(N/2))
420 LET K=0\LET L=0\LET N=0
430 IF M=0 THEN 540\GOTO 270
440 NEXT I1\FOR I3=1 TO 10
450 LET G=G+1\LET G=G-10*INT(G/10)\LET R=G+1\GOSUB 680
460 RANDOMIZE\LET Q=INT(1+3*RND(1))\IF T>=Q THEN 540
470 RANDOMIZE\LET Q=INT(1+2*RND(1))\IF T>=Q THEN 540
480 LET Q=1\IF T>=Q THEN 540\NEXT I3
490 PRINT "K,H";\INPUT R,Q
500 IF Q=1 THEN 510\IF Q=2 THEN 510\IF Q=3 THEN 510\GOTO 530
510 IF R<>INT(R) THEN 530\IF R>10 THEN 530\IF R<1 THEN 530\GOSUB 680
520 IF T<Q THEN 530\GOTO 540
530 PRINT TAB(45);"QUATSCH!";\GOTO 490
540 LET Z=Q\GOSUB 680
550 LET B=B-Q\IF E=1 THEN 560\PRINT "K,H:";R;",";Q
560 IF B>0 THEN 650\FOR I5=1 TO 10
570 PRINT " 0  ";\NEXT I5
580 PRINT\IF E=1 THEN 600
590 PRINT "SIE HABEN LEIDER VERLOREN."\GOTO 610
600 PRINT "GLUECKWUNSCH!!! SIE HABEN GEWONNEN!!!"
610 PRINT\PRINT\PRINT "WOLLEN SIE NOCH EIN SPIEL MACHEN";
620 INPUT A$\IF A$="JA" THEN 640\IF A$="NEIN" THEN 820
630 PRINT "BITTE NUR MIT JA ODER NEIN ANTWORTEN! ALSO";\GOTO 620
640 LET E=0\GOTO 140
650 LET E=E+1\LET E=E-2*INT(E/2)\GOTO 200
670 STOP
680 IF R=2 THEN 720\IF R=3 THEN 730\IF R=4 THEN 740
690 IF R=5 THEN 750\IF R=6 THEN 760\IF R=7 THEN 770
700 IF R=8 THEN 780\IF R=9 THEN 790\IF R=10 THEN 800
710 LET A1=A1-Z\LET T=A1\GOTO 810
720 LET A2=A2-Z\LET T=A2\GOTO 810
730 LET A3=A3-Z\LET T=A3\GOTO 810
740 LET A4=A4-Z\LET T=A4\GOTO 810
750 LET A5=A5-Z\LET T=A5\GOTO 810
760 LET A6=A6-Z\LET T=A6\GOTO 810
770 LET A7=A7-Z\LET T=A7\GOTO 810
780 LET A8=A8-Z\LET T=A8\GOTO 810
790 LET A9=A9-Z\LET T=A9\GOTO 810
800 LET A0=A0-Z\LET T=A0
810 LET Z=0\RETURN
820 END