home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_86-07_1986_Verlag_Heinz_Weise_de.d64
/
ratefix
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
11KB
|
225 lines
5 ifpeek(50307)<>120then15
10 poke50257,0
15 l$(1)="tiere/pflanzen":l$(2)="erdkundliche begriffe"
20 l$(3)="geschichte/politik":l$(4)="natur/technik"
25 l$(5)="kunst/musik/literatur":l$(6)="sport/sportler"
30 l$(7)="englische begriffe":l$(8)="allgemeine begriffe"
35 l$(9)="sprichwoerter/sprueche"
40 a1$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
45 zx$="[192]"+a1$+"[192]"
50 printchr$(142)chr$(8):ru=1:dima$(450),zu(450),ze(26):gosub150
55 r1$=" "
60 qw$="":q1$="":poke53280,0:poke53281,0:ifas=1then590
65 goto975
70 print"[147][158] bereiche nacheinander waehlen ! "
75 forw=1to9:print""w".[150]"l$(w):next
80 print"[158] nach der auswahl --> return druecken "
85 getq$:ifq$="1"thenprint">[158]1":a(1)=1
90 ifq$="2"thenprint""qw$">[158]2":a(2)=1
95 ifq$="3"thenprint""qw$">[158]3":a(3)=1
100 ifq$="4"thenprint""qw$">[158]4":a(4)=1
105 ifq$="5"thenprint""q1$">[158]5":a(5)=1
110 ifq$="6"thenprint""q1$">[158]6":a(6)=1
115 ifq$="7"thenprint""q1$;qw$">[158]7":a(7)=1
120 ifq$="8"thenprint""q1$;qw$">[158]8":a(8)=1
125 ifq$="9"thenprint""q1$;qw$">[158]9":a(9)=1
130 ifq$=chr$(13)then140
135 goto85
140 f=0:forw=1to9:f=f+a(w):next:iff=0then85
145 goto660
150 forw=1to450:reada$(w):next:return
155 datakaninchen,pferd,hase,igel,kuh,schwein,eichhoernchen,kohlmeise,adler,wal
160 datatulpe,narzisse,buche,eiche,tanne,schachtelhalm,loewenzahn,laerche,bluete
165 dataloewenmaeulchen,frauenschuh
170 datakastanie,liguster,fingerhut,knollenblaetterpilz,champignon,zapfen
175 dataschwertlilie,teichrose,weinbergschnecke,feuersalamander,feldmaus
180 dataamaryllis,christusdorn,passionsblume,geranie
185 datagiraffe,amurtiger,kreuzotter,anaconda,marienkaefer,maikaefer,biber
190 dataackerwinde,kiefer,dinosaurier,eidechse,kaulquappe,laubfrosch,strauss
195 datanil,rhein,finnland,china,japan,ural,himalaya,indonesien,antarktis,koeln
200 dataessen,muenchen,new york,bayrischer wald,matterhorn,mount everest,arber
205 datakilimandscharo,aequator,greenwich,schottland,sylt,rotterdam,rotes meer
210 dataalpen,pyrenaeen,balkan,rockey mountains,popocatepetl,kap horn,feuerland
215 datakordilleren,aconcagua,spitzbergen,wolga,hawaii,australien,sahara,gobi
220 databodensee,victoriasee,schwarzes meer,mongolei,gelbes meer,neuseeland
225 datazugspitze,sankt helena,elba,sardinien,mallorca
230 datakarl der grosse,limes,alemannen,goten,dschingis khan,hanse,kleopatra
235 datamartin luther,christoph columbus,heinrich loewenherz,konrad adenauer
240 dataotto von bismarck,robespierre,paulskirche,caesar,montezuma,inka,azteken
245 datatut ench amun,hieroglyphen,keilschrift,huenengrab,neandertaler,xerxes
250 datapyramiden,hugenotten,mayflower,george washington,robin hood,santa maria
255 datafriedrich der grosse,die goldene horde,themistokles,tiberius,minos
260 datapeter der grosse,samurai,koenig artus,weimarer republik,nato,sokrates
265 databurgund,siegfried,nibelungen,walther von der vogelweide,minnesaenger
270 datakimbern und teutonen,sumerer,euphrat und tigris,samarkand
275 datavolt,ampere,ohm,kilowatt,aethanol,transistor,computer,schiesspulver
280 datapolysterol,nylon,kurbelwelle,zylinder,dieselmotor,ottomotor,destillation
285 dataschwefel,wasserstoff,molekuel,atom,lackmuspapier,indikator,auspuffrohr
290 dataalbert einstein,spiralbohrer,drehbank,justus von liebig,atomreaktor
295 datawerner von siemens,robert bosch,carl benz,nikolaus otto,zuendkerze
300 dataascorbinsaeure,vitamine,salzsaeure,bremsweg,rueckstoss,raketenantrieb
305 datahelium,uran,plutonium,zyankali
310 datadampfmaschine,kneifzange,vorschlaghammer,blasebalg,fotoapparat,farbfilm
315 datazuendkerzenschluessel,schraubstock
320 dataherbert von karajan,wolfgang amadeus mozart,ludwig van beethoven,floete
325 datadie beatles,elvis presley,rembrandt,le corbusier,auguste renoir
330 dataalbrecht duerer,kanon,oelgemaelde,schlager,refrain,violinschluessel
335 dataaquarell,vincent van gogh,sonate,jazzmusik,rockmusik,rhythmus,ballade
340 datajohann sebastian bach,kantate,schlager festival,hitparade,interpret
345 dataxylophon,posaune,hammond orgel,fagott,grand prix,schlagersaenger
350 dataorchester,dirigent,erster geiger,popgruppe,taktometer,klavier,malpinsel
355 dataradierung,aktfoto,modell stehen,naive malerei,scherenschnitt,novelle
360 dataroman,autobiographie,friedrich schiller,johann wolfgang von goethe
365 datafussball,eishockey,handball,volleyball,wasserball,badminton,fritz walter
370 datamanfred schnelldorfer,franz beckenbauer,sepp herberger,puck,halbzeit
375 datatrainer,stabhochsprung,erhard wunderlich,olympiasieger,nuerburgring,avus
380 dataweitspringen,boxen,ringrichter,hantel,motocross,elfmeter,foul,tennisball
385 datanordische kombination,biathlon,riesenslalom,catch as catch can,balljunge
390 datalinienrichter,satzball,masters turnier,dressurreiten,aufschlag,torlinie
395 datatontaubenschiessen,autorennen,champion,medaille,barrenturnen,reckstange
400 databodenturnen,salto mortale,knock out,gongschlag,rugby,wurfkreis,eckstoss
405 datahouse,traffic light,bobby,cambridge,traffic jam,ham and eggs,television
410 dataexercise-book,lesson,teacher,great britain,lion,chicken,bird,neighbour
415 datascotland yard,tower bridge,picture,underground,washing machine,brunch
420 dataferry,weather,spoon,tooth-brush,money-box,submarine,paint-brush,way-out
425 dataaccident,policeman,trafalgar square,aeroplane,airport,slot-machine,tram
430 datafountain,cyclist,post-office,cupboard,bus stop,railway,sunday,detective
435 datano smoking,keep smiling,litterbox,keep off,department store,big ben
440 dataautogarage,schranktuer,mauseloch,leuchtstofflampe,nylonstrumpf,kaffee
445 datatoaster,mikrowellenherd,radioapparat,putzlappen,abfalleimer,muelltonne
450 dataschnapsflasche,bierfass,erdbeertorte,eishoernchen,haustuer,freizeit
455 dataunterhose,buestenhalter,toilettenpapier,steckdose,bohrmaschine,limonade
460 datavideorecorder,zeichenblock,geschirrspueler,strassenlaterne,gully,glocke
465 dataautoreifen,witzbold,klaeranlage,staubsauger,lederhose,alleskleber,tinte
470 dataunterhemd,filzpantoffel,asphalt,gruene minna,thermostat,handmixer,tube
475 datatintenklecks,butterkeks,schokolade,praline,bonbon,grossmutter
480 dataohne fleiss kein preis,morgenstund hat gold im mund
485 datamuessigkeit ist aller laster anfang,hart aber herzlich
490 datasich regen bringt segen,wie du mir so ich dir,eine katze im sack kaufen
495 datagleich und gleich gesellt sich gern,boese menschen haben keine lieder
500 datareden ist silber schweigen ist gold,wer rastet der rostet
505 datader langen rede kurzer sinn,wie man sich bettet so liegt man
510 dataein unglueck kommt selten allein,alles paletti,geld stinkt nicht
515 datawo gehobelt wird fallen spaene,sein oder nicht sein
520 datablau wie ein veilchen,voll wie eine strandhaubitze
525 dataschnell wie ein blitz,dumm wie bohnenstroh,schlau wie ein fuchs
530 dataweiss wie schnee,rot wie blut,schwarz wie ebenholz,alles oder nichts
535 dataklein aber oho,mit dem kopf durch die wand gehen
540 datain die luft gehen,lieber arm als gar kein geld
545 datain die roehre gucken,das kind mit dem bad ausschuetten
550 datamit dem schicksal hadern,sich zwischen zwei stuehle setzen
555 datadas wort aus dem munde nehmen,mit den huehnern schlafen gehen
560 datasich aufs glatteis begeben,alles auf die goldwaage legen
565 dataarm wie eine kirchenmaus,nass wie eine katze,schwarz wie die nacht
570 datarund wie eine kugel,stur wie ein ochse,sanft wie ein lamm
575 dataluegen haben kurze beine
580 datawer einmal luegt dem glaubt man nicht,wer zuletzt lacht lacht am besten
585 datawie gewonnen so zerronnen,wer immer lacht wirkt laecherlich
590 print"[147][154] wieviele spieler ?[150] ";:la=1:gosub615:print
595 ka=val(ei$):ifka<1orka>4then590
600 forw=1toka:w$=str$(w)
605 print"[158]"w$".spieler : [153]";:la=10:gosub615:ka$(w)=ei$:next:goto1095
610 goto70
615 ei$="":poke204,0
620 getx$:ifx$=""then620
625 x=asc(x$):ifx=13andei$=""orx=20andei$=""then620
630 ifx=13thenprint" ":poke204,1:return
635 ifx=20thenprint" [157][157] [157]";:ei$=left$(ei$,len(ei$)-1)
640 ifx>46andx<59then650
645 ifx<65orx>90then620
650 iflen(ei$)=lathen620
655 ei$=ei$+x$:printx$;:goto620
660 forw=1to9:be=w
665 ifa(w)=1thena(w)=0:vw=50*(w-1):goto705
670 nextw:goto870
675 dr=dr+1:ifdr>kathendr=1:hv=hv+1
680 ifhv=3thenhv=0:dr=0:ru=ru+1:goto660
685 fr(dr)=fr(dr)+1
690 zu=int(-ti):zu=(50*rnd(0))+1:zu=int(zu)+vw
695 ifzu(zu)=1then690
700 zu(zu)=1:return
705 gosub675:ra$="":ti$="000000"
710 forw=1to26:ze(w)=0:next
715 poke53280,11:print"[147][158][176]"a1$"[174]"
720 print"[145][158][221] [221]"
725 print"[145][158][173]"a1$"[189]":ifen=2thenreturn
730 ifen=1then745
735 print"[153] runde"ru" [152]";
740 printl$(be):print"[129][183][183][183][183][183][183][183]"
745 print"[155] spieler fehler fragen"
750 print"[159]"zx$;
755 forw=1toka
760 iflen(ka$(w))<12thenka$(w)=ka$(w)+" ":goto760
765 next
770 forw=1toka:print"[154] "ka$(w)" [150]"pu(w):next:print""q1$;
775 ifrl=1thengosub1120
780 forw=1toka:print""fr(w):next
785 print""q1$;qw$"[159][146]"zx$
790 print"[153]"ka$(dr)" [154]fehler :[150]"fe:iffe>0then810
795 l=len(a$(zu)):print"[158]";:zu$=a$(zu):forw=1tolen(zu$):q$=mid$(zu$,w,1)
800 ifq$="-"orq$=" "thenprintq$;:l=l-1:nextw:goto810
805 print".";:next
810 iflen(ra$)=lthenbu=0:pu(dr)=pu(dr)+fe:fe=0:forw=1to2500:next:goto705
815 getx$:ifx$=""andval(ti$)>10thenfe=fe+1:va=40:gosub965:ti$="000000":goto785
820 ifx$=""then815
825 ifx$="_"thenprint"[158]"zu$:fe=fe+20:l=len(ra$):forw=1to1500:next:goto810
830 ti$="000000":x=asc(x$):ifx<65orx>90then810
835 ifze(x-64)=1thenva=40:gosub965:fe=fe+1:goto785
840 ze(x-64)=1:forw=1tolen(zu$):q$=mid$(zu$,w,1)
845 ifq$=x$thenra$=ra$+x$:bu=1:va=130:gosub965:gosub860
850 nextw:ifbu=0thenva=40:gosub965:fe=fe+1:goto785
855 bu=0:goto810
860 print"[158]";:forq=1tow:print"";:nextq:print"[157]"x$:return
865 print""q1$;q1$"*"
870 forw=1to2500:next:en=2:gosub710
875 ru$=str$(ru-1):print"endstand nach der"ru$".runde :":print
880 forw=1toka-1:forq=wtoka
885 ifpu(w)<pu(q)thennextq,w:goto895
890 h=pu(w):pu(w)=pu(q):pu(q)=h:h$=ka$(w):ka$(w)=ka$(q):ka$(q)=h$:nextq,w
895 print"[145]";:forw=1toka:print"[150]"w"[154]"ka$(w)"[153] "pu(w):next
900 print""q1$"[159]"zx$
905 print"[158]dem sieger beim ratefix"
910 na$=ka$(1):forw=1tolen(na$):q$=mid$(na$,w,1)
915 ifq$<>chr$(32)thennextw
920 na$=left$(na$,w-1)
925 l=int((10-len(na$))/2):goto940
930 print:print"[154]"q1$;qw$;" ";
935 forw=1tol:print"[150]*[154]";:next:printna$;:forw=1tol:print"[150]*[154]";:next:return
940 print:print"[158] herzlichen glueckwunsch"
945 forx=1to5:gosub930
950 forq=1to450:nextq:print""q1$;qw$" "
955 forq=1to450:nextq,x
960 clr:as=1:goto15
965 s=54272:forq=0to24:pokes+l,0:next:pokes+1,va:pokes+5,9:pokes+15,30
970 pokes+24,15:pokes+4,21:forq=1to100:next:pokes+4,20:return
975 print"[147] [129]i[158]n[154]p[153]u[150]t [155]6[152]4":va=180:gosub965:forw=1to1000:next
980 print" praesentiert :":gosub965:forw=1to1000:next:w=0
985 forq=1to48:f=f+1:poke646,f:iff=15thenf=1
990 print""qw$" "
995 print" "r1$" "
1000 print" "r1$" "
1005 print" "
1010 print" [146][170] "
1015 print" [146][182]"r1$" "
1020 print" [158]"
1025 getx$:ifx$<>""then590
1030 nextq:h$="ein spannendes spiel fuer jung und alt!":ifqw=1then985
1035 print"":forw=1tolen(h$):q$=mid$(h$,w,1):ifq$=" "thenprintq$;:next:goto1045
1040 print".";:next
1045 w$="abcdefghijklmnopqrstuvwxyz!"
1050 forw=1tolen(w$):h1$=mid$(w$,w,1)
1055 fora=1tolen(h$):h2$=mid$(h$,a,1)
1060 ifh1$=h2$thene$=e$+h1$:va=130:gosub965:goto1070
1065 nexta,w:goto1080
1070 print""q1$;qw$" ":forx=1toa:print"";:next:print"[157]"h1$
1075 goto1065
1080 print"[150] von th.langenkamp (1986)":gosub965:forw=1to1000:next:w=0
1085 getx$:ifx$<>""then590
1090 qw=1:goto985
1095 print"[154]schwierigkeit :":print"[158]1.begriffe von links nach rechts"
1100 print"[158]2.begriffe von rechts nach links"
1105 getx$:ifx$="1"then610
1110 ifx$="2"thenrl=1:goto610
1115 goto1105
1120 a$="":forz=1tolen(a$(zu)):a$=mid$(a$(zu),z,1)+a$:next:a$(zu)=a$:return