home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02143 / verb2.bas < prev    next >
BASIC Source File  |  1988-06-08  |  23KB  |  584 lines
  1.  
  2. 80 cls:color 7,0
  3. 90 REM Willimann 4919 Reisiswil 5.8.87
  4. 100 REM  VERBENTRAINER
  5. 103 KEY OFF:FOR I = 1 TO 10 :KEY I,"":NEXT
  6. 110 DIM  F$(450),D$(450),AW$(60),lb$(60)
  7. 115 DIM  M3(50),FE(50)
  8. 120 XY= RND (- TIMER)
  9. 140 LE$= "                                       "
  10. 145 US$= "......................................."
  11. 170 AF= 1:goto 1000
  12. 200 restore
  13. 205 FOR I= 1 TO 436
  14. 210 READ F$(I),D$(I)
  15. 220 NEXT  I
  16. 230 return
  17. 1000 REM  MENU
  18. 1005 CLS:LOCATE 1,5:PRINT " * * * * *  R E I S I S W I L E R   S C H U L P R O G R A M M E   * * * * *"
  19. 1007 locate 3,32:print"╔═════════════════╗"
  20. 1010 LOCATE 4,22:PRINT "          ║ ";:COLOR 0,7:PRINT"               ";:COLOR 7,0:print" ║ "
  21. 1011 LOCATE 5,22:PRINT "          ║ ";:COLOR 0,7:PRINT" VERBENTRAINER ";:COLOR 7,0:print" ║"
  22. 1015 LOCATE 6,22:PRINT "          ║ ";:COLOR 0,7:PRINT"               ";:COLOR 7,0:print" ║"
  23. 1018 locate 7,32:print"╚═════════════════╝"
  24. 1020 LOCATE 11,20:PRINT "      ";:COLOR 0,7:PRINT"F1";:COLOR 7,0:PRINT"   franz - deutsch  am Computer
  25. 1030 LOCATE 13,20:PRINT "      ";:COLOR 0,7:PRINT"F2";:COLOR 7,0:PRINT"   deutsch - franz  am Computer
  26. 1040 LOCATE 15,20:PRINT "      ";:COLOR 0,7:PRINT"F3";:COLOR 7,0:PRINT"   Arbeitsblätter franz-deutsch
  27. 1050 LOCATE 17,20:PRINT "      ";:COLOR 0,7:PRINT"F4";:COLOR 7,0:PRINT"   Arbeitsblätter deutsch-franz
  28. 1055 locate 20,20:print"      ";:color 0,7:print"F5";:color 7,0:Print"   zurück zum Verteiler-Menü
  29. 1060 LOCATE 24,20:PRINT "         entsprechende Taste drücken!";
  30. 1070 gosub 200
  31. 1100 II$=INKEY$ :IF II$= "" THEN 1100
  32. 1105 if  ii$= chr$(0)+chr$(63) then clear:run "wahl.exe"
  33. 1400 time$=    "00:00:00"
  34. 1510 IF  II$= CHR$(0)+CHR$(59) THEN gosub 9000:goto 2000
  35. 1512 IF  II$= CHR$(0)+CHR$(60) THEN gosub 9000:goto 3000
  36. 1514 IF  II$= CHR$(0)+CHR$(61) THEN gosub 9000:goto 4000
  37. 1515 IF  II$= CHR$(0)+CHR$(62) THEN gosub 9000:goto 5000
  38. 1518 beep:goto 1100
  39. 1520 END
  40. 2000 REM  FRANZ-DEUTSCH MDL
  41. 2001 COLOR 7,0:CLS:LOCATE 5,10:PRINT "==============================================================="
  42. 2002 LOCATE 3,60:PRINT " Strafbank"SK
  43. 2003 LOCATE 3,10:PRINT "Aufgabe"AF
  44. 2004 LOCATE 3,35:PRINT "Fehler"FE
  45. 2007 VB= INT (RND (1)* WZ)+ 1
  46. 2008 IF VB= VA OR VB= VV THEN 2007
  47. 2010 VA= VB:VV= VA
  48. 2011 IF SK> 5 THEN FH= INT (RND (1)* SK)+ 1:VB= FE(FH):M3= 1:GOTO 2015
  49. 2012 IF SK> 3 AND AF/ 2- INT (AF/ 2)< .1 THEN FH= INT (RND (1)* SK)+ 1:VB= FE(FH):M3= 1:GOTO 2015
  50. 2013 IF SK> 0 AND AF/ 3- INT (AF/ 3)< .1 THEN FH= INT (RND (1)* SK)+ 1:VB= FE(FH):M3= 1
  51. 2015 FW$= F$(VB)
  52. 2020 LOCATE 11,10:COLOR 0,7:PRINT" "LEFT$ (LE$,LEN (FW$))" ";:COLOR 7,0
  53. 2022 LOCATE 12,10:COLOR 0,7:PRINT" "FW$" ";:COLOR 7,0
  54. 2024 LOCATE 13,10:COLOR 0,7:PRINT" "LEFT$ (LE$,LEN (FW$))" ";:COLOR 7,0
  55. 2030 FOR I= 1 TO  7
  56. 2035 AW= INT (RND (1)* WZ)+ 1
  57. 2040 AW$(I)= D$(AW)
  58. 2050 IF I> 1 THEN GOSUB 2500
  59. 2060 IF M1= 1 THEN M1= 0:GOTO 2035
  60. 2070 IF AW= VB THEN 2035
  61. 2080 NEXT I
  62. 2100 RA= INT (RND (1)* 7)+ 1
  63. 2110 AW$(RA)= D$(VB)
  64. 2200 FOR I= 1 TO 7
  65. 2210 LOCATE 5+2*I,40:PRINT AW$(I)
  66. 2220 NEXT I
  67. 2221 LOCATE 21,10:PRINT "================================================================"
  68. 2222 locate 23,10:print"Ausstieg mit F10"
  69. 2225 LOCATE 23,30:COLOR 0,7:PRINT chr$(24);:COLOR 7,0:PRINT" Cursor-Steuerung ";:COLOR 0,7:PRINT chr$(25);:color 7,0: print "    Bestätigen LEERTASTE"
  70. 2240 GOSUB 6000
  71. 2300 GOTO 2000
  72. 2500 FOR K= 1 TO I- 1
  73. 2510 IF AW$(K)= AW$(I) THEN M1= 1
  74. 2520 NEXT K
  75. 2530 RETURN
  76. 3000 REM  DEUTSCH/FRANZ MDL
  77. 3001 COLOR 7,0:CLS:LOCATE 5,10:PRINT "==============================================================="
  78. 3002 LOCATE 3,60:PRINT " Strafbank"SK
  79. 3003 LOCATE 3,10:PRINT "Aufgabe"AF
  80. 3004 LOCATE 3,35:PRINT "Fehler"FE
  81. 3007 VB= INT (RND (1)* WZ)+ 1
  82. 3008 IF VB= VA OR VB= VV THEN 3007
  83. 3010 VA= VB:VV= VA
  84. 3011 IF SK> 5 THEN FH= INT (RND (1)* SK)+ 1:VB= FE(FH):M3= 1:GOTO 3015
  85. 3012 IF SK> 3 AND AF/ 2- INT (AF/ 2)< .1 THEN FH= INT (RND (1)* SK)+ 1:VB= FE(FH):M3= 1:GOTO 3015
  86. 3013 IF SK> 0 AND AF/ 3- INT (AF/ 3)< .1 THEN FH= INT (RND (1)* SK)+ 1:VB= FE(FH):M3= 1
  87. 3015 FW$= D$(VB)
  88. 3020 LOCATE 11,10:COLOR 0,7:PRINT" "LEFT$ (LE$,LEN (FW$))" ";:COLOR 7,0
  89. 3022 LOCATE 12,10:COLOR 0,7:PRINT" "FW$" ";:COLOR 7,0
  90. 3024 LOCATE 13,10:COLOR 0,7:PRINT" "LEFT$ (LE$,LEN (FW$))" ";:COLOR 7,0
  91. 3030 FOR I= 1 TO  7
  92. 3035 AW= INT (RND (1)* WZ)+ 1
  93. 3040 AW$(I)= F$(AW)
  94. 3050 IF I> 1 THEN GOSUB 3500
  95. 3060 IF M1= 1 THEN M1= 0:GOTO 3035
  96. 3070 IF AW= VB THEN 3035
  97. 3080 NEXT I
  98. 3100 RA= INT (RND (1)* 7)+ 1
  99. 3110 AW$(RA)= F$(VB)
  100. 3200 FOR I= 1 TO 7
  101. 3210 LOCATE 5+2*I,40:PRINT AW$(I)
  102. 3220 NEXT I
  103. 3221 LOCATE 21,10:PRINT"==================================================================="
  104. 3222 locate 23,10:print"Ausstieg mit F10"
  105. 3225 LOCATE 23,30:COLOR 0,7:PRINT chr$(24);:COLOR 7,0:PRINT" Cursor-Steuerung ";:COLOR 0,7:PRINT chr$(25);:color 7,0: print "    Bestätigen LEERTASTE"
  106. 3240 GOSUB 6000
  107. 3300 GOTO 3000
  108. 3500 FOR K= 1 TO I- 1
  109. 3510 IF AW$(K)= AW$(I) THEN M1= 1
  110. 3520 NEXT K
  111. 3530 RETURN
  112. 4000 REM  DEUTSCH/FRANZ ARBBL
  113. 4002 LOCATE 12,20:INPUT "wieviele Arbeitsblätter   ";AB
  114. 4003 LOCATE 15,20:PRINT "Papier richten und Taste drücken! "
  115. 4004 I$=INKEY$ :IF I$= "" THEN 4004
  116. 4005 FOR BL= 1 TO AB
  117.      locate 21,20:print"ich drucke Blatt"bl
  118. 4006 LPRINT"                      **** verbes jusqu'à l'étape"ET"****"
  119.      id=int(rnd(1)*10000)
  120. 4007 LPRINT tab(65)"ID"id
  121.      LPRINT
  122. 4008 FOR DR= 1 TO 30
  123. 4009 FOR WI= 1 TO 2
  124. 4010 VB= INT (RND (1)* WZ)+ 1
  125. 4015 FW$= F$(VB):AW$((DR* 2- 1)+ WI- 1)= FW$:IF DR> 1 THEN GOSUB 4500
  126. 4020 IF M1= 1 THEN M1= 0:GOTO 4010
  127. 4021 lb$((dr*2-1)+wi-1)=d$(vb)
  128. 4022 LPRINT" "+ FW$+ "  "+ LEFT$ (US$,40- LEN (FW$)- 8)+ "     ";
  129. 4025 NEXT  WI
  130. 4030 LPRINT
  131. 4300 NEXT  DR
  132. 4302 FOR I= 1 TO 10:LPRINT:NEXT
  133.      lprint"                      ####   Lösungsblatt   ####":lprint
  134.      lprint tab (65)"ID"id
  135.      lprint:lprint
  136.      for i= 1 to 60 step 2
  137.           lprint aw$(i) tab(20) lb$(i) tab(40) aw$(i+1) tab(60) lb$(i+1):lprint
  138.      next i
  139.      for i=1to 6
  140.           lprint
  141.      next i
  142.      next bl
  143. 4310 goto 1000
  144. 4500 FOR K= 1 TO (DR* 2- 1)+ WI- 2
  145. 4510 IF FW$= AW$(K) THEN M1= 1
  146. 4520 NEXT K
  147. 4530 RETURN
  148. 5000 REM  FRANZ/DEUTSCH ARBBL
  149. 5002 LOCATE 12,20:INPUT "wieviele Arbeitsblätter   ";AB
  150. 5003 LOCATE 15,20:PRINT "Papier richten und Taste drücken! "
  151. 5004 I$=INKEY$ :IF I$= "" THEN 5004
  152. 5005 FOR BL= 1 TO AB
  153.      locate 21,20:print"ich drucke Blatt"bl
  154. 5006 LPRINT"                      **** verbes jusqu'à l'étape"ET"****"
  155.      id=int(rnd(1)*10000)
  156. 5007 LPRINT tab(65)"ID"id
  157.      LPRINT
  158. 5008 FOR DR= 1 TO 30
  159. 5009 FOR WI= 1 TO 2
  160. 5010 VB= INT (RND (1)* WZ)+ 1
  161. 5015 FW$= D$(VB):AW$((DR* 2- 1)+ WI- 1)= FW$:IF DR> 1 THEN GOSUB 5500
  162. 5020 IF M1= 1 THEN M1= 0:GOTO 5010
  163. 5021 lb$((dr*2-1)+wi-1)=f$(vb)
  164. 5022 LPRINT" "+ FW$+ "  "+ LEFT$ (US$,40- LEN (FW$)- 8)+ "     ";
  165. 5025 NEXT  WI
  166. 5030 LPRINT
  167. 5300 NEXT  DR
  168. 5302 FOR I= 1 TO 10:LPRINT:NEXT
  169.      lprint"                      ####   Lösungsblatt   ####":lprint
  170.      lprint tab (65)"ID"id
  171.      lprint:lprint
  172.      for i= 1 to 60 step 2
  173.           lprint aw$(i) tab(20) lb$(i) tab(40) aw$(i+1) tab(60) lb$(i+1):lprint
  174.      next i
  175.      for i=1to 6
  176.           lprint
  177.      next i
  178.      next bl    
  179. 5310 goto 1000
  180. 5500 FOR K= 1 TO (DR* 2- 1)+ WI- 2
  181. 5510 IF FW$= AW$(K) THEN M1= 1
  182. 5520 NEXT K
  183. 5530 RETURN
  184. 6000 REM  STEUERUNG
  185. 6010 KO= 4
  186. 6016 LOCATE 3,60:PRINT " Strafbank"SK
  187. 6030 LOCATE 3,35:PRINT "Fehler"FE
  188. 6050 IF SK> 0 THEN LOCATE 3,60:COLOR 0,7:PRINT" STRAFBANK"SK:COLOR 7,0
  189. 6100 LOCATE 5+2*KA,40:COLOR 7,0:PRINT AW$(KA)
  190. 6105 LOCATE 5+2*KO,40::COLOR 0,7:PRINT AW$(KO):COLOR 7,0
  191. 6120 I$=INKEY$:LOCATE 5,35:COLOR 0,7:PRINT TIME$:COLOR 7,0:IF I$= "" THEN 6120
  192. 6140 IF I$= CHR$(0)+CHR$(72) AND KO=1 THEN KA=1:KO=7:GOTO 6100
  193. 6150 IF I$= CHR$(0)+CHR$(72) THEN KA=KO:KO=KO-1:GOTO 6100
  194. 6160 IF I$= CHR$(0)+CHR$(80) AND KO=7 THEN KA=7:KO=1:GOTO 6100
  195. 6170 IF I$= CHR$(0)+CHR$(80) THEN KA=KO:KO=KO+1:GOTO 6100
  196. 6180 IF I$= CHR$(32) THEN GOSUB 6500:GOTO 6190
  197. 6182 if i$= chr$(0)+chr$(68) then goto 1000
  198. 6185 GOTO 6120
  199. 6190 IF M2= 1 THEN M2= 0:GOTO 6000
  200. 6200 RETURN
  201. 6500 REM  KONTROLLE
  202. 6505 IF  KO= RA THEN  AF= AF+ 1:IF M3= 1 THEN M3= 0:M3(FH)= M3(FH)+ 1:GOSUB 7000:RETURN
  203. 6510 IF  KO= RA THEN  RETURN
  204. 6520 BEEP
  205. 6530 FE= FE+ 1:SK= SK+ 1:M2= 1:KA= KO:FE(SK)= VB
  206. 6600 RETURN
  207. 7000 REM  STRAFBANK HERUNTERZÄHLEN
  208. 7002 IF M3(FH)< 3 THEN RETURN
  209. 7005 FE(FH)= 0:M3(FH)= 0:SK= SK- 1
  210. 7010 FOR SB= FH TO SK
  211. 7020 FE(SB)= FE(SB+ 1)
  212. 7025 M3(SB)= M3(SB+ 1)
  213. 7030 NEXT SB
  214. 7040 RETURN
  215. 9000 REM  ETAPES ANWÄHLEN
  216. 9005 cls
  217. 9010 LOCATE 10,20:PRINT "bis zu welcher Etape (9-30)";
  218. 9020 INPUT ET
  219. 9030 if ET<4 then beep:locate 12,20:print"                           ":locate 12,20:print"noch keine Verben zu beüben"
  220. 9040 IF ET= 4 THEN WZ= 20  :RETURN
  221. 9050 IF ET= 5  THEN WZ= 44 :RETURN
  222. 9060 IF ET= 6  THEN WZ= 50 :RETURN
  223. 9070 IF ET= 7  THEN WZ= 66 :RETURN
  224. 9080 IF ET= 8  THEN WZ= 68 :RETURN
  225. 9090 IF ET= 9  THEN WZ= 116:RETURN
  226. 9100 IF ET= 10 THEN WZ= 119:RETURN
  227. 9110 IF ET= 11 THEN WZ= 128:RETURN
  228. 9120 IF ET= 12 THEN WZ= 128:RETURN
  229. 9130 IF ET= 13 THEN WZ= 130:RETURN
  230. 9150 IF ET= 14 THEN WZ= 138:RETURN
  231. 9160 IF ET= 15 THEN WZ= 146:RETURN
  232. 9165 IF ET= 16 THEN WZ= 154:RETURN
  233. 9170 IF ET= 17 THEN WZ= 168:RETURN
  234. 9180 IF ET= 18 THEN WZ= 181:RETURN
  235. 9190 IF ET= 19 THEN WZ= 193:RETURN
  236. 9200 IF ET= 20 THEN WZ= 197:RETURN
  237. 9210 IF ET= 21 THEN WZ= 200:RETURN
  238. 9220 IF ET= 22 THEN WZ= 202:RETURN
  239. 9230 IF ET= 23 tHEN WZ= 228:RETURN
  240. 9240 IF ET= 24 THEN WZ= 252:RETURN
  241. 9250 IF ET= 25 THEN WZ= 263:RETURN
  242. 9260 IF ET= 26 THEN WZ= 327:RETURN
  243. 9270 IF ET= 27 THEN WZ= 361:RETURN
  244. 9280 IF ET= 28 THEN WZ= 383:RETURN
  245. 9290 IF ET= 29 THEN WZ= 411:RETURN
  246. 9300 IF ET= 30 THEN WZ= 436:RETURN
  247. 9900 GOTO 9010
  248.  17000 REM  nur verben zu verb (4.8.87)
  249.  18000 REM  bis etape 4
  250.  19000 DATA  c'est,das ist,je m'appelle,ich heisse
  251.  19010 DATA  "ça va",es geht,"ça fait",das macht
  252.  19020 DATA  tu veux,du willst,j'aimerais,"ich hätte gern"
  253.  19030 DATA  on joue,wir spielen,passe-moi,reich mir
  254.  19040 DATA  il est,er ist,elle est,sie ist
  255.  19050 DATA  devine,errate,"ça roule","es rollt/fährt"
  256.  19060 DATA  "ça vole",es fliegt,c'est,das ist
  257.  19070 DATA  je ne sais pas,ich weiss nicht,regarde,schau
  258.  19100 DATA  qu'est-ce que c'est,was ist das,qui est-ce,wer ist das
  259.  19110 DATA  "voilà",da ist,viens,komm
  260.  19990 REM  et 5
  261.  20000 DATA  "téléphonez",telefoniert
  262.  20010 DATA  saluez,"grüsst"
  263.  20020 DATA  "écoutez","hört(loset)"
  264.  20030 DATA  regarde,schau,regardez,schaut
  265.  20035 DATA  "regardez à gauche",schaut links,"regardez à droite",schaut rechts
  266.  20040 DATA  riez,lacht
  267.  20050 DATA  chantez,singt
  268.  20060 DATA  grimpez,klettert
  269.  20070 DATA  mettez,legt/stellt
  270.  20080 DATA  lisez,lest
  271.  20090 DATA  effacez,"löscht"
  272.  20100 DATA  mangez,esst
  273.  20120 DATA  toussez,hustet
  274.  20140 DATA  tricotez,strickt
  275.  20150 DATA  pleurez,weint
  276.  20160 DATA  "écrivez",schreibt
  277.  20170 DATA  buvez,trinkt
  278.  20180 DATA  dessinez,zeichnet
  279.  20190 DATA  sifflez,pfeift
  280.  20200 DATA  dansez,tanzt
  281.  20210 DATA  lancez,werft
  282.  20220 DATA  parlez,sprecht
  283.  20230 DATA  prenez,nehmt
  284.  20240 REM  et 6********************
  285.  20250 DATA  "où est",wo ist
  286.  20260 DATA  ferme,schliess,ouvre,"öffne"
  287.  20270 DATA  j'ai,ich habe,tu as,du hast
  288.  20280 REM  et 7 *******************
  289.  20290 DATA  je vois,ich sehe,excusez-moi,entschuldigt mich
  290.  20292 DATA  je cherche,ich suche,je suis,ich bin
  291.  20294 DATA  montez,steigt
  292.  20296 DATA  descendez,steigt herunter
  293.  20298 DATA  marchez,marschiert
  294.  20300 DATA  sautez,springt
  295.  20305 DATA  reculez,"geht rückwärts"
  296.  20310 DATA  courez,lauft
  297.  20315 DATA  dormez,schlaft
  298.  20320 DATA  montrez,zeigt
  299.  20325 DATA  "arrêtez",haltet an
  300.  20335 DATA  frappe,klopf/schlag,frappez,klopft/schlagt
  301.  20345 DATA  montrez,zeigt
  302.  20348 REM  et 8 *************************
  303.  20350 DATA  il cache,er versteckt,il cherche,er sucht
  304.  20352 REM  et 9 *************************
  305.  20355 DATA  je touche,"ich berühre",corrigez,korrigiert
  306.  20360 DATA  donne-moi,gib mir
  307.  20370 DATA  tournez,dreht,va,geh,allez,geht
  308.  20380 DATA  ramasse,lies zusammen,ramassez,lest zusammen
  309.  20390 DATA  range,"räume auf",rangez,"räumt auf"
  310.  20400 DATA  mange,iss,bois,trink
  311.  20410 DATA  dessine,zeichne,pleure,weine
  312.  20420 DATA  lis,lies,ris,lach
  313.  20430 DATA  mets,tue/lege,mettez,tut/legt
  314.  20440 DATA  viens,komm,venez,kommt
  315.  20450 DATA  prends,nimm,prenez,nehmt
  316.  20460 DATA  salue,"grüsse",efface,"lösche"
  317.  20470 DATA  "écris",schreib,"écoute","höre(los)"
  318.  20480 DATA  tire,zieh,tirez,zieht
  319.  20490 DATA  touche,"berühre","téléphone",telefonier
  320.  20492 DATA  nage,schwimm,grimpe,klettere
  321.  20494 DATA  siffle,pfeif,chante,sing
  322.  20496 DATA  parle,sprich,tricote,strick
  323.  20498 DATA  tousse,huste,danse,tanze
  324.  20500 DATA  lance,wirf,monte,steig
  325.  20502 DATA  saute,spring,cours,lauf
  326.  20504 DATA  "arrête",halte an,marche,marschier
  327.  20506 DATA  recule,"geh rückwärts",dors,schlaf
  328.  20508 DATA  lave-toi,wasch dich,montre,zeig
  329.  20510 DATA  frappe,schlag/klopf
  330.  20520 REM  et 10 ************************
  331.  20525 DATA  je fais,ich mache,tu fais,du machst
  332.  20527 REM  et 11 ************************
  333.  20535 DATA  renverse,wirf um,tu connais,du kennst
  334.  20540 DATA  ouvrez,"öffnet"
  335.  20545 DATA  dis,sage,finis,beendige
  336.  20550 DATA  cherche,suche,cherchez,sucht
  337.  20560 DATA  cache,verstecke,cachez,versteckt
  338.  20570 REM  et 12 ************************
  339.  20575 REM  et 13 ************************
  340.  20590 DATA  j'aime,ich habe gern,"où sont",wo sind
  341.  20591 REM  et 14 ************************
  342.  20592 DATA  sors,geh hinaus,vole,flieg,sortez,geht hinaus
  343.  20593 DATA  volez,fliegt,travaille,arbeite
  344.  20594 DATA  travaillez,arbeitet,vends,verkauf
  345.  20595 DATA  vendez,verkauft
  346.  20600 REM  etape 15 *********************
  347.  20610 DATA  il a,er hat
  348.  20630 DATA  je peux,ich kann,tu peux,du kannst
  349.  20640 DATA  ils ont,sie haben
  350.  20650 DATA  "répare",flicke,"réparez",flickt
  351.  20660 DATA  reste,bleib,restez,bleibt
  352.  20700 REM  etape 16 *********************
  353.  20710 DATA  bavarde,schwatze,bavardez,schwatzt
  354.  20712 DATA  je vais,ich gehe,"achète",kauf
  355.  20714 DATA  achetez,kauft
  356.  20720 DATA  apprends,lerne,apprenez,lernt
  357.  20725 DATA  il sait,er weiss
  358.  21000 REM  etape 17  ********************
  359.  21010 DATA  ils font,sie machen
  360.  21020 DATA  commence,beginne,commencez,beginnt
  361.  21030 DATA  pose,stell hin,posez,stellt hin
  362.  21040 DATA  vis,lebe,vivez,lebt
  363.  21050 DATA  tombe,falle,tombez,fallt
  364.  21060 DATA  il neige,es schneit,il pleut,es regnet
  365.  21070 DATA  continue,fahr weiter,continuez,fahrt weiter
  366.  21080 DATA  "ça coûte",das kostet
  367.  22000 REM  etape 18 *********************
  368.  22010 DATA  pars,starte/geh fort,partez,startet/geht fort
  369.  22020 DATA  conduis,lenk,conduisez,lenkt
  370.  22030 DATA  arrive,komm an,arrivez,kommt an
  371.  22040 DATA  ils vont,sie gehen
  372.  22050 DATA  fume,rauche,fumez,raucht
  373.  22060 DATA  compose,stell zusammen,composez,stellt zusammen
  374.  22070 DATA  attends,warte,attendez,wartet
  375.  23000 REM  etape 19 *********************
  376.  23010 DATA  habite,wohne,habitez,wohnt
  377.  23020 DATA  arrose,begiesse,arrosez,begiesst
  378.  23030 DATA  comprends,verstehe,comprenez,versteht
  379.  23040 DATA  oublie,vergiss,oubliez,vergesst
  380.  23050 DATA  "prête",leihe,"prêtez",leiht
  381.  23060 DATA  visite,besuche,visitez,besucht
  382.  24000 REM  etape 20 *********************
  383.  24010 DATA  mesure,miss,mesurez,messt
  384.  24030 DATA  nous sommes,wir sind,"vous êtes",ihr seid
  385.  25000 REM  etape 21 *********************
  386.  25010 DATA  "réponds",antworte,"répondez",antwortet
  387.  25020 DATA  vous avez,ihr habt
  388.  26000 REM  etape 22 *********************
  389.  26010 DATA  traverse,"überquere",traversez,"überquert"
  390.  27000 REM  etape 23 *********************
  391.  27010 DATA  quitte,verlasse,quittez,verlasst
  392.  27020 DATA  remplis,"fülle",remplissez,"füllt"
  393.  27030 DATA  rentre,"kehr zurück",rentrez,"kehrt zurück"
  394.  27040 DATA  porte,trage,portez,tragt
  395.  27050 DATA  entre,tritt ein,entrez,tretet ein
  396.  27060 DATA  apporte,bring,apportez,bringt
  397.  27070 DATA  coupe,schneide,coupez,schneidet
  398.  27080 DATA  dicte,diktier,dictez,diktiert
  399.  27090 DATA  tape,schlag/tippe,tapez,schlagt/tippt
  400.  27100 DATA  soigne,pflege,soignez,pflegt
  401.  27110 DATA  construis,erbaue,construisez,erbaut
  402.  27120 DATA  "contrôle",kontrolliere,"contrôlez",kontrolliert
  403.  27130 DATA  commande,befiehl,commandez,befehlt
  404.  28000 REM  etape 24 *********************
  405.  28010 DATA  choisis,"wähle aus",choisissez,"wählt aus "
  406.  28020 DATA  pense,denke,pensez,denkt
  407.  28030 DATA  reviens,komm wieder,revenez,kommt wieder
  408.  28040 DATA  "ça plaît","das gefällt",je voudrais,"ich möchte"
  409.  28050 DATA  vole, stiehl/flieg,volez,stehlt/fliegt
  410.  28060 DATA  recommence,beginn wieder,recommencez,beginnt wieder
  411.  28070 DATA  refais,mach wieder,refaites,macht wieder
  412.  28080 DATA  referme,schliess wieder,refermez,schliesst wieder
  413.  28090 DATA  relis,lies durch,reliez,lest durch
  414.  28100 DATA  repart,fahr wieder ab,repartez,fahrt wieder ab
  415.  28110 DATA  remonte,steig wieder auf,remontez,steigt wieder auf
  416.  28120 DATA  entends,"höre(ghöre)",entendez,"hört(ghöret)"
  417.  29000 REM  et 25 ************************
  418.  29010 DATA  galope,galoppier,galopez,galoppiert
  419.  29020 DATA  gagne,gewinne,gagnez,gewinnt
  420.  29030 DATA  discute,diskutiere,discutez,diskutiert
  421.  29040 DATA  perds,verlier,perdez,verliert
  422.  29050 DATA  "prépare",bereite vor,"préparez",bereitet vor
  423.  29060 DATA  maigris,magere
  424.  30000 REM  et 26 ************************
  425.  30010 DATA transporte,transportier,transportez,transportiert
  426.  30020 DATA  conjuge,konjugiere,explique,"erkläre"
  427.  30030 DATA  "ça suffit","das genüegt"
  428.  30040 DATA  inventez,erfindet
  429.  30050 DATA  gronde,schimpfe
  430.  30060 DATA  punissez,bestraft
  431.  30070 DATA  "lève",hebe,levez,hebt
  432.  30080 DATA  "rôtis",brate,"rôtissez",bratet
  433.  30090 DATA  "elle s'intéresse",sie interessiert sich
  434.  30100 DATA  invite,lade ein,invitez,ladet ein
  435.  30110 DATA  laisse,lass,laissez,lasst
  436.  30120 DATA  raconte,"erzähle",racontez,"erzählt"
  437.  30130 DATA  crie,schreie,criez,schreit
  438.  30140 DATA  il faut,"es ist nötig"
  439.  30150 DATA  "emmène",nimm mit,emmenez,nehmt mit
  440.  30160 DATA  "décolle",heb ab/starte
  441.  30170 DATA  embrasse,umarme,embrassez,umarmt
  442.  30180 DATA  prendre,nehmen
  443.  30190 DATA  finir,beendigen
  444.  30200 DATA  choisir,"wählen"
  445.  30210 DATA  maigrir,magern
  446.  30220 DATA  punir,bestrafen
  447.  30230 DATA  remplir,"füllen"
  448.  30240 DATA  "rôtir",braten
  449.  30250 DATA  dormir,schlafen
  450.  30260 DATA  sortir,ausgehen
  451.  30270 DATA  partir,weggehen
  452.  30280 DATA  courir,laufen
  453.  30290 DATA  venir,kommen
  454.  30300 DATA  dire,sagen
  455.  30310 DATA  faire,machen
  456.  30320 DATA  rire,lachen
  457.  30330 DATA  vivre,leben
  458.  30340 DATA  boire,trinken
  459.  30350 DATA  attendre,warten
  460.  30360 DATA  descendre,heruntersteigen
  461.  30370 DATA  entendre,"hören (ghöre)"
  462.  30380 DATA  perdre,verlieren
  463.  30390 DATA  "répondre",antworten
  464.  30400 DATA  vendre,verkaufen
  465.  30410 DATA  lire,lesen
  466.  30420 DATA  conduire,"führen"
  467.  30430 DATA  construire,erbauen
  468.  30440 DATA  "écrire",schreiben
  469.  30450 DATA  prendre,nehmen
  470.  30460 DATA  mettre,tue/legen/stellen
  471.  30470 DATA  "connaître",kennen
  472.  30480 DATA  savoir,wissen
  473.  30490 DATA  voir,sehen
  474.  30500 DATA  aller,gehen
  475.  30510 DATA  "être",sein
  476.  30520 DATA  avoir,haben
  477.  30530 data  faites,macht
  478.  30540 data dites,sagt
  479.  31000 REM  et. 27 ***********************
  480.  31010 DATA  planter,pflanzen
  481.  31020 DATA  "dépasse","überhole"
  482.  31030 DATA  "découpe",schneide aus
  483.  31040 DATA  "rêve","träume"
  484.  31042 data casser,zerschlagen
  485.  31044 data passer,verbringen
  486.  31050 DATA  ressembler,gleichen
  487.  31060 DATA  bu,getrunken,choisi,"gewählt"
  488.  31070 DATA  couru,gelaufen,dit,gesagt
  489.  31080 DATA  "écrit",geschrieben,entendu,"gehört(ghört)"
  490.  31090 DATA  fait,gemacht,fini,beendigt
  491.  31100 DATA  lu,gelesen,mis,gelegt
  492.  31110 DATA  perdu,verloren,pris,genommen
  493.  31120 DATA  puni,bestraft,vendu,verkauft
  494.  31130 DATA  vu,gesehen
  495.  31140 DATA  "déchiré",zerrissen,rempli,"gefüllt"
  496.  31150 DATA  dormi,geschlafen
  497.  31160 DATA  eu,gehabt,"été",gewesen
  498.  31170 DATA  "vidé",geleert
  499.  31180 DATA  sauver,retten
  500.  31190 DATA  pousser,stossen
  501.  31200 DATA  "obéir",gehorchen
  502.  31210 DATA  maquiller,schminken
  503.  31220 DATA  offrir,anbieten
  504.  31230 DATA  "crié",geschrieen
  505.  32000 REM  et 28. ***********************
  506.  32010 DATA  demander,fragen
  507.  32020 DATA  envoyer,schicken
  508.  32030 DATA  recommander,bestellen
  509.  32040 DATA  exister,existieren
  510.  32050 DATA  manquer,fehlen
  511.  32060 DATA  mourir,sterben
  512.  32070 DATA  "naître",geboren werden
  513.  32080 DATA  retourner,"zurückkehren"
  514.  32090 DATA  venu,gekommen
  515.  32100 DATA  descendu,heruntergestiegen
  516.  32110 DATA  attendu,gewartet
  517.  32120 DATA  ouvert,"geöffnet"
  518.  32130 DATA  "répondu",geantwortet
  519.  32140 DATA  connu,gekannt
  520.  32150 DATA  "vécu",gelebt
  521.  32160 DATA  "obéi",gehorcht
  522.  32170 DATA  tomber,fallen
  523.  32180 DATA  prononcer,aussprechen
  524.  32190 DATA  rentrer,"zurückkehren"
  525.  32200 DATA  offert,angeboten
  526.  32210 DATA  ri,gelacht
  527.  32220 DATA  "allé",gegangen
  528.  33000 REM  et. 29 ***********************
  529.  33010 DATA  trouver,finden
  530.  33020 DATA  louer,mieten
  531.  33030 DATA  "défendu",verboten
  532.  33040 DATA  voyager,reisen
  533.  33050 DATA  avancer,"vorwärtsgehen"
  534.  33060 DATA  monter,montieren
  535.  33070 DATA  payer,bezahlen
  536.  33080 DATA  allumer,"anzüenden"
  537.  33090 DATA  acheter,kaufen
  538.  33100 DATA  habiter,wohnen
  539.  33110 DATA  on doit,man muss
  540.  33120 DATA  "préférer",bevorzugen
  541.  33130 DATA  comparer,vergleichen
  542.  33150 DATA  profiter,profitieren
  543.  33160 DATA  se lever,sich erheben
  544.  33170 DATA  se maquiller,sich schminken
  545.  33180 DATA  se raser,sich rasieren
  546.  33190 DATA  se couper,sich schneiden
  547.  33200 DATA  s'habiller,sich anziehen
  548.  33210 DATA  se baigner,sich baden
  549.  33220 DATA  se peigner,"sich kämmen"
  550.  33230 DATA  se sauver,sich retten
  551.  33240 DATA  coucher,schlafenlegen
  552.  33250 DATA  s'endormir,einschlafen
  553.  33260 DATA  se rendormir,wiedereinschlafen
  554.  33270 DATA  se promener,spazieren
  555.  33280 DATA  s'amuser,"sich amüsieren"
  556.  33290 DATA  s'excuser,sich entschuldigen
  557.  34000 REM  et 30 ************************
  558.  34010 DATA  attendre,warten
  559.  34090 DATA  "être",sein
  560.  34100 DATA  avoir,haben
  561.  34110 DATA  vouloir,wollen
  562.  34120 DATA  devoir,"müssen"
  563.  34130 DATA  falloir,"nötig sein"
  564.  34140 DATA  pleuvoir,regnen
  565.  34150 DATA  changer,wechseln
  566.  34160 DATA  commander,befehlen
  567.  34170 DATA  aller chercher,holen
  568.  34180 DATA  atterrir,landen
  569.  34190 DATA  jeter,werfen
  570.  34200 DATA  rencontrer,begegnen
  571.  34210 DATA  skier,skifahren
  572.  34220 DATA  aider,helfen
  573.  34230 DATA  circuler,verkehren
  574.  34240 DATA  souhaiter,"wÜnschen"
  575.  34250 DATA  "éclater",herausplatzen
  576.  34260 DATA  "déjeuner","frühstücken"
  577.  34270 DATA  "dîner",mittagessen
  578.  34280 DATA  souper,abendessen
  579.  34290 DATA  "être assis",sitzen
  580.  34300 DATA  remarquer,bemerken
  581.  34310 DATA  installer,einrichten
  582.  34320 DATA  taper,klopfen/schlagen
  583.  
  584.