home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02150 / besbild.asc < prev    next >
Text File  |  1988-10-10  |  8KB  |  264 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.     bb$="......"
  11.     aw$="......"
  12.  
  13. 300 XX= RND (- TImer)
  14. 500cls
  15.     pe=int(rnd(1)*6)+1
  16.     geg=int(rnd(1)*4)+1
  17. 840 cls:LOCATE 23,5:COLOR 7,0:PRINT"geschafft:"AU$;:locate 23,65:print"Fehler:"FE
  18.     for i=2 to 21
  19.     locate i,1:print chr$(186):locate i,80:print chr$(186);
  20.     next
  21. 930 LOCATE 6,2:PRINT string$(78,205);
  22.     LOCATE 1,2:PRINT string$(78,205);
  23. 950 LOCATE 11,2:PRINT string$(78,205);
  24.     LOCATE 22,2:PRINT string$(78,205);
  25.     locate 24,4:print string$(74,205);
  26.     locate 1,1:print chr$(201):locate 1,80:print chr$(187)
  27.     locate 22,4:print chr$(203);:locate 22,77:print chr$(203);
  28.     locate 23,4:print chr$(186);:locate 23,77:print chr$(186);
  29.     locate 24,4:print chr$(200);:locate 24,77:print chr$(188);
  30.     locate 6,1:print chr$(204):locate 6,80:print chr$(185);
  31.     locate 11,1:print chr$(204):locate 11,80:print chr$(185);
  32.     locate 22,1:print chr$(200):locate 22,80:print chr$(188);
  33.     locate 2,39:print chr$(186)
  34.     locate 3,39:print chr$(186)
  35.     locate 4,39:print chr$(186)
  36.     locate 5,39:print chr$(186)
  37.     locate 6,39:print chr$(202)
  38.     locate 1,39:print chr$(203)
  39.     locate 23,28:color 15,0:print chr$(24)chr$(25)"Cursorsteuerung/Leertaste":color 7,0
  40.  
  41.     locate 2,53:print"Gegenstand:"
  42. 1120 on pe gosub 1400,1410,1420,1430,1440,1450
  43.  
  44.      on geg gosub 1500,1550,1600,1650
  45.  
  46. 1198 goto 2000
  47.  
  48.  
  49. 1200 rem mann  sprecher
  50.     locate 4,x:print chr$(2)
  51.     locate 5,x:print chr$(215)
  52.     return
  53. 1210 rem mann hörer
  54.     locate 4,x:print chr$(1)
  55.     locate 5,x:print chr$(215)
  56.     return
  57. 1220 rem stuhl
  58.     locate 5,y:print chr$(195)chr$(191)
  59.     return
  60. 1240 rem ball
  61.      locate 5,y:print "o"
  62.      return
  63.  
  64. 1300 rem zwischenwand
  65.      locate 1,25:print chr$(209)
  66.      locate 2,25:print chr$(179)
  67.      locate 3,25:print chr$(179)
  68.      locate 4,25:print chr$(179)
  69.      locate 5,25:print chr$(179)
  70.      locate 6,25:print chr$(207)
  71.      return
  72.  
  73. 1400 rem je
  74.      locate 2,10:print"Sprecher+Besitzer:
  75.      x=18:fall=1
  76.      gosub 1200
  77. return
  78.  
  79. 1410 rem tu
  80.      locate 2,10:print"Sprecher zu Besitzer:
  81.      x=13:gosub 1200:locate 4,19:print chr$(26)
  82.      x=25:gosub 1210
  83.      fall=2
  84. return
  85.  
  86.  
  87. 1420 rem il/elle
  88.      locate 2,10:print"Sprecher           Besitzer :
  89.      locate 3,10:print"                   (abwesend)
  90.      x=13:gosub 1200
  91.      x=33:gosub 1210
  92.      fall=3
  93.      gosub 1300
  94. return
  95.  
  96.  
  97. 1430 rem nous
  98.     locate 2,10:print"Sprecher+Besitzer:
  99.     x=15:gosub 1210
  100.     x=18:gosub 1200
  101.     x=21:gosub 1210
  102.     fall=4
  103.     return
  104.  
  105. 1440 rem vous
  106.      locate 2,10:print"Sprecher zu Besitzer:
  107.      x=14:gosub 1200
  108.      locate 4,19:print chr$(26)
  109.      x=24:gosub 1210
  110.      x=27:gosub 1210
  111.      fall=5
  112.      return
  113.  
  114. 1450 rem ils/elles
  115.      locate 2,10:print"Sprecher          Besitzer :
  116.      locate 3,10:print"                  (abwesend)
  117.      x=13:gosub 1200
  118.      x=29:gosub 1210
  119.      x=32:gosub 1210
  120.      x=35:gosub 1210
  121.      fall=6
  122.      gosub 1300
  123.      return
  124.  
  125.  
  126. 1500 rem 1 stuhl
  127.      y=58:gosub 1220
  128.      geschl=1
  129.      ge$="chaise"
  130.      return
  131.  
  132.  
  133. 1550 rem 3 stühle
  134.      y=55:gosub 1220
  135.      y=58:gosub 1220
  136.      y=61:gosub 1220
  137.      geschl=2
  138.      ge$="chaises"
  139.      return
  140.  
  141.  
  142. 1600 rem 1 ball
  143.      y=58:gosub 1240
  144.      geschl=3
  145.      ge$="ballon"
  146.      return
  147.  
  148. 1650 rem 3 bälle
  149.      y=55:gosub 1240
  150.      y=58:gosub 1240
  151.      y=61:gosub 1240
  152.      geschl=4
  153.      ge$="ballons"
  154.      return
  155.  
  156. 2000 LOCATE 10,22:PRINT bb$"         "aw$"         "GE$
  157. 3000 LOCATE 15,10:PRINT"C'est  ":color 7,0
  158. 3010 LOCATE 20,10:PRINT"Ce sont":color 7,0
  159.      LOCATE 13,30:PRINT"mon      ton      son  ":color 7,0
  160.      LOCATE 15,30:PRINT"ma       ta       sa   ":color 7,0
  161.      LOCATE 17,30:PRINT"notre    votre    leur ":color 7,0
  162.      LOCATE 19,30:PRINT"mes      tes      ses  ":color 7,0
  163.      LOCATE 21,30:PRINT"nos      vos      leurs":color 7,0
  164.     aw$(1,1)="mon  "
  165.     aw$(1,2)="ton  "
  166.     aw$(1,3)="son  "
  167.     aw$(2,1)="ma   "
  168.     aw$(2,2)="ta   "
  169.     aw$(2,3)="sa   "
  170.     aw$(3,1)="notre"
  171.     aw$(3,2)="votre"
  172.     aw$(3,3)="leur "
  173.     aw$(4,1)="mes  "
  174.     aw$(4,2)="tes  "
  175.     aw$(4,3)="ses  "
  176.     aw$(5,1)="nos  "
  177.     aw$(5,2)="vos  "
  178.     aw$(5,3)="leurs"
  179.  
  180. 3100 REM
  181.      ppa=15:pp=15:psa=10:ps=10:i$="":goto 3201
  182. 3200i$=INKEY$ :if i$="" then 3200
  183.      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"
  184. 3201 rem
  185. rem up
  186.      IF  i$=chr$(0)+chr$(72) THEN
  187.         pPA= pP:pP= pP- 5
  188.          IF  pP< 15 THEN ppa=15:pP= 20
  189.      end if
  190. rem down
  191.      IF  i$=chr$(0)+chr$(80) THEN
  192.          pPA= pP: pP= pP+ 5
  193.          IF  pP> 20 THEN pPa=20:pp= 15
  194.      end if
  195.      locate ppa,psa:print bw$((ppa-10)/5);
  196.      locate pp,ps:color 0,7:print bw$((pp-10)/5);:color 7,0
  197.      ppa=pp:psa=ps
  198.      if i$=" "then i$="":locate 10,22:color 0,7:print bw$((pp-10)/5):color 7,0:bb$=bw$((pp-10)/5):goto 3704
  199.      goto 3200
  200. 3704 pa=17:p=17:s=39:sa=39:goto 3706
  201. 3705 i$=INKEY$ :if i$="" then 3705
  202.      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"
  203. 3706 rem
  204. rem up
  205.      IF  i$=chr$(0)+chr$(72) THEN
  206.          PA= P:P= P- 2
  207.          IF  P< 13 THEN pa=13:P= 21
  208.      end if
  209. rem left
  210.      IF  i$=chr$(0)+chr$(75) THEN
  211.          sa= s:s= s- 9
  212.          IF  s< 30 THEN sa=30:s= 48
  213.      end if
  214. rem right
  215.      IF  i$=chr$(0)+chr$(77) THEN
  216.          sa=s:s= s +9
  217.          IF  s>48 THEN sa=48:s= 30
  218.      end if
  219. rem down
  220.      IF  i$=chr$(0)+chr$(80) THEN
  221.          PA= P: P= P+ 2
  222.          IF  P> 21 THEN Pa=21:p= 13
  223.      end if
  224.      locate pa,sa:print aw$((pa-11)/2,(sa-21)/9);
  225.      locate p,s:color 0,7:print aw$((p-11)/2,(s-21)/9);:color 7,0
  226.      pa=p:sa=s
  227.  
  228.      IF  i$=" " THEN  aw$=aw$((p-11)/2,(s-21)/9):goto 4700
  229.       GOTO 3705
  230. 4700 LOCATE 10,38:COLOR 0,7:PRINT aw$((p-11)/2,(s-21)/9):color 7,0
  231.      Z= Z+ 1
  232. 7300 aa$=aw$((p-11)/2,(s-21)/9)
  233. 9000 REM  kontrolle
  234. IF  fall= 1 AND  geschl=1 and BB$= "C'est  " AND aw$="ma   " THEN 10000
  235. IF  fall= 1 AND  geschl=2 and BB$= "Ce sont" AND aw$="mes  " THEN 10000
  236. IF  fall= 1 AND  geschl=3 and BB$= "C'est  " AND aw$="mon  " THEN 10000
  237. IF  fall= 1 AND  geschl=4 and BB$= "Ce sont" AND aw$="mes  " THEN 10000
  238. IF  fall= 2 AND  geschl=1 and BB$= "C'est  " AND aw$="ta   " THEN 10000
  239. IF  fall= 2 AND  geschl=2 and BB$= "Ce sont" AND aw$="tes  " THEN 10000
  240. IF  fall= 2 AND  geschl=3 and BB$= "C'est  " AND aw$="ton  " THEN 10000
  241. IF  fall= 2 AND  geschl=4 and BB$= "Ce sont" AND aw$="tes  " THEN 10000
  242. IF  fall= 3 AND  geschl=1 and BB$= "C'est  " AND aw$="sa   " THEN 10000
  243. IF  fall= 3 AND  geschl=2 and BB$= "Ce sont" AND aw$="ses  " THEN 10000
  244. IF  fall= 3 AND  geschl=3 and BB$= "C'est  " AND aw$="son  " THEN 10000
  245. IF  fall= 3 AND  geschl=4 and BB$= "Ce sont" AND aw$="ses  " THEN 10000
  246. IF  fall= 4 AND  geschl=1 and BB$= "C'est  " AND aw$="notre" THEN 10000
  247. IF  fall= 4 AND  geschl=2 and BB$= "Ce sont" AND aw$="nos  " THEN 10000
  248. IF  fall= 4 AND  geschl=3 and BB$= "C'est  " AND aw$="notre" THEN 10000
  249. IF  fall= 4 AND  geschl=4 and BB$= "Ce sont" AND aw$="nos  " THEN 10000
  250. IF  fall= 5 AND  geschl=1 and BB$= "C'est  " AND aw$="votre" THEN 10000
  251. IF  fall= 5 AND  geschl=2 and BB$= "Ce sont" AND aw$="vos  " THEN 10000
  252. IF  fall= 5 AND  geschl=3 and BB$= "C'est  " AND aw$="votre" THEN 10000
  253. IF  fall= 5 AND  geschl=4 and BB$= "Ce sont" AND aw$="vos  " THEN 10000
  254. IF  fall= 6 AND  geschl=1 and BB$= "C'est  " AND aw$="leur " THEN 10000
  255. IF  fall= 6 AND  geschl=2 and BB$= "Ce sont" AND aw$="leurs" THEN 10000
  256. IF  fall= 6 AND  geschl=3 and BB$= "C'est  " AND aw$="leur " THEN 10000
  257. IF  fall= 6 AND  geschl=4 and BB$= "Ce sont" AND aw$="leurs" THEN 10000
  258.  
  259. 9510 fe= fe+ 1:beep:i$="":goto 840
  260. 10000 rem
  261. 10005 bb$="......":aw$="......"
  262. 10010 AU= AU+ 1:AU$= RIGHT$ (TT$+ STR$ (AU),3)
  263. 10030  GOTO 500
  264.