10 PRINT"**********************"
16 IFPEEK(50307)<>120THEN1000
30 POKE50257,16:POKE50258,64:POKE50255,PEEK(50255)+1
35 POKE11,076:POKE12,000
40 POKE45,134:POKE46,035
50 POKE47,225:POKE48,035
60 POKE49,163:POKE50,047
70 POKE51,088:POKE52,056
80 POKE53,088:POKE54,056
90 POKE55,000:POKE56,090
100 PRINT"[147]";CHR$(14);CHR$(8):POKE53280,0:POKE53281,0:GOTO1800
1000 PRINT"[147]";CHR$(14);CHR$(8):POKE53280,0:POKE53281,0
1100 REM********* VOKABELN LADEN *******
1200 CLR
1205 GOSUB2100:CLOSE1:CLOSE15
1250 PRINT:PRINTTAB(10)"VOKABELN LADEN"
1300 GOSUB60000:IFEFTHEN1205
1301 IFSA=1ORSA=7THENOPEN1,SA,0,FI$:GOTO1315
1305 OPEN1,SA,2,FI$+",S,R"
1310 GOSUB61000:IFEFTHEN1205
1315 INPUT#1,N
1600 DIMD$(N+53),E$(N+53),D1$(50),E1$(50)
1700 FORI=1TON:INPUT#1,D$(I):INPUT#1,E$(I):NEXTI:CLOSE1:CLOSE15
1800 REM********** HAUPTMENUE **********
1900 GOSUB2100:PRINT"[150]              [200]AUPTMENUE:               "
2000 GOTO2200
2100 PRINT"[147]     [196]ICTIONARY VON [196]IETER [199]EISSLER     ";:RETURN
2200 IFFR=0THENPRINT"[145][146]          [150][196]EUTSCH -> [197]NGLISCH":GOTO2400
2300 PRINT"[145][146]          [197]NGLISCH -> [196]EUTSCH"
2400 PRINT"[145][149][145][176][192][192][174][157][157][157][157][221][198]1[221][157][157][157][157][173][192][192][189][145] _ [196]EUTSCH <=> [197]NGLISCH"
2500 PRINT"[149][145][176][192][192][174][157][157][157][157][221][198]3[221][157][157][157][157][173][192][192][189][145] _ [197]INZELVOKABELN UEBERSETZEN"
2600 PRINT"[149][145][176][192][192][174][157][157][157][157][221][198]5[221][157][157][157][157][173][192][192][189][145] _ [211]ATZ UEBERSETZEN"
2700 PRINT"[149][145][176][192][192][174][157][157][157][157][221][198]7[221][157][157][157][157][173][192][192][189][145] _ [214]OKABELN LERNEN"
2800 PRINT"[149][145][176][192][192][174][157][157][157][157][221][198]2[221][157][157][157][157][173][192][192][189][145] _ NEUE [214]OKABELN EINGEBEN"
2900 PRINT"[149][145][176][192][192][174][157][157][157][157][221][198]4[221][157][157][157][157][173][192][192][189][145] _ [214]OKABELN LADEN"
3000 PRINT"[149][145][176][192][192][174][157][157][157][157][221][198]6[221][157][157][157][157][173][192][192][189][145] _ [214]OKABELN SAVEN"
3100 GETI$
3200 IFI$="[137]"THEN4100:REM F2
3300 IFI$="[133]"ANDFR=1THENFR=0:GOTO1800
3400 IFI$="[133]"ANDFR=0THENFR=1:GOTO1800
3500 IFI$="[134]"THEN8600:REM F3
3600 IFI$="[135]"THEN14100:REM F5
3700 IFI$="[136]"THEN12100:REM F7
3800 IFI$="[138]"THEN1100:REM F4
3900 IFI$="[139]"THEN8100:REM F6
4000 GOTO3100
4100 REM********** NEUE VOK. EINGEBEN **
4200 FORZ=1TO50
4300 GOSUB2100
4400 PRINT"[150]         [206]EUE [214]OKABELN EINGEBEN:        ";
4500 OP = PEEK(51)+PEEK(52)*256-PEEK(49)-PEEK(50)*256
4510 PRINT"[146]         NOCH FREIE [194]YTES:";OP:IFOP<50THEN6300
4600 PRINT"[146][149]         '[210][197][212][213][210][206]' _ ZUM [200]AUPTMENUE"
4700 PRINT"[156]           DEUTSCHE [214]OKABEL:":WX=39:CF=1:GOSUB16700:CF=0:D1$(Z)=S$
4800 IFD1$(Z)=""ANDZ=1THEN1800
4900 IFD1$(Z)=""THEN6300
5000 D$=D1$(Z):GOSUB10700:IFE$="?"THEN5700
5100 PRINT:PRINT"      [150][214]OKABEL IST SCHON VORHANDEN:[146]"
5200 PRINTE$;
5300 IFLEFT$(D$(J+1),L+1)=D$+" "THENJ=J+1:GOSUB11200:PRINT", ";:GOTO5200
5400 PRINT:PRINT"  [159]W[146]=WEITERE [194]EDEUTUNG   N[146]=NEUE [214]OKABEL"
5500 GETA$:IFA$="N"THEN4300
5600 IFA$<>"W"THEN5500
5700 PRINT:PRINT"[156]           ENGLISCHE [214]OKABEL:":WX=39:GOSUB16700:E1$(Z)=S$
5710 IFS$=""THEN5700
5800 PRINT"[152]R[146]=RICHTIGE [197]INGABE  F[146]=FALSCHE [197]INGABE"
5900 GETA$:IFA$="R"THEN6200
6000 IFA$="F"THEN4300
6100 GOTO5900
6200 NEXTZ
6300 REM******** EINSORTIEREN **********
6400 PRINT"[147][194]ITTE WARTEN! [196]IE NEUEN [214]OKABELN WERDEN EINSORTIERT.":Z=Z-1:N=N+Z
6500 FORI=1TOZ
6600 FORD=NTO1STEP-1:IFD$(D)=""THENNEXTD
6700 IFD1$(I)>D$(D)THEN7100
6800 D$(D+1)=D$(D):EN=VAL(RIGHT$(D$(D),4))-1000
6900 E$(EN)=LEFT$(E$(EN),LEN(E$(EN))-5)+STR$(1001+D)
7000 NEXTD
7100 FORE=NTO1STEP-1:IFE$(E)=""THENNEXTE
7200 IFE1$(I)>E$(E)THEN7600
7300 E$(E+1)=E$(E):DN=VAL(RIGHT$(E$(E),4))-1000
7400 HH$=D$(DN)
7410 D$(DN)=LEFT$(HH$,LEN(HH$)-5)+STR$(1001+E)
7500 NEXTE
7600 D$(D+1)=D1$(I)+STR$(1000+E+1)
7700 E$(E+1)=E1$(I)+STR$(1000+D+1)
7800 NEXTI
7900 FORI=1TOZ:E1$(I)="":D1$(I)="":NEXTI
8000 GOTO1800
8100 REM********* VOKABELN SAVEN *******
8110 GOSUB2100:PRINT:CLOSE1:CLOSE15
8150 PRINTTAB(10)"[214]OKABELN SICHERN"
8200 GOSUB60000:IFEFTHENCLOSE1:CLOSE15:GOTO1800
8205 IFSA=1ORSA=7THENOPEN1,SA,1,FI$:GOTO8230
8210 OPEN1,SA,2,"@:"+FI$+",S,W"
8220 GOSUB61000:IFEFTHEN8110
8230 PRINT#1,N
8240 FORI=1TON:PRINT#1,D$(I):PRINT#1,E$(I):NEXTI
8290 CLOSE1:CLOSE15:GOTO1000
8299 REM
8500 GOTO1800
8600 REM*** EINZELVOKABEL UEBERSETZEN **
8700 GOSUB2100
8800 PRINT"[150]         [197]INZELVOKABEL UEBERSETZEN.     "
8900 PRINT"[146][149]        '[210][197][212][213][210][206]' _ ZUM [200]AUPTMENUE":D$="":E$=""
9000 IFFR=1THEN9800
9100 PRINT"               [196]EUTSCH:":WX=39:GOSUB16700:D$=S$:IFD$=""THEN1800
9200 GOSUB10700
9300 PRINT"               [197]NGLISCH:"
9400 IFE$="?"THENPRINT"[156]! [196]IESE [214]OKABEL IST NICHT GESPEICHERT!!![146]":GOTO10400
9500 PRINTE$;
9600 IFLEFT$(D$(J+1),L+1)=D$+" "THENJ=J+1:GOSUB11200:PRINT", ";:GOTO9500
9700 GOTO10400
9800 PRINT"               [197]NGLISCH:":WX=39:GOSUB16700:E$=S$:IFE$=""THEN1800
9900 GOSUB11400
10000 PRINT"               [196]EUTSCH:"
10100 IFD$="?"THENPRINT"[156]! [196]IESE [214]OKABEL IST NICHT GESPEICHERT!!![146]":GOTO10400
10200 PRINTD$;
10300 IFLEFT$(E$(J+1),L+1)=E$+" "THENJ=J+1:GOSUB11900:PRINT", ";:GOTO10200
10400 PRINT:PRINT"[154][215]EITER = [212]ASTE DRUECKEN"
10500 GETI$:IFI$=""THEN10500
10600 GOTO8700
10700 REM******* DEUTSCHT>ENGLISCH ******
10800 I=1
10900 IFI+100<NTHENIFD$>D$(I+100)THENI=I+100:GOTO10900
11000 FORJ=ITOI+100:IFD$(J)=""THENE$="?":RETURN
11100 L=LEN(D$(J))-5:IFD$<>LEFT$(D$(J),L)THENNEXTJ:E$="?":RETURN
11200 EN=VAL(RIGHT$(D$(J),4))-1000
11300 E$=LEFT$(E$(EN),LEN(E$(EN))-5):RETURN
11400 REM******* ENGLISCHT>DEUTSCH *****
11500 I=1
11600 IFI+100<NTHENIFE$>E$(I+100)THENI=I+100:GOTO11600
11700 FORJ=ITOI+100:IFE$(J)=""THEND$="?":RETURN
11800 L=LEN(E$(J))-5:IFE$<>LEFT$(E$(J),L)THENNEXTJ:D$="?":RETURN
11900 DN=VAL(RIGHT$(E$(J),4))-1000
12000 D$=LEFT$(D$(DN),LEN(D$(DN))-5):RETURN
12100 REM******* VOKABELN LERNEN *******
12200 F=0:R=0
12300 GOSUB2100:PRINT"[150]            [214]OKABELN LERNEN             "
12400 PRINT"[146][149]        '[210][197][212][213][210][206]' _ ZUM [200]AUPTMENUE"
12500 PRINT"[154][146]         RICHTIGE [193]NTWORTEN:";R
12600 PRINT"         FALSCHE [193]NTWORTEN :";F;""
12700 IFFR=1THEN13400
12800 D=INT(RND(1)*N+1)
12900 PRINT"[196]EUTSCH: ";LEFT$(D$(D),LEN(D$(D))-5)
13000 E1$="":PRINT"[197]NGLISCH:";:WX=30:GOSUB16700:E1$=S$::IFE1$=""THEN1800
13100 J=D:GOSUB11200
13200 IFE1$<>E$THENPRINT"[147][198]ALSCH!!!":PRINT"[210]ICHTIG IST: ";E$:F=F+1:GOTO14000
13300 GOTO13900
13400 E=INT(RND(1)*N+1)
13500 PRINT"[197]NGLISCH: ";LEFT$(E$(E),LEN(E$(E))-5)
13600 D1$="":PRINT"[196]EUTSCH:";:WX=31:GOSUB16700:D1$=S$:IFD1$=""THEN1800
13700 J=E:GOSUB11900
13800 IFD1$<>D$THENPRINT"[147][198]ALSCH!!!":PRINT"[210]ICHTIG IST: ";D$:F=F+1:GOTO14000
13900 PRINT"[147]                [210]ICHTIG!":R=R+1
14000 FORI=1TO1500:NEXTI:GOTO12300
14100 REM********** SATZ UEBERSETZEN ***
14200 GOSUB2100:PRINT"[150]            [211]ATZ UEBERSETZEN            "
14300 PRINT"[146][149]        '[210][197][212][213][210][206]' _ [211]ATZ UEBERSETZEN"
14400 IFFR=0THENPRINT"[154]DEUTSCHEN [212]EXT (MAX. 6 [218]EILEN) EINGEBEN!":GOTO14600
14500 PRINT"[154]ENGLISCHEN [212]EXT (MAX. 6 [218]EILEN) EINGEBEN"
14600 PRINT"                                        [145][145][145][145][145][145][145]";
14700 WX=239:GOSUB16700
14800 PRINT""
14900 PRINT"[150]             [213]EBERSETZUNG:              [146][146]"
15000 REM*********** UEBERSETZEN *******
15100 S$=S$+" ":LS=LEN(S$):AN=1:IFS$=" "THEN1800
15200 FORII=1TOLS
15300 IFMID$(S$,II,1)<>" "THEN16400
15400 IFFR=1THEN16000
15500 D$=MID$(S$,AN,II-AN)
15600 AN=II+1:GOSUB10700:IFE$="?"THENPRINT"";D$;"[146] ";:GOTO16400
15700 PRINTE$;" ";
15800 IFLEFT$(D$(J+1),L+1)=D$+" "THENJ=J+1:GOSUB11200:PRINT", ";:GOTO15700
15900 GOTO16400
16000 E$=MID$(S$,AN,II-AN)
16100 AN=II+1:GOSUB11400:IFD$="?"THENPRINT"";E$;"[146] ";:GOTO16400
16200 PRINTD$;" ";
16300 IFLEFT$(E$(J+1),L+1)=E$+" "THENJ=J+1:GOSUB11900:PRINT", ";:GOTO16200
16400 NEXTII:PRINT:PRINT"[146][149]        '[212]ASTE' _ NAECHSTER [211]ATZ"
16500 GETI$:IFI$=""THEN16500
16600 GOTO14100
16700 REM*********** INPUT *************
16800 PL=0:S$=""
16900 PRINT" [146][157]";
17000 GETA$:IFA$=""THEN17000
17050 IFA$=" "AND CF THEN17000
17100 IFRIGHT$(S$,1)=" "ANDA$=" "THEN17000
17200 IFA$=" "ANDS$=""THEN17000
17300 IFA$=CHR$(13)THEN18000
17400 IFA$=CHR$(20)ANDPL>0THENS$=LEFT$(S$,PL-1):PL=PL-2:A$="[157]  [157][157]":GOTO17900
17500 IFPL=WXTHEN17000
17600 IFA$=" "THEN17800
17700 IFA$<"A"ORA$>"Z"ANDA$<"[193]"ORA$>"[218]"THEN17000
17800 S$=S$+A$
17900 PRINTA$;:PL=PL+1:GOTO16900
18000 IFRIGHT$(S$,1)=" "THENS$=LEFT$(S$,LEN(S$)-1)
18100 PRINT"_":RETURN
60000 REM
60001 REM TEST AUF DEV.NOT PRESENT
60002 REM UND ANNAHME FILENAME
60005 REM
60007 IFI F=1THENOPEN15,8,15,"I":CLOSE15:I F=0
60010 POKE211,6:POKE214,6:SYS58640
60015 PRINT"[206]AME DES [198]ILES : ";
60020 WX=16:GOSUB16700:FI$=S$
60025 PRINT:PRINT:PRINTTAB(6)"[199]ERAETEADRESSE : ";
60030 POKE204,0:GETA$:IFA$=""THEN60030
60031 POKE204,1:AD=PEEK(209)+PEEK(210)*256+PEEK(211)
60035 IFA$<"1"ORA$>"9"THEN60030
60040 SA=VAL(A$)
60045 IFSA=1THEN60097
60050 IFSA<3THEN60030
60055 IFSA><7THEN60070
60060 IFPEEK(816)=165THEN60030
60065 GOTO60097
60070 CLOSE1:POKE 144,0:OPEN1,SA,1:CLOSE1
60080 IFST<>-128THEN60097
60085 PRINT:PRINT:PRINTTAB(6)"[199]ERAET [206]UMMER"SA"NICHT VORHANDEN!"
60090 FORI=1TO2000:GETA$:IFA$=""THENNEXTI
60095 EF=1:RETURN
60097 PRINTA$:PRINT:PRINTTAB(6)"[194]ITTE WARTEN !":EF=0:RETURN
61000 REM
61010 REM FLOPPY-FEHLERKANAL
61020 REM
61025 EF=0
61030 IFSA<8THENRETURN
61035 OPEN15,SA,15:INPUT#15,F,F$
61040 IFF=0THENRETURN
61045 IFF=74THEN I F =1
61050 PRINT:PRINT:PRINTTAB(6)"*** [198]LOPPYFEHLER : ";F$
61060 GOTO60090