1000 A=500:GOTO20:REM MEMORY
1010 DIMNE$(14),EN$(14),FR$(14),DU$(14),LA$(14)
1020 P=0:SU$=", SUCHE ZWEI [203]ARTEN AUS"
1030 HS=100:HS$="NIEMAND":BS=0:BS$="NIEMAND"
1040 FORQ=0 TO14:READNE$(Q):NEXTQ
1050 FORQ=0 TO14:READEN$(Q):NEXTQ
1060 FORQ=0 TO14:READFR$(Q):NEXTQ
1070 FORQ=0 TO14:READDU$(Q):NEXTQ
1080 FORQ=0 TO14:READLA$(Q):NEXTQ
1090 HL=HO:VL=VE:GOTO6010:REM MENU
2000 GOSUB600
2010 CN=0
2020 FORHO=0 TO0.99 STEP0.16666
2030 VE=0:GOSUB620
2040 VE=0.8:GOSUB630
2050 NEXTHO
2060 VE=0:HO=0.999:GOSUB620:VE=0.8:GOSUB630
2070 FORVE=0 TO0.81 STEP0.16
2080 HO=0:GOSUB620
2090 HO=0.999:GOSUB630
2100 NEXTVE
2110 FORSR=1 TO30
2120 SR=SR-1:VE=INT(SR/6+1)*0.16+0.01-0.16:SR=SR+1
2130 SR=SR-1:HO=(SR-((INT(SR/6))*6))*0.166666+0.01:SR=SR+1
2140 GOSUB300:GOSUB650
2150 NEXTSR
2160 RETURN
2500 REM KARTEN MISCHEN
2510 B$=".AABBCCDDEEFFGGHHIIJJKKLLMMNNOO.":B=0
2520 C$=".000000000000000000000000000000."
2530 GOSUB260:RV=INT(RV*30+1)
2540 B=B+1
2550 IFB>30 THENRETURN
2560 C$=MID$(C$,1,B)+MID$(B$,RV+1,1)+MID$(C$,B+2,32-B)
2570 IFMID$(B$,RV+1,1)<>"-" THEN2600
2580 RV=RV+1:IFRV>30 THENRV=RV-30
2590 GOTO2560
2600 B$=MID$(B$,1,RV)+"-"+MID$(B$,RV+2,32-RV)
2610 GOTO2530
3000 REM **TROS**
3010 GOSUB620:HO=HO+0.03:GOSUB630:HO=HO-0.015:GOSUB620
3020 VE=VE+0.07:GOSUB630:HO=HO+0.023:GOSUB620:VE=VE-0.07
3030 GOSUB630:HO=HO+0.03:GOSUB630:VE=VE+0.035:GOSUB630
3040 HO=HO-0.03:GOSUB630:HO=HO+0.03:VE=VE+0.035:GOSUB630
3050 HO=HO+0.01:GOSUB620:VE=VE-0.07:GOSUB630:HO=HO+0.03
3060 GOSUB630:VE=VE+0.07:GOSUB630:HO=HO-0.03:GOSUB630
3070 HO=HO+0.04:GOSUB620:HO=HO+0.03:GOSUB630:VE=VE-0.035
3080 GOSUB630:HO=HO-0.03:GOSUB630:VE=VE-0.035:GOSUB630
3090 HO=HO+0.03:GOSUB630
3100 RETURN
3200 REM **DOSE**
3210 HO=HO+0.03:VE=VE+0.02:GOSUB620:HO=HO+0.06:GOSUB630
3220 VE=VE+0.04:GOSUB630:HO=HO-0.06:GOSUB630:VE=VE-0.04
3230 GOSUB630:VE=VE-0.02:HO=HO+0.02:GOSUB630:HO=HO+0.06
3240 GOSUB630:VE=VE+0.02:HO=HO-0.02:GOSUB630:VE=VE-0.02
3250 HO=HO+0.02:GOSUB620:VE=VE+0.04:GOSUB630:VE=VE+0.02
3260 HO=HO-0.02:GOSUB630
3270 HO=HO+0.01:GOSUB630
3280 RETURN
3400 REM **BUCH**
3410 HO=HO+0.04:VE=VE+0.01:GOSUB620:VE=VE+0.05:GOSUB630
3420 HO=HO+0.03:VE=VE+0.02:GOSUB630:VE=VE-0.05:GOSUB630
3430 VE=VE-0.02:HO=HO+0.03:GOSUB630:VE=VE+0.05:GOSUB630
3440 VE=VE+0.02:HO=HO-0.03:GOSUB630:VE=VE-0.06:GOSUB630
3450 VE=VE+0.01:GOSUB620:HO=HO-0.03:VE=VE-0.02:GOSUB630
3460 HO=HO+0.01:VE=VE-0.01:GOSUB630:HO=HO+0.02:VE=VE+0.02
3470 GOSUB630:HO=HO+0.02:VE=VE-0.02:GOSUB630:VE=VE+0.01
3480 HO=HO+0.01:GOSUB630
3490 RETURN
3600 REM **TV**
3610 HO=HO+0.03:GOSUB620:HO=HO+0.1:GOSUB630
3620 VE=VE+0.08:GOSUB630:HO=HO-0.1:GOSUB630:VE=VE-0.08
3630 GOSUB630:HO=HO+0.01:VE=VE+0.01:GOSUB620:HO=HO+0.06
3640 GOSUB630:VE=VE+0.06:GOSUB630:HO=HO-0.06:GOSUB630
3650 VE=VE-0.06:GOSUB630:HO=HO+0.07:GOSUB620:HO=HO+0.01
3660 GOSUB620:VE=VE+0.01:GOSUB620:HO=HO-0.01:GOSUB620
3670 VE=VE+0.01:GOSUB620:HO=HO+0.01:GOSUB620:HO=HO-0.03
3680 VE=VE-0.03:GOSUB620:HO=HO+0.02:VE=VE-0.04:GOSUB630
3690 HO=HO-0.06:GOSUB620:VE=VE+0.04:HO=HO+0.02:GOSUB630
3700 RETURN
3800 REM **HAUS**
3810 HO=HO+0.05:VE=VE+0.02:GOSUB620:HO=HO+0.05:GOSUB630
3820 VE=VE+0.06:GOSUB630:HO=HO-0.05:GOSUB630:VE=VE-0.06
3830 GOSUB630:HO=HO+0.025:VE=VE-0.06:GOSUB630:HO=HO+0.025
3840 VE=VE+0.06:GOSUB630:VE=VE+0.02
3850 GOSUB620:HO=HO-0.02:GOSUB630:VE=VE+0.04:GOSUB630
3860 HO=HO-0.01:VE=VE-0.02:GOSUB620:HO=HO-0.01:GOSUB630
3870 VE=VE-0.015
3880 GOSUB630:HO=HO+0.01:GOSUB630:VE=VE+0.015:GOSUB630
3890 HO=HO-0.015
3900 VE=VE-0.065:GOSUB620:VE=VE-0.03:GOSUB630:HO=HO+0.01
3910 GOSUB630:VE=VE+0.015:GOSUB630
3920 RETURN
4000 REM **SCHUH**
4010 HO=HO+0.04:GOSUB620:VE=VE+0.07:GOSUB630:HO=HO+0.08
4020 GOSUB630:VE=VE-0.01:HO=HO+0.01:GOSUB630:VE=VE-0.01
4030 GOSUB630:HO=HO-0.01:VE=VE-0.01:GOSUB630:HO=HO-0.04
4040 GOSUB630:VE=VE-0.04:GOSUB630:HO=HO-0.04:GOSUB630
4050 RETURN
4200 REM **BLEISTIFT**
4210 HO=HO+0.02:VE=VE+0.02:GOSUB620:HO=HO+0.08:GOSUB630
4220 HO=HO+0.03:VE=VE+0.02:GOSUB630:VE=VE+0.02:HO=HO-0.03
4230 GOSUB630:HO=HO-0.08:GOSUB630:VE=VE-0.04:GOSUB630
4240 RETURN
4400 REM **GLAS**
4410 HO=HO+0.02:VE=VE+0.01:GOSUB620:VE=VE+0.06:HO=HO+0.02
4420 GOSUB630:HO=HO+0.03:GOSUB630:VE=VE-0.06:HO=HO+0.02
4430 GOSUB630:HO=HO-0.05:VE=VE+0.06:GOSUB620:HO=HO+0.06
4440 VE=VE-0.08:GOSUB630:HO=HO+0.02:GOSUB630:VE=VE-0.01
4450 GOSUB620:HO=HO-0.025:GOSUB630:HO=HO-0.06
4460 VE=VE+0.08:GOSUB630
4470 RETURN
4600 REM **TISCH**
4610 HO=HO+0.03:VE=VE+0.03:GOSUB620:HO=HO+0.07:GOSUB630
4620 VE=VE-0.03:HO=HO+0.02:GOSUB630:HO=HO-0.07:GOSUB630
4630 HO=HO-0.02:VE=VE+0.03:GOSUB630:VE=VE+0.05:GOSUB630
4640 HO=HO+0.07:GOSUB620:VE=VE-0.05:GOSUB630:VE=VE-0.03
4650 HO=HO+0.02:GOSUB620:VE=VE+0.05:GOSUB630
4660 RETURN
4800 REM **STUHL**
4810 HO=HO+0.05:GOSUB620:VE=VE+0.08:GOSUB630:VE=VE-0.04
4820 GOSUB620:HO=HO+0.04:GOSUB630:VE=VE+0.04:GOSUB630
4830 RETURN
5000 REM **PFEIL OBEN**
5010 HO=HO+0.05:VE=VE+0.07:GOSUB620:HO=HO+0.04:GOSUB630
5020 VE=VE-0.07:GOSUB630:HO=HO+0.03:VE=VE+0.03:GOSUB630
5030 HO=HO-0.05:VE=VE-0.07:GOSUB630:HO=HO-0.05:VE=VE+0.07
5040 GOSUB630:VE=VE-0.03:HO=HO+0.03
5050 GOSUB630:VE=VE+0.07:GOSUB630
5060 RETURN
5200 REM **PFEIL UNTEN**
5210 HO=HO+0.05:VE=VE-0.04:GOSUB620:HO=HO+0.04:GOSUB630
5220 VE=VE+0.07:GOSUB630:HO=HO+0.03:VE=VE-0.03:GOSUB630
5230 HO=HO-0.05:VE=VE+0.07:GOSUB630:HO=HO-0.05:VE=VE-0.07
5240 GOSUB630:HO=HO+0.03:VE=VE+0.03:GOSUB630:VE=VE-0.07
5250 GOSUB630
5260 RETURN
5400 REM **SCHLUESSEL**
5410 HO=HO+0.01:VE=VE+0.03:GOSUB620:VE=VE+0.04:GOSUB630
5420 HO=HO+0.04:(null)QUB630:VE=VE-0.01:GOSUB630:HO=HO+0.09
5430 GOSUB630:VE=VE-0.02:GOSUB630
5440 FORZ=1 TO2:HO=HO-0.01:GOSUB630:VE=VE-0.01:GOSUB630
5450 HO=HO-0.01:GOSUB630:VE=VE+0.01:GOSUB630:NEXTZ
5460 HO=HO-0.05:GOSUB630:VE=VE-0.01:GOSUB630:HO=HO-0.04
5470 GOSUB630
5480 RETURN
5490 REM **STERN**
5500 HO=HO+0.04:VE=VE+0.03:GOSUB620:HO=HO+0.08:GOSUB630
5510 HO=HO-0.04:VE=VE-0.04:GOSUB620:VE=VE+0.08:GOSUB630
5520 HO=HO+0.03:VE=VE-0.01:GOSUB620:HO=HO-0.06:VE=VE-0.06
5530 GOSUB630:HO=HO+0.06:GOSUB620
5540 HO=HO-0.06:VE=VE+0.06:GOSUB630:
5550 RETURN
5600 REM **FIGUR**
5610 HO=HO+0.03:VE=VE+0.02:GOSUB620:HO=HO+0.05:VE=VE+0.05
5620 GOSUB630:HO=HO+0.05:VE=VE-0.05:GOSUB630:HO=HO-0.05
5630 VE=VE-0.05:GOSUB630:VE=VE+0.05:HO=HO-0.05:GOSUB630
5640 VE=VE+0.025:HO=HO+0.025:GOSUB620:HO=HO+0.05:GOSUB630
5650 VE=VE-0.05:GOSUB630:HO=HO-0.05
5660 GOSUB630:VE=VE+0.05:GOSUB630:HO=HO+0.025:GOSUB620
5670 HO=HO+0.025
5680 VE=VE-0.025:GOSUB630:HO=HO-0.025:VE=VE-0.025:GOSUB630
5690 VE=VE+0.025:HO=HO-0.025:GOSUB630:HO=HO+0.025:VE=VE+0.025
5700 GOSUB630
5710 RETURN
6000 REM **MENU**
6010 GOSUB100
6020 HO=INT(HL/2)-7:VE=1:GOSUB110:SR$="[205][197][205][207][210][217]":GOSUB150
6030 HO=HO+4:VE=3:GOSUB110:PRINT"[205][197][206][213]":HO=HO-5:PRINT
6040 PRINTTAB(HO);"1 - 1 [211]PIELER":PRINT
6050 PRINTTAB(HO);"2 - 2 [211]PIELER":PRINT
6060 PRINTTAB(HO);"3 - [200]INWEISE":PRINT
6070 PRINTTAB(HO);"4 - [197]NDE":PRINT
6080 HO=1:VE=VL-1:GOSUB110:PRINT"  [198]UNKTION  :";
6090 GOSUB210
6100 IFIN$="1" THENNS=1:GOTO6510
6110 IFIN$="2" THENNS=2:GOTO6510
6120 IFIN$="3" THEN10010
6130 IFIN$="4" THEN950
6140 GOTO6090
6500 REM **NAMEN EINGEBEN**
6510 GOSUB100
6520 PRINT"[206]AME DES 1. [211]PIELERS:";:INPUTN1$
6530 IFNS=1 THEN6560
6540 PRINT:PRINT"[206]AME DES 2. [211]PIELERS:";:INPUTN2$
6550 REM **WORT-ODER BILDSPIELE**
6560 GOSUB100
6570 PRINT" 1 - [194]ILD-[211]PIEL"
6580 PRINT" 2 - [215]ORT-[211]PIEL"
6590 GOSUB210
6600 IFIN$="1" THENPW=20:GOTO7000
6610 IFIN$="2" THEN6640
6620 GOTO6590
6630 REM **WELCHE SPRACHE**
6640 GOSUB100
6650 PRINT"[215]ORTE IN: 1 - NIEDERLAENDISCH"
6660 PRINT"          2 - ENGLISCH"
6670 PRINT"          3 - FRANZOESISCH"
6680 PRINT"          4 - DEUTSCH"
6690 PRINT"          5 - LATEINISCH"
6700 PRINT"          6 - NIEDERL.UND ENGLISCH"
6710 PRINT"          7 - NIEDERL.UND FRANZOESISCH"
6720 PRINT"          8 - NIEDERL.UND DEUTSCH"
6730 PRINT"          9 - NIEDERL.UND LATEINISCH"
6740 PRINT"         10 - ENGLISCH UND FRANZOESISCH"
6750 PRINT"         11 - ENGLISCH UND DEUTSCH"
6760 PRINT"         12 - ENGLISCH UND LATEINISCH"
6770 PRINT"         13 - FRANZOESISCH UND DEUTSCH"
6780 PRINT"         14 - FRANZOESISCH UND LQTEIN."
6790 PRINT"         15 - DEUTSCH UND LATEINISCH"
6800 PRINT:INPUTPW:IF(PW<1)OR(PW>15) THEN6640
7000 GOSUB2000
7010 AF=0:SR$="[205]OMENT, [203]ARTEN MISCHEN":HO=0.1:VE=0.81
7020 GOSUB650:GOSUB2510:REM KARTEN MISCHEN
7030 IF(PW>5)AND(PW<16) THEN GOSUB11000
7040 CN=1:VE=0.81:HO=0.1:GOSUB650
7050 CN=0:T1=0:T2=0:W=1
7060 CN=0:HO=0.1:VE=0.82
7070 IF(W=1)AND(NS=2) THENSR$=N1$+SU$
7080 IF(W=1)AND(NS=2) THENW=2:GOTO7110
7090 IFW=1 THENSR$=N1$+SU$
7100 IFW=2 THENW=1:SR$=N2$+SU$
7110 GOSUB650
7120 SR$="[206]R 1":HO=0.01:VE=0.87:GOSUB650
7500 NR$="":GOSUB7800:N1=VAL(NR$)
7510 GOSUB9500
7520 SR$="[206]R 2":HO=0.01:VE=0.92:GOSUB650
7530 NR$="":P=1:GOSUB7800:P=0:N2=VAL(NR$)
7540 GOSUB9500
7550 SR$="[206]R 1":HO=0.01:VE=0.87:CN=1:GOSUB650
7560 SR$="[206]R 2":HO=0.01:VE=0.92:GOSUB650
7570 SR=N2:GOSUB300:SR$=MID$(SR$,1,1):HO=0.2:GOSUB650
7580 SR=N2:GOSUB300:SR$=MID$(SR$,2,1):HO=0.25:GOSUB650
7590 SR=N1:GOSUB300:SR$=MID$(SR$,1,1):HO=0.2:VE=0.87:GOSUB650
7600 SR=N1:GOSUB300:SR$=MID$(SR$,2,1):HO=0.25:GOSUB650:CN=0
7610 IF(N1=N2)OR(N1<1)OR(N1>30)OR(N2<1)OR(N2>30) THEN7120
7620 IF(MID$(C$,N1+1,1)="*")OR(MID$(C$,N2+1,1)="*") THEN7120
7630 GOSUB8500
7640 IFAF=1 THEN9000
7650 IFNS=1 THENT1=T1+1
7660 GOTO7060
7800 GOSUB210
7810 IFIN<>127 THEN8000
7820 IFLEN(NR$)=1 THENSR$=NR$:HO=0.2:CN=1:GOSUB650:CN=0
7830 IFLEN(NR$)=1 THENNR$="":GOTO7800
7840 IFLEN(NR$)=2 THENSR$=MID$(NR$,2,1):CN=1:HO=0.25:GOSUB650
7850 IFLEN(NR$)=2 THENNR$=MID$(NR$,1,1):CN=0:GOTO7800
7860 GOTO7800
8000 IF(IN=13)AND(LEN(NR$)>0) THEN8060
8010 IF(IN<ASC("0"))OR(IN>ASC("9")) THEN7800
8020 IFLEN(NR$)<2 THENNR$=NR$+IN$:SR$=IN$
8030 IFLEN(NR$)=1 THENHO=0.2:GOSUB650:GOTO7800
8040 IFLEN(NR$)=2 THENHO=0.25:GOSUB650:GOTO7800
8050 GOTO7800
8060 NR=VAL(NR$)
8070 IF(NR>30)OR(NR<1)OR(MID$(C$,NR+1,1))="*" THEN8010
8080 IFP=1 THENIFNR=N1 THEN8010
8090 RETURN
8500 VE=0.82:HO=0.1
8510 IF(W=1)AND(NS=2) THENSR$=N2$+SU$:CN=1
8520 IF(W=1)AND(NS=2) THEN GOSUB650:CN=0:GOTO8550
8530 SR$=N1$+SU$:CN=1:GOSUB650:CN=0
8540 GOTO8550
8550 IFMID$(C$,N1+1,1)=MID$(C$,N2+1,1) THEN8620
8560 SR$="[211]CHADE, FALSCH GEGUCKT!":VE=0.87:HO=0.2:GOSUB650
8570 SV=7:SP=50:SD=10:GOSUB400:REM SIGNAL
8580 HO=0.2:CN=1:GOSUB650:CN=0
8590 NR=N1:CN=1:GOSUB9500
8600 NR=N2:GOSUB9500:CN=0
8610 GOTO8700
8620 SR$="[210]ICHTIG !":VE=0.87
8630 FORQ=1 TO3:SV=7:SP=75:SD=2:GOSUB400:CN=0:GOSUB650
8640 SP=90:GOSUB400:CN=1:GOSUB650:NEXTQ
8650 C$=MID$(C$,1,N1)+"*"+MID$(C$,N1+2,32-N1)
8660 C$=MID$(C$,1,N2)+"*"+MID$(C$,N2+2,32-N2)
8670 IF(NS=2)AND(W=1) THENT2=T2+1:W=2:GOTO8690
8680 IF(NS=2)AND(W=2) THENT1=T1+1:W=1
8690 IFC$=".******************************." THENAF=1:RETURN
8700 RETURN
9000 GOSUB100
9010 FORR=0 TOHL-1:PRINT"*";:NEXTR
9020 VE=VL-1:HO=0:GOSUB110:FORR=0 TOHL-2:PRINT"*";:NEXTR
9030 HO=0:FORR=1 TOVL-2:VE=R:GOSUB110:PRINT"*";:NEXTR
9040 HO=HL-1:FORR=1 TOVL-2:VE=R:GOSUB110:PRINT"*";:NEXTR
9050 IFNS=2 THEN9200
9060 VE=5:HO=4:GOSUB110
9070 PRINT" [196]U HAST ALLE [203]ARTEN GEFUNDEN,"
9080 HO=INT((HL/2)-(LEN(N1$)/2)):VE=7:GOSUB110:PRINTN1$
9090 SR=T1:GOSUB300
9100 HO=7:VE=10:GOSUB110:SR$="[193]NZAHL DER [214]ERSUCHE :"+SR$
9110 GOSUB150
9120 IFT1<HS THENHS=T1:HS$=N1$
9130 HO=3:VE=15:GOSUB110:SR=HS:GOSUB300
9140 PRINT"[210]EKORD HAELT: ";HS$;" ";SR$;" [214]ERSUCHE"
9150 HO=2:VE=VL-2:GOSUB110:PRINT"EINE [212]ASTE ..... ";
9160 GOSUB210:GOTO6010
9200 HO=3:VE=5:SR=T1:GOSUB300:SR$=N1$+" :"+SR$+" [208]UNKTE"
9210 GOSUB110:GOSUB150
9220 HO=3:VE=7:SR=T2:GOSUB300:SR$=N2$+" :"+SR$+" [208]UNKTE"
9230 GOSUB110:GOSUB150
9240 HO=5:VE=13:GOSUB110:PRINT"[199]EWINNER IST :"
9250 IFT1>T2 THENSR$=N1$:GOTO9270
9260 SR$=N2$
9270 HO=INT((HL/2)-((LEN(SR$)+6)/2)):VE=15:GOSUB110
9280 GOSUB150
9290 IF(T1>T2)AND(T1>BS) THENBS=T1:BS$=N1$:GOTO9310
9300 IFT2>BS THENBS=T2:BS$=N2$
9310 SR=BS:GOSUB300
9320 HO=3:VE=18:GOSUB110
9330 PRINT"[210]EKORD HAELT: ";BS$;" ";SR$;" [208]UNKTE"
9340 GOTO9150
9500 NR=NR-1:VE=INT(NR/6+1)*0.16+0.07-0.16
9510 HO=(NR-((INT(NR/6))*6))*0.166666+0.01:NR=NR+1
9520 Y$=MID$(C$,NR+1,1):Y=ASC(Y$)-ASC("A")+1
9530 IFPW<>20 THEN9600
9540 IFY>9 THEN9570
9550 ONY GOSUB3010,3210,3410,3610,3810,4010,4210,4410,4610
9560 RETURN
9570 Y=Y-9
9580 ONY GOSUB4810,5010,5210,5410,5500,5610
9590 Y=Y+9:RETURN
9600 Y=Y-1:IFPW>5 THEN9670
9610 IFPW=1 THENSR$=NE$(Y)
9620 IFPW=2 THENSR$=EN$(Y)
9630 IFPW=3 THENSR$=FR$(Y)
9640 IFPW=4 THENSR$=DU$(Y)
9650 IFPW=5 THENSR$=LA$(Y)
9660 GOSUB650:RETURN
9670 IFPW>9 THEN9740
9680 IFMID$(D$,NR+1,1)="1" THENSR$=NE$(Y):GOTO9860
9690 IFPW=6 THENSR$=EN$(Y)
9700 IFPW=7 THENSR$=FR$(Y)
9710 IFPW=8 THENSR$=DU$(Y)
9720 IFPW=9 THENSR$=LA$(Y)
9730 GOTO9860
9740 IFPW>12 THEN9800
9750 IFMID$(D$,NR+1,1)="1" THENSR$=EN$(Y(:GOTO9860
9760 IFPW=10 THENSR$=FR$(Y)
9770 IFPW=11 THENSR$=DU$(Y)
9780 IFPW=12 THENSR$=LA$(Y)
9790 GOTO9860
9800 IFPW>14 THEN9840
9810 IFMID$(D$,NR+1,1)="1" THENSR$=FR$(Y):GOTO9860
9820 IFPW=13 THENSR$=DU$(Y)
9830 IFPW=14 THENSR$=LA$(Y)
9840 IFMID$(D$,NR+1,1)="1" THENSR$=DU$(Y):GOTO9860
9850 SR$=LA$(Y)
9860 GOSUB650:RETURN
10000 REM **BESCIREIBUNG**
10010 GOSUB100:PRINTTAB(10);"[205][197][205][207][210][217]"
10020 PRINT:PRINT"[193]UF DEM [194]ILDSCHIRM ERSCHEINEN 30 VER-"
10030 PRINT"DECKTE [203]ARTEN. [202]EWEILS ZWEI GEHOEREN"
10040 PRINT"ZUSAMMEN. [218]IEL DES [211]PIELES IST ES,"
10050 PRINT"MOEGLICHST VIELE [208]AERCHEN AUFZUDECKEN."
10060 PRINT"[205][197][205][207][210][217] KANN ALLEIN, ZU ZWEIT, MIT [194]ILD-"
10070 PRINT"ODER [215]ORTKARTEN GESPIELT WERDEN."
10080 PRINT"[194]EI DEN [215]ORTSPIELEN KANNST [196]U ZWISCHEN"
10090 PRINT"SECHS [211]PRACHEN WAEHLEN ODER [214]OKABELN"
10100 PRINT"LERNEN. ([208]AERCHEN ZWEISPACHIG)"
10110 PRINT"[211]PIELST [196]U ALLEIN, SO BEMUEHE [196]ICH,"
10120 PRINT"MIT WENIGEN [214]ERSUCHEN ALLE [203]ARTEN"
10130 PRINT"AUFZUDECKEN."
10140 PRINT"[194]EI ZWEI [211]PIELERN WERDEN DAGEGEN"
10150 PRINT"[208]UNKTE VERTEHLT. [197]GAL OB DURCH [199]LUECK"
10160 PRINT"ODER [199]EDAECHTNISLEISTUNG, DER [198]INDER"
10170 PRINT"DARF DAS [211]PIEL FORTSETZEN BIS ER"
10180 PRINT"EINEN [198]EHLER MACHT."
10190 PRINT
10200 HO=HL-15:PRINTTAB(HO);"[197]DWIN [214]AN [215]AES"
10205 HO=HL-8:PRINTTAB(HO);"DT. [213].[218]."
10210 VE=VL-1:HO=0:GOSUB110:PRINT"EINE [212]ASTE .....";
10220 GOSUB210:GOTO6010
11000 D$=".000000000000000000000000000000."
11010 FORR=1 TO15
11020 GOSUB260:RV=INT(RV*30+1)
11030 IFMID$(D$,RV+1,1)="0" THEN11060
11040 RV=RV+1:IFRV>30 THENRV=1:GOTO11030
11050 GOTO11030
11060 D$=MID$(D$,1,RV)+"1"+MID$(D$,RV+2,32-RV)
11070 X$=MID$(C$,RV+1,1)
11080 RV=RV+1:IFRV=31 THENRV=1
11090 IFMID$(C$,RV+1,1)=X$ THEN11110
11100 GOTO11080
11110 D$=MID$(D$,1,RV)+"2"+MID$(D$,RV+2,32-RV)
11120 NEXTR
11130 RETURN
25000 DATA"MAN","HOND","VUUR","HOOFD","TAFEL","DAG","DOOD"
25010 DATA"JAAR","BOS","GOUD","HAND","GOD","DEUR","BOOM"
25020 DATA"ZEE"
25030 DATA"MAN","DOG","FIRE","HEAD","TABLE","DAY","DEAD"
25040 DATA"YEAR","WOOD","GOLD","HAND","GOD","DOOR","TREE"
25050 DATA"SEA"
25060 DATA"HOMME","CHIEN","FEU","TETE","TABLE","JOUR"
25070 DATA"MORT","ANNEE","BOIS","OR","MAIN","DIEU","PORTE"
25080 DATA"ARBRE","MER"
25090 DATA"[205]ANN","[200]UND","[198]EUER","[203]OPF","[212]ISCH"
25100 DATA"[212]AG","[212]OD","[202]AHR","[215]ALD","[199]OLD","[200]AND","[199]OTT"
25110 DATA"[212]UER","[194]AUM","[205]EER"
25120 DATA"VIR","CANIS","IGNIS","CAPUT","MENSA","DIES"
25130 DATA"MORS","ANNUS","SILVA","AURUM","PALMA","DEUS"
25140 DATA"IANUA","ARBOR","MARE"
32000 REM ******************************
32010 REM *          MEMORY            *
32020 REM *         --------           *
32030 REM * GEMAAKT OP EEN CBM-64 DOOR *
32040 REM *                            *
32050 REM *  EDWIN VAN WAES (13 JAAR)  *
32060 REM *                            *
32070 REM * EINDHOVEN          23-1-88 *
32080 REM *                            *
32090 REM * DEUTSCH AUF KC85/4 VON     *
32100 REM * UWE ZIEROTT/LEHNIN 24-8-89 *
32110 REM ******************************
32120 REM 
32130 REM -COMPUTERNACHT 15/16.9.89
32140 REM    ACORN-MASTER