home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of the Best
/
_.img
/
02150
/
besbild.asc
< prev
next >
Wrap
Text File
|
1988-10-10
|
8KB
|
264 lines
100 REM problem besitzanzeigendes fuerwort
rem Willimann Reisiswil 1.1.1988
120 DIM BR$(20),BZ$(50),GL$(50),ZA$(50)
150 cls
160 P= 13:PA= 13:s=30:sa=30
180 TT$= " "
190 AU$= " 0":FE$= " 0"
bw$(1)="C'est "
bw$(2)="Ce sont"
bb$="......"
aw$="......"
300 XX= RND (- TImer)
500cls
pe=int(rnd(1)*6)+1
geg=int(rnd(1)*4)+1
840 cls:LOCATE 23,5:COLOR 7,0:PRINT"geschafft:"AU$;:locate 23,65:print"Fehler:"FE
for i=2 to 21
locate i,1:print chr$(186):locate i,80:print chr$(186);
next
930 LOCATE 6,2:PRINT string$(78,205);
LOCATE 1,2:PRINT string$(78,205);
950 LOCATE 11,2:PRINT string$(78,205);
LOCATE 22,2:PRINT string$(78,205);
locate 24,4:print string$(74,205);
locate 1,1:print chr$(201):locate 1,80:print chr$(187)
locate 22,4:print chr$(203);:locate 22,77:print chr$(203);
locate 23,4:print chr$(186);:locate 23,77:print chr$(186);
locate 24,4:print chr$(200);:locate 24,77:print chr$(188);
locate 6,1:print chr$(204):locate 6,80:print chr$(185);
locate 11,1:print chr$(204):locate 11,80:print chr$(185);
locate 22,1:print chr$(200):locate 22,80:print chr$(188);
locate 2,39:print chr$(186)
locate 3,39:print chr$(186)
locate 4,39:print chr$(186)
locate 5,39:print chr$(186)
locate 6,39:print chr$(202)
locate 1,39:print chr$(203)
locate 23,28:color 15,0:print chr$(24)chr$(25)"Cursorsteuerung/Leertaste":color 7,0
locate 2,53:print"Gegenstand:"
1120 on pe gosub 1400,1410,1420,1430,1440,1450
on geg gosub 1500,1550,1600,1650
1198 goto 2000
1200 rem mann sprecher
locate 4,x:print chr$(2)
locate 5,x:print chr$(215)
return
1210 rem mann hörer
locate 4,x:print chr$(1)
locate 5,x:print chr$(215)
return
1220 rem stuhl
locate 5,y:print chr$(195)chr$(191)
return
1240 rem ball
locate 5,y:print "o"
return
1300 rem zwischenwand
locate 1,25:print chr$(209)
locate 2,25:print chr$(179)
locate 3,25:print chr$(179)
locate 4,25:print chr$(179)
locate 5,25:print chr$(179)
locate 6,25:print chr$(207)
return
1400 rem je
locate 2,10:print"Sprecher+Besitzer:
x=18:fall=1
gosub 1200
return
1410 rem tu
locate 2,10:print"Sprecher zu Besitzer:
x=13:gosub 1200:locate 4,19:print chr$(26)
x=25:gosub 1210
fall=2
return
1420 rem il/elle
locate 2,10:print"Sprecher Besitzer :
locate 3,10:print" (abwesend)
x=13:gosub 1200
x=33:gosub 1210
fall=3
gosub 1300
return
1430 rem nous
locate 2,10:print"Sprecher+Besitzer:
x=15:gosub 1210
x=18:gosub 1200
x=21:gosub 1210
fall=4
return
1440 rem vous
locate 2,10:print"Sprecher zu Besitzer:
x=14:gosub 1200
locate 4,19:print chr$(26)
x=24:gosub 1210
x=27:gosub 1210
fall=5
return
1450 rem ils/elles
locate 2,10:print"Sprecher Besitzer :
locate 3,10:print" (abwesend)
x=13:gosub 1200
x=29:gosub 1210
x=32:gosub 1210
x=35:gosub 1210
fall=6
gosub 1300
return
1500 rem 1 stuhl
y=58:gosub 1220
geschl=1
ge$="chaise"
return
1550 rem 3 stühle
y=55:gosub 1220
y=58:gosub 1220
y=61:gosub 1220
geschl=2
ge$="chaises"
return
1600 rem 1 ball
y=58:gosub 1240
geschl=3
ge$="ballon"
return
1650 rem 3 bälle
y=55:gosub 1240
y=58:gosub 1240
y=61:gosub 1240
geschl=4
ge$="ballons"
return
2000 LOCATE 10,22:PRINT bb$" "aw$" "GE$
3000 LOCATE 15,10:PRINT"C'est ":color 7,0
3010 LOCATE 20,10:PRINT"Ce sont":color 7,0
LOCATE 13,30:PRINT"mon ton son ":color 7,0
LOCATE 15,30:PRINT"ma ta sa ":color 7,0
LOCATE 17,30:PRINT"notre votre leur ":color 7,0
LOCATE 19,30:PRINT"mes tes ses ":color 7,0
LOCATE 21,30:PRINT"nos vos leurs":color 7,0
aw$(1,1)="mon "
aw$(1,2)="ton "
aw$(1,3)="son "
aw$(2,1)="ma "
aw$(2,2)="ta "
aw$(2,3)="sa "
aw$(3,1)="notre"
aw$(3,2)="votre"
aw$(3,3)="leur "
aw$(4,1)="mes "
aw$(4,2)="tes "
aw$(4,3)="ses "
aw$(5,1)="nos "
aw$(5,2)="vos "
aw$(5,3)="leurs"
3100 REM
ppa=15:pp=15:psa=10:ps=10:i$="":goto 3201
3200i$=INKEY$ :if i$="" then 3200
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"
3201 rem
rem up
IF i$=chr$(0)+chr$(72) THEN
pPA= pP:pP= pP- 5
IF pP< 15 THEN ppa=15:pP= 20
end if
rem down
IF i$=chr$(0)+chr$(80) THEN
pPA= pP: pP= pP+ 5
IF pP> 20 THEN pPa=20:pp= 15
end if
locate ppa,psa:print bw$((ppa-10)/5);
locate pp,ps:color 0,7:print bw$((pp-10)/5);:color 7,0
ppa=pp:psa=ps
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
goto 3200
3704 pa=17:p=17:s=39:sa=39:goto 3706
3705 i$=INKEY$ :if i$="" then 3705
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"
3706 rem
rem up
IF i$=chr$(0)+chr$(72) THEN
PA= P:P= P- 2
IF P< 13 THEN pa=13:P= 21
end if
rem left
IF i$=chr$(0)+chr$(75) THEN
sa= s:s= s- 9
IF s< 30 THEN sa=30:s= 48
end if
rem right
IF i$=chr$(0)+chr$(77) THEN
sa=s:s= s +9
IF s>48 THEN sa=48:s= 30
end if
rem down
IF i$=chr$(0)+chr$(80) THEN
PA= P: P= P+ 2
IF P> 21 THEN Pa=21:p= 13
end if
locate pa,sa:print aw$((pa-11)/2,(sa-21)/9);
locate p,s:color 0,7:print aw$((p-11)/2,(s-21)/9);:color 7,0
pa=p:sa=s
IF i$=" " THEN aw$=aw$((p-11)/2,(s-21)/9):goto 4700
GOTO 3705
4700 LOCATE 10,38:COLOR 0,7:PRINT aw$((p-11)/2,(s-21)/9):color 7,0
Z= Z+ 1
7300 aa$=aw$((p-11)/2,(s-21)/9)
9000 REM kontrolle
IF fall= 1 AND geschl=1 and BB$= "C'est " AND aw$="ma " THEN 10000
IF fall= 1 AND geschl=2 and BB$= "Ce sont" AND aw$="mes " THEN 10000
IF fall= 1 AND geschl=3 and BB$= "C'est " AND aw$="mon " THEN 10000
IF fall= 1 AND geschl=4 and BB$= "Ce sont" AND aw$="mes " THEN 10000
IF fall= 2 AND geschl=1 and BB$= "C'est " AND aw$="ta " THEN 10000
IF fall= 2 AND geschl=2 and BB$= "Ce sont" AND aw$="tes " THEN 10000
IF fall= 2 AND geschl=3 and BB$= "C'est " AND aw$="ton " THEN 10000
IF fall= 2 AND geschl=4 and BB$= "Ce sont" AND aw$="tes " THEN 10000
IF fall= 3 AND geschl=1 and BB$= "C'est " AND aw$="sa " THEN 10000
IF fall= 3 AND geschl=2 and BB$= "Ce sont" AND aw$="ses " THEN 10000
IF fall= 3 AND geschl=3 and BB$= "C'est " AND aw$="son " THEN 10000
IF fall= 3 AND geschl=4 and BB$= "Ce sont" AND aw$="ses " THEN 10000
IF fall= 4 AND geschl=1 and BB$= "C'est " AND aw$="notre" THEN 10000
IF fall= 4 AND geschl=2 and BB$= "Ce sont" AND aw$="nos " THEN 10000
IF fall= 4 AND geschl=3 and BB$= "C'est " AND aw$="notre" THEN 10000
IF fall= 4 AND geschl=4 and BB$= "Ce sont" AND aw$="nos " THEN 10000
IF fall= 5 AND geschl=1 and BB$= "C'est " AND aw$="votre" THEN 10000
IF fall= 5 AND geschl=2 and BB$= "Ce sont" AND aw$="vos " THEN 10000
IF fall= 5 AND geschl=3 and BB$= "C'est " AND aw$="votre" THEN 10000
IF fall= 5 AND geschl=4 and BB$= "Ce sont" AND aw$="vos " THEN 10000
IF fall= 6 AND geschl=1 and BB$= "C'est " AND aw$="leur " THEN 10000
IF fall= 6 AND geschl=2 and BB$= "Ce sont" AND aw$="leurs" THEN 10000
IF fall= 6 AND geschl=3 and BB$= "C'est " AND aw$="leur " THEN 10000
IF fall= 6 AND geschl=4 and BB$= "Ce sont" AND aw$="leurs" THEN 10000
9510 fe= fe+ 1:beep:i$="":goto 840
10000 rem
10005 bb$="......":aw$="......"
10010 AU= AU+ 1:AU$= RIGHT$ (TT$+ STR$ (AU),3)
10030 GOTO 500