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