100 CLS
110 PRINT
120 PRINT
130 PRINT " ²¶¸"
140 PRINT " µ" 
150 PRINT " µ"
160 PRINT " ±·¹omputer":PAUSE 5
170 PRINT
180 PRINT "    ²¶¸"
190 PRINT "    µ"
200 PRINT "    µ"
210 PRINT "    ±·¹lub":PAUSE 5
220 PRINT 
230 PRINT "       µ¶¸"
240 PRINT "       µ µ"
250 PRINT "       µ¶´"
260 PRINT "       µ »obotron":PRINT 
270 PRINT "         praesentiert":PAUSE 20:CLS
280 PRINT AT(2,14);"µÿÿÿ´"
290 PRINT AT(3,14);"ÿÿÿÿÿ" 
300 PRINT AT(4,13);"¾ÿÿÿÿÿ" 
310 PRINT AT(5,13);"ÿÿÿÿÿÿÿ" 
320 PRINT AT(6,12);"ÏÿÄÿÄÿÄÿÏ"  
330 PRINT AT(7,12);"ÿÿÇÿÇÿÇÿÿ"   
340 PRINT AT(8,12);"ÿÿÇÿÇÿÇÿÿ"   
350 PRINT AT(9,12);"ÿÿÿÿÿ"    
360 PRINT AT(10,11);"ºÿÿþþþþþÿÿ»" 
370 PRINT AT(11,11);"" 
380 PRINT AT(12,11);"µÿÿ ÿ ÿ ÿÿ´"  
390 PRINT AT(13,11);"µÿÿÿÿÿÿÿÿÿ´"
395 PRINT AT(14,11);"µÿÿÿÿÿÿÿÿÿ´"
400 PRINT AT(15,11);"µÿÿÿÿÿÿÿÿÿ´" 
410 PRINT AT(16,11);"µÿÿÿÿÿÿÿÿÿ´"   
420 PRINT AT(17,11);"µÿÿÿÿÿÿÿÿÿ´"       
430 PRINT AT(18,11);"ÿÿþþþþþþþÿÿ"     
440 PRINT AT(19,10);"ÿÿþÿÿÿÿÿÿÿþÿÿ"     
450 PRINT AT(20,9);"ÿÿþÿÿÿÿÿÿÿÿÿþÿÿ"   
460 PRINT AT(21,8);"ÿÿÿÿþþþþþþþþþÿÿÿÿ"       
470 PRINT AT(22,7);"¾ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ" 
480 PRINT AT(23,6);"¾ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ" 
490 PRINT AT(24,0);"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"
500 PRINT AT(27,8);"Messestadt Leipzig"
510 PRINT AT(29,9);"ein Wissenstest"
520 PRINT AT(31,22);">ENTER<
1990 IF INKEY$="" GOTO 1990
2000 CLS
2010 WINDOW
2020 PRINT
2040 PRINT
2060 PRINT:PRINT "Zum Programmstart beliebige":PRINT:PRINT "Taste druecken.":I=0
2070 I=I-1:ST=RND(I)
2080 IF INKEY$="" GOTO 2070
2090 PRINT:PRINT "Wieviel Fragen moechten Sie":PRINT
2100 INPUT "beantworten?  ";A:A=INT(A):GOSUB 2620
2110 PRINT:PRINT "   Antworten bitte in":PRINT:PRINT "    GROSSBUCHSTABEN":PRINT
2120 PRINT "und ohne Abkuerzungen":PAUSE 50
2130 REM STRINGVEREINBARUNG
2140 R$="RICHTIG":NR$="FALSCH"
2150 A$=" IST DAS ?":RA$="LAUTET DIE RICHTIGE ANTWORT"
2160 B$="WELCHER BAHNHOF":G$="WELCHES GEBAEUDE"
2170 GE$="WELCHES GEWAESSER"
2180 H$="WELCHES HOTEL"
2190 K$="WELCHES KRANKENHAUS"
2200 M$="WELCHES MUSEUM"
2210 N$="WELCHES NEUBAUGEBIET"
2220 P$="WELCHER PLATZ"
2230 PA$="WELCHER PARK":F$="WELCHES GELAENDE"
2240 S$="WELCHE STRASSE":SP$="WELCHE SPORTSTAETTE"
2250 T$="WELCHES THEATER":DIM F(60)
2260 AZ=0 :R=0
2270 REM AUSWAHL DER FRAGE
2280 FR=INT(RND(1)*60+1) 
2290 IF F(FR)=1 GOTO 2280
2300 F(FR)=1
2310 CLS
2320  WINDOW 24,31,0,31 : GOSUB 2390
2330 IF FR>50 GOTO 2600
2340 IF FR>40 GOTO 2580
2350 IF FR>30 GOTO 2560
2360 IF FR>20 GOTO 2540
2370 IF FR>10 GOTO 2520
2380 ON FR GOTO 3760,3780,3800,3820,3840,3860,3880,3900,3920,3940
2390 REM UMRISS VON LEIPZIG  
2400 CLS
2410 RESTORE 2730
2420 FOR N=1 TO 86 
2430 READ X,Y,Z
2440 PRINT AT(X,Y);CHR$(Z)
2450 NEXT N
2460 RESTORE 3040
2470 FOR N=1 TO 78
2480 READ X,Y,Z
2490 PRINT AT(X,Y);CHR$(Z)
2500 NEXT N
2510 RETURN
2520 P=FR-10
2530 ON P GOTO 4000,4020,4040,4060,4080,4100,4120,4140,4160,4180
2540 P=FR-20
2550 ON P GOTO 4200,4220,4240,4260,4280,4300,4320,4340,4360,4380
2560 P=FR-30
2570 ON P GOTO 4400,4420,4440,4460,4480,4500,4520,4540,4560,4580
2580 P=FR-40
2590 ON P GOTO 4600,4620,4640,4660,4680,4700,4720,4740,4760,4780
2600 P=FR-50
2610 ON P GOTO 4800,4820,4840,4860,4880,4900,4920,4940,4960,4980
2620 IF A>25 GOTO 2690:ELSE GOTO 2630
2630 IF A<1 GOTO 2650:ELSE GOTO 2640
2640 RETURN
2650 PRINT "Wollen Sie mich auf den":PRINT
2660 PRINT "Arm nehmen? Waehlen Sie":PRINT
2670 PRINT "eine Zahl zwischen 1 und 25"
2680 GOTO 2120
2690 PRINT "Na...! Nicht so viel!":PRINT
2700 PRINT "Waehlen Sie eine Zahl":PRINT
2710 PRINT "zwischen 1 und 25" 
2720 GOTO 2120
2730 DATA 0,24,153,0,25,158,0,26,155,1,21,134,1,22,149,1,23,248
2740 DATA 1,24,152,1,26,156,2,12,131,2,13,248,2,14,248,2,15,146
2750 DATA 2,16,149,2,17,248,2,18,146,2,19,147,2,20,158,2,21,236
2760 DATA 2,27,145,2,28,146,2,29,135,3,12,232,3,29,156,4,9,131
2770 DATA 4,10,248,4,11,174,4,29,192,5,8,129,5,29,153,6,9,150
2780 DATA 6,10,135,6,29,156,7,10,152,7,29,192,8,10,159,8,29,144
2790 DATA 9,10,159,9,28,153,10,8,146,10,9,147,10,26,224,10,27,248
2800 DATA 10,28,152,11,7,248,11,8,159,11,26,156,12,5,134,12,6,147
2810 DATA 12,25,144,12,26,158,13,5,152,13,25,155,14,5,159,14,25,156,15,5,155
2820 DATA 15,26,155,16,5,156,16,6,146,16,7,135,16,26,156,17,7,156
2830 DATA 17,26,144,18,7,192,18,25,129,19,8,155,19,16,153,19,17,145          
2840 DATA 19,18,144,19,19,155,19,22,224,19,23,248,19,24,228,19,26,159
2850 DATA 20,8,152,20,16,152,20,19,133,20,20,147,20,21,150,20,22,132,20,24   
2860 DATA 133,20,25,147,21,8,155,21,16,159,22,8,156,22,14,174,22,15,158 
2870 DATA 2,12,131,3,12,232,4,11,174,4,10,248,4,9,131   
2880 DATA 5,8,129,6,9,150,6,10,135,7,10,152,8,10,159 
2890 DATA 9,10,159,10,9,147,10,8,146,11,8,159,11,7,248 
2900 DATA 12,6,147,12,5,134,13,5,152,14,5,159,15,5,155 
2910 DATA 16,5,156,16,6,146,16,7,135,17,7,156,18,7,192 
2920 DATA 19,8,155,20,8,152,21,8,155,22,8,156,22,14,174,
2930 DATA 22,15,158,21,16,159,20,16,152,19,16,153,19,17,145
2940 DATA 19,18,144,19,19,155,20,19,133,20,20,147,20,21,150
2950 DATA 20,22,132,19,22,224,19,23,248,19,24,228,20,24,133
2960 DATA 20,25,147,19,26,159,18,25,129,17,26,144,16,26,156
2970 DATA 15,26,155,14,26,156,13,25,155,12,25,144,11,26,152
2980 DATA 10,26,224,10,27,248,10,28,152,9,28,153,8,29,144
2990 DATA 7,29,192,6,29,156,5,29,153,4,29,192,3,29,156
3000 DATA 2,29,135,2,28,146,2,27,145,1,26,156,0,26,155
3010 DATA 0,25,158,0,24,153,1,24,152,1,23,248,1,22,149
3020 DATA 1,21,134,2,21,236,2,20,158,2,19,147,2,18,146
3030 DATA 2,17,248,2,16,149,2,15,146,2,14,248,2,13,248
3040 DATA 4,12,150,4,13,149,5,14,150,5,15,149,6,16,158
3050 DATA 6,17,158,6,18,173,7,18,192,8,18,192,9,17,153
3060 DATA 9,18,158,9,19,150,9,20,230,10,17,133,10,18,230
3070 DATA 10,19,192,11,18,136,11,19,172,12,18,152,13,18,159 
3080 DATA 14,18,155,15,18,156,16,18,192,17,18,153,18,18,152
3090 DATA 2,21,144,3,20,154,4,20,124,5,20,152,6,19,144
3100 DATA 6,27,146,6,28,147,7,26,144,8,25,144,9,24,144
3110 DATA 9,26,248,9,27,248,10,20,248,10,21,248,10,22,248            
3120 DATA 10,23,144,10,24,158,10,25,158,11,20,156,12,21,155  
3130 DATA 13,21,124,14,21,156,15,22,145,16,23,145,17,24,145
3140 DATA 9,16,248,10,14,146,10,15,147,11,11,146,11,12,147
3150 DATA 11,13,158,12,9,146,12,10,147,13,6,248,13,7,146
3160 DATA 13,8,147,10,16,145,11,13,192,11,14,171,11,15,146
3170 DATA 11,16,147,11,17,145,12,13,192,13,13,153,14,13,152
3180 DATA 15,13,159,16,13,155,17,13,156,18,13,153,19,13,152
3190 DATA 20,13,159,21,12,192,22,12,192
3200 REM UP BLINKEN
3210 PRINT AT(X,Y);CHR$(Z)
3220 FOR I=1 TO 5
3230 PRINT AT(X,Y+1);"  " : PAUSE 5
3240 PRINT AT(X,Y+1);"<=" : PAUSE 5
3250 NEXT I
3260 INPUT NN$ 
3280 IF NN$=C$ GOTO 3350
3290 IF LEN(NN$)>LEN(C$) GOTO 3320
3300 IF INSTR(X$,NN$)= 0 GOTO 3390
3310 IF INSTR(Y$,NN$)= 0 GOTO 3390:ELSE GOTO 3440 
3320 L1=LEN(NN$)-LEN(C$):N1$=RIGHT$(NN$,L1)
3330 FOR I=1 TO LEN(N1$):N2$=RIGHT$(N1$,I):K=ASC(N2$)
3340 IF K<>32 GOTO 3300:ELSE NEXT I:IF LEFT$(NN$,LEN(C$))<>C$ GOTO 3300
3350! UP RICHTIG
3360 PRINT:PRINT R$ : AZ=AZ+1 :R=R+1 :WINDOW 
3370 PAUSE 20
3380 CLS : IF AZ<A GOTO 2270: ELSE GOTO 3480
3390! UP FALSCH
3400 PRINT:PRINT NR$ : PRINT : PRINT C$ : PRINT
3410 PRINT RA$ : AZ=AZ+1 :WINDOW   
3420 PAUSE 50
3430 CLS : IF AZ<A GOTO 2270: ELSE GOTO 3480
3440 PRINT:PRINT "FAST ";R$:PRINT:PRINT C$:PRINT
3450 PRINT "Ist die vollstaendige Antwort!"
3460 AZ=AZ+1:R=R+1:WINDOW:PAUSE 40
3470 CLS:IF AZ<A GOTO 2270:ELSE GOTO 3480
3480 WINDOW:CLS:M=R/A*100
3490 IF M>90 GOTO 3610
3500 IF M>80 GOTO 3600
3510 IF M>65 GOTO 3580
3520 IF M>50 GOTO 3550
3530 PRINT:PRINT "Das war ja unmoeglich! Kaufen":PRINT 
3540 PRINT "Sie sich einen Stadtplan!":GOTO 3660
3550 PRINT:PRINT "Das war eine schwache":PRINT 
3560 PRINT "Leistung. Sie sollten oefter":PRINT
3570 PRINT "den Stadtplan studieren!":GOTO 3660
3580 PRINT:PRINT "Ihre Kenntnisse von Leipzig":PRINT
3590 PRINT "koennten besser sein!":GOTO 3660
3600 PRINT:PRINT "Sie scheinen Leipzig zu kennen!":GOTO 3660
3610 IF A>20 GOTO 3720
3620 PRINT:PRINT "Sie scheinen Leipzig sehr gut":PRINT 
3630 PRINT "zu kennen. Aber nach ";A :PRINT
3640 PRINT "Fragen kann ich mir noch kein":PRINT
3650 PRINT "endgueltiges Urteil erlauben!"
3660 PRINT:PRINT "Sie haben von";A;"Fragen":PRINT
3670 PRINT R;" richtig beantwortet.":PRINT
3680 PRINT "Das sind ";M;" %" 
3690 PRINT:INPUT "Nochmal? >J/N<";J$
3700 IF J$="J" THEN CLEAR: GOTO 2090
3710 END
3720 PRINT:PRINT "Ich gratuLiere Ihnen!":PRINT
3730 PRINT "Leipzig-Information wuerde Sie":PRINT
3740 PRINT "sicher gern als Stadtfuehrer":PRINT
3750 PRINT "einstellen!":GOTO 3660
3760 PRINT N$+A$:PRINT:C$="MOECKERN":X$="MOEC":Y$="MOEC"
3770 X=4:Y=14:Z=255:GOTO 3200
3780 PRINT N$+A$:PRINT:C$="PAUNSDORF":X$="PAUN":Y$="PAUN"
3790 X=8:Y=28:Z=255:GOTO 3200
3800 PRINT N$+A$:C$="SCHOENEFELD":X$="SCHO":Y$="FELD"
3810 X=7:Y=25:Z=255:GOTO 3200
3820 PRINT N$+A$:C$="LOESSNIG":X$="LOES":Y$="LOES" 
3830 X=17:Y=21:Z=255:GOTO 3200
3840 PRINT N$+A$:C$="GOHLIS":X$="GOHL":Y$="GOHL"
3850 X=4:Y=18:Z=255:GOTO 3200
3860 PRINT N$+A$:C$="GRUENAU":X$="GRUE":Y$="GRUE"
3870 X=14:Y=8:Z=255:GOTO 3200
3880 PRINT GE$+A$:C$="AUENSEE":X$="AUEN":Y$="AUEN"
3890 X=5:Y=12:Z=111:GOTO 3200
3900 PRINT GE$+A$:C$="NATURBAD SUEDWEST":X$="NATU":Y$="WEST"
3910 X=19:Y=12:Z=111:GOTO 3200
3920 PRINT GE$+A$:C$="NATURBAD NORDOST":X$="NATU":Y$="NORD"
3930 X=4:Y=25:Z=111:GOTO 3200
3940 PRINT GE$+A$:C$="PARTHE":X$="PART":Y$="PART" 
3950 RESTORE 3970:FOR I=1 TO 8
3960 READ X,Y,Z:PRINT AT(X,Y);CHR$(Z):NEXT I
3970 DATA 3,25,131,3,26,146,4,24,192,5,23,134,5,24,147
3980 DATA 6,22,146,6,23,132,7,21,144
3990 X=4:Y=24:Z=192:GOTO 3200
4000 PRINT SP$+A$:C$="ZENTRALSTADION":X$="ZENT":Y$="STAD"
4010 X=9:Y=15:Z=111:GOTO 3200
4020 PRINT SP$+A$:C$="BRUNO-PLACHE-STADION":X$="PLAC":Y$="STAD"
4030 X=17:Y=23:Z=111:GOTO 3200
4040 PRINT SP$+A$:C$="ALFRED-ROSCH-KAMPFBAHN":X$="ROSC":Y$="BAHN"
4050 X=15:Y=13:Z=111:GOTO 3200
4060 PRINT SP$+A$:C$="STADION DES FRIEDENS":X$="STAD":Y$="FRIE"
4070 X=3:Y=18:Z=111:GOTO 3200
4080 PRINT SP$+A$:C$="RENNBAHN SCHEIBENHOLZ":X$="RENN":Y$="RENN"
4090 X=13:Y=16:Z=111:GOTO 3200
4100 PRINT SP$+A$:C$="DEUTSCHE HOCHSCHULE FUER KOERPERKULTUR"
4105 Y$="SCHU":X$="DEUT"
4110 X=10:Y=15:Z=111:GOTO 3200
4120 PRINT G$+A$:C$="VOELKERSCHLACHTDENKMAL":X$="VOEL":Y$="DENK"
4130 X=16:Y=22:Z=211:GOTO 3200
4140 PRINT G$+A$:C$="DEUTSCHE BUECHEREI":X$="DEUT":Y$="BUEC"
4150 X=14:Y=20:Z=211:GOTO 3200
4160 PRINT G$+A$:C$="KARL-MARX-UNIVERSITAET":X$="MARX":Y$="UNI"
4170 X=10:Y=19:Z=221:GOTO 3200
4180 PRINT G$+A$:C$="NEUES RATHAUS":X$="NEU":Y$="RATH"
4190 X=11:Y=18:Z=217:GOTO 3200
4200 PRINT G$+A$:C$="ALTES RATHAUS":X$="ALT":Y$="RATH"
4210 X=10:Y=18:Z=218:GOTO 3200
4220 PRINT G$+A$:C$="ALTE WAAGE":X$="ALT":Y$="WAAG"
4230 X=10:Y=18:Z=210:GOTO 3200
4240 PRINT G$+A$:C$="ROBOTRON":X$="ROBO":Y$="ROBO"
4250 X=8:Y=18:Z=222:GOTO 3200
4260 PRINT PA$+A$:C$="MARIANNENPARK":X$="MARI":Y$="PARK"
4270 X=7:Y=22:Z=255:GOTO 3200
4280 PRINT PA$+A$:C$="KLARA-ZETKIN-PARK":X$="ZETK":Y$="PARK"
4290 X=12:Y=16:Z=255:GOTO 3200
4300 PRINT PA$+A$:C$="PARK DES FRIEDENS":X$="PARK":Y$="FRIE
4310 X=13:Y=21:Z=255:GOTO 3200
4320 PRINT PA$+A$:C$="ARTHUR-BRETTSCHNEIDER-PARK":X$="BRET":Y$="PARK" 
4330 X=4:Y=19:Z=255:GOTO 3200
4340 PRINT PA$+A$:C$="WILDPARK":X$="WILD":Y$="WILD"
4350 X=17:Y=17:Z=255:GOTO 3200
4360 PRINT PA$+A$:C$="WILHELM-KUELZ-PARK":X$="KUEL":Y$="PARK"
4370 X=15:Y=21:Z=255:GOTO 3200
4380 PRINT S$+A$:C$="GEORG-SCHUMANN-STRASSE":X$="SCHU":Y$="STRA" 
4390 X=5:Y=15:Z=149:GOTO 3200
4400 PRINT S$+A$:C$="LENINSTRASSE":X$="LENI":Y$="STRA"
4410 X=15:Y=22:Z=145:GOTO 3200
4420 PRINT S$+A$:C$="KARL-LIEBKNECHT-STRASSE":X$="LIEB":Y$="STRA"
4430 X=15:Y=18:Z=156:GOTO 3200
4440 PRINT S$+A$:C$="STRASSE DER DEUTSCH-SOWJETISCHEN-FREUNDSCHAFT":X$="DEU"
4450 X=5:Y=20:Z=152:Y$="SOW":GOTO 3200
4460 PRINT H$+A$:C$="MERKUR":X$="MERK":Y$="MERK"
4470 X=8:Y=18:Z=222:GOTO 3200
4480 PRINT H$+A$:C$="STADT LEIPZIG":X$="LEIP":Y$="LEIP" 
4490 X=9:Y=19:Z=218:GOTO 3200
4500 PRINT H$+A$:C$="AM RING":X$="RING":Y$="RING"
4510 X=11:Y=19:Z=211:GOTO 3200
4520 PRINT B$+A$:C$="HAUPTBAHNHOF":X$="HAUPT":Y$="HAUPT"
4530 X=9:Y=19:Z=177:GOTO 3200
4540 PRINT B$+A$:C$="STOETTERITZ":X$="STOE":Y$="STOE"
4550 X=13:Y=22:Z=178:GOTO 3200
4560 PRINT B$+A$:C$="PLAGWITZ":X$="PLAG":Y$="PLAG"
4570 X=12:Y=12:Z=178:GOTO 3200
4580 PRINT B$+A$:C$="CONNEWITZ":X$="CONN":Y$="CONN"
4590 X=17:Y=19:Z=178:GOTO 3200
4600 PRINT P$+A$:C$="PLATZ DER REPUBLIK":X$="PLAT":Y$="REPU"
4610 X=9:Y=19:Z=214:GOTO 3200
4620 PRINT P$+A$:C$="ERICH-WEINERT-PLATZ":X$="WEIN":Y$="PLAT"
4630 X=8:Y=19:Z=212:GOTO 3200
4640 PRINT P$+A$:C$="KARL-MARX-PLATZ":X$="MARX":Y$="PLAT"
4650 X=10:Y=19:Z=178:GOTO 3200
4660 PRINT P$+A$:C$="OSTPLATZ":X$="OST":Y$="OST"
4670 X=12:Y=21:Z=213:GOTO 3200
4680 PRINT P$+A$:C$="GEORGE-DIMITROFF-PLATZ":X$="DIMI":Y$="PLAT"
4690 X=12:Y=17:Z=177:GOTO 3200
4700 PRINT K$+A$:C$="ST. GEORG":X$="GEOR":Y$="GEOR
4710 X=2:Y=19:Z=179:GOTO 3200
4720 PRINT K$+A$:C$="FRAUENKLINIK":X$="FRAU":Y$="KLIN"
4730 X=14:Y=21:Z=176:GOTO 3200
4740 PRINT K$+A$:C$="KINDERKLINIK":X$="KIND":Y$="KLIN"
4750 X=12:Y=21:Z=177:GOTO 3200
4760 PRINT K$+A$:C$="DIAKONISSENHAUS":X$="DIAKO":Y$="DIAKO"
4770 X=9:Y=12:Z=179:GOTO 3200
4780 PRINT F$+A$:C$="MESSEGELAENDE":X$="MESSE":Y$="MESSE"
4790 X=14:Y=21:Z=255:GOTO 3200
4800 PRINT F$+A$:C$="FLUGPLATZ MOCKAU":X$="FLUG":Y$="FLUG"
4810 X=1:Y=22:Z=255:GOTO 3200
4820 PRINT F$+A$:C$="ZOOLOGISCHER GARTEN":X$="ZOO":Y$="ZOO"
4830 X=8:Y=17:Z=255:GOTO 3200
4840 PRINT M$+A$:C$="NATURKUNDE MUSEUM":X$="NATU":Y$="NATU"
4850 X=8:Y=17:Z=223:GOTO 3200
4860 PRINT M$+A$:C$="AEGYPTISCHES MUSEUM":X$="AEGY":Y$="AEGY"
4870 X=11:Y=19:Z=212:GOTO 3200
4880 PRINT M$+A$:C$="DIMITROFF MUSEUM":X$="DIMI":Y$="DIMI"
4890 X=12:Y=17:Z=215:GOTO 3200
4900 PRINT M$+A$:C$="GRASSI MUSEUM":X$="GRAS":Y$="GRAS"
4910 X=11:Y=20:Z=210:GOTO 3200
4920 PRINT T$+A$:C$="GROSSE OPER":X$="OPER":Y$="OPER"
4930 X=10:Y=19:Z=215:GOTO 3200
4940 PRINT T$+A$:C$="NEUES GEWANDHAUS":X$="GEWA":Y$="GEWA"
4950 X=11:Y=19:Z=214:GOTO 3200
4960 PRINT T$+A$:C$="THEATER DER JUNGEN WELT":X$="JUNG":Y$="WEL" 
4970 X=8:Y=17:Z=215:GOTO 3200
4980 PRINT T$+A$:C$="MUSIKALISCHE KOMOEDIE":X$="MUSI":Y$="KOMO"
4990 X=10:Y=13:Z=223:GOTO 3200