home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02150 / fuchs.asc < prev    next >
Text File  |  1988-10-10  |  9KB  |  176 lines
  1. 10 REM   problem a la/aux/chez
  2. 20 :
  3. 30 REM  willimann reisiswil
  4. 40xy=rnd(-timer)
  5. 100 REM  grammatik-fuchs
  6. 110  GOSUB  30000
  7. 200 DIM  W$(100),G$(100),VB$(100),aw$(10)
  8. 230 Z= 1
  9. 1000 FOR I= 1 TO  46
  10. 1010 READ  W$(I),g$(i):REM  wort und kontrollziffer einlesen
  11. 1020 NEXT
  12. 1060 FOR  I= 1 TO 34: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)* 46)+ 1
  18. 2020 V= INT (RND (1)* 34)+ 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 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)="     à    "
  44.      aw$(2)="    au    "
  45.      aw$(3)="   à la   "
  46.      aw$(4)="   à l'   "
  47.      aw$(5)="   aux    "
  48.      aw$(6)="   chez   "
  49.      aw$(7)="  chez la "
  50.      aw$(8)="  chez l' "
  51.      aw$(9)="  chez le "
  52.      aw$(10)=" chez les "
  53. 3510 LOCATE 10,35:color 0,7:PRINT aw$(1):color 7,0
  54. 3515 LOCATE 11,35:PRINT aw$(2)
  55. 3520 LOCATE 12,35:PRINT aw$(3)
  56.      locate 13,35:print aw$(4)
  57.      locate 14,35:print aw$(5)
  58.      locate 15,35:print aw$(6)
  59.      locate 16,35:print aw$(7)
  60.      locate 17,35:print aw$(8)
  61.      locate 18,35:print aw$(9)
  62.      Locate 19,35:print aw$(10)
  63. 3705 i$=INKEY$ :if i$="" then 3705
  64.      IF I$= chr$(0)+chr$(63) THEN 25000
  65. 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"
  66. 3710 IF  i$=chr$(0)+chr$(72) THEN
  67.          PA= P:P= P- 1
  68.          IF  P< 10 THEN PA= 10:P= 19
  69.      end if
  70. 3720 IF  i$=chr$(0)+chr$(80) THEN
  71.          PA= P: P= P+ 1
  72.          IF  P> 19 THEN PA= 19:P= 10
  73.      end if
  74. 3275 locate pa,35:print aw$((pa-9))
  75.      locate p,35:color 0,7:print aw$((p-9)):color 7,0
  76.  
  77.  
  78. 3730 IF  i$=" " THEN  4000
  79. 3750  GOTO 3705
  80. 4000 REM
  81. 4050 IF  P= 10  and g$(d)="1" THEN 4700
  82.      IF  P= 11  and g$(d)="2" THEN 4700
  83.      IF  P= 12  and g$(d)="3" THEN 4700
  84.      IF  P= 13  and g$(d)="4" THEN 4700
  85.      IF  P= 14  and g$(d)="5" THEN 4700
  86.      IF  P= 15  and g$(d)="6" THEN 4700
  87.      IF  P= 16  and g$(d)="7" THEN 4700
  88.      IF  P= 17  and g$(d)="8" THEN 4700
  89.      IF  P= 18  and g$(d)="9" THEN 4700
  90.      IF  P= 19  and g$(d)="10" THEN 4700
  91. 4430 F= F+ 1:FF= FF+ 1
  92. 4456 IF G$(D)= "3" THEN LOCATE 7,35:PRINT "weiblich !  "
  93. 4458 IF G$(D)= "4" THEN LOCATE 7,35:PRINT "Selbstlaut !"
  94. 4468 IF G$(D)= "5" THEN LOCATE 7,35:PRINT "Mehrzahl !  "
  95. 4478 IF G$(D)= "2" THEN LOCATE 7,35:PRINT "männlich !  "
  96. 4488 IF G$(D)= "1" THEN LOCATE 7,35:PRINT "Ortschaft ! "
  97.      IF G$(D)= "6" THEN LOCATE 7,35:PRINT "Name        "
  98.      IF G$(D)= "7" THEN LOCATE 7,35:PRINT "Person weibl"
  99.      IF G$(D)= "8" THEN LOCATE 7,35:PRINT "Person Selbstlaut!
  100.      IF G$(D)= "9" THEN LOCATE 7,35:PRINT "Person männlich!
  101.      IF G$(D)= "10" THEN LOCATE 7,35:PRINT "Personen  ! "
  102. 4500 IF FF< 2 THEN 3705
  103. 4600 REM
  104. 4650 LOCATE 10,21:PRINT "Ortschaft   ="
  105. 4660 LOCATE 11,21:PRINT "männlich    ="
  106. 4670 LOCATE 12,21:PRINT "weiblich    ="
  107. 4680 LOCATE 13,21:PRINT "Selbstlaut  ="
  108. 4685 LOCATE 14,21:PRINT "Mehrzahl    ="
  109.      LOCATE 15,21:PRINT "Name        ="
  110.      LOCATE 16,21:PRINT "Pers. weibl ="
  111.      LOCATE 17,21:PRINT "Pers. Selbst="
  112.      LOCATE 18,21:PRINT "Pers. männl ="
  113.      LOCATE 19,21:PRINT "Personen    ="
  114. 4690  GOTO 3705
  115. 4700 LOCATE 8,21+ LEN (VB$(V))+ 2:COLOR 0,7:PRINT aw$((p-9)):color 7,0
  116. 4900 Z= Z+ 1:  delay 2:goto 2000
  117. 20000 DATA  "cinéma",2,parc,2,bureau,2,cirque,2,place,3,garage,2
  118. 20010 DATA  chambres,5,concert,2,"forêts",5,cuisine,3,"étape",4
  119. 20020 DATA  balcons,5,piscine,3,classe,3
  120. 20025 DATA  terrasse,3,cage,3
  121. 20030 DATA  "musée",2,jardins,5,zoo,2,fromagerie,3,"café",2
  122. 20050 DATA  salle de bain,2
  123. 20060 DATA  "théâtres",5,stade,2
  124. 20070 DATA  "hôpital",4,lit,2
  125. 20090 DATA  "école",4,maison,3,Berne,1,Lausanne,1,"Genève",1
  126. 20100 DATA  gare,3,poste,3,banque,3,restaurant,2
  127.       data  Suzanne,6,Pierrot,6,oncle,8,tante,7,docteur,9,amis,10
  128.       data  facteur,9,Mireille,6,pilote,9,"maîtres",10
  129.       data  tante Suzanne,6,
  130. 20998 :
  131. 20999 :
  132. 22000 DATA  "je téléphone",je travaille,je vais
  133. 22010 DATA  je vois la tante,je regarde le journal,je mets les souliers
  134. 22020 DATA  j'arrive,je marche
  135. 22030 DATA  je cours,je saute
  136. 22040 DATA  je dessine une pomme,je bois un coca
  137. 22050 DATA  je fais la vaisselle,je mange,je ne siffle pas
  138. 22060 DATA  "je bois un thé",je mange une pomme
  139. 22070 DATA  je tricote,je mange les bonbons,je dessine
  140. 22080 DATA  il est,je monte,elle est,je conduis la soeur
  141. 22090 DATA  "je vais avec le père",mes parents sont,"le maître est",papa est
  142. 22100 DATA  prends une douche,dessinez
  143. 22110 DATA  j'ouvre le paquet,il est,je grimpe
  144. 22120 DATA  je nage
  145. 25000 REM  erklaerung
  146. 25055 CLS:locate 2,10:PRINT"allgemein: à heisst auf deutsch etwa
  147. 25057 LOCATE 4,10:PRINT "          ";:COLOR 0,7:PRINT"in, bei, zu, nach";:COLOR 7,0:PRINT"
  148. 25060 LOCATE 05,10:PRINT "und wird dazu verwendet, zu sagen,
  149. 25065 LOCATE 07,10:PRINT "          ";:COLOR 0,7:PRINT"wohin man geht.";:COLOR 7,0:PRINT"
  150. 25069 LOCATE 09,10:PRINT "unterscheide:
  151. 25070 LOCATE 11,10:PRINT "1. geht man zu ";:COLOR 0,7:PRINT"Ortschaften";:COLOR 7,0:PRINT"              -> ";:COLOR 0,7:PRINT"à";:color 7,0
  152. 25080 LOCATE 12,10:PRINT "2. zu  ";:COLOR 0,7:PRINT"Platz";:COLOR 7,0:PRINT"  Einzahl männlich          -> ";:COLOR 0,7:PRINT"au";:COLOR 7,0:PRINT"
  153. 25090 LOCATE 13,10:PRINT "              Einzahl weiblich";:COLOR 7,0:PRINT"          -> ";:COLOR 0,7:PRINT"à la";:COLOR 7,0
  154. 25100 LOCATE 14,10:PRINT "              Mehrzahl";:COLOR 7,0:PRINT"                  -> ";:COLOR 0,7:PRINT"aux";:COLOR 7,0:PRINT"
  155. 25110 LOCATE 15,10:PRINT "              Einzahl Selbstlaut        -> ";:COLOR 0,7:PRINT"à l'";:COLOR 7,0
  156.       LOCATE 17,10:PRINT "geht man aber zu  ";:color 0,7:print"PERSONEN";:color 7,0:print", so braucht man                  ";:color 0,7:print"CHEZ:";:color 7,0
  157.       LOCATE 18,10:PRINT "   Wird der       ";:color 0,7:print"Eigenname";:color 7,0:print" genannt, dann heisst es nur     ";:color 0,7:print"chez":color 7,0
  158.       LOCATE 19,10:PRINT "   Ist ein        ";:color 0,7:print"Mann";:color 7,0:print" gemeint, so heisst es                ";:color 0,7:print"chez le";:color 7,0
  159.       LOCATE 20,10:PRINT "   Ist eine       ";:color 0,7:print"Frau";:color 7,0:print" gemeint, so heisst es                ";:color 0,7:print"chez la";:color 7,0
  160.       LOCATE 21,10:PRINT "   beginnt es mit ";:color 0,7:print"Selbstlaut";:color 7,0:print", so heisst es                  ";:color 0,7:print"chez l'";:color 7,0
  161.       LOCATE 22,10:PRINT "   Ist es eine    ";:color 0,7:print"Gruppe";:color 7,0:print", so heisst es                      ";:color 0,7:print"chez les";:color 7,0
  162. 25120 LOCATE 24,10:PRINT "zum  Weiterfahren irgend eine Taste drücken";
  163. 25130  I$=INKEY$ :IF I$= "" THEN 25130
  164. 25140  GOTO 2040
  165. 30000 REM  titel
  166. 30005 CLS
  167. 30010 LOCATE 4,20:PRINT "der
  168. 30015 LOCATE 6,20:COLOR 0,7:PRINT" GRAMMATIK-HUND ";:COLOR 7,0
  169. 30020 LOCATE 9,20:PRINT "hilft beim Problem
  170. 30030 LOCATE 11,20:COLOR 0,7:PRINT"  à - aux - à la - à l' -  chez ";:COLOR 7,0
  171. 30050 LOCATE 14,20:PRINT "zum Start Taste drücken!
  172. 30060 LOCATE 17,20:PRINT "die Sätze sind vielleicht nicht immer
  173. 30065 LOCATE 19,20:PRINT "sehr schlau,
  174. 30070 LOCATE 21,20:PRINT "aber grammatisch immer richtig!
  175. 30100 RETURN
  176.