6 PRINT"[147]":POKE53280,0:POKE53281,0:PRINTTAB(15)"ULTRAPLUS"
10 GOSUB1000
20 POKE54277,8:POKE54278,255
30 POKE54276,21
40 FORF2=1TO150STEP8:POKE54287,F2
50 FORF1=1TO255STEP5:POKE54273,F1:NEXTF1:NEXTF2
60 POKE54278,15
70 GOSUB1000
80 POKE54277,8:POKE54278,255
90 POKE54276,21
100 FORF2=150TO1STEP-8:POKE54287,F2
110 FORF1=255TO1STEP-25:POKE54273,F1:NEXTF1:NEXTF2
120 POKE54278,15
130 END
1000 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15:RETURN