home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02150 / loewe.asc < prev    next >
Text File  |  1988-12-19  |  6KB  |  127 lines
  1. 10 REM   PROBLEM CE/CETTE
  2. 20 :
  3. 30 REM  WILLIMANN REISISWIL
  4. 100 REM  GRAMMATIK-LOEWE
  5.     xy=rnd(-timer)
  6. 110 gosub 30000
  7. 200 DIM  W$(100),G$(100),VB$(100)
  8. 230 Z= 1
  9. 240 TIme$= "00:00:00"
  10. 1000 FOR I= 1 TO  43
  11. 1010 READ  W$(I),G$(I):REM  WOERTER UND GESCHLECHT EINLESEN
  12. 1020 NEXT
  13. 1060 FOR  I= 1 TO 23
  14. 1070 READ  VB$(I)
  15. 1080 NEXT
  16. 2000 D= INT (RND (1)* 43)+ 1
  17. 2020 V= INT (RND (1)* 23)+ 1
  18. 2030 P= 12:PA= 12
  19. 2035 FF= 0:PA= 12
  20. 2040 CLS:PRINT"
  21. 3000 locate 6,20:print"╔═══════════════════════════════════════╗"
  22.      locate 7,20:print"║                                       ║"
  23.      locate 8,20:print"║                                       ║"
  24.      locate 9,20:print"║                                       ║"
  25.      locate 10,20:print"║                                       ║"
  26.      locate 11,20:print"║                                       ║"
  27.      locate 12,20:print"║                                       ║"
  28.      locate 13,20:print"║                                       ║"
  29.      locate 14,20:print"║                                       ║"
  30.      locate 15,20:print"║                                       ║"
  31.      locate 16,20:print"║                                       ║"
  32.      locate 17,20:print"║                                       ║"
  33.      locate 18,20:print"║                                       ║"
  34.      locate 19,20:print"║                                       ║"
  35.      locate 20,20:print"╚═══════════════════════════════════════╝"
  36. LoCATE 8,25:color 15,0:PRINT VB$(V)" ...... "W$(D):color 7,0
  37.      3010 LOCATE 2,10:PRINT Z"Aufgaben              ";:COLOR 0,7:PRINT""MID$ (TIME$,4,2)":"RIGHT$ (TIME$,2)"";:COLOR 7,0:PRINT"                       "F"Fehler
  38. 3015 LOCATE 22,11:PRINT "für Hilfe 'F5' drücken               Abbruch mit 'F10'"";
  39. 3020 locate 23,10:print chr$(24) chr$(25) " mit den Cursortasten               bestätigen mit der Leertaste
  40. 3100 REM
  41. 3500 aw$(1)="  ce  "
  42.      aw$(2)="cette "
  43.      aw$(3)=" ces  "
  44.      aw$(4)=" cet  "
  45. 3510 LOCATE 12,35:color 0,7:PRINT aw$(1):color 7,0
  46. 3515 LOCATE 14,35:PRINT aw$(2)
  47. 3520 LOCATE 16,35:PRINT aw$(3)
  48.      locate 18,35:print aw$(4)
  49. 3705 i$=INKEY$ :if i$="" then 3705
  50.      IF I$= chr$(0)+chr$(63) THEN 25000
  51. 3706 IF I$= chr$(0)+chr$(68) THEN CLS:locate 12,30:COLOR 0,7:PRINT"AU REVOIR! BONNE CHANCE !!";:COLOR 7,0:delay 3:run"menu"
  52. 3710 IF  i$=chr$(0)+chr$(72) THEN
  53.          PA= P:P= P- 2
  54.          IF  P< 12 THEN PA= 12:P= 18
  55.      end if
  56. 3720 IF  i$=chr$(0)+chr$(80) THEN
  57.          PA= P: P= P+ 2
  58.          IF  P> 18 THEN PA= 18:P= 12
  59.      end if
  60. 3275 locate pa,35:print aw$((pa-10)/2)
  61.      locate p,35:color 0,7:print aw$((p-10)/2):color 7,0
  62.  
  63.  
  64. 3730 IF  i$=" " THEN  4000
  65. 3750  GOTO 3705
  66. 4000 REM
  67. 4050 IF  P= 12  and g$(d)="1" THEN 4700
  68.      IF  P= 14  and g$(d)="2" THEN 4700
  69.      IF  P= 16  and g$(d)="3" THEN 4700
  70.      IF  P= 18  and g$(d)="4" THEN 4700
  71. 4430 F= F+ 1:FF= FF+ 1
  72. 4456 IF G$(D)= "1" THEN LOCATE 7,35:PRINT "männlich !       "
  73. 4458 IF G$(D)= "2" THEN LOCATE 7,35:PRINT "weiblich !       "
  74. 4468 IF G$(D)= "3" THEN LOCATE 7,35:PRINT "Mehrzahl !       "
  75. 4478 IF G$(D)= "4" THEN LOCATE 7,35:PRINT "männl.Selbstlaut!"
  76. 4500 IF FF< 2 THEN 3705
  77. 4600 REM
  78. 4650 LOCATE 12,21:PRINT "männlich    ="
  79. 4660 LOCATE 14,21:PRINT "weiblich    ="
  80. 4670 LOCATE 16,21:PRINT "Mehrzahl    ="
  81. 4680 LOCATE 18,21:PRINT "mä.Selbstlt ="
  82. 4690  GOTO 3705
  83. 4700 LOCATE 8,24+ LEN (VB$(V))+ 2:COLOR 0,7:PRINT aw$((p-10)/2):color 7,0
  84. 4900 Z= Z+ 1:  delay 1:goto 2000
  85. 20000 DATA  tables,3,chaises,3,chaise,2,porte,2,feutre,1,stylo,1,feutres,3
  86. 20010 DATA  lampes,3,tableaux,3,fleur,2,"légumes",3,fruits,3,meuble,1
  87. 20020 DATA  crayons,3,armoire,2,melon,1,"écureuil",4,singe,1,cage,2
  88. 20030 DATA  arbres,3,jardins,3,tulipe,2,chocolat,1,lait,1,"thé",1,"café",1
  89. 20040 DATA  "école",2,"tête",2,carotte,2,"fenêtre",2,toit,1
  90. 20050 DATA  balcon,1,oncle,4,tante,2,"grand-père",1,tracteur,1
  91. 20055 DATA  coiffeur,1,arbre,4,ascenseur,4
  92. 20060 DATA  bananes,3,pommes,3
  93. 20070 DATA  oranges,3,champignons,3
  94. 20998 :
  95. 20999 :
  96. 22000 DATA  donnez-moi,"je désire",je veux
  97. 22010 DATA  je vois,je regarde,je prends
  98. 22020 DATA  montre-moi,dessine-moi
  99. 22030 DATA  donne-moi,efface-moi
  100. 22040 DATA  "j'achète",je bois
  101. 22050 DATA  je porte,je vends,j'aimerais
  102. 22060 DATA  "j'écris",je mange
  103. 22090 DATA  je tricote,je connais,je touche,je lance
  104. 22100 DATA  montrez-moi,dessinez
  105. 25000 REM  ERKLAERUNG
  106. 25005 CLS:locate 2,30:COLOR 0,7:PRINT"CE - CETTE - CES - CET
  107. 25010 LOCATE 6,5:color 7,0:PRINT "  Ist das darauffolgende Dingwort
  108. 25020 LOCATE 8,5:PRINT "- ";:COLOR 0,7:PRINT"MEHRZAHL";:COLOR 7,0:PRINT" ( s oder x am Schluss )                             -> ";:color 0,7:print" CES ":color 7,0
  109. 25040 LOCATE 10,5:PRINT "- ";:COLOR 0,7:PRINT"WEIBLICH EINZAHL";:COLOR 7,0:PRINT" ( meist ein e am Schluss )                  -> ";:color 0,7:print" CETTE ":color 7,0
  110. 25055 LOCATE 12,5:PRINT "- ";:COLOR 0,7:PRINT"MÄNNLICH EINZAHL";:COLOR 7,0:PRINT", beachten wir noch den 1. Buchstaben:
  111. 25070 LOCATE 14,5:PRINT "       - ist es ein SELBSTLAUT, so kommt aus Bindungsgründen   -> ";:color 0,7:print" CET ":color 7,0
  112. 25090 LOCATE 16,5:PRINT "       - ist es ein MITLAUT   , so genügt                      -> ";:coloR 0,7:PRINT" CE ";:COLOR 7,0:PRINT"
  113. 25120 LOCATE 22,5:PRINT "          ( zum Weiterfahren beliebige Taste drücken )
  114. 25130 i$=inkey$:if i$="" then 25130
  115. 25140 goto 2040
  116. 30000 REM  TITEL
  117. 30010 cls:color 7,0:LOCATE 4,20:PRINT "Der
  118. 30015 LOCATE 6,20:COLOR 0,7:PRINT" GRAMMATIK=LÖWE ";:COLOR 7,0
  119. 30020 LOCATE 8,20:PRINT "hilft beim Problem:
  120. 30030 LOCATE 11,20:COLOR 0,7:PRINT" CE  -  CETTE  -  CES  -  CET ";:COLOR 7,0
  121. 30050 LOCATE 15,20:PRINT "zum Start eine beliebige Taste drücken !
  122. 30060 LOCATE 20,20:PRINT "Die Sätze sind vielleicht nicht immer sehr schlau,
  123. 30070 LOCATE 22,20:PRINT "dafür grammatisch immer richtig ....
  124. 30080 i$=inkey$:if i$="" then 30080
  125. 30100 RETURN
  126.  
  127.