10 GRAPHICS 10›20 POKE 704,96:REM SETS BACKGROUND (COLOR 0, COLPM0) TO DARK PURPLE›30 POKE 705,22:REM SETS COLOR 1, COLPM1 TO YELLOW›40 POKE 706,38:REM SETS COLOR 2, COLPM2 TO YELLOW ORANGE›50 POKE 707,54:REM SETS COLOR 3, COLPM3 TO ORANGE›60 POKE 708,70:REM SETS COLOR 4, COLPF0 TO RED›70 POKE 709,86:REM SETS COLOR 5, COLPF1 TO PURPLE›80 POKE 710,104:REM SETS COLOR 6, COLPF2 TO BLUE›90 POKE 711,120:REM SETS COLOR 7, COLPF3 TO BLUE GREEN›100 POKE 712,180:REM SETS COLOR 8, COLPF4 TO GREEN›110 FOR I=1 TO 64:REM SETS UP VARIABLE FOR COLOR AND POSITION›120 C=C*(C<8)+1:COLOR C:REM CHANGES COLOR VALUE›130 PLOT I,I:REM START AT LEPT HAND CORNER›140 DRAWTO I,191-I:REM DRAWTO BOTTOM LEFT CORNER›150 DRAWTO 79-I,191-I:REM DR. BOTTOM RIGHT CORNER›160 DRAWTO 79-I,I:REM DR. TOP RIGHT CORNER›170 DRAWTO I,I:REM DR. TOP LEFT TO COMPLETE BORDER›180 NEXT I›190 Z=PEEK(712):REM SETS Z EQUAL TO THE VALUE IN THE LAST REGISTER›200 POKE 712,PEEK(711):REM ROTATES VALUES FROM 711 TO 712›210 POKE 711,PEEK(710):REM ROTATES VALUES FROM 710 TO 711›220 POKE 711,PEEK(709):REM ROTATES VALUES FROM 709 TO 710›230 POKE 709,PEEK(708):REM ROTATES VALUES FROM 708 TO 709›240 POKE 708,PEEK(707):REM ROTATES VALUES FROM 707 TO 708›250 POKE 707,PEEK(706):REM ROTATES VALUES FROM 706 TO 707›260 POKE 706,PEEK(705):REM ROTATES VALUES FROM 705 TO 706›270 POKE 705,Z:REM ROTATES VALUES FROM 712 TO 705›280 FOR I=0 TO 15:NEXT I:REM SLOW DOWN ROTATION›290 GOTO 190:REM START AGAIN›