10 PRINT"[147]":POKE53272,23
20 A=0:B=0
30 PRINT:PRINT:PRINT:PRINT"          [214][160][207][160][203][160][193][160][194][160][197][160][204][160]-[160][212][160][197][160][211][160][212]     [146]":GOSUB50000
40 PRINT:PRINT:PRINT:PRINT"[201]CH NENNE [196]IR NACHFOLGEND EINIGE"
50 PRINT:PRINT"ENGLISCHE [215]OERTER, ZU DENEN [196]U MIR"
60 PRINT:PRINT"DIE DEUTSCHE [213]EBERSETZUNG SAGEN SOLLST"
70 PRINT:PRINT:PRINT"[211]CHREIBE IMMER NACH DEM > ? < DAS"
80 PRINT:PRINT"RICHTIGE [215]ORT UND DRUECKE > [210][197][212][213][210][206] < ."
90 GOSUB 40000
91 PRINT:PRINT:PRINT"     [200][160][201][160][206][160][215][160][197][160][201][160][211][160]:[160][160][146]"
92 PRINT:PRINT:PRINT"   [194]EI [197]INGABE WEITERER [214]OKABELN"
93 PRINT:PRINT"   BITTE IN DEN [218]EILEN > 100 <"
94 PRINT:PRINT"   UND > 190 < DEN [215]ERT (30)"
95 PRINT:PRINT"   ENTSPRECHEND ERHOEHEN!"
96 PRINT:PRINT:PRINT:GOSUB40000
100 FORX=1TO30:REM ANZAHL DER VOKABELN
101 READA$
102 PRINT"   ";A$
110 PRINT:PRINT:PRINT:PRINT:PRINT:INPUT"[145][145][145][196][197][213][212][211][195][200][197][211][160][215][207][210][212] ";C$
120 READB$
130 IFC$=B$THENGOSUB20000
140 IFC$<>B$THENGOSUB30000
150 NEXT
155 FORT=1TO1000:NEXTT
160 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"       [197][206][196][197][160][196][201][197][211][197][210] [213][197][194][213][206][199]!"
170 PRINT:PRINT"  [196]U HATTEST ";A;" [215]OERTER RICHTIG"
180 PRINT:PRINT"  UND ";B;" [215]OERTER FALSCH UEBERSETZT."
190 C=(A*100)/30:REM ANZAHL DER VOKABELN
200 PRINT:PRINT"  [196]AS SIND ";C;"% RICHTIGE [157][157][157][157][157][157][157][157][157][193]NTWORTEN."
210 IFC<20THENPRINT"     [196]AS IST [205][201][211][197][210][193][194][197][204][211][212]!!!"
220 IFC<40THENPRINT"     [196]AS IST RECHT MAESSIG!"
230 IFC<60THENPRINT"     [196]AS IST WENIG, UEBEN, UEBEN!"
240 IFC<80THENPRINT"[205]IT NOCH ETWAS [213]EBUNG WIRST [196]U MAL GUT."
250 IFC<90THENPRINT"     [196]AS WAR SCHON GANZ GUT!"
260 IFC>90THENPRINT:PRINT"        [208][160][210][160][201][160][205][160][193] ! [146] - [215]EITER SO!":PRINT:PRINT
270 GOSUB40000
280 PRINT:PRINT:INPUT"     [206][207][195][200][160][197][201][206][160][214][197][210][211][213][195][200] ? (J/N)";D$
290 IFD$<>"J"THENPRINT:PRINT"     [212][211][195][200][213][197][211][211]! - [194]IS DEMNAECHST!":GOSUB50020:END
300 IFD$="J"THENRESTORE:GOTO10
1000 DATAABLE,FAEHIG,ABOVE,UEBER,ADULTS,ERWACHSENE
1010 DATAGET,BEKOMMEN,AGAIN,WIEDER,AFTER,NACH
1020 DATALIGHT,LICHT,BUT,ABER,CLUES,HINWEISE
1030 DATAWILL,WERDEN,GUESS,RATEN,BEFORE,VOR
1040 DATABECOME,WERDEN,BE,SEIN,BY,VON,TELL,ERZAEHLEN
1050 DATABUY,KAUFEN,COME,KOMMEN,SLEEP,SCHLAFEN
1060 DATATHINK,DENKEN,LEAVE,VERLASSEN,ARRIVE,ANKOMMEN
1070 DATASELL,VERKAUFEN,SHOW,ZEIGEN
1080 DATATAKE,NEHMEN,ON,AUF,POINT,PUNKT
1090 DATANUMBER,ZAHL,DIGIT,ZIFFER,KNOW,WISSEN
20000 PRINT:PRINT"               [210][201][195][200][212][201][199] !         [146]":PRINT:PRINT
20010 A=A+1
20020 RETURN
30000 PRINT:PRINT"            [204][197][201][196][197][210] [198][193][204][211][195][200] !     [146]"
30010 PRINT:PRINT"[196]AS DEUTSCHE [215]ORT HEISST ";B$:PRINT:PRINT
30020 B=B+1
30030 RETURN
40000 PRINT:PRINT:PRINT:PRINT"          [194][201][212][212][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206]        [146]"
40010 POKE198,0:WAIT198,1
40020 PRINT"[147]"
40030 RETURN
50000 PRINT:PRINT:PRINT
50010 PRINT" (C) 1992 "
50020 PRINT:PRINT"        [212][160][201][160][199][160][197][160][210] - [195][160][210][160][197][160][215]"
50030 PRINT:PRINT:PRINT"          [198][197][204][196][211][212][210][193][211][211][197]  17"
50040 PRINT:PRINT"          6492 [211][201][206][206][212][193][204]  1"
50050 FORT=1TO5000:NEXTT
50060 PRINT"[147]"
50070 RETURN