0 IFI<>0THEN50
10 FORI=0TO23:READN:POKEI+49152,N:NEXT
20 INPUT"[147]EFFEKTCAVE (J,N)";E$
22 PRINT"WENN ES FLIMMERT, 30 SEC WARTEN! (128)
24 [153]"OHNE FLIMMERT,60 SEC WARTEN! (64)
30 INPUT"NAME";N$
40 LOADN$,8,1
50 SYS49152
60 PRINT"EINEN MOMENT";
100 S=36372:N=0:T=28688
110 POKE53296,1
120 IFN=1THEN140
130 N=1:A=INT(PEEK(S)/16):GOTO150
140 N=0:A=PEEK(S)AND15:S=S+1:PRINT".";
150 IFA=0THENPOKET,16
160 IFA=1THENPOKET,20
170 IFA=2THENPOKET,3
180 IFA=3THENPOKET,2
190 IFA=4THENPOKET,56
200 IFA=5THENPOKET,42
210 IFA=6THENPOKET,86
220 IFA=7THENPOKET,1
230 IFA=8THENPOKET,8
240 IFA=9THENPOKET,48
250 IFA=10THENPOKET,87
260 IFA=11THENPOKET,57
270 IFA=12THENPOKET,6
280 IFA=13THENPOKET,4
290 IFA=14THENPOKET,37
300 IFA=15THENPOKET,0
310 T=T+1
320 IFS<36792THEN120
330 FORI=0TO39:POKET,56:T=T+1:NEXTI:POKE53296,0
340 T=36792:S=29568
350 POKES+0,INT(PEEK(T+2)/100):POKET+2,PEEK(T+2)-100*PEEK(S+0)
360 POKES+1,INT(PEEK(T+2)/10):POKET+2,PEEK(T+2)-10*PEEK(S+1)
370 POKES+2,PEEK(T+2)
380 POKES+3,INT(PEEK(T+4)/100):POKET+4,PEEK(T+4)-100*PEEK(S+3)
390 POKES+4,INT(PEEK(T+4)/10):POKET+4,PEEK(T+4)-10*PEEK(S+4)
400 POKES+5,PEEK(T+4)
410 POKES+6,INT(PEEK(T+8)/100):POKET+8,PEEK(T+8)-100*PEEK(S+6)
420 POKES+7,INT(PEEK(T+8)/10):POKET+8,PEEK(T+8)-10*PEEK(S+7)
430 POKES+8,PEEK(T+8)
440 POKES+9,INT(PEEK(T+6)/100):POKET+6,PEEK(T+6)-100*PEEK(S+9)
450 POKES+10,INT(PEEK(T+6)/10):POKET+6,PEEK(T+6)-10*PEEK(S+10)
460 POKES+11,PEEK(T+6)
470 POKES+13,PEEK(T+12)
480 POKES+20,PEEK(T+35)
490 POKES+21,PEEK(T+37)
500 POKES+22,PEEK(T+39)
510 POKES+23,PEEK(T+41)
520 POKES+24,PEEK(T+43)
530 POKES+26,PEEK(T+0)
540 POKES+33,PEEK(T+55)
550 POKES+39,PEEK(T+52)
560 POKES+40,PEEK(T+51)
570 POKES+44,PEEK(T+50)
580 POKES+15,PEEK(T+14)
590 POKES+12,0
600 POKES+14,0
610 POKES+16,0
620 POKES+17,0
630 POKES+18,127
640 POKES+19,15
650 POKES+25,PEEK(T+34)
660 POKES+27,PEEK(T+10)*31.875
670 POKES+28,0
680 POKES+29,240
690 POKES+30,46
700 POKES+31,44
710 POKES+32,0
720 POKES+34,10
730 POKES+35,10
740 POKES+36,0
750 POKES+37,1
760 POKES+38,2
770 POKES+41,20
780 POKES+42,20
790 POKES+43,86
800 POKES+45,20
810 POKES+46,20
820 POKES+47,24
930 IFE$="J"THEN1000
940 POKES+39,0
950 POKES+40,16
960 POKES+44,22
1000 PRINT:INPUT"NAME";N$
1010 SYS57812N$,8
1020 POKE174,192:POKE175,115:POKE193,16:POKE194,112
1030 SYS62957
32000 DATA120,198,1,162,0,189,0,190,157,0,142,189,0,191,157,0,143,232,208,241
32001 DATA230,1,88,96