home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02150 / du.asc < prev    next >
Text File  |  1988-10-10  |  7KB  |  143 lines
  1. 10 REM   problem du de la
  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),SE$(100),P$(100)
  8. 230 Z= 1
  9. 1000 FOR I= 1 TO  45
  10. 1010 READ  W$(I),g$(i):REM  wort und kontrollziffer einlesen
  11. 1020 NEXT
  12. 1060 FOR  I= 1 TO 20:REM  satzanfang
  13. 1070 READ  VB$(I)
  14. 1080 NEXT
  15. 1085 i$=INKEY$ :IF I$= "" THEN 1085
  16. 1090 TIME$= "00:00:00"
  17. 2000 D= INT (RND (1)* 45)+ 1
  18. 2020 V= INT (RND (1)* 20)+ 1
  19. 2032 IF LEN (VB$(V)+ W$(D))> 28 THEN 2000
  20. 2035 FF= 0
  21. 2037 P= 10:PA= 10
  22. 2040 CLS
  23. 3000 locate 6,20:print"╔═══════════════════════════════════════╗"
  24.      locate 7,20:print"║                                       ║"
  25.      locate 8,20:print"║                                       ║"
  26.      locate 9,20:print"║                                       ║"
  27.      locate 10,20:print"║                                       ║"
  28.      locate 11,20:print"║                                       ║"
  29.      locate 12,20:print"║                                       ║"
  30.      locate 13,20:print"║                                       ║"
  31.      locate 14,20:print"║                                       ║"
  32.      locate 15,20:print"║                                       ║"
  33.      locate 16,20:print"║                                       ║"
  34.      locate 17,20:print"║                                       ║"
  35.      locate 18,20:print"║                                       ║"
  36.      locate 19,20:print"║                                       ║"
  37.      locate 20,20:print"║                                       ║"
  38.      locate 21,20:print"╚═══════════════════════════════════════╝"
  39. LoCATE 8,22:color 15,0:PRINT VB$(V)" ....... "W$(D):color 7,0
  40.      3010 LOCATE 2,10:PRINT Z"Aufgaben              ";:COLOR 0,7:PRINT""MID$ (TIME$,4,2)":"RIGHT$ (TIME$,2)"";:COLOR 7,0:PRINT"                       "F"Fehler
  41. 3015 LOCATE 22,11:PRINT "für Hilfe 'F5' drücken               Abbruch mit 'F10'"";
  42. 3020 locate 23,10:print chr$(24) chr$(25) " mit den Cursortasten               bestätigen mit der Leertaste
  43. 3100 REM
  44. 3500 aw$(1)="  d'   "
  45.      aw$(2)="  de   "
  46.      aw$(3)="  du   "
  47.      aw$(4)=" de la "
  48.      aw$(5)=" de l' "
  49.      aw$(6)="  des  "
  50. 3510 LOCATE 10,35:color 0,7:PRINT aw$(1):color 7,0
  51. 3515 LOCATE 12,35:PRINT aw$(2)
  52. 3520 LOCATE 14,35:PRINT aw$(3)
  53.      locate 16,35:print aw$(4)
  54.      locate 18,35:print aw$(5)
  55.      locate 20,35:print aw$(6)
  56. 3705 i$=INKEY$ :if i$="" then 3705
  57.      IF I$= chr$(0)+chr$(63) THEN 25000
  58. 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"
  59. 3710 IF  i$=chr$(0)+chr$(72) THEN
  60.          PA= P:P= P- 2
  61.          IF  P< 10 THEN PA= 10:P= 20
  62.      end if
  63. 3720 IF  i$=chr$(0)+chr$(80) THEN
  64.          PA= P: P= P+ 2
  65.          IF  P> 20 THEN PA= 20:P= 10
  66.      end if
  67. 3275 locate pa,35:print aw$((pa-8)/2)
  68.      locate p,35:color 0,7:print aw$((p-8)/2):color 7,0
  69.  
  70.  
  71. 3730 IF  i$=" " THEN  4000
  72. 3750  GOTO 3705
  73. 4000 REM
  74. 4050 IF  P= 10  and g$(d)="0" THEN 4700
  75.      IF  P= 12  and g$(d)="1" THEN 4700
  76.      IF  P= 14  and g$(d)="2" THEN 4700
  77.      IF  P= 16  and g$(d)="3" THEN 4700
  78.      IF  P= 18  and g$(d)="4" THEN 4700
  79.      if  p=20   and g$(d)="5" then 4700
  80. 4430 F= F+ 1:FF= FF+ 1
  81. 4456 IF G$(D)= "3" THEN LOCATE 7,35:PRINT "weiblich !       "
  82. 4458 IF G$(D)= "4" THEN LOCATE 7,35:PRINT "Selbstlaut !     "
  83. 4468 IF G$(D)= "5" THEN LOCATE 7,35:PRINT "Mehrzahl !       "
  84. 4478 IF G$(D)= "2" THEN LOCATE 7,35:PRINT "männlich !       "
  85. 4488 IF G$(D)= "1" THEN LOCATE 7,35:PRINT "Ortschaft /Name! "
  86.      if gd$(d)="0" then locate 7,35:print"Ort/Name Selbstl.!"
  87. 4500 IF FF< 2 THEN 3705
  88. 4600 REM
  89.      locate 10,21:print "Ort/Name Sel="
  90. 4650 LOCATE 12,21:PRINT "Ort/Name    ="
  91. 4660 LOCATE 14,21:PRINT "männlich    ="
  92. 4670 LOCATE 16,21:PRINT "weiblich    ="
  93. 4680 LOCATE 18,21:PRINT "Selbstlaut  ="
  94. 4685 LOCATE 20,21:PRINT "Mehrzahl    ="
  95. 4690  GOTO 3705
  96. 4700 LOCATE 8,21+ LEN (VB$(V))+ 2:COLOR 0,7:PRINT aw$((p-8)/2):color 7,0
  97. 4900 Z= Z+ 1:  delay 1:goto 2000
  98. 20000 DATA  "maître",2,"maîtresse",3,"infirmière",4,jardinier,2,"jardinière",3
  99. 20010 DATA  "électricien",4,"mécanicien",2,chauffeur,2,serveuse,3,agent,4
  100. 20020 DATA  officier,4,docteur,2,directeur,2,"cuisinière",3
  101. 20030 DATA  Paolo,1,Mireille,1,tante Suzanne,1,oncle Paul,0
  102. 20040 DATA  jumeaux,5,parents,5,"maîtres",5
  103. 20050 DATA  jardiniers,5,coiffeuse,3,coiffeur,2,coiffeuses,5
  104. 20055 DATA  "André",0,"Irène",0,Suzanne,1
  105.       data  pilote,2,facteur,2,docteur,2,dame,3,"garçon",2,"garçons",5
  106.       data  fille,3,filles,5,monsieur,2,chien,2,chat,2,canari,2,tante,3
  107.       data  Ouchy,0,Yverdon,0,Lausanne,1,"Genève",1
  108. 20999 :
  109. 22000 DATA  c'est la voiture,c'est la maison,c'est la table,c'est le chef
  110. 22010 DATA  ce sont les dessins,ce sont les prix,ce sont les couleurs
  111.       data  c'est la couleur,c'est la serviette,c'est le crayon,c'est le chien
  112.       data  ce sont les chats,c'est la trousse,c'est la rose
  113.       data ce sont les tulipes,c'est la soupe,c'est le pilote,c'est la chaise
  114.       data ce sont les tables,ce sont les armoires
  115.  
  116.  
  117. 25000 REM  erklaerung
  118. 25055 cls:LOCATE 3,10:PRINT"allgemein: de heisst auf deutsch
  119. 25057 LOCATE 5,10:PRINT "               ";:COLOR 0,7:PRINT"   von   ";:COLOR 7,0:PRINT"
  120. 25060 LOCATE 07,10:PRINT "und wird dazu verwendet, zu sagen,
  121. 25065 LOCATE 09,10:PRINT "           ";:COLOR 0,7:PRINT"woher etwas stammt.";:COLOR 7,0:PRINT"
  122. 25069 LOCATE 11,10:PRINT "unterscheide:
  123. 25070 LOCATE 13,10:PRINT "1. kommt man von ";:COLOR 0,7:PRINT"Ortschaften oder von namentlich genannten Personen";:COLOR 7,0:
  124.       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")"
  125. 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
  126. 25090 LOCATE 18,10:PRINT "                 Einzahl weiblich";:COLOR 7,0:PRINT"     -> ";:COLOR 0,7:PRINT"de la";:COLOR 7,0
  127. 25100 LOCATE 20,10:PRINT "                 Mehrzahl";:COLOR 7,0:PRINT"             -> ";:COLOR 0,7:PRINT"des";:COLOR 7,0
  128. 25110 LOCATE 22,10:PRINT "                 Einzahl Selbstlaut   -> ";:COLOR 0,7:PRINT"de l'";:COLOR 7,0
  129. 25120 LOCATE 24,10:PRINT "          (zum Weiterfahren eine Taste drücken)";
  130. 25130  I$=INKEY$ :IF I$= "" THEN 25130
  131. 25140  GOTO 2040
  132. 30000 REM  titel
  133. 30005 CLS
  134. 30010 LOCATE 4,20:PRINT "der
  135. 30015 LOCATE 6,20:COLOR 0,7:PRINT" GRAMMATIK-LOEWE ";:COLOR 7,0
  136. 30020 LOCATE 9,20:PRINT "hilft beim Problem
  137. 30030 LOCATE 11,20:COLOR 0,7:PRINT"  de - du - de la - de l' - des  ";:COLOR 7,0
  138. 30050 LOCATE 14,20:PRINT "zum Start Taste drücken!
  139. 30060 LOCATE 17,20:PRINT "die Sätze sind vielleicht nicht immer
  140. 30065 LOCATE 19,20:PRINT "sehr schlau,
  141. 30070 LOCATE 21,20:PRINT "aber grammatisch immer richtig!
  142. 30100 RETURN
  143.