22 REM
110 HO=MAX(0,HO):HO=MIN(39+40,HO):VE=MAX(0,VE):VE=MIN(23,VE):PRINT CHR$(27)"Y"CHR$(32+VE)CHR$(32+HO);:RETURN
1000 A=1100:GOTO 20:REM LABOR-9/2
1010 I=0:J=0:K=0:H1=2*HO:V1=VE:CC(0)=7:CC(1)=0
1020 DIM P(1,32),M$(4),C$(2),SC$(5)
1030 P=4*ATN(1):R=0.999:VZ=0.75
1040 GOTO 10000
1050 FR=1:GOSUB 280
1060 RETURN
1069 REM Ton
1070 SD=1:SP=100:SV=10:GOSUB 400:RETURN
1099 REM Hefe
1100 CN=0:D=0.049:HK=0.95:VK=HK
1110 FOR I=0 TO P/2 STEP 1/VG/D
1120 J=-I:GOSUB 1260:GOSUB 620
1130 J=I:GOSUB 1260:GOSUB 630
1140 NEXT I
1200 HO=HK-D*VZ:VE=VK:GOSUB 620
1210 VE=0.2:GOSUB 630
1220 HO=HK+D*VZ:GOSUB 620
1230 VE=VK:GOSUB 630
1240 HA=0
1250 RETURN
1259 REM Kreispositionen
1260 HO=SIN(J)*D*VZ+HK:VE=COS(J)*D+VK:RETURN
1270 HO=P(0,J)*D+HK:VE=P(1,J)*D+VK:RETURN
1299 REM Hefewuchs
1300 CN=0:D=0.049:VK=0.95:H=HO:V=VE
1310 J=D*VZ:K=133
1320 FOR VE=VK-HA/K TO VK-HE/K STEP -1/VG
1330 HO=VK-J:GOSUB 620
1340 HO=VK+J:GOSUB 630
1350 NEXT VE
1359 REM MASSSTREIFEN
1360 HA=HE:CN=1:J=0.02
1370 FOR I=0 TO (HE-1)/10
1380 VE=VK-I/13.3
1390 HO=VK-J:GOSUB 620
1400 HO=VK+J:GOSUB 630
1410 NEXT I
1499 REM Tuer 4 oeffnet sich
1500 HO=0.95:CN=0
1510 FOR I=1 TO 4
1520 VE=I/10+0.4:SR$=MID$("HEFE",I,1)
1530 REM IF VE>(HO-HE/133) THEN CN=1
1540 GOSUB 650
1550 NEXT I
1560 HO=H:VE=V
1570 RETURN
1999 REM Ausgabe Text
2000 GOSUB 19600:GOSUB 13700
2010 READ S$
2020 IF MID$(S$,1,1)="#" THEN 2200
2030 S$=S$+" ":B$=""
2040 FOR I=1 TO LEN(S$)
2050 X$=MID$(S$,I,1)
2060 IF X$="@" THEN X$=","
2070 IF X$="$" THEN X$=N1$
2080 IF X$="%" THEN X$=N2$
2090 IF X$="&" THEN X$=N3$
2099 REM Textausgabe
2100 IF X$<>" " THEN B$=B$+X$:GOTO 2170
2110 GOSUB 120:IF HO+LEN(B$)>H1-1 THEN PRINT 
2120 IF B$="" THEN 2160
2130 FOR J=1 TO LEN(B$)
2140 PRINT MID$(B$,J,1);:GOSUB 1070
2150 NEXT J
2160 PRINT " ";:B$=""
2170 NEXT I
2180 S$="":IF FE=1 THEN RETURN
2190 GOTO 2010
2199 REM Sonderbehandlungen
2200 SS$=MID$(S$,1,3):X$=MID$(S$,4)
2209 REM Zeichenfolge
2210 IF SS$<>"#ZF" THEN 2270
2220 S$=""
2230 FOR I=0 TO H1
2240 S$=S$+X$
2250 NEXT I
2260 GOTO 2030
2269 REM Zeilenvorschub
2270 IF SS$<>"#ZV" THEN 2300
2280 PRINT:S$=X$
2290 GOTO 2030
2299 REM Textpause
2300 IF SS$<>"#TA" THEN 2330
2310 GOTO 2500
2329 REM Zentrierung
2330 IF SS$<>"#ZE" THEN 2360
2340 PRINT:S$=MID$(S$(2),1,(H1-LEN(X$))/2)+X$
2350 GOTO 2030
2360 IF SS$<>"#ET" THEN RETURN
2370 PRINT:GOSUB 120:SR$=X$
2380 GOSUB 19700:S$=""
2390 GOTO 2030
2499 REM UP Taste 1
2500 FOR I=0 TO 4:PRINT:NEXT I
2510 HO=0:VE=V1-1:GOSUB 110:PRINT S$(1);:GOSUB 1070
2520 GOSUB 200:SD=100:GOSUB 450:GOSUB 1070
2530 FOR I=0 TO V1+2:PRINT:NEXT I
2540 RETURN
2599 REM UP Taste 2
2600 CN=0:H=HO:V=VE:HO=0:VE=0.95
2610 TE$=S$(J):GOSUB 2800
2620 HO=H:VE=V
2630 RETURN
2699 REM Grafiktext
2700 TE$="*"+SR$+"*":LT=LEN(TE$)
2710 FOR TE=1 TO LT
2720 X$=MID$(TE$,TE,1)
2730 IF (X$="$") OR (X$="%") OR (X$="&") THEN  GOSUB 2900
2740 NEXT TE
2750 TE$=MID$(TE$,2,LEN(TE$)-2)
2800 FOR TE=1 TO LEN(TE$)
2810 SR$=MID$(TE$,1,TE):GOSUB 650
2820 IF RIGHT$(SR$,1)<>" " THEN  GOSUB 1070
2830 NEXT TE
2840 RETURN
2900 IF X$="$" THEN X$=N1$
2910 IF X$="%" THEN X$=N2$
2920 IF X$="&" THEN X$=N3$
2930 TE$=MID$(TE$,1,TE-1)+X$+MID$(TE$,TE+1):TE=LT
2940 RETURN
3999 REM Schluessel
4000 GOSUB 600:CN=0:F=0:WA=0:GOSUB 1050
4010 GOSUB 14000:IF TU=7 THEN 6000
4020 GOSUB 1100
4030 HE=HE+12:IF HE>100 THEN FE=2:RETURN
4040 GOSUB 1300
4050 REM GOSUB 5500
4060 CN=0:T=1/7
4070 FOR I=1 TO 5
4080 HK=T*I-T/2:IF F THEN 4320
4090 VK=0.06:D=0.02:A=0:E=32:GOSUB 11400
4100 VK=0.1:D=0.08:A=1:E=31:GOSUB 11400
4300 HO=HK:VE=VK
4310 SR=I:GOSUB 300:GOSUB 650
4320 CN=0:VK=0.1:D=0.08:GOSUB 5000:GOSUB 1070
4330 NEXT I
4340 GOSUB 260:S=INT(RV*5)+1
4350 HK=T*6-T/2:I=S:VK=0:GOSUB 5100:GOSUB 1070
4360 IF F THEN 4430
4370 J=31:GOSUB 1270:GOSUB 620
4380 H=HK:V=VE
4390 HO=H-0.07:GOSUB 630:VE=0.38:GOSUB 630
4400 HO=H+0.07:GOSUB 630:VE=V:GOSUB 630
4410 J=1:GOSUB 1270:GOSUB 630
4420 HO=T*6-T/2:VE=0.02:SR$="S":GOSUB 650
4430 J=4:GOSUB 2600
4440 ME=2:GOSUB 18000
4450 IF (IN-48)=S THEN FE=0:RETURN
4460 GOSUB 5500
4470 J=6:IF (IN) THEN J=5
4500 GOSUB 2600
4510 CN=1:D=0.08
4520 FOR VE=0.39 TO P(1,1)*D+0.1 STEP -1/VG
4530 HO=0.01:GOSUB 620
4540 HO=T*5:GOSUB 630
4550 NEXT VE
4560 HK=T*6-T/2:VK=0:I=S:GOSUB 5100:F=1
4570 WA=WA+1:IF WA<3 THEN 4030
4580 FE=1:RETURN
4599 REM LG$ zeichnen
4600 H=HO:V=VE
4610 FOR I=1 TO LEN(LG$)STEP 5
4620 X$=MID$(LG$,I+1,2)
4630 HO=R:IF X$="RR" THEN 4650
4640 HO=VAL(X$)/100
4650 X$=MID$(LG$,I+3,2)
4660 VE=R:IF X$="RR" THEN 4680
4670 VE=VAL(X$)/100
4680 X$=MID$(LG$,I,1)
4690 IF X$="P" THEN  GOSUB 620
4700 IF X$="D" THEN  GOSUB 630
4710 NEXT I
4720 HO=H:VE=V:LG$=""
4730 RETURN
4799 REM Hefe-Ueberlauf
4800 SR$=" Nun laeuft die Hefe ueber...":GOSUB 11300
4810 HE=100:GOSUB 1300:CN=0:FE=1
4820 FOR VE=0.2 TO R STEP 2/VG
4830 HO=0.88:GOSUB 620
4840 HO=0.92:GOSUB 630
4850 NEXT VE
4860 FOR VE=R TO 0.1 STEP -2/VG
4870 HO=0:GOSUB 620
4880 HO=R:GOSUB 630
4890 NEXT VE
4900 GOTO 11000
4999 REM Schluesselform
5000 SC$(I)=""
5010 FOR K=1 TO 8
5020 GOSUB 260:SC$(I)=SC$(I)+CHR$(65+RV*2)
5030 NEXT K
5049 REM Wiederholverbot
5050 Y$=SC$(I):X$="AAAA":J=0:IF I=1 THEN 5090
5060 FOR K=1 TO I-1
5070 IF SC$(K)=Y$ THEN K=I-1:J=1
5080 NEXT K
5090 IF (J) OR (MID$(Y$,1,4)=X$) OR (MID$(Y$,5)=X$) THEN 5000
5100 J=31:GOSUB 1270:L=0.011:N=0.05
5110 H=HO:V=VE:GOSUB 620
5120 FOR K=1 TO 4
5130 HO=H-L*(ASC(MID$(SC$(I),K,1))-64)
5140 VE=V+K*N-N/2:GOSUB 630
5150 HO=H
5160 VE=V+K*N:GOSUB 630
5170 NEXT K
5180 HO=P(0,1)*D+HK:GOSUB 630
5190 H=HO
5200 FOR K=5 TO 8
5210 HO=H
5220 VE=V+(9-K)*N:GOSUB 630
5230 HO=H+L*(ASC(MID$(SC$(I),K,1))-64)
5240 VE=V+(9-K)*N-N/2:GOSUB 630
5250 NEXT K
5260 J=1:GOSUB 1270:GOSUB 630
5270 RETURN
5499 REM Bemerkung loeschen
5500 CN=1:HO=0:VE=0.95
5510 FOR BE=4 TO 6
5520 SR$=S$(BE):GOSUB 650
5530 NEXT BE
5540 RETURN
5999 REM Superschloss
6000 CN=0:HO=0:VE=0.01:TE$=S$(3):GOSUB 2800
6010 FOR CO=1 TO 2
6020 SR=CO:GOSUB 300:C$(0)=SR$+". Codewort ---> "
6030 HO=0:VE=0.07*CO:CN=0:TE$=C$(0):GOSUB 2800
6040 GOSUB 200:GOSUB 6500
6050 IF FE THEN CO=2
6060 NEXT CO
6070 RETURN
6499 REM Codeeingabe
6500 TE$=MID$(S$(2),1,LEN(C$(0)))+"_"
6510 CN=0:SR$=TE$:GOSUB 650
6520 SD=100:GOSUB 450:CN=1:SR$=TE$:GOSUB 650
6530 IF IN=0 THEN FE=1:J=6:GOTO 2600
6540 IF IN<>127 THEN 6630
6550 HE=HE+6:IF HE>100 THEN FE=2:RETURN
6560 SR$=MID$(S$(2),1,LEN(C$(0))-1)+RIGHT$(C$(0),1)
6600 C$(0)=MID$(C$(0),1,LEN(C$(0))-1)
6610 CN=1:GOSUB 650:GOSUB 1300:GOSUB 1070
6620 GOTO 6500
6630 IF (IN<65) OR (IN>90) THEN  GOSUB 250:GOTO 6500
6640 C$(0)=C$(0)+CHR$(IN)
6650 CN=0:SR$=C$(0):GOSUB 650:GOSUB 1070:FE=1
6660 IF RIGHT$(C$(0),LEN(C$(CO)))=C$(CO) THEN FE=0:RETURN
6670 GOTO 6500
8999 REM TITELBILD
9000 VE=V1/2:SR$="MOMENTCHEN !":GOSUB 19700
9010 GOSUB 17000
9020 GOSUB 600:GOSUB 1050:CN=0
9030 LG$=S$(10):GOSUB 4600
9040 VE=0.1:HO=0.23:SR$=S$(0):GOSUB 2700
9099 REM Sonne
9100 CN=0:HK=0.61:VK=0.65:D=0.1
9110 FOR I=P TO 0 STEP -1/VG/D
9120 J=-I:GOSUB 1260:GOSUB 620
9130 J=I:GOSUB 1260:GOSUB 630
9140 GOSUB 9500
9150 NEXT I
9199 REM Umlaufbahn
9200 G=0.6:HK=0.52:VK=G
9210 FOR I=0 TO 32
9220 HO=P(0,I)*G+HK
9230 VE=P(1,I)*D+VK
9240 CN=0:IF I<3 THEN CN=1
9250 IF I THEN GOSUB 630:GOTO 9270
9260 GOSUB 620
9270 NEXT I
9299 REM Umlauf
9300 F=1:GOSUB 200
9310 VK=VK-0.02
9320 FOR I=1 TO 32
9330 K=0:IF I<2 THEN K=1
9340 HO=P(0,I)*G+HK
9350 VE=P(1,I)*D+VK
9360 CN=K:SR$="*":GOSUB 650
9370 GOSUB 12000
9380 FOR J=0 TO L
9390 IF SX>560 THEN IN=1:GOTO 9420
9400 GOSUB 9500
9410 GOSUB 200
9420 IF (IN) THEN J=L:I=32
9430 NEXT J
9440 CN=1-K:SR$="*":GOSUB 650
9450 NEXT I
9460 IF (IN) THEN RETURN
9470 IF F=1 THEN J=1:GOSUB 2600
9480 F=0:GOTO 9320
9499 REM STERNE
9500 CN=0:SX=SX+1:H=HO:V=VE
9510 GOSUB 260:HO=RV*R:GOSUB 260:VE=RV*R
9520 GOSUB 620:HO=H:VE=V
9530 RETURN
10000 GOSUB 9000
10010 GOSUB 13000:IF FE THEN 950
10020 GOSUB 2010:TU=0:GOSUB 13700:GOSUB 17500
10030 GOSUB 2500
10040 FOR TU=1 TO 7
10050 IF TU>1 THEN  GOSUB 15500
10060 GOSUB 4000
10070 IF (FE) THEN TU=7
10080 NEXT TU
10090 ON FE+1 GOSUB 15000,11000,4800
10100 GOTO 19000
10999 REM Explosion
11000 SR$=S$(9):GOSUB 11300:M$=""
11010 FOR SR=0 TO 31
11020 GOSUB 300:IF SR<10 THEN SR$="0"+SR$
11030 M$=M$+SR$
11040 NEXT SR
11050 Y$="*"+M$+"*"
11060 GOSUB 600:GOSUB 1050:HK=0.5:VK=0.5:CN=0
11070 A=0:E=32:D=0.02:GOSUB 11400
11080 D=0.05:GOSUB 11400
11090 D=0.06:GOSUB 11400
11100 S$="()o/-":F=0
11110 M$=Y$:GOSUB 200
11120 FOR I=0 TO 31
11130 GOSUB 260:K=2*(INT(RV*(32-I))+1)
11140 J=VAL(MID$(M$,K,2))
11150 M$=MID$(M$,1,K-1)+MID$(M$,K+2)
11160 GOSUB 11500
11170 IF (IN) THEN I=32:F=1
11180 NEXT I
11190 IF F THEN Y$="":RETURN
11200 IF F=0 THEN F=1:J=1:GOSUB 2600
11210 GOTO 11110
11299 REM Text
11300 CN=0
11310 FOR VE=0.1 TO 0 STEP -1/VG
11320 HO=0:GOSUB 620
11330 HO=R:GOSUB 630
11340 NEXT VE
11350 CN=1:HO=0:VE=0.03:GOSUB 650
11360 GOSUB 250
11370 RETURN
11399 REM Kreise
11400 FOR J=A TO E STEP 2
11410 GOSUB 1270
11420 IF J>A THEN  GOSUB 630:GOTO 11440
11430 GOSUB 620
11440 NEXT J
11450 RETURN
11499 REM Splitter
11500 FOR D=0 TO 1 STEP 0.04
11510 CN=0:GOSUB 1270
11520 IF (HO<0) OR (HO>R) OR (VE<0) OR (VE>R) THEN D=1:GOTO 11560
11530 GOSUB 260:SR$=MID$(S$,INT(RV*LEN(S$)+1),1):GOSUB 650
11540 GOSUB 9500:SR$="*":CN=1:GOSUB 650
11550 GOSUB 200:IF (IN) THEN D=1
11560 NEXT D
11570 RETURN
11999 REM MORSE-TEXT
12000 Y$=MID$(M$,I,1):SP=90:L=1:N=-6
12010 IF Y$=" " THEN L=10:RETURN
12020 N=N+7:IF MID$(S$,N,1)<>Y$ THEN 12020
12030 N=N+1:SD=VAL(MID$(S$,N,1))
12040 IF SD=0 THEN RETURN
12050 SV=4:GOSUB 400
12060 SV=2:SD=1:GOSUB 400:GOTO 12030
12999 REM Abfrage
13000 FE=0:GOSUB 2000
13010 GOSUB 200:SD=100:GOSUB 450
13020 IF IN=74 THEN 13100
13030 GOSUB 19600:GOSUB 13600:FE=1
13040 IF IN=0 THEN 13070
13050 S$="#ZE--> N E I N ? ? ?  Nun@ dann":GOSUB 13900
13060 GOTO 13420
13070 S$="#ZEDu ueberlegst zu lange. Also":GOSUB 13900
13080 GOTO 13420
13100 GOSUB 2000:GOSUB 19600
13110 FOR N=1 TO 3
13120 PRINT:GOSUB 2010:GOSUB 200:PRINT:PRINT 
13130 SR$="*":PRINT "---> ";:INPUT SR$
13140 GOSUB 330:A=0
13150 FOR I=1 TO LEN(SR$)
13160 A=A+ASC(MID$(SR$,I))
13170 NEXT I
13180 IF N=1 THEN K=A:N1$=SR$
13190 IF N=2 THEN L=A:N3$=SR$
13200 IF N=3 THEN M=A:N2$=SR$
13210 NEXT N
13220 IF (K<>M) OR (N1$=N2$) OR ((L-K)/2<>LEN(N2$)) THEN 13300
13230 GOSUB 2000:FE=0:ME=1:GOTO 18000
13299 REM Unkenntnis
13300 GOSUB 19600:GOSUB 13700:GOSUB 13700:FE=1
13310 S$="Nun@ es ist schon moeglich@ dass ein gewisser $"
13320 S$=S$+" das Produkt & herstellen moechte@ "
13330 S$=S$+"ohne dass ein gewisser Prof. % etwas merkt. "
13350 GOSUB 2020:GOSUB 2500
13400 GOSUB 19600:GOSUB 13700:FE=1
13410 S$="#ZEDu kennst Teil 1 nicht! Also":GOSUB 13900
13420 S$="#ZElade erst mal LABOR-9/Teil 1":GOSUB 13900
13430 S$="#ZEin Deinen Computer ein und  ":GOSUB 13900
13440 S$="#ZEinformiere Dich darueber ! !":GOSUB 13900
13450 ME=0:GOSUB 18000
13499 REM Sternchen
13500 K=500:FE=1
13510 FOR I=0 TO K
13520 GOSUB 260:HO=1*RV*H1
13530 GOSUB 260:VE=RV*(V1-1)+1
13540 GOSUB 110:PRINT "."
13550 GOSUB 200:IF (IN) THEN I=K
13560 NEXT I
13570 RETURN
13599 REM Leerzeilen
13600 PRINT:PRINT:PRINT:RETURN
13700 PRINT:PRINT:RETURN
13900 GOSUB 2020:GOTO 13700
14000 CN=0:LG$=S$(10)+"P0040D9040P9000D90RR":GOSUB 4600
14010 ON TU GOTO 14100,14300,14100,14200,14300,14100,14600
14099 REM Tuer 1
14100 Z$="P0040D3050D6050D9040P00RRD3090D6090D90RR"
14110 Z$=Z$+"P3050D3090P6050D6090"
14120 LG$=Z$+"P4550D4590P4065D4070P5065D5070"
14130 GOSUB 4600
14140 GOSUB 14900
14150 HO=0.5:VE=0.55:GOSUB 650
14160 RETURN
14199 REM Tuer 2
14200 LG$="P30RRD3050D5050D50RRP5155D5160P5190D5195"
14210 LG$=LG$+"P3275D3675P60RRD6050D8050D80RR"
14220 LG$=LG$+"P8155D8160P8190D8195P6275D6675"
14230 GOSUB 4600
14250 GOSUB 14900
14260 HO=0.68:VE=0.55:GOSUB 650
14270 RETURN
14299 REM Tuer 3
14300 LG$=Z$
14310 GOSUB 4600
14320 HK=0.45:VK=0.7:D=0.15
14330 FOR J=0 TO 32
14340 GOSUB 1270
14350 IF J THEN  GOSUB 630:GOTO 14370
14360 GOSUB 620
14370 NEXT J
14380 HK=0.4:VK=0.7:D=0.05
14390 A=0:E=32:GOSUB 11400
14400 FOR J=4 TO 28 STEP 12
14410 GOSUB 1270:GOSUB 620
14420 HO=0.4:VE=0.7:GOSUB 630
14430 NEXT J
14440 LG$="P5765D5775D5875D5865D5765"
14450 GOSUB 4600
14500 GOSUB 14900
14510 HO=0.42:VE=0.51:GOSUB 650
14520 RETURN
14599 REM Tuer 4
14600 LG$="P0040D3050D8050D9040P00RRD3090D8090"
14610 LG$=LG$+"D90RRP3050D3090P8050D8090"
14620 LG$=LG$+"P3290D3258D7858D7890P5558D5590"
14630 GOSUB 4600
14640 HO=0.45:VE=0.51:SR$="Labor-9":GOSUB 2700
14650 GOSUB 1100:GOSUB 1300:CN=0
14799 REM Bildschirm
14800 LG$="P0445D0147D0182D0485D2881D2978D2955D2852D0445"
14810 GOSUB 4600
14820 HO=0.05:VE=0.6:IF CN=1 THEN 14870
14830 FOR N=0 TO 9
14840 GOSUB 17700:SR$=BU$:GOSUB 330:GOSUB 2700
14850 CN=1:GOSUB 650:CN=0
14860 NEXT N
14870 SR$="SUPER-":ON CN+1 GOSUB 2700,650
14880 VE=0.65:SR$="SCHLOSS":ON CN+1 GOSUB 2700,650
14890 RETURN
14899 REM Raum-Nr.
14900 GOSUB 260:SR=INT(RV*10)+10*TU:GOSUB 300
14910 RETURN
15000 CN=1:GOSUB 14800
15010 CN=0:K=0.78:J=1/HG
15020 FOR I=0 TO 1
15030 IF I THEN K=0.32:J=-J
15040 FOR HO=0.55 TO K STEP J
15050 VE=0.58:GOSUB 620
15060 VE=0.9:GOSUB 630
15070 NEXT HO
15080 NEXT I
15090 CN=1
15100 FOR VE=0.395 TO 0.003 STEP -1/VG
15110 HO=0.002:GOSUB 620
15120 HO=R-0.11:GOSUB 630
15130 NEXT VE
15200 CN=0:HO=0.03
15210 FOR VE=0.05 TO 0.3 STEP 0.05
15220 READ SR$:GOSUB 2700
15230 NEXT VE
15240 HO=0.45:VE=0.7:SR$="  E N D E  ":GOSUB 650
15250 ME=4:GOSUB 18000
15260 FE=0:GOSUB 2000:GOSUB 13600
15270 ME=0:GOTO 18000
15500 GOSUB 19600:GOSUB 13700:FE=1:SR=TU:GOSUB 300
15510 S$="#ZVDas haben WIR geschafft. Nun knacken "
15520 S$=S$+"WIR die "+SR$+". Tuer.":GOSUB 2020
15528 REM Zeile 15530 fuer mehr Spannung geaendert:
15529 REM 15530 IF(TU=3) OR (TU=5) THEN  GOSUB 17500
15530 GOSUB 260:IF (TU>1) AND (RV<0.33) THEN  GOSUB 17500
15540 GOTO 2500
16999 REM Arbeits-$ lesen
17000 RESTORE:J=-1
17010 READ S$:J=J+1
17020 IF LEFT$(S$,2)<>" 0" THEN 17010
17030 DIM S$(J)
17040 RESTORE
17050 FOR I=1 TO J
17060 READ S$:S$(I)=MID$(S$,3)
17070 NEXT I
17080 READ S$:S$(0)=MID$(S$,3)
17099 REM Musik-$'s
17100 M$(0)="1112"
17110 M$(1)="131415161516"
17120 M$(2)="171819"
17130 M$(3)="202122232223"
17140 M$(4)="2425262527"
17200 FOR ME=0 TO 4
17210 M$=""
17220 FOR J=0 TO 1
17230 FOR I=1 TO LEN(M$(ME))STEP 2
17240 K=VAL(MID$(M$(ME),I,2))
17250 IF J=0 THEN M$=M$+S$(K)
17260 IF J=1 THEN S$(K)=""
17270 NEXT I
17280 NEXT J
17290 M$(ME)=M$
17300 NEXT ME
17399 REM Morse-$
17400 M$="   -LABOR9-BY-LUTZ-MUELLER-K-   "
17410 S$="A310000B111300E100000K313000L113100"
17420 S$=S$+"M330000O333000R131000T300000"
17430 S$=S$+"U311000Y331300Z1133009133330-3111130"
17439 REM Kreistabelle
17440 FOR I=0 TO 32
17450 P(0,I)=SIN(I*P/16)*VZ
17460 P(1,I)=COS(I*P/16)
17470 NEXT I
17480 RETURN
17499 REM CODE-Woerter
17500 FE=1:S$="":IF TU<2 THEN 17540
17510 GOSUB 13700:S$="#ZF-":GOSUB 13900
17520 S$="Soeben erfolgte ein Codewechsel. Die "
17530 S$=S$+"neuesten Codewoerter lauten:":GOSUB 13900
17540 FOR CO=1 TO 2
17550 GOSUB 17700:SR$=BU$:GOSUB 330
17560 IF (SR$=N1$) OR (SR$=N2$) OR (SR$=N3$) THEN 17550
17570 C$(CO)=SR$:SR=CO:GOSUB 300
17580 S$=SR$+". Codewort = "+C$(CO):GOSUB 13900
17590 NEXT CO
17600 RETURN
17699 REM Wortgenerator
17700 X=LEN(S$(7)):Y=LEN(S$(8)):BU$="":B2=0:B4=0:GOSUB 260
17710 FOR J=1 TO 2+INT(RV*2)
17720 GOSUB 260:B1=INT(RV*X)+1:IF B1=B2 THEN 17720
17730 B2=B1:BU$=BU$+MID$(S$(7),B1,1)
17740 GOSUB 260:B3=INT(RV*Y)+1:IF B3=B4 THEN 17740
17750 B4=B3:BU$=BU$+MID$(S$(8),B3,1)
17760 NEXT J
17770 GOSUB 260:IF RV>0.5 THEN BU$=MID$(BU$,2)
17780 SR$=BU$:GOSUB 330:BU$=MID$(SR$,1,1)+MID$(BU$,2)
17790 RETURN
17999 REM Melodie
18000 M$=M$(ME):GOSUB 200
18100 LM=LEN(M$):J=VAL(MID$(M$,1,1))
18110 K=24-12*VAL(MID$(M$,2,1))
18120 FOR I=3 TO LM STEP 2
18130 SD=VAL(MID$(M$,I,1))*J
18140 SP=ASC(MID$(M$,I+1,1))-K
18150 SV=10:GOSUB 400
18160 IF ME=3 THEN SV=6:SD=1:GOSUB 400
18170 GOSUB 200:IF (IN) THEN I=LM
18180 NEXT I
18190 M$=""
18200 RETURN
18999 REM Abspann
19000 N3$=RIGHT$(N3$+CHR$(87)+LEFT$(N1$,1)+MID$(N1$,3,1)+LEFT$(N1$,1),4)
19001 GOSUB 19600:PRINT:FE=1:GOSUB 19300:F=20
19010 GOSUB 270:ME=0:GOSUB 18000:GOSUB 200
19020 Z$=MID$(S$(2),1,20):BU$=Z$
19030 Y$=BU$:B1$="":B2$=""
19040 GOSUB 17700:B1$=BU$
19050 GOSUB 17700:B2$=BU$
19060 BU$=B1$+" "+B2$+" "
19070 BX$=Y$+Z$+BU$:J=LEN(Z$)+LEN(Y$)
19099 REM jetzt Laufschrift
19100 FOR I=1 TO J
19110 GOSUB 110
19120 PRINT MID$(BX$,I,21)
19130 GOSUB 200:IF (IN) THEN I=J
19140 NEXT I
19150 IF (IN) OR (F=0) THEN 19500
19160 IF F=10 THEN  GOSUB 19400:GOSUB 200
19170 F=F-1
19180 SD=10:SV=0:GOSUB 400:GOTO 19030
19300 S$="#ZEDies war ein Programm von : ":GOSUB 13900
19310 S$="#ZELutz Mueller":GOSUB 2020:PRINT 
19320 S$="#ZERoggenfelder Str. 50":GOSUB 2020:PRINT 
19330 S$="#ZEO-2802 DOEMITZ":GOSUB 13900
19340 S$="#ZEAn der Programmerstellung   ":GOSUB 2020
19350 S$="#ZEhaben sich folgende Personen":GOSUB 2020
19360 S$="#ZEueberhaupt NICHT beteiligt !":GOSUB 13900
19370 S$="   Name :":GOSUB 2020:GOSUB 120
19380 RETURN
19400 H=HO:V=VE
19410 SR$="..... Du kannst das Programm  ":VE=20:GOSUB 19700
19420 SR$="uebrigens durch den Druck auf ":VE=21:GOSUB 19700
19430 SR$="eine beliebige Taste beenden !":VE=22:GOSUB 19700
19440 HO=H:VE=V:GOTO 1070
19499 REM Schluss
19500 GOSUB 19600:GOSUB 13600
19510 S$="#ZEZu Risiken und Nebenwirkungen":GOSUB 13900
19520 S$="#ZEdieses Programmes lesen Sie  ":GOSUB 13900
19530 S$="#ZEdas Listing und fragen Sie   ":GOSUB 13900
19540 S$="#ZEIhren Tierarzt oder den      ":GOSUB 13900
19550 S$="#ZEProgrammierer ...            ":GOSUB 2020
19560 ME=3:GOSUB 18000
19570 GOSUB 13500
19590 GOTO 950
19599 REM Ueberschrift
19600 GOSUB 100:GOSUB 1050:VE=0
19610 SR$=S$(0)
19699 REM Zentrierung
19700 HO=(H1-LEN(SR$))/2-3:GOSUB 110:GOSUB 150
19710 RETURN
24999 REM *********** DATA 's ***********
25000 DATA " 1   Taste druecken ---> "
25010 DATA " 2                              "
25020 DATA " 3 Gib die Codeworte ein !"
25030 DATA " 4      Welcher passt ?    "
25040 DATA " 5      Der passt nicht.   "
25050 DATA " 6      Zu lange gewaehlt !"
25060 DATA " 7bcdfghklmnprstvwxz"
25070 DATA " 8aeiou"
25080 DATA " 9Die Station explodiert lautlos !"
25090 DATA "10P0000DRR00DRRRRD00RRD0000"
25099 REM Zwischenspiel
25100 DATA "11212O1L1M2O2L4J4H2J1J1L2J2H4E2H"
25110 DATA "121G1H2J2H4L2O2M2L1H1J2L2J5H"
25119 REM Wahre Freundschaft...
25120 DATA "13222A2E4H4E4E2H2E2E2C4C2A2E4H2J"
25130 DATA "142H4F2H2F5E"
25140 DATA "152A2A4J4J2J"
25150 DATA "162L2M2J2J2H4H2E2H4H2J2H4F2H2F5E"
25159 REM Es waren 2 Koenigskinder...
25160 DATA "17212C2L1L1L2L2J4J2H2C2M1M1M1M1L"
25170 DATA "181O1L6J2C2O1O1Q2O1MqM4L1O1M1L1J"
25180 DATA "192H1H1H1L1J1H1J4L4J2L1L1L1O1M2J4H"
25189 REM Ade zur guten Nacht
25190 DATA "20202H4M2O2R2Q1Q1O2M2O4Q2R2V2T1T"
25200 DATA "211R2Q2T2T1R1Q2R2T4Q"
25210 DATA "222T4Q2T2Y2V1V1T2R2R4O2R2V2T1T1R"
25220 DATA "232Q2T2T1R1Q2R2T4Q"
25229 REM Heut ist ein ...
25230 DATA "24114E2G2E3B1B2B2E6N2E4N4J4L2J2I9J4J"
25240 DATA "254O4O4J4L6N2J8E"
25250 DATA "264E2J2L4N2L2J8L4J4J"
25260 DATA "278Q4O4N4L2N2O8O4N"
26000 DATA " 0LABOR-9 / Teil 2"
26010 DATA "#ZV","#ZEEine Frage zu Beginn :"
26020 DATA "#ZV","#ZVKennst Du schon Teil 1 von"
26030 DATA "LABOR-9 ?  (J/N) "
26040 DATA "#ZV","#ZV--->","#**"
26050 DATA "#ZEJA ? ? ?","#ZV ","#ZV "
26060 DATA "#ZVDann kannst Du mir sicher auch"
26070 DATA "folgende drei Fragen"
26080 DATA "richtig beantworten :","#TA"
26090 DATA "#ZV1. Wie ist der Vorname des"
26100 DATA "Assistenten von LABOR-9 ?"
26110 DATA "#**"
26120 DATA "#ZV2. Was will er herstellen ?","#**"
26130 DATA "#ZV3. Wie heisst der Prof. von"
26140 DATA "LABOR-9 mit Familiennamen ?","#**"
26150 DATA "#ZVIch sehe@ Du kennst den Teil 1"
26160 DATA "von LABOR-9.","#ZVNun hilf $ auf"
26170 DATA "seinem schwierigen Weg in's LABOR-9@"
26180 DATA "damit er sein Ziel@ & herzustellen@"
26190 DATA "erreicht@"
26200 DATA "ohne dass Prof. % es merkt.","#**"
26210 DATA "#ZV$ hat an seinem Schluesselbund"
26220 DATA "eine grosse Anzahl von Schluesseln."
26230 DATA "Er probiert jeweils 5 Stueck davon"
26240 DATA "aus.","#ZVDu siehst immer 5 Schluessel"
26250 DATA "(1 bis 5) und das Schloss (S)."
26260 DATA "#ZVEntscheide Dich schnell@ Du hast nur"
26270 DATA "solange Zeit@ wie die kleine Melodie"
26280 DATA "erklingt.","#ZVNun noch schnell die"
26290 DATA "beiden Codewoerter@ praege sie Dir"
26300 DATA "gut ein!!","#**"
26309 REM Sieg-Text
26310 DATA "$ hat nun LABOR-9 erreicht."
26320 DATA "Prof. % hat nichts bemerkt."
26330 DATA "$ sichert das Reagenzglas."
26340 DATA "Nun wird er heimlich den"
26450 DATA "SUPER-& herstellen koennen."
26460 DATA "$ dankt DIR fuer die Hilfe."
27000 DATA "#ZE4 Monate spaeter...","#ZF="
27010 DATA "#ZVDank Deiner Hilfe konnte $"
27020 DATA "den SUPER-& herstellen. Prof. % ist"
27030 DATA "inzwischen zum &KENNER geworden"
27040 DATA "und hat $ seine naechtliche Tour"
27050 DATA "verziehen. Der & erhielt den Namen"
27060 DATA "#ETLABOR-9","#ZVsowie viele Preise"
27070 DATA "und Auszeichnungen auf internationalen"
27080 DATA "Fachmessen. Die Medien loben den & und"
27090 DATA "seine Erfinder in den hoechsten Toenen."
27100 DATA "#ZVNatuerlich fragst Du jetzt@"
27110 DATA "ob Du den & auch haben kannst@"
27120 DATA "wo Du Dich doch so angestrengt hast!!"
27130 DATA "#ZV","#ZVAber selbstverstaendlich!!","#ZV"
27140 DATA "#ZVEr wird im einschlaegigen Fachhandel"
27150 DATA "verkauft@ voraussichtlich ab"
27160 DATA "dem III.Quartal 2247...","#**"
32000 REM *-------------------*
32010 REM !    Lutz Mueller   !
32020 REM !Roggenfelderstr. 50!
32030 REM !   O-2802 DOEMITZ  !
32040 REM !     08.03.1992    !
32050 REM !  auf ATARI 800 XE !
32060 REM !-------------------!
32070 REM !Wenn das Programm  !
32080 REM !gefaellt oder nicht!
32090 REM !schreiben Sie mir !!
32100 REM *-------------------*
32110 REM
32120 REM Erstausstrahlung: Deutschlandsender Kultur
32130 REM-spezial 920401
32140 REM
32150 REM *-------------------------*
32160 REM !  Aus einer fehlerhaften !
32170 REM !   Datei rekonstruiert.  !
32180 REM ! Thomas und Frank Ludwig !
32190 REM !      Dezember 2025      !
32200 REM *-------------------------*