RANDOMIZE DIM H(4), P(4), P2(4), H1(8), P1(8), R(40) PRINT "CHCETE UPRESNIT PRAVIDLA (1=ANO)"; INPUT I IF I NE 1 THEN 30 GOSUB 200 30 X=1 FOR I=1 TO 4: H(I)=0: P(I)=0: NEXT I GOSUB 500 50 X=-X: C=0: D=0 IF X LT 0 THEN 106 GOSUB 1000 FOR I=1 TO 4 IF P(I) LE 40 THEN 90 D=D+1 90 NEXT I IF D NE 4 THEN 50 PRINT "NEDARI SE VAM, VYHRAL JSEM" GOTO 130 106 GOSUB 300 FOR I=1 TO 4 IF H(I) LE 40 THEN 120 C=C+1 120 NEXT I IF C NE 4 THEN 50 PRINT "BLAHOPREJI, ZVITEZIL JSTE" 130 PRINT "ZAHRAJEME SI JESTE ? (1=ANO)"; INPUT I IF I=1 THEN 30 GOTO 1600 200 REM TISK INSTRUKCI PRINT PRINT "HRAJEME ""CLOVECE, NEZLOB SE""" PRINT "VASE FIGURKY JSOU 11,12,13,14; MOJE 21,22,23,24" PRINT "NAPISU VAM HOD A VY URCITE FIGURKU, KTEROU POTAHNETE" PRINT "POKUD NECHCETE NEBO NEMUZETE, NAPISTE ""0""" PRINT "PADNE-LI VAM ""6"" A MATE MOZNOST NASADIT," PRINT "MUSITE TAK UCINIT" PRINT "FIGURKOU NEMUSITE TAHNOUT BEZPROSTREDNE PO NASAZENI" INPUT "MATE PRECTENO ?";I PRINT RETURN 300 REM TAH HRACE 305 A=1+INT(6*RND) 310 PRINT "PADLO VAM ";A; 320 INPUT ", KTEROU FIGURKOU POTAHNETE ?";I IF I=0 THEN 484 I=I-10 IF I=INT(I) THEN 330 PRINT "PSAL JSEM, ZE MATE FIGURKY 11,12,13,14,"; GOTO 320 330 IF I GE 0 THEN 340 GOTO 350 340 IF I LE 4 THEN 360 350 PRINT "KOLIK MYSLITE, ZE MATE FIGUREK ?" GOTO 310 360 FOR J=1 TO 4 IF H(J)=1 THEN 370 NEXT J FOR J=1 TO 4 IF H(J)=0 THEN 380 NEXT J 370 IF H(I)=0 THEN 390 M=H(I)+A GOTO 400 380 IF A NE 6 THEN 370 IF H(I)=0 THEN 385 PRINT "MUSITE NASADIT"; GOTO 320 385 M=1 GOTO 420 390 IF A EQ 6 THEN 395 PRINT "NEPODVADEJTE"; GOTO 320 395 PRINT "CHCETE SE VYHODIT"; GOTO 320 400 FOR K=1 TO 4 IF K=1 THEN 420 IF H(K) NE M THEN 420 PRINT "CHCETE SE VYHODIT"; GOTO 320 420 NEXT K 424 H(I)=M 428 FOR K=1 TO 4 432 IF P(K) GT 40 THEN 456 436 IF P(K) GT 20 THEN 448 440 Q=P(K) + 20 444 GOTO 452 448 Q=P(K) - 20 452 IF Q=H(I) THEN 464 456 NEXT K 460 GOTO 472 464 P(K)=0 468 Q=K+20 470 PRINT "VYHODIL JSTE MI ";Q 472 GOSUB 500 480 IF A=6 THEN 305 484 RETURN 500 REM TISK MAPY 504 FOR I=1 TO 40 508 R(I)=0 512 NEXT I 516 FOR I=1 TO 8 520 H1(I)=0 524 P1(I)=0 528 NEXT I 532 FOR I=1 TO 4 536 IF H(I) GT 40 THEN 556 540 IF H(I)=0 THEN 568 544 K=H(I) 548 R(K)=10+I 552 GOTO 584 556 K=H(I)-36 560 H1(K)=10+I 564 GOTO 584 568 FOR K=1 TO 4 572 IF H1(K)=0 THEN 580 576 NEXT K 580 H1(K)=10+I 584 NEXT I 588 FOR I=1 TO 4 592 IF P(I) GT 40 THEN 624 596 IF P(I)=0 THEN 636 600 IF P(I) GT 20 THEN 612 604 K=P(I)+20 608 GOTO 616 612 K=P(I)-20 616 R(K)=20+I 620 GOTO 652 624 K=P(I)-36 628 P1(K)=20+I 632 GOTO 652 636 FOR K=1 TO 4 640 IF P1(K)=0 THEN 648 644 NEXT K 648 P1(K)=20+I 652 NEXT I 656 PRINT 660 PRINT TAB(31);R(19);TAB(35);R(20);TAB(39);R(21); 664 PRINT TAB(51);P1(1);TAB(55);P1(2) 668 PRINT TAB(31);R(18);TAB(35);P1(5);TAB(39);R(22); 672 PRINT TAB(51);P1(3);TAB(55);P1(4) 676 PRINT TAB(31);R(17);TAB(35);P1(6);TAB(39);R(23) 680 PRINT TAB(31);R(16);TAB(35);P1(7);TAB(39);R(24) 684 PRINT TAB(15);R(11);TAB(19);R(12);TAB(23);R(13); 688 PRINT TAB(27);R(14);TAB(31);R(15);TAB(35);P1(8); 690 PRINT TAB(39);R(25);TAB(43);R(26);TAB(47);R(27); 692 PRINT TAB(51);R(28);TAB(55);R(29) 696 PRINT TAB(15);R(10);TAB(55);R(30) 700 PRINT TAB(15);R(9);TAB(19);R(8);TAB(23);R(7); 704 PRINT TAB(27);R(6);TAB(31);R(5);TAB(35);H1(8); 708 PRINT TAB(39);R(35);TAB(43);R(34);TAB(47);R(33); 710 PRINT TAB(51);R(32);TAB(55);R(31) 712 PRINT TAB(31);R(4);TAB(35);H1(7);TAB(39);R(36) 716 PRINT TAB(31);R(3);TAB(35);H1(6);TAB(39);R(37) 720 PRINT TAB(15);H1(1);TAB(19);H1(2);TAB(31);R(2); 724 PRINT TAB(35);H1(5);TAB(39);R(38) 728 PRINT TAB(15);H1(3);TAB(19);H1(4);TAB(31);R(1); 732 PRINT TAB(35);R(40);TAB(39);R(39) 736 PRINT 740 RETURN 1000 REM TAH POCITACE 1004 A=1+INT(6*RND) 1008 PRINT "PADLO MI ";A; 1012 IF A=6 THEN 1412 1016 REM VYHOZENI 1020 FOR I=1 TO 4 1024 IF P(I)=0 THEN 1064 1028 M=P(I)+A 1032 IF M GT 40 THEN 1064 1036 IF M GT 20 THEN 1048 1040 M1=M+20 1044 GOTO 1052 1048 M1=M-20 1052 FOR K=1 TO 4 1056 IF H(K)=M1 THEN 1456 1060 NEXT K 1064 NEXT I 1068 REM DOMU 1072 FOR I=1 TO 4 1076 M=P(I)+A 1080 IF M GT 44 THEN 1104 1084 IF M LE 40 THEN 1104 1088 FOR K=1 TO 4 1092 IF P(K)=M THEN 1104 1096 NEXT K 1100 GOTO 1472 1104 NEXT I 1112 REM ODCHOD Z "1" 1116 FOR I=1 TO 4 1120 IF P(I) NE 1 THEN 1144 1124 M=P(I)+A 1128 FOR K=1 TO 4 1132 IF P(K)=M THEN 1148 1136 NEXT K 1140 GOTO 1472 1144 NEXT I 1148 REM UTECI (NEJVETSI) 1152 FOR I=1 TO 4 1156 P2(I)=0 1160 NEXT I 1164 FOR I=1 TO 4 1168 IF P(I)=0 THEN 1232 1172 IF P(I) GT 40 THEN 1232 1176 IF P(I) GT 20 THEN 1188 1180 M=P(I)+20 1184 GOTO 1192 1188 M=P(I)-20 1192 B=0 1196 FOR K=1 TO 4 1200 IF H(K)=0 THEN 1216 1204 IF H(K) GT 39 THEN 1216 1208 IF H(K) GT M THEN 1216 1212 IF H(K) GT M-7 THEN 1224 1216 NEXT K 1220 GOTO 1232 1224 B=1 1228 P2(I)=P(I) 1232 NEXT I 1236 IF B=0 THEN 1268 1240 GOSUB 1500 1244 IF L GT 0 THEN 1484 1248 REM NEJVETSI NEPREDBEHNUVSI 1252 FOR I=1 TO 4 1256 LET P2(I)=0 1260 NEXT I 1264 LET B=0 1268 FOR I=1 TO 4 1272 IF P(I)=0 THEN 1328 1276 IF P(I) GT 40 THEN 1328 1280 LET M=P(I)+A 1284 IF M GT 20 THEN 1296 1288 LET M1=M+20 1292 GO TO 1300 1296 LET M1=M-20 1300 FOR K=1 TO 4 1304 IF H(K) GT M1 THEN 1316 1308 IF H(K) LT P(I) THEN 1316 1312 GO TO 1328 1316 NEXT K 1320 LET B=1 1324 LET P2(I)=P(I) 1328 NEXT I 1332 IF B=0 THEN 1344 1336 GOSUB 1500 1340 IF L NE 0 THEN 1484 1344 REM NEJVETSI 1348 LET M1=0 1352 LET L=0 1356 FOR I=1 TO 4 1360 IF P(I)=0 THEN 1396 1364 LET M=P(I)+A 1368 IF M GT 44 THEN 1396 1372 FOR K=1 TO 4 1376 IF M=P(K) THEN 1396 1380 NEXT K 1384 IF M1 GT M THEN 1396 1388 LET M1=M 1392 LET L=I 1396 NEXT I 1400 IF L NE O THEN 1484 1404 PRINT",NEMOHU TAHNOUT" 1408 GO TO 1497 1412 REM NASAZENI 1416 FOR I=1 TO 4 1420 IF P(I)=1 THEN 1016 1424 NEXT I 1428 FOR I=1 TO 4 1432 IF P(I)=O THEN 1444 1436 NEXT I 1440 GO TO 1016 1444 LET P(I)=1 1448 PRINT ",NASADIL JSEM ";I+20 1452 GO TO 1492 1456 LET H(K)=0 1460 LET P(I)=M 1464 PRINT ", TAHL JSEM ";I+20;" A VYHODIL VAM ";K+10 1468 GO TO 1492 1472 LET P(I)=M 1476 PRINT ", TAHL JSEM ";I+20 1480 GO TO 1492 1484 LET P(L)=P(L)+A 1488 PRINT ", TAHL JSEM ";L+20 1492 GOSUB 500 1496 IF A=6 THEN 1004 1497 RETURN 1500 REM VYBER NEJVETSI 1504 LET M1=0 1508 LET L=0 1512 FOR I=1 TO 4 1516 IF P2(I)=0 THEN 1548 1520 IF P2(I)+A GT 44 THEN 1548 1524 IF M1 GT P2(I) THEN 1548 1528 FOR K=1 TO 4 1532 IF P(I)+A=P(K) THEN 1548 1536 NEXT K 1540 LET M1=P(I) 1544 LET L=1 1548 NEXT I 1552 RETURN 1600 REM KONEC PROGRAMU 1604 PRINT 1608 END RANDOMIZE DIM H(4), P(4), P2(4), H1(8), P1(8), R(40) PRINT "CHCETE UPRESNIT PRAVIDLA (1=ANO)"; INPUT I IF I NE 1 THEN 30 GOSUB 200 30 X=1 FOR I=1 TO 4: H(I)=0: P(I)=0: NEXT I GOSUB 500 50 X=-X: C=0: D=0 IF X LT 0 THEN 106 GOSUB 1000 FOR I=1 TO 4 IF P(I) LE 40 THEN 90 D=D+1 90 NEXT I IF D NE 4 THEN 50 PRINT "NEDARI SE VAM, VYHRAL JSEM" GOTO 130 GOSUB 300 FOR I=1 TO 4 IF H(I) LE 40 THEN 120 C=C+1 120 NEXT I IF C NE 4 THEN 50 PRINT "BLAHOPREJI, ZVITEZIL JSTE" 130 PRINT "ZAHRAJEME SI JESTE ? (1=ANO)"; INPUT I IF I=1 THEN 34 GOTO 1600 200 REM TISK INSTRUKCI PRINT PRINT "HRAJEME ""CLOVECE, NEZLOB SE""" PRINT "VASE FIGURKY JSOU 11,12,13,14; MOJE 21,22,23,24" PRINT "NAPISU VAM HOD A VY URCITE FIGURKU, KTEROU POTAHNETE" PRINT "POKUD NECHCETE NEBO NEMUZETE, NAPISTE ""0""" PRINT "PADNE-LI VAM ""6"" A MATE MOZNOST NASADIT," PRINT "MUSITE TAK UCINIT" PRINT "FIGURKOU NEMUSITE TAHNOUT BEZPROSTREDNE PO NASAZENI" INPUT "MATE PRECTENO ?";I PRINT RETURN 300 REM TAH HRACE A=1+INT(6*RND) 310 PRINT "PADLO VAM ";A; 320 INPUT ", KTEROU FIGURKOU POTAHNETE ?";I IF I=0 THEN 450 I=I-10 IF I=INT(I) THEN 330 PRINT "PSAL JSEM, ZE MATE FIGURKY 11,12,13,14,"; GOTO 320 330 IF I GE 0 THEN 340 GOTO 350 340 IF I LE 4 THEN 360 350 PRINT "KOLIK MYSLITE, ZE MATE FIGUREK ?" GOTO 310 360 FOR J=1 TO 4 IF H(J)=1 THEN 370 NEXT J FOR J=1 TO 4 IF H(J)=0 THEN 380 NEXT J 370 IF H(I)=0 THEN 390 M=H(I)+A GOTO 400 380 IF A NE 6 THEN 370 IF H(I)=0 THEN 385 PRINT "MUSITE NASADIT"; GOTO 320 385 M=1 GOTO 420 IF A EQ 6 THEN 395 PRINT "NEPODVADEJTE"; GOTO ??? 395 PRINT "CHCETE SE VYHODIT"; GOTO ??? 400 FOR K=1 TO 4 IF K=1 THEN 420 IF H(K) NE M THEN 420 PRINT "CHCETE SE VYHODIT"; GOTO ??? 420 NEXT K 424 H(I)=M 428 FOR K=1 TO 4 432 IF P(K) GT 40 THEN 456 436 IF P(K) GT 20 THEN 448 440 Q=P(K) + 20 444 GOTO 472 448 Q=P(K) - 20 452 IF Q=H(I) THEN 464 456 NEXT K 460 GOTO 472 464 P(K)=0 468 Q=K+20 470 PRINT "VYHODIL JSTE MI ";Q 472 GOSUB 500 480 IF A=6 THEN 304 484 RETURN 500 REM TISK MAPY 504 FOR I=1 TO 40 508 R(I)=0 512 NEXT I 516 FOR I=1 TO 8 520 H1(I)=0 524 P1(I)=0 528 NEXT I 532 FOR I=1 TO 4 536 IF H(I) GT 40 THEN 556 540 IF H(I)=0 THEN 568 544 K=H(I) 548 R(K)=10+I 552 GOTO 584 556 K=H(I)-36 560 H1(K)=10+I 564 GOTO 584 568 FOR K=1 TO 4 572 IF H1(K)=0 THEN 580 576 NEXT K 580 H1(K)=10+I 584 NEXT I 588 FOR I=1 TO 4 592 IF P(I) GT 40 THEN 624 596 IF P(I)=0 THEN 636 600 IF P(I) GT 20 THEN 612 604 K=P(I)+20 608 GOTO 616 612 K=P(I)+20 616 R(K)=20+I 620 GOTO 652 624 K=P(I)-36 628 P1(K)=20+I 632 GOTO 652 636 FOR K=1 TO 4 640 IF P1(K)=0 THEN 648 644 NEXT K 648 P1(K)=20+I 652 NEXT I 656 PRINT 660 PRINT TAB(31);R(19);TAB(35);R(20);TAB(39);R(21); 664 PRINT TAB(51);P1(1);TAB(55);P1(2) 668 PRINT TAB(31);R(18);TAB(35);P1(5);TAB(39);R(22); 672 PRINT TAB(51);P1(3);TAB(55);P1(4) 676 PRINT TAB(31);R(17);TAB(35);P1(6);TAB(39);R(23) 680 PRINT TAB(31);R(16);TAB(35);P1(7);TAB(39);R(24) 684 PRINT TAB(15);R(11);TAB(19);R(12);TAB(23);R(13); 688 PRINT TAB(27);R(14);TAB(31);R(15);TAB(35);P1(8); 690 PRINT TAB(39);R(25);TAB(43);R(26);TAB(47);R(27); 692 PRINT TAB(51);R(28);TAB(55);R(29) 696 PRINT TAB(15);R(10);TAB(55);R(30) 700 PRINT TAB(15);R(9);TAB(19);R(8);TAB(23);R(7); 704 PRINT TAB(27);R(6);TAB(31);R(5);TAB(35);H1(8); 708 PRINT TAB(39);R(35);TAB(43);R(34);TAB(47);R(33); 710 PRINT TAB(51);R(32);TAB(55);R(31) 712 PRINT TAB(31);R(4);TAB(35);H1(7);TAB(39);R(36) 716 PRINT TAB(31);R(3);TAB(35);H1(6);TAB(39);R(37) 720 PRINT TAB(15);H1(1);TAB(19);H1(2);TAB(31);R(2); 724 PRINT TAB(35);H1(5);TAB(39);R(38) 728 PRINT TAB(15);H1(3);TAB(19);H1(4);TAB(31);R(1); 732 PRINT TAB(35);R(40);TAB(39);R(39) 736 PRINT 740 RETURN 1000 REM TAH POCITACE 1004 A=1+INT(6*RND) 1008 PRINT "PADLO MI ";A; 1012 IF A=6 THEN 1412 1016 REM VYHOZENI 1020 FOR I=1 TO 4 1024 IF P(I)=0 THEN 1064 1028 M=P(I)+A 1032 IF M GT 40 THEN 1064 1036 IF M GT 20 THEN 1048 1040 M1=M+20 1044 GOTO 1052 1048 M1=M-20 1052 FOR K=1 TO 4 1056 IF H(K)=M1 THEN 1456 1060 NEXT K 1064 NEXT I 1068 REM DOMU 1072 FOR I=1 TO 4 1076 M=P(I)+A 1080 IF M GT 44 THEN 1104 1084 IF M LE 40 THEN 1104 1088 FOR K=1 TO 4 1092 IF P(K)=M THEN 1104 1096 NEXT K 1100 GOTO 1472 1104 NEXT I 1112 REM ODCHOD Z "1" 1116 FOR I=1 TO 4 1120 IF P(I) NE 1 THEN 1144 1124 M=P(I)+A 1128 FOR K=1 TO 4 1132 IF P(K)=M THEN 1148 1136 NEXT K 1140 GOTO 1472 1144 NEXT I 1148 REM UTECI (NEJVETSI) 1152 FOR I=1 TO 4 1156 P2(I)=0 1160 NEXT I 1164 FOR I=1 TO 4 1168 IF P(I)=0 THEN 1232 1172 IF P(I) GT 40 THEN 1232 1176 IF P(I) GT 20 THEN 1188 1180 M=P(I)+20 1184 GOTO 1192 1192 B=0 1196 FOR K=1 TO 4 1200 IF H(K)=0 THEN 1216 1204 IF H(K) GT 39 THEN 1216 1208 IF H(K) GT M THEN 1216 1212 IF H(K) GT M-7 THEN 1224 1216 NEXT K 1220 GOTO 1232 1224 B=1 1228 P2(I)=P(I) 1232 NEXT I 1236 IF B=0 THEN 1268 1240 GOSUB 1500 1244 IF L NE 0 THEN 1484 1248 REM NEJVETSI NEPREDBEHNUVSI 1252 FOR I=1 TO 4 1256 LET P2(I)=0 1260 NEXT I 1264 LET B=0 1268 FOR I=1 TO 4 1272 IF P(I)=0 THEN 1328 1276 IF P(I)GT 40 THEN 1328 1280 LET M=P (I)+A 1284 IF M GT 20 THEN 1296 1288 LET M1=M+20 1292 GO TO 1300 1296 LET M1=M-20 1300 FOR K=1 TO 4 1304 IF H(K)GT M1 THEN 1316 1308 IF H(K)LT P(I) THEN 1316 1312 GO TO 1328 1316 NEXT K 1320 LET B=1 1324 LET P2(I)=P(I) 1328 NEXT I 1332 IF B=0 THEN 1344 1336 GOSUB 1500 1340 IF L NE 0 THEN 1484 1344 REM NEJVETSI 1348 LET M1=0 1352 LET L=0 1356 FOR I=1 TO 4 1360 IF P(I)=0 THEN 1396 1364 LET M=P(I)+A 1368 IF M GT 44 THEN 1396 1372 FOR K=1 TO 4 1376 IF M=P(K) THEN 1396 1380 NEXT K 1384 IF M1 GT M THEN 1396 1388 LET M1=M 1392 LET L=I 1396 NEXT I 1400 IF L NE O THEN 1484 1404 PRINT",NEMOHU TAHNOUT" 1408 GO TO 1497 1412 REM NASAZENI 1416 FOR I=1 TO 4 1420 IF P(I)=1 THEN 1016 1424 NEXT I 1428 FOR I=1 TO 4 1432 IF P(I)=O THEN 1444 1436 NEXT I 1440 GO TO 1016 1444 LET P(I)=1 1448 PRINT ",NASADIL JSEM ";I+20 1452 GO TO 1492 1456 LET H(K)=0 1460 LET P(I)=M 1464 PRINT ", TAHL JSEM ";I+20;" A VYHODIL VAM ";K+10 1468 GO TO 1492 1472 LET P(I)=M 1476 PRINT ", TAHL JSEM ";I+20 1480 GO TO 1492 1484 LET P(L)=P(L)+A 1488 PRINT ", TAHL JSEM ";L+20 1492 GOSUB 500 1496 IF A=6 THEN 1004 1497 RETURN 1500 REM VYBER NEJVETSI 1504 LET M1=0 1508 LET L=0 1512 FOR I=1 TO 4 1516 IF P2(I)=0 THEN 1548 1520 IF P2(I)+A GT 44 THEN 1548 1524 IF M1 GT P2(I) THEN 1548 1528 FOR K=1 TO 4 1532 IF P(I)+A=P(K) THEN 1548 1536 NEXT K 1540 LET M1=P(I) 1544 LET L=1 1548 NEXT I 1552 RETURN 1600 REM KONEC PROGRAMU 1604 PRINT 1608 END