home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02150 / puma.asc < prev    next >
Text File  |  1988-10-10  |  6KB  |  129 lines
  1. 10 REM   PROBLEM UN/UNE/DES
  2. 20 :
  3. 30 REM  WILLIMANN REISISWIL
  4. 40 xy=rnd(-timer)
  5. 50 color 7,0
  6. 100 REM  GRAMMATIK-PUMA
  7. 110  GOSUB 30000
  8. 200 DIM  W$(100),G$(100),VB$(100)
  9. 230 Z= 1
  10. 240 TIME$="00:00:00"
  11. 1000 FOR I= 1 TO  43
  12. 1010 READ  W$(I),G$(I):REM  WOERTER UND GESCHLECHT EINLESEN
  13. 1020 NEXT
  14. 1060 FOR  I= 1 TO 34
  15. 1070 READ  VB$(I)
  16. 1080 NEXT
  17. 1085 i$=INKEY$ :IF I$= "" THEN 1085
  18. 2000 D= INT (RND (1)* 43)+ 1
  19. 2020 V= INT (RND (1)* 34)+ 1
  20. 2030 P= 12:PA= 12
  21. 2035 FF= 0
  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 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 20,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)="  un "
  42.      aw$(2)=" une "
  43.      aw$(3)=" des "
  44. 3510 LOCATE 12,35:color 0,7:PRINT aw$(1):color 7,0
  45. 3515 LOCATE 14,35:PRINT aw$(2)
  46. 3520 LOCATE 16,35:PRINT aw$(3)
  47. 3705 i$=INKEY$ :if i$="" then 3705
  48.      IF I$= chr$(0)+chr$(63) THEN 25000
  49. 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"
  50. 3710 IF  i$=chr$(0)+chr$(72) THEN
  51.          PA= P:P= P- 2
  52.          IF  P< 12 THEN PA= 12:P= 16
  53.      end if
  54. 3720 IF  i$=chr$(0)+chr$(80) THEN
  55.          PA= P: P= P+ 2
  56.          IF  P> 16 THEN PA= 16:P= 12
  57.      end if
  58. 3275 locate pa,35:print aw$((pa-10)/2)
  59.      locate p,35:color 0,7:print aw$((p-10)/2):color 7,0
  60.  
  61.  
  62. 3730 IF  i$=" " THEN  4000
  63. 3750  GOTO 3705
  64. 4000 IF  P= 12  THEN  L$= "  UN "
  65. 4010 IF  P= 14  THEN  L$= " UNE "
  66. 4020 IF  P= 16  THEN  L$= " DES "
  67. 4210 IF  G$(D)= "M"  AND  L$= "  UN "  THEN  4900
  68. 4220 IF  G$(D)= "F"  AND  L$= " UNE "  THEN  4900
  69. 4230 IF  G$(D)= "MZ"  AND  L$= " DES "  THEN  4900
  70. 4280 F= F+ 1:ff=ff+1
  71. 4282 IF G$(D)= "M" THEN LOCATE 10,25:PRINT "männlich Einzahl ! "
  72. 4284 IF G$(D)= "F" THEN LOCATE 10,25:PRINT "weiblich Einzahl ! "
  73. 4286 IF G$(D)= "MZ" THEN LOCATE 10,25:PRINT "Mehrzahl !         "
  74.      if ff<2 then goto 3705
  75.      locate 12,15:print"männlich Einzahl ="
  76.      locate 14,15:print"weiblich Einzahl ="
  77.      locate 16,15:print"Mehrzahl         ="
  78. 4590 ff=0:GOTO 3705
  79. 4900 LOCATE 8,25 + LEN (VB$(V))+ 1:COLOR 0,7:PRINT aw$((p-10)/2):color 7,0
  80. 4910 delay 2
  81. 4920 Z= Z+ 1: GOTO 2000
  82. 20000 DATA  tables,MZ,chaises,MZ,chaise,F,porte,F,feutre,M,stylo,M,feutres,MZ
  83. 20010 DATA  lampes,MZ,tableaux,MZ,fleur,F,"légumes",MZ,fruits,MZ,meuble,M
  84. 20020 DATA  crayons,MZ,armoire,F,melon,M,"écureuil",M,singe,M,cage,F
  85. 20030 DATA  arbres,MZ,jardins,MZ,tulipe,F,chocolat,M,bonbon,M,"thé",M,"café",M
  86. 20040 DATA  "école",F,"tête",F,carotte,F,"fenêtre",F,toit,M
  87. 20050 DATA  balcon,M,oncle,M,tante,F,"grand-père",M,tracteur,M
  88. 20055 DATA  coiffeur,M,arbre,M,ascenseur,M
  89. 20060 DATA  bananes,MZ,pommes,MZ
  90. 20070 DATA  oranges,MZ,champignons,MZ
  91. 20998 :
  92. 20999 :
  93. 22000 DATA  donnez-moi,"je désire",je veux
  94. 22010 DATA  je vois,je regarde,je prends
  95. 22020 DATA  montre-moi,dessine-moi
  96. 22030 DATA  donne-moi,"efface"
  97. 22040 DATA  "j'achète",je bois
  98. 22050 DATA  je porte,je vends,j'ai
  99. 22060 DATA  je saute sur,je marche avec
  100. 22070 DATA  je vends,je recule avec,je dessine
  101. 22080 DATA  "j'écris sur",je parle avec,"j'efface",je salue
  102. 22090 DATA  je tricote,je connais,je touche,c'est
  103. 22100 DATA  montrez-moi,dessinez
  104. 22110 DATA  je porte ,je monte sur,je douche,j'aimerais
  105. 25000 REM  ERKLAERUNG
  106. 25005 CLS:locate 4,20:COLOR 0,7:PRINT"  UN - UNE - DES":color 7,0
  107. 25010 LOCATE 6,20:PRINT "ist das darauf folgende ";:COLOR 0,7:PRINT"DING":color 7,0
  108. 25020 LOCATE 8,20:PRINT " - ";:COLOR 0,7:PRINT"Mehrzahl";:COLOR 7,0:PRINT" (s oder x am Schluss)
  109. 25030 LOCATE 10,20:PRINT "     so brauchen wir  -> ";:COLOR 0,7:PRINT"DES";:COLOR 7,0:PRINT"
  110. 25040 LOCATE 12,20:PRINT " - ";:COLOR 0,7:PRINT"weiblich Einzahl";:COLOR 7,0:PRINT"
  111. 25045 LOCATE 14,20:PRINT "     (meist ein 'e' am Schluss)
  112. 25050 LOCATE 16,20:PRINT "     so brauchen wir  -> ";:COLOR 0,7:PRINT"UNE";:COLOR 7,0:PRINT"
  113. 25055 LOCATE 18,20:PRINT " - ";:COLOR 0,7:PRINT"männlich Einzahl";:COLOR 7,0
  114. 25090 LOCATE 20,20:PRINT "    - so brauchen wir -> ";:COLOR 0,7:PRINT"UN";:COLOR 7,0:PRINT"
  115. 25120 LOCATE 23,20:PRINT "   (zum Weiterfahren Taste drücken)";
  116. 25130 I$=INKEY$:IF I$= "" THEN 25130
  117. 25140 GOTO 2040
  118. 30000 REM  TITEL
  119. 30005 CLS
  120. 30010 LOCATE 4,25:PRINT "DER
  121. 30015 LOCATE 6,25:COLOR 0,7:PRINT" GRAMMATIK-PUMA ";:COLOR 7,0:PRINT"
  122. 30020 LOCATE 8,25:PRINT "HILFT BEIM PROBLEM
  123. 30030 LOCATE 10,25:COLOR 0,7:PRINT"      UN  -  UNE  -  DES       ";:COLOR 7,0
  124. 30050 LOCATE 14,25:PRINT "ZUM START IRGEND EINE TASTE DRÜCKEN!
  125. 30060 LOCATE 18,25:PRINT "DIE SÄTZE SIND VIELLEICHT NICHT IMMER
  126. 30065 LOCATE 20,25:PRINT "SEHR SCHLAU,
  127. 30070 LOCATE 22,25:PRINT "ABER GRAMMATISCH IMMER RICHTIG!
  128. 30100 RETURN
  129.