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)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