5 I=1:P=2
10 SID=54272:Y=255
20 POKESID+24,15:POKESID+5,240:POKESID+6,255:POKESID,15:POKESID+14,15
60 POKESID+4,21
70 FORQ=0TO255
75 Y=Y-P:O=Q+(Y*I)
77 IFO<0THENO=0:I=I*-1
78 IFO>255THENO=255:I=I*-1
80 POKESID+1,Q:POKESID+15,O
90 NEXT
100 FORQ=255TO0STEP-1
110 Y=Y+P:O=Q+(Y*I)
120 IFO<0THENO=0:I=I*-1
130 IFO>255THENO=255:I=I*-1
140 POKESID+1,Q:POKESID+15,O
150 NEXT
160 P=P+2:IFP=10THENP=2
170 GOTO70