MEMORY.bc

1000 A=500:GOTO 20:REM MEMORY
1010 DIM NE$(14),EN$(14),FR$(14),DU$(14),LA$(14)
1020 P=0:SU$=", suche zwei Karten aus"
1030 HS=100:HS$="niemand":BS=0:BS$="niemand"
1040 FOR Q=0 TO 14:READ NE$(Q):NEXT Q
1050 FOR Q=0 TO 14:READ EN$(Q):NEXT Q
1060 FOR Q=0 TO 14:READ FR$(Q):NEXT Q
1070 FOR Q=0 TO 14:READ DU$(Q):NEXT Q
1080 FOR Q=0 TO 14:READ LA$(Q):NEXT Q
1090 HL=HO:VL=VE:GOTO 6010:REM MENU
2000 GOSUB 600
2010 CN=0
2020 FOR HO=0 TO 0.99 STEP 0.16666
2030 VE=0:GOSUB 620
2040 VE=0.8:GOSUB 630
2050 NEXT HO
2060 VE=0:HO=0.999:GOSUB 620:VE=0.8:GOSUB 630
2070 FOR VE=0 TO 0.81 STEP 0.16
2080 HO=0:GOSUB 620
2090 HO=0.999:GOSUB 630
2100 NEXT VE
2110 FOR SR=1 TO 30
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 GOSUB 300:GOSUB 650
2150 NEXT SR
2160 RETURN
2500 REM KARTEN MISCHEN
2510 B$=".aabbccddeeffgghhiijjkkllmmnnoo.":B=0
2520 C$=".000000000000000000000000000000."
2530 GOSUB 260:RV=INT(RV*30+1)
2540 B=B+1
2550 IF B>30 THEN RETURN
2560 C$=MID$(C$,1,B)+MID$(B$,RV+1,1)+MID$(C$,B+2,32-B)
2570 IF MID$(B$,RV+1,1)<>"-" THEN 2600
2580 RV=RV+1:IF RV>30 THEN RV=RV-30
2590 GOTO 2560
2600 B$=MID$(B$,1,RV)+"-"+MID$(B$,RV+2,32-RV)
2610 GOTO 2530
3000 REM **TROS**
3010 GOSUB 620:HO=HO+0.03:GOSUB 630:HO=HO-0.015:GOSUB 620
3020 VE=VE+0.07:GOSUB 630:HO=HO+0.023:GOSUB 620:VE=VE-0.07
3030 GOSUB 630:HO=HO+0.03:GOSUB 630:VE=VE+0.035:GOSUB 630
3040 HO=HO-0.03:GOSUB 630:HO=HO+0.03:VE=VE+0.035:GOSUB 630
3050 HO=HO+0.01:GOSUB 620:VE=VE-0.07:GOSUB 630:HO=HO+0.03
3060 GOSUB 630:VE=VE+0.07:GOSUB 630:HO=HO-0.03:GOSUB 630
3070 HO=HO+0.04:GOSUB 620:HO=HO+0.03:GOSUB 630:VE=VE-0.035
3080 GOSUB 630:HO=HO-0.03:GOSUB 630:VE=VE-0.035:GOSUB 630
3090 HO=HO+0.03:GOSUB 630
3100 RETURN
3200 REM **DOSE**
3210 HO=HO+0.03:VE=VE+0.02:GOSUB 620:HO=HO+0.06:GOSUB 630
3220 VE=VE+0.04:GOSUB 630:HO=HO-0.06:GOSUB 630:VE=VE-0.04
3230 GOSUB 630:VE=VE-0.02:HO=HO+0.02:GOSUB 630:HO=HO+0.06
3240 GOSUB 630:VE=VE+0.02:HO=HO-0.02:GOSUB 630:VE=VE-0.02
3250 HO=HO+0.02:GOSUB 620:VE=VE+0.04:GOSUB 630:VE=VE+0.02
3260 HO=HO-0.02:GOSUB 630
3270 HO=HO+0.01:GOSUB 630
3280 RETURN
3400 REM **BUCH**
3410 HO=HO+0.04:VE=VE+0.01:GOSUB 620:VE=VE+0.05:GOSUB 630
3420 HO=HO+0.03:VE=VE+0.02:GOSUB 630:VE=VE-0.05:GOSUB 630
3430 VE=VE-0.02:HO=HO+0.03:GOSUB 630:VE=VE+0.05:GOSUB 630
3440 VE=VE+0.02:HO=HO-0.03:GOSUB 630:VE=VE-0.06:GOSUB 630
3450 VE=VE+0.01:GOSUB 620:HO=HO-0.03:VE=VE-0.02:GOSUB 630
3460 HO=HO+0.01:VE=VE-0.01:GOSUB 630:HO=HO+0.02:VE=VE+0.02
3470 GOSUB 630:HO=HO+0.02:VE=VE-0.02:GOSUB 630:VE=VE+0.01
3480 HO=HO+0.01:GOSUB 630
3490 RETURN
3600 REM **TV**
3610 HO=HO+0.03:GOSUB 620:HO=HO+0.1:GOSUB 630
3620 VE=VE+0.08:GOSUB 630:HO=HO-0.1:GOSUB 630:VE=VE-0.08
3630 GOSUB 630:HO=HO+0.01:VE=VE+0.01:GOSUB 620:HO=HO+0.06
3640 GOSUB 630:VE=VE+0.06:GOSUB 630:HO=HO-0.06:GOSUB 630
3650 VE=VE-0.06:GOSUB 630:HO=HO+0.07:GOSUB 620:HO=HO+0.01
3660 GOSUB 620:VE=VE+0.01:GOSUB 620:HO=HO-0.01:GOSUB 620
3670 VE=VE+0.01:GOSUB 620:HO=HO+0.01:GOSUB 620:HO=HO-0.03
3680 VE=VE-0.03:GOSUB 620:HO=HO+0.02:VE=VE-0.04:GOSUB 630
3690 HO=HO-0.06:GOSUB 620:VE=VE+0.04:HO=HO+0.02:GOSUB 630
3700 RETURN
3800 REM **HAUS**
3810 HO=HO+0.05:VE=VE+0.02:GOSUB 620:HO=HO+0.05:GOSUB 630
3820 VE=VE+0.06:GOSUB 630:HO=HO-0.05:GOSUB 630:VE=VE-0.06
3830 GOSUB 630:HO=HO+0.025:VE=VE-0.06:GOSUB 630:HO=HO+0.025
3840 VE=VE+0.06:GOSUB 630:VE=VE+0.02
3850 GOSUB 620:HO=HO-0.02:GOSUB 630:VE=VE+0.04:GOSUB 630
3860 HO=HO-0.01:VE=VE-0.02:GOSUB 620:HO=HO-0.01:GOSUB 630
3870 VE=VE-0.015
3880 GOSUB 630:HO=HO+0.01:GOSUB 630:VE=VE+0.015:GOSUB 630
3890 HO=HO-0.015
3900 VE=VE-0.065:GOSUB 620:VE=VE-0.03:GOSUB 630:HO=HO+0.01
3910 GOSUB 630:VE=VE+0.015:GOSUB 630
3920 RETURN
4000 REM **SCHUH**
4010 HO=HO+0.04:GOSUB 620:VE=VE+0.07:GOSUB 630:HO=HO+0.08
4020 GOSUB 630:VE=VE-0.01:HO=HO+0.01:GOSUB 630:VE=VE-0.01
4030 GOSUB 630:HO=HO-0.01:VE=VE-0.01:GOSUB 630:HO=HO-0.04
4040 GOSUB 630:VE=VE-0.04:GOSUB 630:HO=HO-0.04:GOSUB 630
4050 RETURN
4200 REM **BLEISTIFT**
4210 HO=HO+0.02:VE=VE+0.02:GOSUB 620:HO=HO+0.08:GOSUB 630
4220 HO=HO+0.03:VE=VE+0.02:GOSUB 630:VE=VE+0.02:HO=HO-0.03
4230 GOSUB 630:HO=HO-0.08:GOSUB 630:VE=VE-0.04:GOSUB 630
4240 RETURN
4400 REM **GLAS**
4410 HO=HO+0.02:VE=VE+0.01:GOSUB 620:VE=VE+0.06:HO=HO+0.02
4420 GOSUB 630:HO=HO+0.03:GOSUB 630:VE=VE-0.06:HO=HO+0.02
4430 GOSUB 630:HO=HO-0.05:VE=VE+0.06:GOSUB 620:HO=HO+0.06
4440 VE=VE-0.08:GOSUB 630:HO=HO+0.02:GOSUB 630:VE=VE-0.01
4450 GOSUB 620:HO=HO-0.025:GOSUB 630:HO=HO-0.06
4460 VE=VE+0.08:GOSUB 630
4470 RETURN
4600 REM **TISCH**
4610 HO=HO+0.03:VE=VE+0.03:GOSUB 620:HO=HO+0.07:GOSUB 630
4620 VE=VE-0.03:HO=HO+0.02:GOSUB 630:HO=HO-0.07:GOSUB 630
4630 HO=HO-0.02:VE=VE+0.03:GOSUB 630:VE=VE+0.05:GOSUB 630
4640 HO=HO+0.07:GOSUB 620:VE=VE-0.05:GOSUB 630:VE=VE-0.03
4650 HO=HO+0.02:GOSUB 620:VE=VE+0.05:GOSUB 630
4660 RETURN
4800 REM **STUHL**
4810 HO=HO+0.05:GOSUB 620:VE=VE+0.08:GOSUB 630:VE=VE-0.04
4820 GOSUB 620:HO=HO+0.04:GOSUB 630:VE=VE+0.04:GOSUB 630
4830 RETURN
5000 REM **PFEIL OBEN**
5010 HO=HO+0.05:VE=VE+0.07:GOSUB 620:HO=HO+0.04:GOSUB 630
5020 VE=VE-0.07:GOSUB 630:HO=HO+0.03:VE=VE+0.03:GOSUB 630
5030 HO=HO-0.05:VE=VE-0.07:GOSUB 630:HO=HO-0.05:VE=VE+0.07
5040 GOSUB 630:VE=VE-0.03:HO=HO+0.03
5050 GOSUB 630:VE=VE+0.07:GOSUB 630
5060 RETURN
5200 REM **PFEIL UNTEN**
5210 HO=HO+0.05:VE=VE-0.04:GOSUB 620:HO=HO+0.04:GOSUB 630
5220 VE=VE+0.07:GOSUB 630:HO=HO+0.03:VE=VE-0.03:GOSUB 630
5230 HO=HO-0.05:VE=VE+0.07:GOSUB 630:HO=HO-0.05:VE=VE-0.07
5240 GOSUB 630:HO=HO+0.03:VE=VE+0.03:GOSUB 630:VE=VE-0.07
5250 GOSUB 630
5260 RETURN
5400 REM **SCHLUESSEL**
5410 HO=HO+0.01:VE=VE+0.03:GOSUB 620:VE=VE+0.04:GOSUB 630
5420 HO=HO+0.04:GOSUB 630:VE=VE-0.01:GOSUB 630:HO=HO+0.09
5430 GOSUB 630:VE=VE-0.02:GOSUB 630
5440 FOR Z=1 TO 2:HO=HO-0.01:GOSUB 630:VE=VE-0.01:GOSUB 630
5450 HO=HO-0.01:GOSUB 630:VE=VE+0.01:GOSUB 630:NEXT Z
5460 HO=HO-0.05:GOSUB 630:VE=VE-0.01:GOSUB 630:HO=HO-0.04
5470 GOSUB 630
5480 RETURN
5490 REM **STERN**
5500 HO=HO+0.04:VE=VE+0.03:GOSUB 620:HO=HO+0.08:GOSUB 630
5510 HO=HO-0.04:VE=VE-0.04:GOSUB 620:VE=VE+0.08:GOSUB 630
5520 HO=HO+0.03:VE=VE-0.01:GOSUB 620:HO=HO-0.06:VE=VE-0.06
5530 GOSUB 630:HO=HO+0.06:GOSUB 620
5540 HO=HO-0.06:VE=VE+0.06:GOSUB 630:
5550 RETURN
5600 REM **FIGUR**
5610 HO=HO+0.03:VE=VE+0.02:GOSUB 620:HO=HO+0.05:VE=VE+0.05
5620 GOSUB 630:HO=HO+0.05:VE=VE-0.05:GOSUB 630:HO=HO-0.05
5630 VE=VE-0.05:GOSUB 630:VE=VE+0.05:HO=HO-0.05:GOSUB 630
5640 VE=VE+0.025:HO=HO+0.025:GOSUB 620:HO=HO+0.05:GOSUB 630
5650 VE=VE-0.05:GOSUB 630:HO=HO-0.05
5660 GOSUB 630:VE=VE+0.05:GOSUB 630:HO=HO+0.025:GOSUB 620
5670 HO=HO+0.025
5680 VE=VE-0.025:GOSUB 630:HO=HO-0.025:VE=VE-0.025:GOSUB 630
5690 VE=VE+0.025:HO=HO-0.025:GOSUB 630:HO=HO+0.025:VE=VE+0.025
5700 GOSUB 630
5710 RETURN
6000 REM **MENU**
6010 GOSUB 100
6020 HO=INT(HL/2)-7:VE=1:GOSUB 110:SR$="MEMORY":GOSUB 150
6030 HO=HO+4:VE=3:GOSUB 110:PRINT "MENU":HO=HO-5:PRINT 
6040 PRINT TAB(HO);"1 - 1 Spieler":PRINT 
6050 PRINT TAB(HO);"2 - 2 Spieler":PRINT 
6060 PRINT TAB(HO);"3 - Hinweise":PRINT 
6070 PRINT TAB(HO);"4 - Ende":PRINT 
6080 HO=1:VE=VL-1:GOSUB 110:PRINT "  Funktion  :";
6090 GOSUB 210
6100 IF IN$="1" THEN NS=1:GOTO 6510
6110 IF IN$="2" THEN NS=2:GOTO 6510
6120 IF IN$="3" THEN 10010
6130 IF IN$="4" THEN 950
6140 GOTO 6090
6500 REM **NAMEN EINGEBEN**
6510 GOSUB 100
6520 PRINT "Name des 1. Spielers:";:INPUT N1$
6530 IF NS=1 THEN 6560
6540 PRINT :PRINT "Name des 2. Spielers:";:INPUT N2$
6550 REM **WORT-ODER BILDSPIELE**
6560 GOSUB 100
6570 PRINT " 1 - Bild-Spiel"
6580 PRINT " 2 - Wort-Spiel"
6590 GOSUB 210
6600 IF IN$="1" THEN PW=20:GOTO 7000
6610 IF IN$="2" THEN 6640
6620 GOTO 6590
6630 REM **WELCHE SPRACHE**
6640 GOSUB 100
6650 PRINT "Worte 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 :INPUT PW:IF (PW<1)OR (PW>15)THEN 6640
7000 GOSUB 2000
7010 AF=0:SR$="Moment, Karten mischen":HO=0.1:VE=0.81
7020 GOSUB 650:GOSUB 2510:REM KARTEN MISCHEN
7030 IF (PW>5)AND (PW<16)THEN GOSUB 11000
7040 CN=1:VE=0.81:HO=0.1:GOSUB 650
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)THEN SR$=N1$+SU$
7080 IF (W=1)AND (NS=2)THEN W=2:GOTO 7110
7090 IF W=1 THEN SR$=N1$+SU$
7100 IF W=2 THEN W=1:SR$=N2$+SU$
7110 GOSUB 650
7120 SR$="Nr 1":HO=0.01:VE=0.87:GOSUB 650
7500 NR$="":GOSUB 7800:N1=VAL(NR$)
7510 GOSUB 9500
7520 SR$="Nr 2":HO=0.01:VE=0.92:GOSUB 650
7530 NR$="":P=1:GOSUB 7800:P=0:N2=VAL(NR$)
7540 GOSUB 9500
7550 SR$="Nr 1":HO=0.01:VE=0.87:CN=1:GOSUB 650
7560 SR$="Nr 2":HO=0.01:VE=0.92:GOSUB 650
7570 SR=N2:GOSUB 300:SR$=MID$(SR$,1,1):HO=0.2:GOSUB 650
7580 SR=N2:GOSUB 300:SR$=MID$(SR$,2,1):HO=0.25:GOSUB 650
7590 SR=N1:GOSUB 300:SR$=MID$(SR$,1,1):HO=0.2:VE=0.87:GOSUB 650
7600 SR=N1:GOSUB 300:SR$=MID$(SR$,2,1):HO=0.25:GOSUB 650:CN=0
7610 IF (N1=N2)OR (N1<1)OR (N1>30)OR (N2<1)OR (N2>30)THEN 7120
7620 IF (MID$(C$,N1+1,1)="*")OR (MID$(C$,N2+1,1)="*")THEN 7120
7630 GOSUB 8500
7640 IF AF=1 THEN 9000
7650 IF NS=1 THEN T1=T1+1
7660 GOTO 7060
7800 GOSUB 210
7810 IF IN<>127 THEN 8000
7820 IF LEN(NR$)=1 THEN SR$=NR$:HO=0.2:CN=1:GOSUB 650:CN=0
7830 IF LEN(NR$)=1 THEN NR$="":GOTO 7800
7840 IF LEN(NR$)=2 THEN SR$=MID$(NR$,2,1):CN=1:HO=0.25:GOSUB 650
7850 IF LEN(NR$)=2 THEN NR$=MID$(NR$,1,1):CN=0:GOTO 7800
7860 GOTO 7800
8000 IF (IN=13)AND (LEN(NR$)>0)THEN 8060
8010 IF (IN<ASC("0"))OR (IN>ASC("9"))THEN 7800
8020 IF LEN(NR$)<2 THEN NR$=NR$+IN$:SR$=IN$
8030 IF LEN(NR$)=1 THEN HO=0.2:GOSUB 650:GOTO 7800
8040 IF LEN(NR$)=2 THEN HO=0.25:GOSUB 650:GOTO 7800
8050 GOTO 7800
8060 NR=VAL(NR$)
8070 IF (NR>30)OR (NR<1)OR (MID$(C$,NR+1,1))="*" THEN 8010
8080 IF P=1 THEN IF NR=N1 THEN 8010
8090 RETURN
8500 VE=0.82:HO=0.1
8510 IF (W=1)AND (NS=2)THEN SR$=N2$+SU$:CN=1
8520 IF (W=1)AND (NS=2)THEN GOSUB 650:CN=0:GOTO 8550
8530 SR$=N1$+SU$:CN=1:GOSUB 650:CN=0
8540 GOTO 8550
8550 IF MID$(C$,N1+1,1)=MID$(C$,N2+1,1)THEN 8620
8560 SR$="Schade, falsch geguckt!":VE=0.87:HO=0.2:GOSUB 650
8570 SV=7:SP=50:SD=10:GOSUB 400:REM SIGNAL
8580 HO=0.2:CN=1:GOSUB 650:CN=0
8590 NR=N1:CN=1:GOSUB 9500
8600 NR=N2:GOSUB 9500:CN=0
8610 GOTO 8700
8620 SR$="Richtig !":VE=0.87
8630 FOR Q=1 TO 3:SV=7:SP=75:SD=2:GOSUB 400:CN=0:GOSUB 650
8640 SP=90:GOSUB 400:CN=1:GOSUB 650:NEXT Q
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)THEN T2=T2+1:W=2:GOTO 8690
8680 IF (NS=2)AND (W=2)THEN T1=T1+1:W=1
8690 IF C$=".******************************." THEN AF=1:RETURN
8700 RETURN
9000 GOSUB 100
9010 FOR R=0 TO HL-1:PRINT "*";:NEXT R
9020 VE=VL-1:HO=0:GOSUB 110:FOR R=0 TO HL-2:PRINT "*";:NEXT R
9030 HO=0:FOR R=1 TO VL-2:VE=R:GOSUB 110:PRINT "*";:NEXT R
9040 HO=HL-1:FOR R=1 TO VL-2:VE=R:GOSUB 110:PRINT "*";:NEXT R
9050 IF NS=2 THEN 9200
9060 VE=5:HO=4:GOSUB 110
9070 PRINT " Du hast alle Karten gefunden,"
9080 HO=INT((HL/2)-(LEN(N1$)/2)):VE=7:GOSUB 110:PRINT N1$
9090 SR=T1:GOSUB 300
9100 HO=7:VE=10:GOSUB 110:SR$="Anzahl der Versuche :"+SR$
9110 GOSUB 150
9120 IF T1<HS THEN HS=T1:HS$=N1$
9130 HO=3:VE=15:GOSUB 110:SR=HS:GOSUB 300
9140 PRINT "Rekord haelt: ";HS$;" ";SR$;" Versuche"
9150 HO=2:VE=VL-2:GOSUB 110:PRINT "eine Taste ..... ";
9160 GOSUB 210:GOTO 6010
9200 HO=3:VE=5:SR=T1:GOSUB 300:SR$=N1$+" :"+SR$+" Punkte"
9210 GOSUB 110:GOSUB 150
9220 HO=3:VE=7:SR=T2:GOSUB 300:SR$=N2$+" :"+SR$+" Punkte"
9230 GOSUB 110:GOSUB 150
9240 HO=5:VE=13:GOSUB 110:PRINT "Gewinner ist :"
9250 IF T1>T2 THEN SR$=N1$:GOTO 9270
9260 SR$=N2$
9270 HO=INT((HL/2)-((LEN(SR$)+6)/2)):VE=15:GOSUB 110
9280 GOSUB 150
9290 IF (T1>T2)AND (T1>BS)THEN BS=T1:BS$=N1$:GOTO 9310
9300 IF T2>BS THEN BS=T2:BS$=N2$
9310 SR=BS:GOSUB 300
9320 HO=3:VE=18:GOSUB 110
9330 PRINT "Rekord haelt: ";BS$;" ";SR$;" Punkte"
9340 GOTO 9150
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 IF PW<>20 THEN 9600
9540 IF Y>9 THEN 9570
9550 ON Y GOSUB 3010,3210,3410,3610,3810,4010,4210,4410,4610
9560 RETURN
9570 Y=Y-9
9580 ON Y GOSUB 4810,5010,5210,5410,5500,5610
9590 Y=Y+9:RETURN
9600 Y=Y-1:IF PW>5 THEN 9670
9610 IF PW=1 THEN SR$=NE$(Y)
9620 IF PW=2 THEN SR$=EN$(Y)
9630 IF PW=3 THEN SR$=FR$(Y)
9640 IF PW=4 THEN SR$=DU$(Y)
9650 IF PW=5 THEN SR$=LA$(Y)
9660 GOSUB 650:RETURN
9670 IF PW>9 THEN 9740
9680 IF MID$(D$,NR+1,1)="1" THEN SR$=NE$(Y):GOTO 9860
9690 IF PW=6 THEN SR$=EN$(Y)
9700 IF PW=7 THEN SR$=FR$(Y)
9710 IF PW=8 THEN SR$=DU$(Y)
9720 IF PW=9 THEN SR$=LA$(Y)
9730 GOTO 9860
9740 IF PW>12 THEN 9800
9750 IF MID$(D$,NR+1,1)="1" THEN SR$=EN$(Y):GOTO 9860
9760 IF PW=10 THEN SR$=FR$(Y)
9770 IF PW=11 THEN SR$=DU$(Y)
9780 IF PW=12 THEN SR$=LA$(Y)
9790 GOTO 9860
9800 IF PW>14 THEN 9840
9810 IF MID$(D$,NR+1,1)="1" THEN SR$=FR$(Y):GOTO 9860
9820 IF PW=13 THEN SR$=DU$(Y)
9830 IF PW=14 THEN SR$=LA$(Y)
9840 IF MID$(D$,NR+1,1)="1" THEN SR$=DU$(Y):GOTO 9860
9850 SR$=LA$(Y)
9860 GOSUB 650:RETURN
10000 REM **BESCHREIBUNG**
10010 GOSUB 100:PRINT TAB(10);"MEMORY"
10020 PRINT :PRINT "Auf dem Bildschirm erscheinen 30 ver-"
10030 PRINT "deckte Karten. Jeweils zwei gehoeren"
10040 PRINT "zusammen. Ziel des Spieles ist es,"
10050 PRINT "moeglichst viele Paerchen aufzudecken."
10060 PRINT "MEMORY kann allein, zu zweit, mit Bild-"
10070 PRINT "oder Wortkarten gespielt werden."
10080 PRINT "Bei den Wortspielen kannst Du zwischen"
10090 PRINT "sechs Sprachen waehlen oder Vokabeln"
10100 PRINT "lernen. (Paerchen zweispachig)"
10110 PRINT "Spielst Du allein, so bemuehe Dich,"
10120 PRINT "mit wenigen Versuchen alle Karten"
10130 PRINT "aufzudecken."
10140 PRINT "Bei zwei Spielern werden dagegen"
10150 PRINT "Punkte verteilt. Egal ob durch Glueck"
10160 PRINT "oder Gedaechtnisleistung, der Finder"
10170 PRINT "darf das Spiel fortsetzen bis er"
10180 PRINT "einen Fehler macht."
10190 PRINT 
10200 HO=HL-15:PRINT TAB(HO);"Edwin Van Waes"
10205 HO=HL-8:PRINT TAB(HO);"dt. U.Z."
10210 VE=VL-1:HO=0:GOSUB 110:PRINT "eine Taste .....";
10220 GOSUB 210:GOTO 6010
11000 D$=".000000000000000000000000000000."
11010 FOR R=1 TO 15
11020 GOSUB 260:RV=INT(RV*30+1)
11030 IF MID$(D$,RV+1,1)="0" THEN 11060
11040 RV=RV+1:IF RV>30 THEN RV=1:GOTO 11030
11050 GOTO 11030
11060 D$=MID$(D$,1,RV)+"1"+MID$(D$,RV+2,32-RV)
11070 X$=MID$(C$,RV+1,1)
11080 RV=RV+1:IF RV=31 THEN RV=1
11090 IF MID$(C$,RV+1,1)=X$ THEN 11110
11100 GOTO 11080
11110 D$=MID$(D$,1,RV)+"2"+MID$(D$,RV+2,32-RV)
11120 NEXT R
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 "Mann","Hund","Feuer","Kopf","Tisch"
25100 DATA "Tag","Tod","Jahr","Wald","Gold","Hand","Gott"
25110 DATA "Tuer","Baum","Meer"
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