0 CLR
2 PRINT"[147]"POKE53280,6:POKE53281,6
10 REM LAST XITHER
20 FOR L=54272 TO 54295:POKE L,0:NEXT:POKE 54296,15
30 POKE 54277,8:POKE 54278,255:POKE 54276,23
40 F1=10
50 FOR Z=1 TO 24:F2=30:POKE 54273,F1
60 FOR Y=1 TO 10:POKE 54287,F2:F2=F2*1.01:NEXT Y
70 F1=F1+8
80 NEXT Z
90 POKE 54278,15