1800 IFA<3THENPRINT"[147]       BITTE EINEN MOMENT WARTEN !"CHR$(8)
1900 IFA=0THENA=1:LOAD"HIRES-EFFEKT 1",8,1
2000 IFA=1THENA=2:LOAD"BILD 1 .PIC*  ",8,1
2100 IFA=3THENA=4:GOTO6900
2200 IFA=4THEN7000
2300 IFA=5THENA=6:GOTO7500
2400 POKE52,32:POKE56,32
2500 E1=0:E2=64:L1=0:L2=33:BYTE=255
2600 GOSUB11600
5300 POKE781,12:SYS59903
5400 FORI=0TO12
5500 POKE781,12+I:SYS59903
5600 POKE781,12-I:SYS59903
5700 FORT=1TO60:NEXT
5800 NEXT
5900 POKE53281,4
6000 POKE53265,59
6100 POKE53272,27
6200 POKE53270,216
6300 E1=0:E2=220:L1=0:L2=5:BYTE=7
6400 GOSUB11600
6500 E1=0:E2=8:L1=0:L2=5:BYTE=2
6600 GOSUB11600
6700 SYS828,8192,17,1
6800 A=3:LOAD"HIRES-EFFEKT 2",8,1
6900 I=1
7000 SYS828,40960,8192,I*INT(6*RND(0))+1
7100 A$="BILD"
7200 I=I+1:IFI>13THENPOKE53270,200
7300 IFI<19THENA$=A$+STR$(I)+"*":LOADA$,8,1
7400 A=5:LOAD"HIRES-EFFEKT 1",8,1
7500 SYS828,8192,9,0
7600 POKE53265,27:POKE53270,200:POKE53272,21
11000 RESTORE:FORI=1TO5:READA
11100 E1=0:E2=220:L1=0:L2=5:BYTE=A
11200 GOSUB11600
11300 FORT=1TO160:NEXT:NEXT
11400 DATA1,15,12,11,0
11500 PRINT"[147]":END
11600 POKE88,E1:POKE89,E2:POKE113,L1:POKE114,L2:POKE780,BYTE:POKE12,1:SYS45764:RETURN