home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02150 / alle.asc < prev    next >
Text File  |  1988-10-10  |  7KB  |  181 lines
  1. 100 REM   problem besitzanzeigendes fuerwort
  2.     rem Willimann Reisiswil  1.1.1988
  3. 120 DIM  BR$(20),BZ$(50),GL$(50),ZA$(50)
  4. 150 cls
  5. 160 P= 13:PA= 13:s=30:sa=30
  6. 180 TT$= "                                       "
  7. 190 AU$= "  0":FE$= "  0"
  8.     bw$(1)="C'est  "
  9.     bw$(2)="Ce sont"
  10. 200 FOR I= 1 TO 5
  11. 210 READ BR$(I)
  12. 220 NEXT
  13. 230 FOR I= 1 TO 34
  14. 240 READ BZ$(I),GL$(I),ZA$(I)
  15. 250 NEXT
  16. 300 XX= RND (- TImer)
  17. 500cls
  18. 505 AB= INT (RND (1)* 2)+ 1
  19. 510 FOR I= 1 TO AB
  20. 520 AB$(I)= BR$(INT (RND (1)* 5)+ 1)
  21. 530 FOR J= 0 TO I- 1
  22. 540 IF AB$(I)= AB$(J) THEN 520
  23. 550 NEXT J,I
  24. 600 S1$= BR$(INT (RND (1)* 5)+ 1)
  25. 610 S2$= BR$(INT (RND (1)* 5)+ 1)
  26. 620 IF S1$= S2$ THEN 610
  27. 700 V= INT (RND (1)* 34)+ 1
  28. 710 GE$= BZ$(V)
  29. 840 cls:LOCATE 23,5:COLOR 7,0:PRINT"geschafft:"AU$;:locate 23,65:print"Fehler:"FE
  30.     for i=2 to 21
  31.     locate i,1:print chr$(186):locate i,80:print chr$(186);
  32.     next
  33. 930 LOCATE 6,2:PRINT string$(78,205);
  34.     LOCATE 1,2:PRINT string$(78,205);
  35. 950 LOCATE 11,2:PRINT string$(78,205);
  36.     LOCATE 22,2:PRINT string$(78,205);
  37.     locate 24,4:print string$(74,205);
  38.     locate 1,1:print chr$(201):locate 1,80:print chr$(187)
  39.     locate 22,4:print chr$(203);:locate 22,77:print chr$(203);
  40.     locate 23,4:print chr$(186);:locate 23,77:print chr$(186);
  41.     locate 24,4:print chr$(200);:locate 24,77:print chr$(188);
  42.     locate 6,1:print chr$(204):locate 6,80:print chr$(185);
  43.     locate 11,1:print chr$(204):locate 11,80:print chr$(185);
  44.     locate 22,1:print chr$(200):locate 22,80:print chr$(188);
  45.     locate 2,39:print chr$(186)
  46.     locate 3,39:print chr$(186)
  47.     locate 4,39:print chr$(186)
  48.     locate 5,39:print chr$(186)
  49.     locate 6,39:print chr$(202)
  50.     locate 1,39:print chr$(203)
  51.     locate 23,28:color 15,0:print chr$(24)chr$(25)"Cursorsteuerung/Leertaste":color 7,0
  52. 1000 LOCATE 2,50:color 15,0:PRINT "Besitzer:";
  53. 1010 FOR I= 1 TO AB
  54. 1020 LOCATE 3+i,50:ColoR 0,7:PRINT AB$(I);:color 7,0
  55. 1030 NEXT
  56. 1100 LOCATE 2,10:COLOR 15,0:PRINT"Gegenstand:":color 7,0
  57. 1110 LOCATE 4,10:color 0,7:print GE$:color 7,0
  58. 1200 LOCATE 8,30:COLOR 0,7:PRINT S1$" dit a "S2$":":color 7,0
  59. 2000 LOCATE 10,22:PRINT".......         .....        "GE$
  60. 3000 LOCATE 16,10:PRINT"C'est  ":color 7,0
  61. 3010 LOCATE 18,10:PRINT"Ce sont":color 7,0
  62.      LOCATE 13,30:PRINT"mon      ton      son  ":color 7,0
  63.      LOCATE 15,30:PRINT"ma       ta       sa   ":color 7,0
  64.      LOCATE 17,30:PRINT"notre    votre    leur ":color 7,0
  65.      LOCATE 19,30:PRINT"mes      tes      ses  ":color 7,0
  66.      LOCATE 21,30:PRINT"nos      vos      leurs":color 7,0
  67.     aw$(1,1)="mon  "
  68.     aw$(1,2)="ton  "
  69.     aw$(1,3)="son  "
  70.     aw$(2,1)="ma   "
  71.     aw$(2,2)="ta   "
  72.     aw$(2,3)="sa   "
  73.     aw$(3,1)="notre"
  74.     aw$(3,2)="votre"
  75.     aw$(3,3)="leur "
  76.     aw$(4,1)="mes  "
  77.     aw$(4,2)="tes  "
  78.     aw$(4,3)="ses  "
  79.     aw$(5,1)="nos  "
  80.     aw$(5,2)="vos  "
  81.     aw$(5,3)="leurs"
  82.  
  83. 3100 REM
  84.      ppa=16:pp=16:psa=10:ps=10:i$="":goto 3201
  85. 3200i$=INKEY$ :if i$="" then 3200
  86.      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"
  87. 3201 rem
  88. rem up
  89.      IF  i$=chr$(0)+chr$(72) THEN
  90.         pPA= pP:pP= pP- 2
  91.          IF  pP< 16 THEN ppa=16:pP= 18
  92.      end if
  93. rem down
  94.      IF  i$=chr$(0)+chr$(80) THEN
  95.          pPA= pP: pP= pP+ 2
  96.          IF  pP> 18 THEN pPa=18:pp= 16
  97.      end if
  98.      locate ppa,psa:print bw$((ppa-14)/2);
  99.      locate pp,ps:color 0,7:print bw$((pp-14)/2);:color 7,0
  100.      ppa=pp:psa=ps
  101.      if i$=" "then i$="":locate 10,22:color 0,7:print bw$((pp-14)/2):color 7,0:bb$=bw$((pp-14)/2):goto 3704
  102.      goto 3200
  103. 3704 pa=13:p=13:s=30:sa=30:goto 3706
  104. 3705 i$=INKEY$ :if i$="" then 3705
  105.      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"
  106. 3706 rem
  107. rem up
  108.      IF  i$=chr$(0)+chr$(72) THEN
  109.          PA= P:P= P- 2
  110.          IF  P< 13 THEN pa=13:P= 21
  111.      end if
  112. rem left
  113.      IF  i$=chr$(0)+chr$(75) THEN
  114.          sa= s:s= s- 9
  115.          IF  s< 30 THEN sa=30:s= 48
  116.      end if
  117. rem right
  118.      IF  i$=chr$(0)+chr$(77) THEN
  119.          sa=s:s= s +9
  120.          IF  s>48 THEN sa=48:s= 30
  121.      end if
  122. rem down
  123.      IF  i$=chr$(0)+chr$(80) THEN
  124.          PA= P: P= P+ 2
  125.          IF  P> 21 THEN Pa=21:p= 13
  126.      end if
  127.      locate pa,sa:print aw$((pa-11)/2,(sa-21)/9);
  128.      locate p,s:color 0,7:print aw$((p-11)/2,(s-21)/9);:color 7,0
  129.      pa=p:sa=s
  130.  
  131.      IF  i$=" " THEN  4700
  132.       GOTO 3705
  133. 4700 LOCATE 10,38:COLOR 0,7:PRINT aw$((p-11)/2,(s-21)/9):color 7,0
  134.      Z= Z+ 1:  delay 1
  135. 7300 aa$=aw$((p-11)/2,(s-21)/9)
  136. 9000 REM  kontrolle
  137. 9005 SP= 0:HO= 0:REM  sprecher u hoerer
  138. 9010 FOR I= 1 TO AB
  139. 9020 IF S1$= AB$(I) THEN SP= 1
  140. 9030 NEXT
  141. 9040 FOR I= 1 TO AB
  142. 9050 IF S2$= AB$(I) THEN HO= 1
  143. 9060 NEXT
  144. 9100 ON ME+ 1 GOTO 9200,9300,9400
  145. 9200 IF  AB= 1 AND BB$= "Ce sont" AND SP= 0 AND HO= 0 AND ZA$(V)= "m" AND AA$= "ses  " THEN 10000
  146. 9210 IF  AB= 1 AND BB$= "C'est  " AND SP= 0 AND HO= 0 AND GL$(V)= "f" AND AA$= "sa   " THEN 10000
  147. 9220 IF  AB= 1 AND BB$= "C'est  " AND SP= 0 AND HO= 0 AND GL$(V)= "m" AND AA$= "son  " THEN 10000
  148. 9230 IF  AB= 2 AND BB$= "Ce sont" AND SP= 0 AND HO= 0 AND ZA$(V)= "m" AND AA$= "leurs" THEN 10000
  149. 9240 IF  AB= 2 AND BB$= "C'est  " AND SP= 0 AND HO= 0 AND GL$(V)= "f" AND AA$= "leur " THEN 10000
  150. 9250 IF  AB= 2 AND BB$= "C'est  " AND SP= 0 AND HO= 0 AND GL$(V)= "m" AND AA$= "leur " THEN 10000
  151. 9260 :
  152. 9300 IF  AB= 1 AND BB$= "Ce sont" AND SP= 1 AND ZA$(V)= "m" AND AA$= "mes  " THEN 10000
  153. 9310 IF  AB= 1 AND BB$= "C'est  " AND SP= 1 AND GL$(V)= "f" AND AA$= "ma   " THEN 10000
  154. 9320 IF  AB= 1 AND BB$= "C'est  " AND SP= 1 AND GL$(V)= "m" AND AA$= "mon  " THEN 10000
  155. 9330 IF  AB= 2 AND BB$= "Ce sont" AND SP= 1 AND ZA$(V)= "m" AND AA$= "nos  " THEN 10000
  156. 9340 IF  AB= 2 AND BB$= "C'est  " AND SP= 1 AND GL$(V)= "f" AND AA$= "notre" THEN 10000
  157. 9350 IF  AB= 2 AND BB$= "C'est  " AND SP= 1 AND GL$(V)= "m" AND AA$= "notre" THEN 10000
  158. 9360 :
  159. 9400 IF  AB= 1 AND BB$= "Ce sont" AND SP= 0 AND HO= 1 AND ZA$(V)= "m" AND AA$= "tes  " THEN 10000
  160. 9410 IF  AB= 1 AND BB$= "C'est  " AND SP= 0 AND HO= 1 AND GL$(V)= "f" AND AA$= "ta   " THEN 10000
  161. 9420 IF  AB= 1 AND BB$= "C'est  " AND SP= 0 AND HO= 1 AND GL$(V)= "m" AND AA$= "ton  " THEN 10000
  162. 9430 IF  AB= 2 AND BB$= "Ce sont" AND SP= 0 AND HO= 1 AND ZA$(V)= "m" AND AA$= "vos  " THEN 10000
  163. 9440 IF  AB= 2 AND BB$= "C'est  " AND SP= 0 AND HO= 1 AND GL$(V)= "f" AND AA$= "votre" THEN 10000
  164. 9450 IF  AB= 2 AND BB$= "C'est  " AND SP= 0 AND HO= 1 AND GL$(V)= "m" AND AA$= "votre" THEN 10000
  165. 9500 REM  abweisen
  166. 9510 fe= fe+ 1:beep:i$="":goto 840
  167. 10000 rem
  168. 10010 AU= AU+ 1:AU$= RIGHT$ (TT$+ STR$ (AU),3)
  169. 10020 delay 1
  170. 10030  GOTO 500
  171. 20000 DATA  "Pierrot","Pascal","Caroline","Mireille","Paolo"
  172. 21000 DATA  crayon,m,e,maison,f,e,trousse,f,e,feutre,m,e
  173. 21010 DATA table,f,e,"fenêtre",f,e,maisons,f,m,tables,f,m
  174. 21020 DATA  balcons,m,m,escalier,m,e,cahiers,m,m
  175. 21030 DATA  gomme,f,e,livres,m,m,livre,m,e,"règles",f,m
  176. 21040 DATA "règle",f,e,chats,m,m,chat,m,e
  177. 21050 DATA  fleur,f,e,fleurs,f,m,citron,m,e,citrons,m,m,armoire,m,e
  178. 21060 DATA  "école",m,e,armoires,f,m,"écoles",f,m,balcon,m,e
  179. 21070 DATA  crayons,m,m,trousses,f,m,feutres,m,m,"fenêtres",f,m
  180. 21080 DATA  escaliers,m,m,cahier,m,e,gommes,f,m
  181.