home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of the Best
/
_.img
/
02150
/
adject.asc
next >
Wrap
Text File
|
1988-01-17
|
7KB
|
217 lines
10 rem adjectif-training für Bonne Chance, Stand etape 24 (Band II)
20 rem 29.12.87 Willimann Reisiswil
110 DIM OB$(120),GK$(120),ZK$(120),D$(120)
120 DIM KL$(50),GE$(50),ZA$(50)
125 LE$=" "
130 XY= RND (- TIMER)
140 GU= 1
200 CLS:COLOR 0,7:PRINT"ADJECTIFS";:COLOR 7,0
300 FOR I= 1 TO 24
310 READ KL$(I),GE$(I),ZA$(I)
320 NEXT
400 FOR I= 1 TO 116
410 READ OB$(I),GK$(I),ZK$(I),D$(I)
420 NEXT
1000 CLS:PRINT"Aufgabe"GU"
1001 LOCATE 2,30:PRINT"Hilfen:"HI
1002 LOCATE 2,60:PRINT"Fehler:"FE"
1004 LOCATE 22,30:PRINT "Hilfstaste = ";:COLOR 0,7:PRINT"F5";:COLOR 7,0:
LOCATE 23,30:PRINT "zum Menu = ";:COLOR 0,7:PRINT"F10";:COLOR 7,0:
1005 LOCATE 6,30:PRINT "écris la bonne forme!
1020 KL= INT (RND (1)* 24)+ 1:IF KL= KA THEN 1020
1025 KA= KL
1030 OB= INT (RND (1)* 116)+ 1:IF OA= OB THEN 1030
1035 OA= OB
1040 IF GK$(OB)< > GE$(KL) OR ZK$(OB)< > ZA$(KL) THEN 1030
1100 LOCATE 10,30:PRINT chr$(9)" "D$(OB)":"
1110 LOCATE 15,20:PRINT " "KL$(KL);
1120 GOSUB 4000
1200 GOSUB 3000
2000 IF IN$< > OB$(OB) THEN BEEP:FE= FE+ 1: GOSUB 2500:GOTO 1100
2010 GU= GU+ 1: GOTO 1000
2500 REM bei fehler
2508 LOCATE 16,20+LEN (KL$(KL))+ 2:PRINT LEFT$(LE$,35-LEN(KL$(KL)))
2510 LOCATE 16,20+LEN (KL$(KL))+ 2:PRINT IN$
2520 IF GE$(KL)="f"THEN LOCATE 14,24:PRINT" weiblich !
2530 IF GE$(KL)="m"THEN LOCATE 14,24:PRINT" männlich !
2540 IF ZA$(KL)="s"THEN LOCATE 16,24:PRINT" Einzahl !
2550 IF ZA$(KL)="p"THEN LOCATE 16,24:PRINT" Mehrzahl!
2590 RETURN
3000 rem get-routine
3005 IN$= "":IN= 0
3007 LOCATE 15,20+LEN (KL$(KL))+ 2:PRINT IN$;:COLOR 0,7:PRINT" ";:COLOR 7,0:PRINT LEFT$(LE$,34-(LEN(KL$(KL))))
3010 I$=INKEY$:IF I$= "" THEN 3010
3012 IF I$= CHR$(0)+CHR$(63) THEN I$= MID$ (OB$(OB),IN+ 1,1):HI= HI+ 1: GOTO 3100
if i$=chr$(0)+chr$(68) then cls:run"menu.tbc"
3013 AC= ASC(I$)
3014 IF AC= 13 AND IN < 1 THEN 3010
3015 IF AC= 13 THEN LOCATE 15,20+LEN(KL$(KL))+1+IN:PRINT " ":RETURN
3016 IF AC= 8 AND IN> 0 THEN 3500
3017 IF I$= "é" OR I$= "è" OR I$= "ö" OR I$= "ä" OR I$= "'" OR I$= "ü" OR I$= "â" THEN 3101
3019 IF I$= "à" OR I$= "ù" OR I$= "û" OR I$= "ô" OR I$= "î" OR I$= "ë" OR I$= "ï" THEN 3101
3030 IF AC= < 96 OR AC> = 140 THEN GOTO 3010
3040 GOTO 3101
3100 IF IN >=LEN(OB$(OB))THEN 3010
3101 IN$= IN$+ I$
3105 IN = IN + 1
3107 IF IN >= 35-(LEN(KL$(KL)))THEN RETURN
3110 LOCATE 15,20+LEN(KL$(KL))+1+IN:PRINT I$;:COLOR 0,7:PRINT" ";:COLOR 7,0
3400 GOTO 3010
3500 LOCATE 15,20+LEN(KL$(KL))+IN+1:COLOR 0,7:PRINT" ";:COLOR 7,0:PRINT" "
3510 IN$= LEFT$ (IN$,IN- 1)
3520 IN= IN- 1:I$= ""
3600 GOTO 3010
4000 REM rand
4010 LOCATE 13,18:PRINT CHR$(201);
4020 LOCATE 13,19:PRINT STRING$(38,CHR$(205));
4030 LOCATE 13,57:PRINT CHR$(187);
4040 FOR I = 1 TO 3
4050 LOCATE 13+I,18:PRINT CHR$(186);
4060 LOCATE 13+I,57:PRINT CHR$(186);
4070 NEXT I
4080 LOCATE 17,18:PRINT CHR$(200);
4090 LOCATE 17,19:PRINT STRING$(38,CHR$(205));
4100 LOCATE 17,57:PRINT CHR$(188);
4110 RETURN
10000 DATA ces jupes sont,f,p
10010 DATA ces pantalons sont,m,p
10020 DATA ce bonnet est,m,s
10030 DATA cette jupe est,f,s
10040 DATA cet anorak est,m,s
10050 DATA ces chemises sont,f,p
10060 DATA ces souliers sont ,m,p
10070 DATA ce chapeau est,m,s
10080 DATA cette robe est,f,s
10090 DATA ce manteau est,m,s
10100 DATA ces bottes sont,f,p
10110 DATA cette cravate est,f,s
10120 DATA ce chemisier est,m,s
10130 DATA cette ceinture est,f,s
10140 DATA ce complet est,m,s
10150 DATA cette veste est,f,s
10160 DATA "ces imperméables sont",m,p
10170 DATA ce jean est,m,s
10180 DATA ces gants sont,m,p
10190 DATA "ce sac à main est",m,s
10200 DATA ces chaussettes sont,f,p
10210 DATA "ce costûme est",m,s
10220 DATA ces chaussures sont,f,p
10230 DATA cette casquette est,f,s
11000 DATA bleu,m,s,blau
11010 DATA bleue,f,s,blau
11020 DATA bleus,m,p,blau
11030 DATA bleues,f,p,blau
11040 DATA vert,m,s,"grün
11050 DATA verte,f,s,"grün
11060 DATA verts,m,p,"grün
11070 DATA vertes,f,p,"grün
11080 DATA blanc,m,s,weiss
11090 DATA blanche,f,s,weiss
11100 DATA blancs,m,p,weiss
11110 DATA blanches,f,p,weiss
11120 DATA plein,m,s,voll
11130 DATA pleine,f,s,voll
11140 DATA pleins,m,p,voll
11150 DATA pleines,f,p,voll
11160 DATA grand,m,s,gross
11170 DATA grande,f,s,gross
11180 DATA grands,m,p,gross
11190 DATA grandes,f,p,gross
11200 DATA mauvais,m,s,schlecht
11210 DATA mauvaise,f,s,schlecht
11220 DATA mauvais,m,p,schlecht
11230 DATA mauvaises,f,p,schlecht
11240 DATA nouveau,m,s,neu
11250 DATA nouvelle,f,s,neu
11260 DATA nouveaux,m,p,neu
11270 DATA nouvelles,f,p,neu
11280 DATA beau,m,s,"schön
11290 DATA belle,f,s,"schön
11300 DATA beaux,m,p,"schön
11305 DATA belles,f,p,"schön
11310 DATA "élégantes",f,p,elegant
11320 DATA "élégant",m,s,elegant
11330 DATA "élégante",f,s,elegant
11340 DATA "élégants",m,p,elegant
11350 DATA court,m,s,kurz
11360 DATA courte,f,s,kurz
11370 DATA courtes,f,p,kurz
11380 DATA courts,m,p,kurz
11390 DATA long,m,s,lang
11395 DATA longs,m,p,lang
11400 DATA longue,f,s,lang
11405 DATA longues,f,p,lang
11410 DATA lourds,m,p,schwer
11415 DATA lourd,m,s,schwer
11420 DATA lourdes,f,p,schwer
11425 DATA lourde,f,s,schwer
11430 DATA bas,m,s,niedrig
11440 DATA basse,f,s,niedrig
11450 DATA bas,m,p,niedrig
11460 DATA basses,f,p,niedrig
11510 DATA "léger",m,s,leicht
11520 DATA "légère",f,s,leicht
11530 DATA "légers",m,p,leicht
11540 DATA "légères",f,p,leicht
11550 DATA bon,m,s,gut
11560 DATA bonne,f,s,gut
11570 DATA bons,m,p,gut
11580 DATA bonnes,f,p,gut
11590 DATA haut,m,s,hoch
11600 DATA haute,f,s,hoch
11610 DATA hauts,m,p,hoch
11620 DATA hautes,f,p,hoch
11630 DATA vide,m,s,leer
11640 DATA vide,f,s,leer
11650 DATA vides,m,p,leer
11660 DATA vides,f,p,leer
11670 DATA vieux,m,s,alt
11680 DATA vieille,f,s,alt
11690 DATA vieux,m,p,alt
11700 DATA vieilles,f,p,alt
11710 DATA jeune,m,s,jung
11720 DATA jeune,f,s,jung
11730 DATA jeunes,m,p,jung
11740 DATA jeunes,f,p,jung
11750 DATA violet,m,s,violett
11760 DATA violette,f,s,violett
11770 DATA violets,m,p,violett
11780 DATA violettes,m,p,violett
11790 DATA fade,m,s,fad
11800 DATA fade,f,s,fad
11910 DATA fades,m,p,fad
11920 DATA fades,f,p,fad
11930 DATA amusant,m,s,amusant
11940 DATA amusante,f,s, amusant
11950 DATA amusants,m,p, amusant
11960 DATA amusantes,f,p,amusant
11970 DATA maigre,m,s, mager
11980 DATA maigre,f,s, mager
11990 DATA maigres,m,p,mager
12000 DATA maigres,f,p, mager
12010 DATA riche,m,s, reich
12020 DATA riche,f,s, reich
12030 DATA riches,m,p, reich
12040 DATA riches,f,p, reich
12050 DATA joli,m,s,"hübsch
12060 DATA jolie,f,s,"hübsch
12070 DATA jolis,m,p,"hübsch
12080 DATA jolies,f,p,"hübsch
12090 DATA petit,m,s, klein
12092 DATA petite,f,s,klein
12094 DATA petits,m,p,klein
12096 DATA petites,f,p,klein
12100 DATA larges,f,p,breit
12102 DATA large,f,s,breit
12104 DATA large,m,s,breit
12106 DATA larges,m,p,breit
12110 DATA chic,m,s,schick
12120 DATA chic,f,s,schick
12130 DATA chic,m,p,schick
12140 DATA chic,f,p,schick
12150 DATA fort,m,s,stark
12160 DATA forte,f,s,stark
12170 DATA forts,m,p,stark
12180 DATA fortes,f,p,stark