File KNIFF3.BA (BASIC source file)

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

10 DIM A(100),B$(70),H(100),C$(70),S(100),D$(70)
20 PRINT "WIR SPIELEN KNIFFEL:"
30 PRINT TAB(22);"VIEL SPASS"
40 PRINT
50 FOR I=1 TO 13\X=5\Y=5\V=1\L2=1\L1=0\L=0
55 RANDOMIZE\Z=Z+1
60 FOR I1=V TO X\A(I1)=INT(1+6*RND(I1))\NEXT I1
65 IF X=0 THEN 200
70 PRINT "IHRE ZAHLEN: ";\FOR I1=V TO X
80 PRINT A(I1);\NEXT I1\PRINT\IF Z=3 THEN 200
90 PRINT "WELCHE ZAHLEN MOECHTEN SIE: ";
100 INPUT B$\IF LEN (B$)>5-L1 THEN 180\L=LEN(B$)
110 FOR I1=L2 TO L+L1\K(I1)=VAL(SEG$(B$,I1,I1))
120 NEXT I1
130 FOR I1=1 TO L\FOR I2=1 TO 6\IF K(I1)=I2 THEN 150
140 NEXT I2\GOTO 180
150 NEXT I1\FOR I1=1 TO L\FOR I2=V TO X
160 IF A(I2)=K(I1) THEN 170\NEXT I2\GOTO 180
170 NEXT I1\GOTO 190
180 PRINT "FALSCHE EINGABEN "\GOTO 70
190 L2=L2+L\X=X-L\L1=L1+L\GOTO 55
200 PRINT "IHRE ENDZAHLEN:";
210 FOR I1=1 TO 5\PRINT K(I1);\NEXT I1\PRINT
220 FOR I1=1 TO 5\FOR I2=1 TO 6
230 IF K(I1)<>I2 THEN 240\H(I2)=H(I2)+1\GOTO 250
240 NEXT I2\GOTO 180
250 NEXT I1
260 FOR I1=1 TO 6\PRINT H(I1);I1;" MAL"\PRINT
270 NEXT I1
280 PRINT "WIE SOLLEN DIE ZAHLEN GEWERTET WERDEN: ";
290 INPUT C$\IF C$="GO" THEN 690
300 FOR I1=1 TO 6\IF VAL(C$)=I1 THEN 310\NEXT I1\GOTO 330
310 PRINT "SIE WOLLEN ";I1;" ER"
320 S(I1)=H(I1)*I1\U=S(I1)\GOTO 660
330 IF C$<>"3-PASCH" THEN 370\FOR I1=1 TO 6
340 IF H(I1)>=3 THEN 350\NEXT I1\GOTO 700
350 FOR I1=1 TO 5\A1=A1+K(I1)\NEXT I1\S(7)=A1
360 U=A1\PRINT "DREIERPASCH"\GOTO 660
370 IF C$<>"4-PASCH" THEN 410\FOR I1=1 TO 6
380 IF H(I1)>=4 THEN 390\NEXT I1\GOTO 700
390 FOR I1=1 TO 5\A1=A1+K(I1)\NEXT I1\S(8)=A1
400 U=A1\PRINT "VIERERPASCH"\GOTO 660
410 IF C$<>"FULL-HOUSE" THEN 470\FOR I1=1 TO 6
420 IF H(I1)>=3 THEN 430\NEXT I1\GOTO 700
430 D=I1\FOR I1=1 TO 6\IF I1=D THEN 450
440 IF H(I1)>=2 THEN 460
450 NEXT I1\GOTO 700
460 S(9)=25\U=25\PRINT "FULL-HOUSE"\GOTO 660
470 IF C$<>"K-STRASSE" THEN 530\FOR I1=1 TO 6
480 IF H(I1)<>1 THEN 490\NEXT I1
490 Z1=Z1+1\D=I1\FOR I1=1 TO 6\IF I1=D THEN 540
500 IF H(I1)<>1 THEN 505
505 Z1=Z1+1\IF Z1>2 THEN 700
510 NEXT I1\S(10)=30\U=30\D=0\Z1=0
520 PRINT "KLEINE STRASSE"\GOTO 660
530 IF C$<>"G-STRASSE" THEN 560\FOR I1=1 TO 6
540 IF H(I1)<>1 THEN 545\GOTO 547
545 Z1=Z1+1\IF Z1>1 THEN 700
547 NEXT I1
550 S(11)=40\U=40\PRINT "GROSSE STRASSE"\GOTO 660
560 IF C$<>"KNIFFEL" THEN 590\D=H(1)\FOR I1=1 TO 6
570 IF H(I1)=5 THEN 580\NEXT I1\GOTO 700
580 PRINT "KNIFFEL"\S(12)=50\U=50\D=0\GOTO 660
590 IF C$<>"CHANCE" THEN 630\FOR I1=1 TO 5
600 A1=A1+K(I1)\NEXT I1\PRINT
610 S(13)=A1\U=A1\A1=0\PRINT "CHANCE"
620 GOTO 660
630 PRINT "UNBEKANNTE EINGABE"
640 PRINT "SIE HABEN   ";C$;"   EINGEGEBEN"
650 PRINT "NEUE EINGABE"\GOTO 200
660 PRINT "SIE ERHALTEN: ";U;"  PLUSPUNKTE"
670 U=O\A1=0\D=0\I1=0\Z1=0
680 PRINT\PRINT\PRINT\PRINT\PRINT
690 NEXT I\GOTO 720
700 PRINT "DAS GEHT NICHT!!!!!"
710 GOTO 200
720 PRINT "WOLLEN SIE DAS ENDERGEBNIS AUSDRUCKEN LASSEN:    ";
730 INPUT D$\IF D$<>"NEIN" THEN 740\GOTO 2000
740 FOR J=1 TO 6\PRINT J;"ER ";S(J);" PUNKTE"
750 E=E+S(J)\NEXT J\PRINT
755 IF E<63 THEN 760\E=E+35\PRINT
757 PRINT "BONUS   ","35   PUNKTE"
760 PRINT "3-PASCH",S(7);"   PUNKTE"
770 PRINT "4-PASCH",S(8);"   PUNKTE"
780 PRINT "FULL-HOUSE",S(9);"   PUNKTE"
790 PRINT "K-STRASSE",S(10);"   PUNKTE"
800 PRINT "G-STRASSE",S(11);"   PUNKTE"
810 PRINT "KNIFFEL",S(12);"   PUNKTE"
820 PRINT "CHANCE",S(13);"   PUNKTE"
825 FOR J=7 TO 13\E=E+S(J)\NEXT J
830 PRINT\PRINT "GESAMT:   =";E;" PUNKTE"
835 GOSUB 1500
840 FOR M=1 TO 20\PRINT\NEXT M
850 E=0\GOTO 2000
880 PRINT A(I1);\NEXT I1\PRINT\IF Z=3 THEN 200
1000 PRINT "TESTING"
1500 IF E<300 THEN 1520
1510 PRINT "SPITZENLEISTUNG"\RETURN
1520 IF E<250 THEN 1530\PRINT "GUTER DURCHSCHNITT"\RETURN
1530 IF E<200 THEN 1540\PRINT "MITTELMAESSIG"\RETURN
1540 IF E<150 THEN 1550\PRINT "GANZ GUT"\RETURN
1550 IF E<100 THEN 1560\PRINT "EINIGERMASSEN"\RETURN
1560 PRINT "SIE SOLLTEN EIN ANDERES SPIEL WAEHLEN"
1570 PRINT "ODER LESEN SIE SICH DIE SPIELREGELN NOCHEINMAL DURCH"
1580 PRINT
1590 RETURN
2000 PRINT "WOLLEN SIE NOCH EIN SPIEL  ";
2010 INPUT C$\IF C$<>"JA" THEN 2020\GOTO 2400
2020 IF C$<>"NEIN" THEN 2030\GOTO 2500
2030 IF C$<>"YES" THEN 2050\PRINT
2040 PRINT "ICH VERSTEHE ENGLISCH YES=JA"\GOTO 2400
2050 IF C$<>"NO" THEN 2070\PRINT
2060 PRINT "ICH VERSTEHE ENGLISCH NO=NEIN"\GOTO 2500
2070 PRINT "UNBEKANNTE EINGABE"\GOTO 2000
2400 X1=X1+1\IF X1=4 THEN 2450
2410 PRINT "SPIEL";X1\GOTO 20
2450 CHAIN "SYS:KNIFF2.BA"
2500 PRINT TAB(22);"CALL EXIT"\END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search