home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of the Best
/
_.img
/
02150
/
puma.asc
< prev
next >
Wrap
Text File
|
1988-10-10
|
6KB
|
129 lines
10 REM PROBLEM UN/UNE/DES
20 :
30 REM WILLIMANN REISISWIL
40 xy=rnd(-timer)
50 color 7,0
100 REM GRAMMATIK-PUMA
110 GOSUB 30000
200 DIM W$(100),G$(100),VB$(100)
230 Z= 1
240 TIME$="00:00:00"
1000 FOR I= 1 TO 43
1010 READ W$(I),G$(I):REM WOERTER UND GESCHLECHT EINLESEN
1020 NEXT
1060 FOR I= 1 TO 34
1070 READ VB$(I)
1080 NEXT
1085 i$=INKEY$ :IF I$= "" THEN 1085
2000 D= INT (RND (1)* 43)+ 1
2020 V= INT (RND (1)* 34)+ 1
2030 P= 12:PA= 12
2035 FF= 0
2040 CLS
3000 locate 6,20:print"╔═══════════════════════════════════════╗"
locate 7,20:print"║ ║"
locate 8,20:print"║ ║"
locate 9,20:print"║ ║"
locate 10,20:print"║ ║"
locate 11,20:print"║ ║"
locate 12,20:print"║ ║"
locate 13,20:print"║ ║"
locate 14,20:print"║ ║"
locate 15,20:print"║ ║"
locate 16,20:print"║ ║"
locate 17,20:print"║ ║"
locate 18,20:print"╚═══════════════════════════════════════╝"
LoCATE 8,25:color 15,0:PRINT VB$(V)" ..... "W$(D):color 7,0
3010 LOCATE 2,10:PRINT Z"Aufgaben ";:COLOR 0,7:PRINT""MID$ (TIME$,4,2)":"RIGHT$ (TIME$,2)"";:COLOR 7,0:PRINT" "F"Fehler
3015 LOCATE 20,11:PRINT "für Hilfe 'F5' drücken Abbruch mit 'F10'"";
3020 locate 23,10:print chr$(24) chr$(25) " mit den Cursortasten bestätigen mit der Leertaste
3100 REM
3500 aw$(1)=" un "
aw$(2)=" une "
aw$(3)=" des "
3510 LOCATE 12,35:color 0,7:PRINT aw$(1):color 7,0
3515 LOCATE 14,35:PRINT aw$(2)
3520 LOCATE 16,35:PRINT aw$(3)
3705 i$=INKEY$ :if i$="" then 3705
IF I$= chr$(0)+chr$(63) THEN 25000
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"
3710 IF i$=chr$(0)+chr$(72) THEN
PA= P:P= P- 2
IF P< 12 THEN PA= 12:P= 16
end if
3720 IF i$=chr$(0)+chr$(80) THEN
PA= P: P= P+ 2
IF P> 16 THEN PA= 16:P= 12
end if
3275 locate pa,35:print aw$((pa-10)/2)
locate p,35:color 0,7:print aw$((p-10)/2):color 7,0
3730 IF i$=" " THEN 4000
3750 GOTO 3705
4000 IF P= 12 THEN L$= " UN "
4010 IF P= 14 THEN L$= " UNE "
4020 IF P= 16 THEN L$= " DES "
4210 IF G$(D)= "M" AND L$= " UN " THEN 4900
4220 IF G$(D)= "F" AND L$= " UNE " THEN 4900
4230 IF G$(D)= "MZ" AND L$= " DES " THEN 4900
4280 F= F+ 1:ff=ff+1
4282 IF G$(D)= "M" THEN LOCATE 10,25:PRINT "männlich Einzahl ! "
4284 IF G$(D)= "F" THEN LOCATE 10,25:PRINT "weiblich Einzahl ! "
4286 IF G$(D)= "MZ" THEN LOCATE 10,25:PRINT "Mehrzahl ! "
if ff<2 then goto 3705
locate 12,15:print"männlich Einzahl ="
locate 14,15:print"weiblich Einzahl ="
locate 16,15:print"Mehrzahl ="
4590 ff=0:GOTO 3705
4900 LOCATE 8,25 + LEN (VB$(V))+ 1:COLOR 0,7:PRINT aw$((p-10)/2):color 7,0
4910 delay 2
4920 Z= Z+ 1: GOTO 2000
20000 DATA tables,MZ,chaises,MZ,chaise,F,porte,F,feutre,M,stylo,M,feutres,MZ
20010 DATA lampes,MZ,tableaux,MZ,fleur,F,"légumes",MZ,fruits,MZ,meuble,M
20020 DATA crayons,MZ,armoire,F,melon,M,"écureuil",M,singe,M,cage,F
20030 DATA arbres,MZ,jardins,MZ,tulipe,F,chocolat,M,bonbon,M,"thé",M,"café",M
20040 DATA "école",F,"tête",F,carotte,F,"fenêtre",F,toit,M
20050 DATA balcon,M,oncle,M,tante,F,"grand-père",M,tracteur,M
20055 DATA coiffeur,M,arbre,M,ascenseur,M
20060 DATA bananes,MZ,pommes,MZ
20070 DATA oranges,MZ,champignons,MZ
20998 :
20999 :
22000 DATA donnez-moi,"je désire",je veux
22010 DATA je vois,je regarde,je prends
22020 DATA montre-moi,dessine-moi
22030 DATA donne-moi,"efface"
22040 DATA "j'achète",je bois
22050 DATA je porte,je vends,j'ai
22060 DATA je saute sur,je marche avec
22070 DATA je vends,je recule avec,je dessine
22080 DATA "j'écris sur",je parle avec,"j'efface",je salue
22090 DATA je tricote,je connais,je touche,c'est
22100 DATA montrez-moi,dessinez
22110 DATA je porte ,je monte sur,je douche,j'aimerais
25000 REM ERKLAERUNG
25005 CLS:locate 4,20:COLOR 0,7:PRINT" UN - UNE - DES":color 7,0
25010 LOCATE 6,20:PRINT "ist das darauf folgende ";:COLOR 0,7:PRINT"DING":color 7,0
25020 LOCATE 8,20:PRINT " - ";:COLOR 0,7:PRINT"Mehrzahl";:COLOR 7,0:PRINT" (s oder x am Schluss)
25030 LOCATE 10,20:PRINT " so brauchen wir -> ";:COLOR 0,7:PRINT"DES";:COLOR 7,0:PRINT"
25040 LOCATE 12,20:PRINT " - ";:COLOR 0,7:PRINT"weiblich Einzahl";:COLOR 7,0:PRINT"
25045 LOCATE 14,20:PRINT " (meist ein 'e' am Schluss)
25050 LOCATE 16,20:PRINT " so brauchen wir -> ";:COLOR 0,7:PRINT"UNE";:COLOR 7,0:PRINT"
25055 LOCATE 18,20:PRINT " - ";:COLOR 0,7:PRINT"männlich Einzahl";:COLOR 7,0
25090 LOCATE 20,20:PRINT " - so brauchen wir -> ";:COLOR 0,7:PRINT"UN";:COLOR 7,0:PRINT"
25120 LOCATE 23,20:PRINT " (zum Weiterfahren Taste drücken)";
25130 I$=INKEY$:IF I$= "" THEN 25130
25140 GOTO 2040
30000 REM TITEL
30005 CLS
30010 LOCATE 4,25:PRINT "DER
30015 LOCATE 6,25:COLOR 0,7:PRINT" GRAMMATIK-PUMA ";:COLOR 7,0:PRINT"
30020 LOCATE 8,25:PRINT "HILFT BEIM PROBLEM
30030 LOCATE 10,25:COLOR 0,7:PRINT" UN - UNE - DES ";:COLOR 7,0
30050 LOCATE 14,25:PRINT "ZUM START IRGEND EINE TASTE DRÜCKEN!
30060 LOCATE 18,25:PRINT "DIE SÄTZE SIND VIELLEICHT NICHT IMMER
30065 LOCATE 20,25:PRINT "SEHR SCHLAU,
30070 LOCATE 22,25:PRINT "ABER GRAMMATISCH IMMER RICHTIG!
30100 RETURN