+@HA@HSETS BACKGROUND (COLOR 0, COLPM0) TO DARK PURPLE6A@"6SETS COLOR 1, COLPM1 TO YELLOW(=A@8=SETS COLOR 2, COLPM2 TO YELLOW ORANGE26A@T6SETS COLOR 3, COLPM3 TO ORANGE<3A@p3SETS COLOR 4, COLPF0 TO REDF6A @6SETS COLOR 5, COLPF1 TO PURPLEP4AA4SETS COLOR 6, COLPF2 TO BLUEZ:AA :SETS COLOR 7, COLPF3 TO BLUE GREENd5AA5SETS COLOR 8, COLPF4 TO GREENnA-@@dASETS UP VARIABLE FOR COLOR AND POSITIONx76-$+ @,%@!7CHANGES COLOR VALUE% ,%START AT LEPT HAND CORNER-/A&-DRAWTO BOTTOM LEFT CORNER3/@y&A&3DR. BOTTOM RIGHT CORNER(/@y&(DR. TOP RIGHT CORNER+ /+DR. TOP LEFT TO COMPLETE BORDER C6-F:A,CSETS Z EQUAL TO THE VALUE IN THE LAST REGISTER9AF:A,9ROTATES VALUES FROM 711 TO 7129AF:A,9ROTATES VALUES FROM 710 TO 7119AF:A ,9ROTATES VALUES FROM 709 TO 7109A F:A,9ROTATES VALUES FROM 708 TO 7099AF:A,9ROTATES VALUES FROM 707 TO 7089AF:A,9ROTATES VALUES FROM 706 TO 7079AF:A,9ROTATES VALUES FROM 705 TO 7060A0ROTATES VALUES FROM 712 TO 7050-@ 0SLOW DOWN ROTATION" ASTART AGAIN D4:P023L1.BAS