home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02150 / de_menge.asc < prev    next >
Text File  |  1988-10-10  |  7KB  |  135 lines
  1. 10 REM   problem du de la mit menge
  2. 20 :
  3. 30 REM  willimann reisiswil
  4. 40xy=rnd(-timer)
  5. 100 REM  grammatik
  6. 110  GOSUB  30000
  7. 200 DIM  W$(100),G$(100),VB$(100),TY$(100)
  8. 230 Z= 1
  9. 1000 FOR I= 1 TO  16
  10. 1010 READ  W$(I),g$(i):REM  wort und kontrollziffer einlesen
  11. 1020 NEXT
  12. 1060 FOR  I= 1 TO 14:REM  satzanfang
  13. 1070 READ  VB$(I),ty$(i)
  14. 1080 NEXT
  15. 1090 TIME$= "00:00:00"
  16. 2000 D= INT (RND (1)* 16)+ 1
  17. 2020 V= INT (RND (1)* 14)+ 1
  18. 2032 IF LEN (VB$(V)+ W$(D))> 28 THEN 2000
  19. 2035 FF= 0
  20. 2037 P= 10:PA= 10
  21. 2040 CLS
  22. 3000 locate 6,20:print"╔═══════════════════════════════════════╗"
  23.      locate 7,20:print"║                                       ║"
  24.      locate 8,20:print"║                                       ║"
  25.      locate 9,20:print"║                                       ║"
  26.      locate 10,20:print"║                                       ║"
  27.      locate 11,20:print"║                                       ║"
  28.      locate 12,20:print"║                                       ║"
  29.      locate 13,20:print"║                                       ║"
  30.      locate 14,20:print"║                                       ║"
  31.      locate 15,20:print"║                                       ║"
  32.      locate 16,20:print"║                                       ║"
  33.      locate 17,20:print"║                                       ║"
  34.      locate 18,20:print"║                                       ║"
  35.      locate 19,20:print"║                                       ║"
  36.      locate 20,20:print"║                                       ║"
  37.      locate 21,20:print"╚═══════════════════════════════════════╝"
  38. LoCATE 8,22:color 15,0:PRINT VB$(V)" ....... "W$(D):color 7,0
  39.      3010 LOCATE 2,10:PRINT Z"Aufgaben              ";:COLOR 0,7:PRINT""MID$ (TIME$,4,2)":"RIGHT$ (TIME$,2)"";:COLOR 7,0:PRINT"                       "F"Fehler
  40. 3015 LOCATE 22,11:PRINT "für Hilfe 'F5' drücken               Abbruch mit 'F10'"";
  41. 3020 locate 23,10:print chr$(24) chr$(25) " mit den Cursortasten               bestätigen mit der Leertaste
  42. 3100 REM
  43. 3500 aw$(1)="  d'   "
  44.      aw$(2)="  de   "
  45.      aw$(3)="  du   "
  46.      aw$(4)=" de la "
  47.      aw$(5)=" de l' "
  48.      aw$(6)="  des  "
  49. 3510 LOCATE 10,37:color 0,7:PRINT aw$(1):color 7,0
  50. 3515 LOCATE 12,37:PRINT aw$(2)
  51. 3520 LOCATE 14,37:PRINT aw$(3)
  52.      locate 16,37:print aw$(4)
  53.      locate 18,37:print aw$(5)
  54.      locate 20,37:print aw$(6)
  55. 3705 i$=INKEY$ :if i$="" then 3705
  56.      IF I$= chr$(0)+chr$(63) THEN 25000
  57. 3706 IF I$= chr$(0)+chr$(68) THEN CLS:locate 12,30:COLOR 0,7:PRINT"AU REVOIR! BONNE CHANCE !!";:COLOR 7,0:run"menu.tbc"
  58. 3710 IF  i$=chr$(0)+chr$(72) THEN
  59.          PA= P:P= P- 2
  60.          IF  P< 10 THEN PA= 10:P= 20
  61.      end if
  62. 3720 IF  i$=chr$(0)+chr$(80) THEN
  63.          PA= P: P= P+ 2
  64.          IF  P> 20 THEN PA= 20:P= 10
  65.      end if
  66. 3275 locate pa,37:print aw$((pa-8)/2)
  67.      locate p,37:color 0,7:print aw$((p-8)/2):color 7,0
  68.  
  69.  
  70. 3730 IF  i$=" " THEN  aw$=aw$((p-8)/2):goto 4000
  71. 3750  GOTO 3705
  72. 4000 REM
  73.      IF  P= 10  and g$(d)="4" and ty$(v)="1" THEN 4700
  74.      if p=10    and g$(d)="6" and ty$(v)="1" then 4700
  75.      IF  p= 12  and g$(d) <> "4" and ty$(v)="1" THEN 4700
  76.      IF  P= 14  and g$(d)="2" and ty$(v)="2" THEN 4700
  77.      IF  P= 16  and g$(d)="3" and ty$(v)="2" THEN 4700
  78.      IF  P= 18  and g$(d)="4" and ty$(v)="2" THEN 4700
  79.      if  p= 20  and g$(d)="5" and ty$(v)="2" then 4700
  80. 4430 F= F+ 1:FF= FF+ 1
  81. 4456 IF G$(D)= "3" and ty$(v)="2"THEN LOCATE 7,35:PRINT "weiblich !      "
  82. 4458 IF G$(D)= "4" and ty$(v)="2"THEN LOCATE 7,35:PRINT "Selbstlaut !    "
  83. 4468 IF G$(D)= "5" and ty$(v)="2"THEN LOCATE 7,35:PRINT "Mehrzahl !      "
  84. 4478 IF G$(D)= "2" and ty$(v)="2"THEN LOCATE 7,35:PRINT "männlich !      "
  85. 4488 IF G$(D)= "4" and ty$(v)="1" THEN LOCATE 7,35:PRINT "Menge Selbstlaut"
  86.      if g$(D) <> "4" and ty$(v)="1" THEN LOCATE 7,35:PRINT "Menge Mitlaut  "
  87.      if g$(D) = "6" and ty$(v)="1" THEN LOCATE 7,35:PRINT "Menge Selbstlaut  "
  88. 4500 IF FF< 2 THEN 3705
  89. 4600 REM
  90.      locate 10,21:print "Menge Selbstlt ="
  91. 4650 LOCATE 12,21:PRINT "Menge Mitlaut  ="
  92. 4660 LOCATE 14,21:PRINT "männlich       ="
  93. 4670 LOCATE 16,21:PRINT "weiblich       ="
  94. 4680 LOCATE 18,21:PRINT "Selbstlaut     ="
  95. 4685 LOCATE 20,21:PRINT "Mehrzahl       ="
  96. 4690  GOTO 3705
  97. 4700 LOCATE 8,21+ LEN (VB$(V))+ 2:COLOR 0,7:PRINT aw$((p-8)/2):color 7,0
  98. 4900 Z= Z+ 1:  delay 1:goto 2000
  99. 20000 DATA  "glace",3,"café",2,"soupe",3,lait,2,"eau",4
  100. 20010 DATA  "bonbons",5,"thé",2,sirop,2,poulets,5,limonade,3
  101. 20020 DATA  pain,2,petit pains,5,haricots,6,miel,2
  102.       data  farine,3,champignons,5
  103. 20999 :
  104. 22000 DATA  donne-moi,2,montre-moi,2,donne-moi un kilo,1,tu veux,2
  105. 22010 DATA  tu veux un sac,1,tu vois un pot,1,tu ranges un litre,1
  106.       data  je vends un kilo,1,je vends,2,"tu achètes",2,"tu achètes une tasse",1
  107.       data  je prends un peu,1,je ne veux pas,1,je ne prends plus,1
  108.  
  109. 25000 REM  erklaerung
  110. 25055 cls:LOCATE 3,10:PRINT"allgemein: de heisst auf deutsch
  111. 25057 LOCATE 5,10:PRINT "               ";:COLOR 0,7:PRINT"   von   ";:COLOR 7,0:PRINT"
  112. 25060 LOCATE 07,10:PRINT "und wird dazu verwendet, zu sagen,
  113. 25065 LOCATE 09,10:PRINT "           ";:COLOR 0,7:PRINT"woher etwas stammt.";:COLOR 7,0:PRINT"
  114. 25069 LOCATE 11,10:PRINT "unterscheide:
  115. 25070 LOCATE 13,10:PRINT "1. kommt man von ";:COLOR 0,7:PRINT"Ortschaften oder von namentlich genannten Personen";:COLOR 7,0:
  116.       locate 14,10:print"                 dann genügt   -> ";:COLOR 0,7:PRINT"de";:color 7,0:print" (bei Selbstlaut: ";:color 0,7:print"d'";:color 7,0:print")"
  117. 25080 LOCATE 16,10:PRINT "2. von  ";:COLOR 0,7:PRINT"Plätzen";:COLOR 7,0:PRINT"  Einzahl männlich     -> ";:COLOR 0,7:PRINT"du";:COLOR 7,0
  118. 25090 LOCATE 18,10:PRINT "                 Einzahl weiblich";:COLOR 7,0:PRINT"     -> ";:COLOR 0,7:PRINT"de la";:COLOR 7,0
  119. 25100 LOCATE 20,10:PRINT "                 Mehrzahl";:COLOR 7,0:PRINT"             -> ";:COLOR 0,7:PRINT"des";:COLOR 7,0
  120. 25110 LOCATE 22,10:PRINT "                 Einzahl Selbstlaut   -> ";:COLOR 0,7:PRINT"de l'";:COLOR 7,0
  121. 25120 LOCATE 24,10:PRINT "          (zum Weiterfahren eine Taste drücken)";
  122. 25130  I$=INKEY$ :IF I$= "" THEN 25130
  123. 25140  GOTO 2040
  124. 30000 REM  titel
  125. 30005 CLS
  126. 30010 LOCATE 4,20:PRINT "der
  127. 30015 LOCATE 6,20:COLOR 0,7:PRINT" GRAMMATIK-LOEWE ";:COLOR 7,0
  128. 30020 LOCATE 9,20:PRINT "hilft beim Problem
  129. 30030 LOCATE 11,20:COLOR 0,7:PRINT"  de - du - de la - de l' - des  ";:COLOR 7,0
  130. 30050 LOCATE 14,20:PRINT "zum Start Taste drücken!
  131. 30060 LOCATE 17,20:PRINT "die Sätze sind vielleicht nicht immer
  132. 30065 LOCATE 19,20:PRINT "sehr schlau,
  133. 30070 LOCATE 21,20:PRINT "aber grammatisch immer richtig!
  134. 30100 RETURN
  135.