home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02143 / sein.asc < prev    next >
Text File  |  1988-06-13  |  15KB  |  388 lines
  1. 100 REM  sein- -trainer willimann 26.4.87
  2. 102 xy=rnd(-timer)
  3. 103 dim p$(200),k$(200),g1$(200),d$(200)
  4. 104 dim gg$(200),f$(200)
  5. 105 gosub 20000
  6. 108 for j=1 to 13
  7. 110 FOR I= (j-1)*9+1 TO j*9
  8. 120 READ  P$(I),K$(I),G1$(I)
  9. 130 next I
  10. 140 for I=(j-1)*9+1 to j*9
  11. 170 READ  D$(I),gg$(I),F$(I)
  12. 180 NEXT I
  13. 190 next j
  14. 200 CLS
  15. 205 COLOR 0,7:LOCATE 6, 35:PRINT ti$:color 7,0
  16. 207 locate 9,30:print"Was soll beübt werden:
  17. 210 color 0,7:LOCATE 11, 30:PRINT "F1 ";:color 7,0:print"   nur franz Formen"
  18. 220 color 0,7:LOCATE 13, 30:PRINT "F2 ";:color 7,0:print"   nur übersetzen  "
  19. 230 color 0,7:LOCATE 15, 30:PRINT "F3 ";:color 7,0:print"   beides          "
  20. 235 color 0,7:LOCATE 19, 30:PRINT "F10";:color 7,0:print"   zurück zum Menu "
  21. 240  I$=INKEY$:IF I$= "" THEN 240
  22. 250 IF I$= CHR$(0)+CHR$(59) THEN  U= 0:O= 2:goto 1000
  23. 260 IF I$= CHR$(0)+CHR$(60) THEN  U= 2:O= 4:goto 1000
  24. 270 IF I$= CHR$(0)+CHR$(61) THEN  U= 0:O= 4:goto 1000
  25. 280 IF I$= CHR$(0)+CHR$(68) THEN  300
  26. 290  GOTO 240
  27. 300 SYSTEM
  28. 1000 CLS:RN=int(INT(RND(1)*9)+1+(bg-1)*9):if rn=ra or rn=ru then 1000
  29. 1005 ru=ra:ra=rn:af=af+1
  30. 1010 locate 7,34:color 0,7:print ti$:color 7,0
  31. 1015 LOCATE 3, 12:PRINT "Fehler:"FE
  32. 1016 LOCATE 3, 60:PRINT "Hilfe = F5":COLOR 7,0
  33. 1017 LOCATE 5, 11:PRINT " Aufgabe"AF"
  34. 1018 LOCATE 5, 60:PRINT "Abbruch F10":COLOR 7,0
  35. 1020 LOCATE 11, 29:PRINT " tippe das Fehlende ein:
  36. 1030 EN= INT (RND (1)* (O- U))+ 1+ U
  37. 1040 ON  EN  GOTO 2000,3000,5000,6000
  38. 2000 LOCATE 16, 34:PRINT P$(RN)
  39. 2010 gosub 9500:LOCATE 16, 40:KO$= K$(RN): po=16:gosub 7000
  40. 2020 IF  IP$< > K$(RN) THEN  GOSUB 4000: GOTO 2000
  41. 2030  GOTO 1000
  42. 3000 LOCATE 16, 40:PRINT K$(RN)
  43. 3005 LOCATE 18, 34:PRINT G1$(RN)"
  44. 3010 gosub 9500:LOCATE 16, 34:KO$= P$(RN): po=16:gosub 7000
  45. 3020 IF  IP$< > P$(RN) THEN  GOSUB 4000: GOTO 3000
  46. 3030  GOTO 1000
  47. 4000 locate po,vv-1:print" ":BEEP
  48. 4100 RETURN
  49. 5000 LOCATE 16, 34:PRINT D$(RN)
  50. 5005 LOCATE 16, 51:PRINT gg$(RN)
  51. 5010 gosub 9500:LOCATE 18, 34:KO$= F$(RN): po=18:gosub 7000
  52. 5020 IF  IP$< > F$(RN) THEN  GOSUB 4000: GOTO 5000
  53. 5030  GOTO 1000
  54. 6000 LOCATE 16, 34:print F$(RN)
  55. 6010 gosub 9500:LOCATE 18, 34:KO$= D$(RN): po=18:gosub 7000
  56. 6020 IF  IP$< > D$(RN) THEN  GOSUB 4000: GOTO 6000
  57. 6030  GOTO 1000
  58. 7000 REM  inputroutine
  59. 7002 LB=LEN(KO$)-1
  60. 7005 IP$="":LA=0
  61. 7008 color 26,0:print chr$(95);:color 7,0
  62. 7010 IN$=INKEY$:IF IN$="" THEN 7010
  63. 7011 if in$=chr$(94) then mm=1:goto 7010
  64. 7012 if mm=1 and in$="e" then in$=chr$(136):mm=0
  65.      if mm=1 and in$="o" then in$=chr$(147):mm=0
  66.      if mm=1 and in$="u" then in$=chr$(150):mm=0
  67.      if mm=1 and in$="a" then in$=chr$(131):mm=0
  68.      if mm=1 and in$="i" then in$=chr$(140):mm=0
  69. 7013 vv=pos(1)
  70. 7015 IF IN$=CHR$(0)+CHR$(63) THEN 8000
  71. 7017 IF IN$=CHR$(0)+CHR$(68) THEN CLS:CLEAR:RUN
  72. 7020 ASS= ASC (IN$)
  73. 7030 IF ASS= 20 THEN  GOSUB 7500
  74. 7034 IF ASS= 13 AND LA= 0 THEN 7010
  75. 7035 IF ASS=13 THEN RETURN
  76. 7037 if ASS=8 and la<1 then 7010
  77. 7038 if ass=8 and la>0 then la=la-1:ip$=left$(ip$,la):in$="":locate po,vv-1:print"  ":vv=vv-1:goto 7120
  78. 7040 IF ASS<32 OR ASS>167 THEN 7010
  79. 7100 rem IF LA>LB THEN 7010
  80. 7110 IP$=IP$+IN$:LA=LA+1
  81. 7115 vv=pos(1)
  82. 7120 locate po,vv-1:print IN$;:color 26,0:print chr$(95);:color 7,0
  83. 7200  GOTO 7010
  84. 7500 REM  loeschen
  85. 7505 IF LA< 1 THEN RETURN
  86. 7510 IP$= LEFT$ (IP$,LEN (IP$)- 1):LA= LA- 1
  87. 7520 LOCATE 0,-2:PRINT "  ";
  88. 7530 color 7,0:RETURN
  89. 8000 REM  help
  90. 8010 CLS
  91. 8020 FOR II= (bg-1)*9+1 TO bg*9
  92. 8030 LOCATE (II-(bg-1)*9)*2+2,1:PRINT ,P$(II),K$(II),G1$(II),d$(ii)
  93. 8040 NEXT
  94. 8050 LOCATE 24, 35:PRINT "(Taste)";
  95. 8060 I$=INKEY$:IF I$="" THEN 8050
  96. 9000 CLS:GOTO 1010
  97. 9500 locate 15,29:print"╔═════════════════════════╗"
  98. 9510 locate 16,29:print"║":locate 16,55:print"║"
  99. 9515 locate 17,29:print"║":locate 17,55:print"║"
  100. 9520 locate 18,29:print"║":locate 18,55:print"║"
  101. 9530 locate 19,29:print"╚═════════════════════════╝"
  102. 9900 return
  103. 10000 DATA "je","suis"," "
  104. 10010 DATA "tu","es"," "
  105. 10020 DATA "il","est","(m)"
  106. 10030 DATA "elle","est","(w)"
  107. 10040 DATA "on","est","(u)"
  108. 10050 DATA "nous","sommes"," "
  109. 10060 DATA "vous","êtes"," "
  110. 10070 DATA "ils","sont","(m)"
  111. 10080 DATA "elles","sont","(w)"
  112. 10100 DATA "ich bin"," ","je suis"
  113. 10110 DATA "du bist"," ","tu es"
  114. 10120 DATA "er ist"," ","il est"
  115. 10130 DATA "sie ist"," ","elle est"
  116. 10140 DATA "man ist"," ","on est"
  117. 10150 DATA "wir sind"," ","nous sommes"
  118. 10160 DATA "ihr seid"," ","vous êtes"
  119. 10170 DATA "sie sind","(m)","ils sont"
  120. 10180 DATA "sie sind","(w)","elles sont"
  121.  
  122. 11000 DATA "j'","ai"," "
  123. 11010 DATA "tu","as"," "
  124. 11020 DATA "il","a","(m)"
  125. 11030 DATA "elle","a","(w)"
  126. 11040 DATA "on","a","(u)"
  127. 11050 DATA "nous","avons"," "
  128. 11060 DATA "vous","avez"," "
  129. 11070 DATA "ils","ont","(m)"
  130. 11080 DATA "elles","ont","(w)"
  131. 11100 DATA "ich habe"," ","j'ai"
  132. 11110 DATA "du hast"," ","tu as"
  133. 11120 DATA "er hat"," ","il a"
  134. 11130 DATA "sie hat"," ","elle a"
  135. 11140 DATA "man hat"," ","on a"
  136. 11150 DATA "wir haben"," ","nous avons"
  137. 11160 DATA "ihr habt"," ","vous avez"
  138. 11170 DATA "sie haben","(m)","ils ont"
  139. 11180 DATA "sie haben","(w)","elles ont"
  140.  
  141. 13000 DATA "je","vais"," "
  142. 13010 DATA "tu","vas"," "
  143. 13020 DATA "il","va","(m)"
  144. 13030 DATA "elle","va","(w)"
  145. 13040 DATA "on","va","(u)"
  146. 13050 DATA "nous","allons"," "
  147. 13060 DATA "vous","allez"," "
  148. 13070 DATA "ils","vont","(m)"
  149. 13080 DATA "elles","vont","(w)"
  150. 13100 DATA "ich gehe"," ","je vais"
  151. 13110 DATA "du gehst"," ","tu vas"
  152. 13120 DATA "er geht"," ","il va"
  153. 13130 DATA "sie geht"," ","elle va"
  154. 13140 DATA "man geht"," ","on va"
  155. 13150 DATA "wir gehen"," ","nous allons"
  156. 13160 DATA "ihr geht"," ","vous allez"
  157. 13170 DATA "sie gehen","(m)","ils vont"
  158. 13180 DATA "sie gehen","(w)","elles vont"
  159.  
  160. 14000 DATA "je","fais","1."
  161. 14010 DATA "tu","fais","2."
  162. 14020 DATA "il","fait","(m)"
  163. 14030 DATA "elle","fait","(w)"
  164. 14040 DATA "on","fait","(u)"
  165. 14050 DATA "nous","faisons"," "
  166. 14060 DATA "vous","faites"," "
  167. 14070 DATA "ils","font","(m)"
  168. 14080 DATA "elles","font","(w)"
  169. 14100 DATA "ich mache"," ","je fais"
  170. 14110 DATA "du machst"," ","tu fais"
  171. 14120 DATA "er macht"," ","il fait"
  172. 14130 DATA "sie macht"," ","elle fait"
  173. 14140 DATA "man macht"," ","on fait"
  174. 14150 DATA "wir machen"," ","nous faisons"
  175. 14160 DATA "ihr macht"," ","vous faites"
  176. 14170 DATA "sie machen","(m)","ils font"
  177. 14180 DATA "sie machen","(w)","elles font"
  178.  
  179. 15000 DATA "je","dis"," "
  180. 15010 DATA "tu","dis"," "
  181. 15020 DATA "il","dit","(m)"
  182. 15030 DATA "elle","dit","(w)"
  183. 15040 DATA "on","dit","(u)"
  184. 15050 DATA "nous","disons"," "
  185. 15060 DATA "vous","dites"," "
  186. 15070 DATA "ils","disent","(m)"
  187. 15080 DATA "elles","disent","(w)"
  188. 15100 DATA "ich sage"," ","je dis"
  189. 15110 DATA "du sagst"," ","tu dis"
  190. 15120 DATA "er sagt"," " ,"il dit"
  191. 15130 DATA "sie sagt"," ","elle dit"
  192. 15140 DATA "man sagt"," ","on dit"
  193. 15150 DATA "wir sagen"," ","nous disons"
  194. 15160 DATA "ihr sagt"," ","vous dites"
  195. 15170 DATA "sie sagen","(m)","ils disent"
  196. 15180 DATA "sie sagen","(w)","elles disent"
  197.  
  198. 16000 DATA "je","prends","1."
  199. 16010 DATA "tu","prends","2."
  200. 16020 DATA "il","prend","(m)"
  201. 16030 DATA "elle","prend","(w)"
  202. 16040 DATA "on","prend","(u)"
  203. 16050 DATA "nous","prenons"," "
  204. 16060 DATA "vous","prenez"," "
  205. 16070 DATA "ils","prennent","(m)"
  206. 16080 DATA "elles","prennent","(w)"
  207. 16100 DATA "ich nehme","","je prends"
  208. 16110 DATA "du nimmst","","tu prends"
  209. 16120 DATA "er nimmt","","il prend"
  210. 16130 DATA "sie nimmt","","elle prend"
  211. 16140 DATA "man nimmt","","on prend"
  212. 16150 DATA "wir nehmen","","nous prenons"
  213. 16160 DATA "ihr nehmt","","vous prenez"
  214. 16170 DATA "sie nehmen","(m)","ils prennent"
  215. 16180 DATA "sie nehmen","(w)","elles prennent"
  216.  
  217. 17000 DATA "je","bois","1."
  218. 17010 DATA "tu","bois","2."
  219. 17020 DATA "il","boit","(m)"
  220. 17030 DATA "elle","boit","(w)"
  221. 17040 DATA "on","boit","(u)"
  222. 17050 DATA "nous","buvons",""
  223. 17060 DATA "vous","buvez",""
  224. 17070 DATA "ils","boivent","(m)"
  225. 17080 DATA "elles","boivent","(w)"
  226. 17100 DATA "ich trinke","","je bois"
  227. 17110 DATA "du trinkst","","tu bois"
  228. 17120 DATA "er trinkt","","il boit"
  229. 17130 DATA "sie trinkt","","elle boit"
  230. 17140 DATA "man trinkt","","on boit"
  231. 17150 DATA "wir trinken","","nous buvons"
  232. 17160 DATA "ihr trinkt","","vous buvez"
  233. 17170 DATA "sie trinken","(m)","ils boivent"
  234. 17180 DATA "sie trinken","(w)","elles boivent"
  235.  
  236. 18000 DATA "je","mets",1."
  237. 18010 DATA "tu","mets","2."
  238. 18020 DATA "il","met","(m)"
  239. 18030 DATA "elle","met","(w)"
  240. 18040 DATA "on","met","(u)"
  241. 18050 DATA "nous","mettons",""
  242. 18060 DATA "vous","mettez",""
  243. 18070 DATA "ils","mettent","(m)"
  244. 18080 DATA "elles","mettent","(w)"
  245. 18100 DATA "ich lege","","je mets"
  246. 18110 DATA "du legst","","tu mets"
  247. 18120 DATA "er legt","","il met"
  248. 18130 DATA "sie legt","","elle met"
  249. 18140 DATA "man legt","","on met"
  250. 18150 DATA "wir legen","","nous mettons"
  251. 18160 DATA "ihr legt","","vous mettez"
  252. 18170 DATA "sie legen","(m)","ils mettent"
  253. 18180 DATA "sie legen","(w)","elles mettent"
  254.  
  255. 19000 DATA "je","lève",""
  256. 19010 DATA "tu","lèves",""
  257. 19020 DATA "il","lève","(m)"
  258. 19030 DATA "elle","lève","(w)"
  259. 19040 DATA "on","lève","(u)"
  260. 19050 DATA "nous","levons",""
  261. 19060 DATA "vous","levez",""
  262. 19070 DATA "ils","lèvent","(m)"
  263. 19080 DATA "elles","lèvent","(w)"
  264. 19100 DATA "ich hebe","","je lève"
  265. 19110 DATA "du hebst","","tu lèves"
  266. 19120 DATA "er hebt","","il lève"
  267. 19130 DATA "sie hebt","","elle lève"
  268. 19140 DATA "man hebt","","on lève"
  269. 19150 DATA "wir heben","","nous levons"
  270. 19160 DATA "ihr hebt","","vous levez"
  271. 19170 DATA "sie heben","(m)","ils lèvent"
  272. 19180 DATA "sie heben","(w)","elles lèvent"
  273.  
  274. 19500 DATA "je","vois","1."
  275. 19510 DATA "tu","vois","2."
  276. 19520 DATA "il","voit","(m)"
  277. 19530 DATA "elle","voit","(w)"
  278. 19540 DATA "on","voit","(u)"
  279. 19550 DATA "nous","voyons",""
  280. 19560 DATA "vous","voyez",""
  281. 19570 DATA "ils","voient","(m)"
  282. 19580 DATA "elles","voient","(w)"
  283. 19600 DATA "ich sehe","","je vois"
  284. 19610 DATA "du siehst","","tu vois"
  285. 19620 DATA "er sieht","","il voit"
  286. 19630 DATA "sie sieht","","elle voit"
  287. 19640 DATA "man sieht","","on voit"
  288. 19650 DATA "wir sehen","","nous voyons"
  289. 19660 DATA "ihr seht","","vous voyez"
  290. 19670 DATA "sie sehen","(m)","ils voient"
  291. 19680 DATA "sie sehen","(w)","elles voient"
  292.       DATA "je","veux","1."
  293.       DATA "tu","veux","2."
  294.       DATA "il","veut","(m)"
  295.       DATA "elle","veut","(w)"
  296.       DATA "on","veut","(u)"
  297.       DATA "nous","voulons",""
  298.       DATA "vous","voulez",""
  299.       DATA "ils","veulent","(m)"
  300.       DATA "elles","veulent","(w)"
  301.       DATA "ich will","","je veux"
  302.       DATA "du willst","","tu veux"
  303.       DATA "er will","","il veut"
  304.       DATA "sie will","","elle veut"
  305.       DATA "man will","","on veut"
  306.       DATA "wir wollen","","nous voulons"
  307.       DATA "ihr wollt","","vous voulez"
  308.       DATA "sie wollen","(m)","ils veulent"
  309.       DATA "sie wollen","(w)","elles veulent"
  310.       DATA "je","peux","1."
  311.       DATA "tu","peux","2."
  312.       DATA "il","peut","(m)"
  313.       DATA "elle","peut","(w)"
  314.       DATA "on","peut","(u)"
  315.       DATA "nous","pouvons",""
  316.       DATA "vous","pouvez",""
  317.       DATA "ils","peuvent","(m)"
  318.       DATA "elles","peuvent","(w)"
  319.       DATA "ich kann","","je peux"
  320.       DATA "du kannst","","tu peux"
  321.       DATA "er kann","","il peut"
  322.       DATA "sie kann","","elle peut"
  323.       DATA "man kann","","on peut"
  324.       DATA "wir können","","nous pouvons"
  325.       DATA "ihr könnt","","vous pouvez"
  326.       DATA "sie können","(m)","ils peuvent"
  327.       DATA "sie können","(w)","elles peuvent"
  328.       DATA "je","sais","1."
  329.       DATA "tu","sais","2."
  330.       DATA "il","sait","(m)"
  331.       DATA "elle","sait","(w)"
  332.       DATA "on","sait","(u)"
  333.       DATA "nous","savons",""
  334.       DATA "vous","savez",""
  335.       DATA "ils","savent","(m)"
  336.       DATA "elles","savent","(w)"
  337.       DATA "ich weiss","","je sais"
  338.       DATA "du weisst","","tu sais"
  339.       DATA "er weiss","","il sait"
  340.       DATA "sie weiss","","elle sait"
  341.       DATA "man weiss","","on sait"
  342.       DATA "wir wissen","","nous savons"
  343.       DATA "ihr wisst","","vous savez"
  344.       DATA "sie wissen","(m)","ils savent"
  345.       DATA "sie wissen","(w)","elles savent"
  346.  20000 rem titelbild
  347.  20010 cls:color 7,0
  348.        print
  349.  20040 print " ╔"string$(76,205)"╗ ";
  350.  20050 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  * * * * * ║ ";
  351.  20060 print " ╠"string$(76,205)"╣ ";
  352.  20070 print " ║           ╔"string$(47,205)"╗"string$(16,32)"║ ";
  353.  20080 print " ║           ║";:color 0,7:print" TRAINER FÜR SCHWIERIGE UNREGELMÄSSIGE VERBEN  ";:color 7,0:print"║"string$(16,32)"║ ";
  354.  20090 print " ║           ╚"string$(47,205)"╝"string$(16,32)"║ ";
  355.  20100 print " ╠"string$(76,205)"╣ ";
  356.  20120 print " ║            zur Auswahl stehen folgende Verben aus BC I/II:"string$(17,32)"║ ";
  357.  20130 print " ╠"string$(36,205)"╤"string$(39,205)"╣ ";
  358.  20140 print " ║    a. être      -  sein            │    b. avoir      -  haben             ║ ";
  359.  20150 print " ╟"string$(36,196)"┼"string$(39,196)"╢ ";
  360.  20160 print " ║    c. aller     -  gehen           │    d. faire      -  machen            ║ ";
  361.  20170 print " ║"string$(36,196)"┼"string$(39,196)"║ ";
  362.        print " ║    e. dire      -  sagen           │    f. prendre    -  nehmen            ║ ";
  363.       print " ╟"string$(36,196)"┼"string$(39,196)"╢ ";
  364.  20180 print " ║    g. boire     -  trinken         │    h. mettre     -  tun,legen         ║ ";
  365.  20190 print " ║"string$(36,196)"┼"string$(39,196)"╢ ";
  366.  20200 print " ║    i. lever     -  heben           │    j. voir       -  sehen             ║ ";
  367.  20210 print " ╟"string$(36,196)"┴"string$(39,196)"║ ";
  368.        print " ║    k. vouloir  -  wollen   l. pouvoir   -  können    m. savoir - wissen    ║ ";
  369.  20230 print " ╚══════════════╦"string$(22,205)string$(17,205)"╦"string$(21,205)"╝ ";
  370.  20240 print ""string$(16,32)"║  bitte entsprechende Taste drücken !  ║"string$(23,32)"";
  371.  20250 print ""string$(16,32)"╚"string$(39,205)"╝";
  372. 20260 i$=inkey$:if i$="" then 20260
  373. 20265 if i$=chr$(0)+chr$(68) then run"wahl.exe"
  374. 20270 if i$<"a"or i$>"m"then beep:goto 20260
  375. 20280 if i$="a" then ti$= "das SEIN-Zelt":bg=1
  376. 20290 if i$="b" then ti$= "das HABEN-Zelt":bg=2
  377. 20300 if i$="c" then ti$= "das GEHEN-Haus":bg=3
  378. 20310 if i$="d" then ti$= "das MACHEN-Haus":bg=4
  379. 20320 if i$="e" then ti$= "das SAGEN-Haus":bg=5
  380. 20340 if i$="f" then ti$= "das NEHMEN-Haus":bg=6
  381. 20350 if i$="g" then ti$= "das TRINKEN-Haus":bg=7
  382. 20360 if i$="h" then ti$= "das TUN/LEGEN/STELLEN-Haus":bg=8
  383. 20370 if i$="i" then ti$= "das HEBEN-Haus":bg=9
  384. 20380 if i$="j" then ti$= "das SEHEN-Haus":bg=10
  385.       if i$="k" then ti$= "das WOLLEN-Haus":bg=11
  386.       if i$="l" then ti$= "das KÖNNEN-Haus":bg=12
  387.       if i$="m" then ti$="das WISSEN-Haus":bg=13
  388. 20900 return