1 PRINT"[147]":POKE53281,0:POKE53280,0:POKE53272,21
5 FORI=0TO24:POKE54272+I,0:NEXT:POKE54296,15
10 POKE54273,3:POKE54272,0:POKE54278,224+9:POKE54276,33
11 POKE54280,3:POKE54279,4:POKE54285,224+9:POKE54283,33
20 GOSUB40:POKE53265,91
25 GOSUB30:GOTO100
30 PRINT"[144]                                       ";
31 FORI=0TO15
32 PRINT"                                                            ";:NEXT
33 PRINT"";:RETURN
40 PRINT"   [213][192][178][192][178][192][174] [176][192][178][192][178][192][174][213][178][178][201] [213][192][178][192][178][192][201]"
41 PRINT"   [221][176][179][221][171][174][221] [221][221][221][221][221][221][171][189][221][221][221] [221][176][179][221][221][221][221]"
42 PRINT"  [160][221][173][221][192][179][221][221] [221] [179][192][179] [221][221][171][174][221] [221][176][179][221][221] [179] [176][174][176][174][176][174]"
43 PRINT"   [202][192][177][192][203][173][189] [173][177][177][192][177][177][177][192][177][192][203] [173][189][202][192][177][177][189] [173][189][173][189][173][189]"
44 PRINT"[176][195][178][192][178][192][178][178][192][178][178][178][178][192][201]"
45 PRINT"[221][221][221][221][221][221][221][171][174][171][179] [194][221][221]"
46 PRINT"[221] [179][192][179] [221][221][221][221][221][221][194][192][179]"
47 PRINT"[173][177][177][192][177][177][177][192][177][177][177][177][177][192][203]"
48 PRINT"[154]         [213][192][178][192][178][174][213][192][178][178][178][174][176][192][178][192][178][192][174][213][174]"
49 PRINT"         [221][176][189][221][221][221][221][213][189][221][221][221][221][221][171][174][221][221][171][189][221]"
50 PRINT"         [221][173][174] [221][173][179][202][174][221][221][173][179] [221][221][221][192][179][221][221]"
51 PRINT"         [202][192][177][177][177][192][177][192][177][192][177][192][177][177][189][173][177][192][177][192][203]"
52 PRINT"               [213][192][178][201][213][192][201][213][178][192][201][176][201][213][192][178][201][213][192][174][176][174][176][174]"
53 PRINT"               [221][192][179][173][179][221][171][189][221][221][221][221][173][179][221][221][173][179][192][179][221][221][221][221]"
54 PRINT"               [171][192][221][221][221] [221][221][221][192][179][221][221][221][221][221][221][171][192][221][171][179][171][179]"
55 PRINT"               [173][192][177][177][177][177][177][192][177][192][203][173][192][177][192][177][192][177][192][203][173][189][173][189]"
56 PRINT"                  [176][174][176][174]"
57 PRINT"                  [221][221][221][221]"
58 PRINT"                [176][174][173][189][173][189][176][174]"
59 PRINT"                [221][173][192][192][192][192][189][221]"
60 PRINT"                [173][192][192][192][192][192][192][189]";:POKE198,0
61 FORI=1TO900:GETA$:IFA$<>""THENRETURN
62 NEXT:RETURN
100 POKE53280,0:POKE53281,0:POKE53282,11:POKE53283,15:POKE53284,1
103 FORI=0TO7.7STEP.125:M=1524+INT(COS(I*.75)*10)*40+SIN(I)*10
104 POKEM,(PEEK(M)+64)AND255:POKEM+1,(PEEK(M+1)+64)AND255
106 POKEM+40,(PEEK(M+40)+64)AND255:POKEM+41,(PEEK(M+41)+64)AND255:NEXTI
111 FORI=0TO7.7STEP.125
113 M=1524+INT(COS(I*.75)*10)*40-SIN(I)*10
114 POKEM,(PEEK(M)+64)AND255:POKEM+1,(PEEK(M+1)+64)AND255
116 POKEM+40,(PEEK(M+40)+64)AND255:POKEM+41,(PEEK(M+41)+64)AND255:NEXTI
119 FORI=1TO1300:NEXT:GOSUB30
120 POKE53280,1:POKE53281,1:POKE53282,10:POKE53283,2:POKE53284,0
123 FORI=0TO6.1STEP.125:M=1524+INT(COS(I*.92)*10)*40+SIN(I)*10
124 POKEM,(PEEK(M)+64)AND255:POKEM+1,(PEEK(M+1)+64)AND255
126 POKEM+40,(PEEK(M+40)+64)AND255:POKEM+41,(PEEK(M+41)+64)AND255:NEXTI
129 FORI=1TO1300:NEXT:GOSUB30
130 POKE53280,0:POKE53281,0:POKE53282,5:POKE53283,13:POKE53284,1
133 FORI=0TO30STEP.3:M=1524+INT(COS(I*.92)*8)*40+SIN(I)*8
134 POKEM,(PEEK(M)+64)AND255:NEXTI
139 FORI=1TO1300:NEXT:GOSUB30
140 POKE53280,2:POKE53281,2:POKE53282,8:POKE53283,4:POKE53284,6
143 FORI=0TO20STEP.18:M=1524+INT(SIN(I)*10)*40+SIN(I*.39)*17
144 POKEM,(PEEK(M)+64)AND255:POKEM+1,(PEEK(M+1)+64)AND255
146 POKEM+40,(PEEK(M+40)+64)AND255:POKEM+41,(PEEK(M+41)+64)AND255:NEXTI
149 FORI=1TO1300:NEXT:GOSUB30
2000 PRINT"[147]";:REM PART ENDS
2010 POKE53265,27:FORI=15TO0STEP-.5:POKE54296,INT(I):NEXT
2020 PRINT"LOAD"CHR$(34)"03*"CHR$(34)",8:"
2030 PRINT"RUN:"
2100 PRINT"          TRY TO OPTIMIZE... =)";
2200 POKE198,2:POKE631,13:POKE632,13:END