home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02150 / adject.asc next >
Text File  |  1988-01-17  |  7KB  |  217 lines
  1. 10 rem adjectif-training für Bonne Chance, Stand etape 24 (Band II)
  2. 20 rem 29.12.87   Willimann Reisiswil
  3.  
  4. 110 DIM OB$(120),GK$(120),ZK$(120),D$(120)
  5. 120 DIM KL$(50),GE$(50),ZA$(50)
  6. 125 LE$="                                                                  "
  7. 130 XY= RND (- TIMER)
  8. 140 GU= 1
  9. 200 CLS:COLOR 0,7:PRINT"ADJECTIFS";:COLOR 7,0
  10. 300 FOR I= 1 TO 24
  11. 310 READ KL$(I),GE$(I),ZA$(I)
  12. 320 NEXT
  13. 400 FOR I= 1 TO 116
  14. 410 READ OB$(I),GK$(I),ZK$(I),D$(I)
  15. 420 NEXT
  16. 1000 CLS:PRINT"Aufgabe"GU"
  17. 1001 LOCATE 2,30:PRINT"Hilfen:"HI
  18. 1002 LOCATE 2,60:PRINT"Fehler:"FE"
  19. 1004 LOCATE 22,30:PRINT "Hilfstaste = ";:COLOR 0,7:PRINT"F5";:COLOR 7,0:
  20.      LOCATE 23,30:PRINT "zum Menu   = ";:COLOR 0,7:PRINT"F10";:COLOR 7,0:
  21. 1005 LOCATE 6,30:PRINT "écris la bonne forme!
  22. 1020 KL= INT (RND (1)* 24)+ 1:IF KL= KA THEN 1020
  23. 1025 KA= KL
  24. 1030 OB= INT (RND (1)* 116)+ 1:IF OA= OB THEN 1030
  25. 1035 OA= OB
  26. 1040 IF GK$(OB)< > GE$(KL) OR ZK$(OB)< > ZA$(KL) THEN 1030
  27. 1100 LOCATE 10,30:PRINT chr$(9)" "D$(OB)":"
  28. 1110 LOCATE 15,20:PRINT " "KL$(KL);
  29. 1120 GOSUB 4000
  30. 1200  GOSUB 3000             
  31. 2000 IF IN$< > OB$(OB) THEN BEEP:FE= FE+ 1: GOSUB 2500:GOTO 1100
  32. 2010 GU= GU+ 1: GOTO 1000
  33. 2500 REM bei fehler
  34. 2508 LOCATE 16,20+LEN (KL$(KL))+ 2:PRINT LEFT$(LE$,35-LEN(KL$(KL)))
  35. 2510 LOCATE 16,20+LEN (KL$(KL))+ 2:PRINT IN$
  36. 2520 IF GE$(KL)="f"THEN LOCATE 14,24:PRINT" weiblich !
  37. 2530 IF GE$(KL)="m"THEN LOCATE 14,24:PRINT" männlich !
  38. 2540 IF ZA$(KL)="s"THEN LOCATE 16,24:PRINT" Einzahl !
  39. 2550 IF ZA$(KL)="p"THEN LOCATE 16,24:PRINT" Mehrzahl!
  40. 2590 RETURN
  41. 3000 rem get-routine
  42. 3005 IN$= "":IN= 0
  43. 3007 LOCATE 15,20+LEN (KL$(KL))+ 2:PRINT IN$;:COLOR 0,7:PRINT" ";:COLOR 7,0:PRINT LEFT$(LE$,34-(LEN(KL$(KL))))
  44. 3010 I$=INKEY$:IF I$= "" THEN 3010
  45. 3012 IF I$= CHR$(0)+CHR$(63) THEN I$= MID$ (OB$(OB),IN+ 1,1):HI= HI+ 1: GOTO 3100
  46.      if i$=chr$(0)+chr$(68) then cls:run"menu.tbc"
  47. 3013 AC= ASC(I$)
  48. 3014 IF AC= 13 AND IN < 1 THEN 3010
  49. 3015 IF AC= 13 THEN LOCATE 15,20+LEN(KL$(KL))+1+IN:PRINT " ":RETURN
  50. 3016 IF AC= 8 AND IN> 0 THEN 3500
  51. 3017 IF I$= "é" OR I$= "è" OR I$= "ö" OR I$= "ä" OR I$= "'" OR I$= "ü" OR I$= "â" THEN 3101
  52. 3019 IF I$= "à" OR I$= "ù" OR I$= "û" OR I$= "ô" OR I$= "î" OR I$= "ë" OR I$= "ï" THEN 3101
  53. 3030 IF AC= < 96 OR AC> = 140 THEN GOTO 3010
  54. 3040 GOTO 3101
  55. 3100 IF IN >=LEN(OB$(OB))THEN 3010
  56. 3101 IN$= IN$+ I$
  57. 3105 IN = IN + 1
  58. 3107 IF IN >= 35-(LEN(KL$(KL)))THEN RETURN
  59. 3110 LOCATE 15,20+LEN(KL$(KL))+1+IN:PRINT I$;:COLOR 0,7:PRINT" ";:COLOR 7,0
  60. 3400  GOTO 3010
  61. 3500 LOCATE 15,20+LEN(KL$(KL))+IN+1:COLOR 0,7:PRINT" ";:COLOR 7,0:PRINT" "
  62. 3510 IN$= LEFT$ (IN$,IN- 1)
  63. 3520 IN= IN- 1:I$= ""
  64. 3600 GOTO 3010
  65. 4000 REM rand
  66. 4010 LOCATE 13,18:PRINT CHR$(201);
  67. 4020 LOCATE 13,19:PRINT STRING$(38,CHR$(205));
  68. 4030 LOCATE 13,57:PRINT CHR$(187);
  69. 4040 FOR I = 1 TO 3
  70. 4050 LOCATE 13+I,18:PRINT CHR$(186);
  71. 4060 LOCATE 13+I,57:PRINT CHR$(186);
  72. 4070 NEXT I
  73. 4080 LOCATE 17,18:PRINT CHR$(200);
  74. 4090 LOCATE 17,19:PRINT STRING$(38,CHR$(205));
  75. 4100 LOCATE 17,57:PRINT CHR$(188);
  76. 4110 RETURN
  77. 10000 DATA  ces jupes sont,f,p
  78. 10010 DATA  ces pantalons sont,m,p
  79. 10020 DATA  ce bonnet est,m,s
  80. 10030 DATA  cette jupe est,f,s
  81. 10040 DATA  cet anorak est,m,s
  82. 10050 DATA  ces chemises sont,f,p
  83. 10060 DATA  ces souliers sont ,m,p
  84. 10070 DATA  ce chapeau est,m,s
  85. 10080 DATA  cette robe est,f,s
  86. 10090 DATA  ce manteau est,m,s
  87. 10100 DATA  ces bottes sont,f,p
  88. 10110 DATA  cette cravate est,f,s
  89. 10120 DATA  ce chemisier est,m,s
  90. 10130 DATA  cette ceinture est,f,s
  91. 10140 DATA  ce complet est,m,s
  92. 10150 DATA  cette veste est,f,s
  93. 10160 DATA  "ces imperméables sont",m,p
  94. 10170 DATA  ce jean est,m,s
  95. 10180 DATA  ces gants sont,m,p
  96. 10190 DATA  "ce sac à main est",m,s
  97. 10200 DATA  ces chaussettes sont,f,p
  98. 10210 DATA  "ce costûme est",m,s
  99. 10220 DATA  ces chaussures sont,f,p
  100. 10230 DATA  cette casquette est,f,s
  101. 11000 DATA  bleu,m,s,blau
  102. 11010 DATA  bleue,f,s,blau
  103. 11020 DATA  bleus,m,p,blau
  104. 11030 DATA  bleues,f,p,blau
  105. 11040 DATA  vert,m,s,"grün
  106. 11050 DATA  verte,f,s,"grün
  107. 11060 DATA  verts,m,p,"grün
  108. 11070 DATA  vertes,f,p,"grün
  109. 11080 DATA  blanc,m,s,weiss
  110. 11090 DATA  blanche,f,s,weiss
  111. 11100 DATA  blancs,m,p,weiss
  112. 11110 DATA  blanches,f,p,weiss
  113. 11120 DATA  plein,m,s,voll
  114. 11130 DATA  pleine,f,s,voll
  115. 11140 DATA  pleins,m,p,voll
  116. 11150 DATA  pleines,f,p,voll
  117. 11160 DATA  grand,m,s,gross
  118. 11170 DATA  grande,f,s,gross
  119. 11180 DATA  grands,m,p,gross
  120. 11190 DATA  grandes,f,p,gross
  121. 11200 DATA  mauvais,m,s,schlecht
  122. 11210 DATA  mauvaise,f,s,schlecht
  123. 11220 DATA  mauvais,m,p,schlecht
  124. 11230 DATA  mauvaises,f,p,schlecht
  125. 11240 DATA  nouveau,m,s,neu
  126. 11250 DATA  nouvelle,f,s,neu
  127. 11260 DATA  nouveaux,m,p,neu
  128. 11270 DATA  nouvelles,f,p,neu
  129. 11280 DATA  beau,m,s,"schön
  130. 11290 DATA  belle,f,s,"schön
  131. 11300 DATA  beaux,m,p,"schön
  132. 11305 DATA  belles,f,p,"schön
  133. 11310 DATA  "élégantes",f,p,elegant
  134. 11320 DATA  "élégant",m,s,elegant
  135. 11330 DATA  "élégante",f,s,elegant
  136. 11340 DATA  "élégants",m,p,elegant
  137. 11350 DATA  court,m,s,kurz
  138. 11360 DATA  courte,f,s,kurz
  139. 11370 DATA  courtes,f,p,kurz
  140. 11380 DATA  courts,m,p,kurz
  141. 11390 DATA  long,m,s,lang
  142. 11395 DATA  longs,m,p,lang
  143. 11400 DATA  longue,f,s,lang
  144. 11405 DATA  longues,f,p,lang
  145. 11410 DATA  lourds,m,p,schwer
  146. 11415 DATA  lourd,m,s,schwer
  147. 11420 DATA  lourdes,f,p,schwer
  148. 11425 DATA  lourde,f,s,schwer
  149. 11430 DATA  bas,m,s,niedrig
  150. 11440 DATA  basse,f,s,niedrig
  151. 11450 DATA  bas,m,p,niedrig
  152. 11460 DATA  basses,f,p,niedrig
  153. 11510 DATA  "léger",m,s,leicht
  154. 11520 DATA  "légère",f,s,leicht
  155. 11530 DATA  "légers",m,p,leicht
  156. 11540 DATA  "légères",f,p,leicht
  157. 11550 DATA  bon,m,s,gut
  158. 11560 DATA  bonne,f,s,gut
  159. 11570 DATA  bons,m,p,gut
  160. 11580 DATA  bonnes,f,p,gut
  161. 11590 DATA  haut,m,s,hoch
  162. 11600 DATA  haute,f,s,hoch
  163. 11610 DATA  hauts,m,p,hoch
  164. 11620 DATA  hautes,f,p,hoch
  165. 11630 DATA  vide,m,s,leer
  166. 11640 DATA  vide,f,s,leer
  167. 11650 DATA  vides,m,p,leer
  168. 11660 DATA  vides,f,p,leer
  169. 11670 DATA  vieux,m,s,alt
  170. 11680 DATA  vieille,f,s,alt
  171. 11690 DATA  vieux,m,p,alt
  172. 11700 DATA  vieilles,f,p,alt
  173. 11710 DATA  jeune,m,s,jung
  174. 11720 DATA  jeune,f,s,jung
  175. 11730 DATA  jeunes,m,p,jung
  176. 11740 DATA  jeunes,f,p,jung
  177. 11750 DATA  violet,m,s,violett
  178. 11760 DATA  violette,f,s,violett
  179. 11770 DATA  violets,m,p,violett
  180. 11780 DATA  violettes,m,p,violett
  181. 11790 DATA  fade,m,s,fad
  182. 11800 DATA  fade,f,s,fad
  183. 11910 DATA  fades,m,p,fad
  184. 11920 DATA  fades,f,p,fad
  185. 11930 DATA  amusant,m,s,amusant
  186. 11940 DATA  amusante,f,s, amusant
  187. 11950 DATA  amusants,m,p, amusant
  188. 11960 DATA  amusantes,f,p,amusant
  189. 11970 DATA  maigre,m,s, mager
  190. 11980 DATA  maigre,f,s, mager
  191. 11990 DATA  maigres,m,p,mager
  192. 12000 DATA  maigres,f,p, mager
  193. 12010 DATA  riche,m,s, reich
  194. 12020 DATA  riche,f,s, reich
  195. 12030 DATA  riches,m,p, reich
  196. 12040 DATA  riches,f,p, reich
  197. 12050 DATA  joli,m,s,"hübsch
  198. 12060 DATA  jolie,f,s,"hübsch
  199. 12070 DATA  jolis,m,p,"hübsch
  200. 12080 DATA  jolies,f,p,"hübsch
  201. 12090 DATA  petit,m,s, klein
  202. 12092 DATA  petite,f,s,klein
  203. 12094 DATA  petits,m,p,klein
  204. 12096 DATA  petites,f,p,klein
  205. 12100 DATA  larges,f,p,breit
  206. 12102 DATA  large,f,s,breit
  207. 12104 DATA  large,m,s,breit
  208. 12106 DATA  larges,m,p,breit
  209. 12110 DATA  chic,m,s,schick
  210. 12120 DATA  chic,f,s,schick
  211. 12130 DATA  chic,m,p,schick
  212. 12140 DATA  chic,f,p,schick
  213. 12150 DATA  fort,m,s,stark
  214. 12160 DATA  forte,f,s,stark
  215. 12170 DATA  forts,m,p,stark
  216. 12180 DATA  fortes,f,p,stark
  217.