15R_Kamertje_verhuren.bc2

1000 A=400:GOTO20
1010 GOSUB100
1020 PRINT"      Kamertje verhuren":PRINT
1030 PRINT"Uw tegenspeler is de computer."
1040 PRINT"Plaats om de beurt een wand."
1050 PRINT"U brengt een kamertje op uw naam,"
1060 PRINT"als u met een vierde wand een"
1070 PRINT"hokje weet af te sluiten."
1080 PRINT"U mag dan een extra zet doen."
1090 PRINT"Wie de meeste hokjes op zijn naam"
1100 PRINT"brengt , heeft gewonnen."
1105 PRINT"De computer wordt gekenmerkt door een $ teken"
1106 PRINT:PRINT
1110 PRINT"Geef de opdrachten bijv. B3L , dwz."
1120 PRINT"rij B , kolom 3 , Links , dus"
1130 PRINT"Rij     kolom   , B(oven) of"
1140 PRINT"                  O(nder) of"
1150 PRINT"                  L(inks) of"
1160 PRINT"                  R(echts)"
1170 PRINT:PRINT"Druk toets ";:GOSUB210:GOSUB100
1180 GOSUB4800
1190 GOSUB4940
1200 GOSUB4990
1210 GOSUB5040
1220 IFLEFT$(B$,1)="$" THEN1540
1230 GOSUB5110
1240 GOSUB5180
1250 GOSUB5230
1260 IFA=1 THENGOSUB250:GOTO1240
1270 GOSUB5330
1280 IFA=1 THENGOSUB250:GOTO1240
1290 GOSUB5460
1300 GOSUB5510
1310 GOSUB5550
1320 GOSUB5650
1330 GOSUB5720
1340 IFB(C)<>15 THEN1390
1350 GOSUB5750
1360 GOSUB5780
1370 GOSUB5820
1380 GOSUB5860
1390 GOSUB5910
1400 IFB=0 THEN1450
1410 GOSUB5750
1420 GOSUB6030
1430 GOSUB5820
1440 GOSUB5860
1450 IFA>0 THEN1500
1460 GOSUB6130
1470 GOSUB6100
1480 IFD=0 THENGOSUB6820:END
1490 GOTO1220
1500 GOSUB6100
1510 IFD=0 THENGOSUB6820:END
1520 IFB$<>"$" THEN1240
1530 GOTO1550
1540 GOSUB5110
1550 GOSUB6160
1560 IFE$="" THEN1730
1570 GOSUB6250
1580 GOSUB5460
1590 GOSUB5510
1600 GOSUB5550
1610 GOSUB5650
1620 GOSUB5780
1630 GOSUB5820
1640 GOSUB5860
1650 GOSUB5720
1660 GOSUB5910
1670 IFB=0 THEN1500
1680 GOSUB5750
1690 GOSUB6030
1700 GOSUB5820
1710 GOSUB5860
1720 GOTO1500
1730 C=1
1740 IFB(C)<>1 THEN2080
1750 GOSUB6500
1760 IFB<>1 THEN1800
1770 E$="R"
1780 GOSUB6430
1790 GOTO1460
1800 GOSUB6540
1810 IFB=1 THEN1860
1820 E$="R"
1830 GOSUB6430
1840 GOSUB6310
1850 GOTO1460
1860 GOSUB6580
1870 IFB=1 THEN1910
1880 E$="O"
1890 GOSUB6430
1900 GOTO1460
1910 GOSUB6620
1920 IFB=1 THEN1970
1930 E$="O"
1940 GOSUB6430
1950 GOSUB6340
1960 GOTO1460
1970 GOSUB6660
1980 IFB<>1 THEN2020
1990 E$="L"
2000 GOSUB6430
2010 GOTO1460
2020 GOSUB6700
2030 IFB=1 THEN4770
2040 E$="L"
2050 GOSUB6430
2060 GOSUB6370
2070 GOTO1460
2080 IFB(C)<>2 THEN2420
2090 GOSUB6580
2100 IFB=1 THEN2140
2110 E$="O"
2120 GOSUB6430
2130 GOTO1460
2140 GOSUB6620
2150 IFB=1 THEN2200
2160 E$="O"
2170 GOSUB6430
2180 GOSUB6340
2190 GOTO1460
2200 GOSUB6660
2210 IFB<>1 THEN2250
2220 E$="L"
2230 GOSUB6430
2240 GOTO1460
2250 GOSUB6700
2260 IFB=1 THEN2310
2270 E$="L"
2280 GOSUB6430
2290 GOSUB6370
2300 GOTO1460
2310 GOSUB6740
2320 IFB=1 THEN2360
2330 E$="B"
2340 GOSUB6430
2350 GOTO1460
2360 GOSUB6780
2370 IFB=1 THEN4770
2380 E$="B"
2390 GOSUB6430
2400 GOSUB6400
2410 GOTO1460
2420 IFB(C)<>4 THEN2760
2430 GOSUB6660
2440 IFB<>1 THEN2480
2450 E$="L"
2460 GOSUB6430
2470 GOTO1460
2480 GOSUB6700
2490 IFB=1 THEN2540
2500 E$="L"
2510 GOSUB6430
2520 GOSUB6370
2530 GOTO1460
2540 GOSUB6740
2550 IFB=1 THEN2590
2560 E$="B"
2570 GOSUB6430
2580 GOTO1460
2590 GOSUB6780
2600 IFB=1 THEN2650
2610 E$="B"
2620 GOSUB6430
2630 GOSUB6400
2640 GOTO1460
2650 GOSUB6500
2660 IFB<>1 THEN2700
2670 E$="R"
2680 GOSUB6430
2690 GOTO1460
2700 GOSUB6540
2710 IFB=1 THEN4770
2720 E$="R"
2730 GOSUB6430
2740 GOSUB6310
2750 GOTO1460
2760 IFB(C)<>8 THEN4770
2770 GOSUB6740
2780 IFB=1 THEN2820
2790 E$="B"
2800 GOSUB6430
2810 GOTO1460
2820 GOSUB6780
2830 IFB=1 THEN2880
2840 E$="B"
2850 GOSUB6430
2860 GOSUB6400
2870 GOTO1460
2880 GOSUB6500
2890 IFB<>1 THEN2930
2900 E$="R"
2910 GOSUB6430
2920 GOTO1460
2930 GOSUB6540
2940 IFB=1 THEN2990
2950 E$="R"
2960 GOSUB6430
2970 GOSUB6310
2980 GOTO1460
2990 GOSUB6580
3000 IFB=1 THEN3040
3010 E$="O"
3020 GOSUB6430
3030 GOTO1460
3040 GOSUB6620
3050 IFB=1 THEN4770
3060 E$="O"
3070 GOSUB6430
3080 GOSUB6340
3090 GOTO1460
3100 C=1
3110 IFB(C)<>0 THEN4750
3120 GOSUB6660
3130 IFB<>1 THEN3170
3140 E$="L"
3150 GOSUB6430
3160 GOTO1460
3170 GOSUB6700
3180 IFB=1 THEN3230
3190 E$="L"
3200 GOSUB6430
3210 GOSUB6370
3220 GOTO1460
3230 GOSUB6740
3240 IFB=1 THEN3280
3250 E$="B"
3260 GOSUB6430
3270 GOTO1460
3280 GOSUB6780
3290 IFB=1 THEN3340
3300 E$="B"
3310 GOSUB6430
3320 GOSUB6400
3330 GOTO1460
3340 GOSUB6500
3350 IFB<>1 THEN3390
3360 E$="R"
3370 GOSUB6430
3380 GOTO1460
3390 GOSUB6540
3400 IFB=1 THEN3450
3410 E$="R"
3420 GOSUB6430
3430 GOSUB6310
3440 GOTO1460
3450 GOSUB6580
3460 IFB=1 THEN3500
3470 E$="O"
3480 GOSUB6430
3490 GOTO1460
3500 GOSUB6620
3510 IFB=1 THEN4750
3520 E$="O"
3530 GOSUB6430
3540 GOSUB6340
3550 GOTO1460
3560 C=1:G=0
3570 IFB(C)<>3 THEN3800
3580 GOSUB6580
3590 IFB=1 THEN3630
3600 E$="O"
3610 GOSUB6430
3620 GOTO1460
3630 GOSUB6620
3640 IF(B=1) AND(G=0) THEN3690
3650 E$="O"
3660 GOSUB6430
3670 GOSUB6340
3680 GOTO1460
3690 GOSUB6660
3700 IFB<>1 THEN3740
3710 E$="L"
3720 GOSUB6430
3730 GOTO1460
3740 GOSUB6700
3750 IF(B=1) AND(G=0) THEN4720
3760 E$="L"
3770 GOSUB6430
3780 GOSUB6370
3790 GOTO1460
3800 IFB(C)<>5 THEN4030
3810 GOSUB6500
3820 IFB<>1 THEN3860
3830 E$="R"
3840 GOSUB6430
3850 GOTO1460
3860 GOSUB6540
3870 IF(B=1) AND(G=0) THEN3920
3880 E$="R"
3890 GOSUB6430
3900 GOSUB6310
3910 GOTO1460
3920 GOSUB6660
3930 IFB<>1 THEN3970
3940 E$="L"
3950 GOSUB6430
3960 GOTO1460
3970 GOSUB6700
3980 IF(B=1) AND(G=0) THEN4720
3990 E$="L"
4000 GOSUB6430
4010 GOSUB6370
4020 GOTO1460
4030 IFB(C)<>9 THEN4260
4040 GOSUB6500
4050 IFB<>1 THEN4090
4060 E$="R"
4070 GOSUB6430
4080 GOTO1460
4090 GOSUB6540
4100 IF(B=1) AND(G=0) THEN4150
4110 E$="R"
4120 GOSUB6430
4130 GOSUB6310
4140 GOTO1460
4150 GOSUB6580
4160 IFB=1 THEN4200
4170 E$="O"
4180 GOSUB6430
4190 GOTO1460
4200 GOSUB6620
4210 IF(B=1) AND(G=0) THEN4720
4220 E$="O"
4230 GOSUB6430
4240 GOSUB6340
4250 GOTO1460
4260 IFB(C)<>6 THEN4490
4270 GOSUB6660
4280 IFB<>1 THEN4320
4290 E$="L"
4300 GOSUB6430
4310 GOTO1460
4320 GOSUB6700
4330 IF(B=1) AND(G=0) THEN4380
4340 E$="L"
4350 GOSUB6430
4360 GOSUB6370
4370 GOTO1460
4380 GOSUB6740
4390 IFB=1 THEN4430
4400 E$="B"
4410 GOSUB6430
4420 GOTO1460
4430 GOSUB6780
4440 IF(B=1) AND(G=0) THEN4720
4450 E$="B"
4460 GOSUB6430
4470 GOSUB6400
4480 GOTO1460
4490 IFB(C)<>10 THEN4720
4500 GOSUB6740
4510 IFB=1 THEN4550
4520 E$="B"
4530 GOSUB6430
4540 GOTO1460
4550 GOSUB6780
4560 IF(B=1) AND(G=0) THEN4610
4570 E$="B"
4580 GOSUB6430
4590 GOSUB6400
4600 GOTO1460
4610 GOSUB6580
4620 IFB=1 THEN4660
4630 E$="O"
4640 GOSUB6430
4650 GOTO1460
4660 GOSUB6620
4670 IF(B=1) AND(G=0) THEN4720
4680 E$="O"
4690 GOSUB6430
4700 GOSUB6340
4710 GOTO1460
4720 C=C+1:IF(C=82) AND(G=0) THENG=1:C=1:GOTO3570
4730 IFC<>82 THEN3570
4740 PRINT"KLOPT IETS NIET":END
4750 C=C+1:IFC=82 THEN3560
4760 GOTO3110
4770 C=C+1:IFC=82 THEN3100
4780 GOTO1740
4800 PRINT"  1  2  3  4  5  6  7  8  9":D=ASC("A")
4810 FORB=1 TO10
4820 PRINT" .  .  .  .  .  .  .  .  .  ."
4830 PRINTCHR$(D+B-1)
4840 NEXTB
4850 VE=0:HO=31:GOSUB110:PRINT"BEURT"
4860 VE=6:GOSUB110:PRINT"SCORE"
4870 VE=7:GOSUB110:PRINT"SPELER"
4880 VE=10:GOSUB110:PRINT"SCORE"
4890 VE=11:GOSUB110:PRINT"COMP."
4900 VE=15:GOSUB110:PRINT"ZET"
4910 VE=16:GOSUB110:PRINT"COMP."
4920 RETURN
4940 DIMB(81),A(1)
4950 FORB=0 TO81:B(B)=0:NEXTB
4960 A(0)=0:A(1)=0
4970 RETURN
4990 VE=20:HO=0:GOSUB110:PRINT"Geef de naam vd speler ";
5000 INPUTA$
5010 GOSUB5140
5020 RETURN
5040 VE=20:HO=0:GOSUB110:PRINT"Wie begint,computer of ";A$;
5050 PRINT" ";:INPUTB$
5060 IFB$="computer" THENB$="$":GOTO5080
5065 IFB$="COMPUTER" THENB$="$":GOTO5080
5070 IFB$<>A$ THEN5040
5080 GOSUB5140
5090 RETURN
5110 VE=1:HO=33:GOSUB110:PRINTLEFT$(B$,1)
5120 RETURN
5140 VE=20:HO=0:GOSUB110:FORB=1 TO39:PRINT" ";:NEXTB
5150 VE=21:HO=0:GOSUB110:FORB=1 TO39:PRINT" ";:NEXTB
5160 RETURN
5180 VE=20:HO=0:GOSUB110:PRINT"Doe een zet ";
5190 INPUTE$
5200 GOSUB5140
5210 RETURN
5230 A=0
5240 IFLEN(E$)<>3 THENA=1:RETURN
5250 D=ASC("A"):E=ASC(LEFT$(E$,1))
5260 IF(E<D) OR(E>D+8) THENA=1:RETURN
5270 E=VAL(MID$(E$,2,1))
5280 IFE<1 THENA=1:RETURN
5290 C$=RIGHT$(E$,1)
5300 IF(C$="B") OR(C$="L") OR(C$="R") OR(C$="O") THENRETURN
5305 A=1
5310 RETURN
5330 A=0
5340 D=ASC("A"):E=ASC(LEFT$(E$,1))
5350 F=((1+E-D)*9-9)+VAL(MID$(E$,2,1))
5360 IFRIGHT$(E$,1)="B" THENC$="0103050709111315"
5370 IFRIGHT$(E$,1)="R" THENC$="0203060710111415"
5380 IFRIGHT$(E$,1)="O" THENC$="0405060712131415"
5390 IFRIGHT$(E$,1)="L" THENC$="0809101112131415"
5400 D=B(F)
5410 FORB=1 TO15 STEP2
5420 IFD=VAL(MID$(C$,B,2)) THENA=1:B=15
5430 NEXTB
5440 RETURN
5460 D=ASC("A"):E=ASC(LEFT$(E$,1))
5470 F=1+E-D
5480 C=(F*9)-9+VAL(MID$(E$,2,1))
5490 RETURN
5510 IFRIGHT$(E$,1)="R" THENC$="!":RETURN
5515 IFRIGHT$(E$,1)="L" THENC$="!":RETURN
5520 C$="__"
5550 D$=RIGHT$(E$,1):D=3*VAL(MID$(E$,2,1))
5560 IFD$="B" THENHO=D-1:VE=(F*2)-1:GOSUB110:GOTO5600
5570 IFD$="O" THENHO=D-1:VE=(F*2)+1:GOSUB110:GOTO5600
5580 IFD$="L" THENHO=D-2:VE=F*2:GOSUB110:GOTO5600
5590 HO=D+1:VE=F*2:GOSUB110
5600 PRINTC$;
5610 IF(D$="O") OR(D$="B") THENRETURN
5620 GOSUB120:HO=HO-1:VE=VE+1:GOSUB110:PRINTC$
5630 RETURN
5650 IFD$="B" THENE=1
5660 IFD$="R" THENE=2
5670 IFD$="O" THENE=4
5680 IFD$="L" THENE=8
5690 B(C)=B(C)+E
5700 RETURN
5720 A=0
5730 RETURN
5750 A=A+1
5760 RETURN
5780 HO=D-1:VE=F*2:GOSUB110
5790 PRINTLEFT$(B$,1)
5800 RETURN
5820 IFB$="$" THENA(0)=A(0)+1:RETURN
5830 A(1)=A(1)+1
5840 RETURN
5860 IFB$<>"$" THEN5880
5870 VE=12:HO=31:GOSUB110:PRINTA(0):RETURN
5880 VE=8:HO=31:GOSUB110:PRINTA(1)
5890 RETURN
5910 B=0
5920 IF(E=1) AND(C>0) AND(C<10) THENRETURN
5930 IF(E=4) AND(C>72) AND(C<82) THENRETURN
5940 IF(E=8) AND((C-1)/9=INT((C-1)/9)) THENRETURN
5950 IF(E=2) AND(C/9=INT(C/9)) THENRETURN
5960 IFE=1 THENE=4:C=C-9:GOTO6000
5970 IFE=2 THENE=8:C=C+1:GOTO6000
5980 IFE=4 THENE=1:C=C+9:GOTO6000
5990 E=2:C=C-1
6000 B(C)=B(C)+E:IFB(C)=15 THENB=1
6010 RETURN
6030 IFE=4 THENVE=(F-1)*2:HO=D-1:GOTO6070
6040 IFE=8 THENHO=D+2:VE=F*2:GOTO6070
6050 IFE=1 THENVE=(F+1)*2:HO=D-1:GOTO6070
6060 HO=D-4:VE=F*2
6070 GOSUB110:PRINTLEFT$(B$,1)
6080 RETURN
6100 IFA(0)+A(1)=81 THEND=0:RETURN
6110 D=1:RETURN
6130 IFB$="$" THENB$=A$:RETURN
6140 B$="$":RETURN
6160 E$=""
6170 FORB=1 TO81
6180 IFB(B)=7 THENE$="L":C=B:B=81:GOTO6220
6190 IFB(B)=11 THENE$="O":C=B:B=81:GOTO6220
6200 IFB(B)=13 THENE$="R":C=B:B=81:GOTO6220
6210 IFB(B)=14 THENE$="B":C=B:B=81
6220 NEXTB
6230 RETURN
6250 D=ASC("A")
6260 SR=C-(INT((C-1)/9)*9):GOSUB300:E$=SR$+E$
6270 E$=CHR$(D+INT((C-1)/9))+E$
6280 HO=31:VE=17:GOSUB110:PRINTE$
6290 RETURN
6310 B(C+1)=B(C+1)+8
6320 RETURN
6340 B(C+9)=B(C+9)+1
6350 RETURN
6370 B(C-1)=B(C-1)+2
6380 RETURN
6400 B(C-9)=B(C-9)+4
6410 RETURN
6430 GOSUB6250
6440 GOSUB5460
6450 GOSUB5510
6460 GOSUB5550
6470 GOSUB5650
6480 RETURN
6500 B=0
6510 IFC/9=INT(C/9) THENB=1
6520 RETURN
6540 B=0
6550 IF(B(C+1)=3) OR(B(C+1)=5) OR(B(C+1)=6) THENB=1
6560 RETURN
6580 B=0
6590 IFC<73 THENB=1
6600 RETURN
6620 B=0
6630 IF(B(C+9)=6) OR(B(C+9)=12) OR(B(C+9)=10) THENB=1
6640 RETURN
6660 B=0
6670 IF(C-1)/9=INT((C-1)/9) THENB=1
6680 RETURN
6700 B=0
6710 IF(B(C-1)=9) OR(B(C-1)=12) OR(B(C-1)=5) THENB=1
6720 RETURN
6740 B=0
6750 IFC>9 THENB=1
6760 RETURN
6780 B=0
6790 IF(B(C-9)=10) OR(B(C-9)=3) OR(B(C-9)=9) THENB=1
6800 RETURN
6820 VE=21:HO=0:GOSUB110:GOSUB250:GOSUB250
6830 IFA(0)>A(1) THENPRINT"De computer ";
6840 IFA(1)>A(0) THENPRINTA$;" ";
6850 PRINT"heeft gewonnen ."
6860 RETURN
30000 REM KAMERTJE VERHUREN
30010 REM P vd Oudenryn
30020 REM Lupineweg 67
30030 REM 2555 RK Den Haag
30040 REM september 1987
30050 REM COPYRIGHT NOS HILVERSUM