1 REM ***************************›2 REM *                         *›3 REM *  MIXING COLORS TO MAKE  *›4 REM *    AN ATARI RAINBOW     *›5 REM *                         *›6 REM ***************************›9 REM ›10 PRINT CHR$(125):GRAPHICS 2+16:BREAK=1000›15 REM MACHINE LANGUAGE TO BE RUN DURING VERTICAL BLANK         INTERRUPT›20 FOR I=0 TO 36:READ A:POKE 1536+I,A:NEXT I›30 DATA 173,39,6,141,49,6,173,40,6,141,50,6,173,51,6,73,1,141,51›40 DATA 6,240,12,173,41,6,141,49,6,173,42,6,141,50,6,76,98,228›45 REM FIND DISPLAY LIST IN RAM›50 DLIST=PEEK(560)+256*PEEK(561)›55 REM MODIFY MACHINE LANGUAGE PROGRAM BY POKEING IN ADDRESSES  FROM DISPLAY LIST›60 BYTE=DLIST+4:GOSUB BREAK:REM LOAD MEMORY SCAN LOW BYTE›70 POKE 1540,LOW:POKE 1562,LOW›80 POKE 1541,HIGH:POKE 1563,HIGH›90 BYTE=DLIST+5:GOSUB BREAK:REM LOAD MEMORY SCAN HIGH BYTE›100 POKE 1546,LOW:POKE 1568,LOW›110 POKE 1547,HIGH:POKE 1569,HIGH›120 BYTE=DLIST+20:GOSUB BREAK:REM NORMAL SCREEN RAM›130 POKE 1576,HIGH:POKE 1575,LOW›140 BYTE=DLIST-250:GOSUB BREAK:REM ALTERNATE SCREEN RAM›150 POKE 1578,HIGH:POKE 1577,LOW›155 REM MACHINE LANGUAGE PROGRAM TO INITIALIZE VERTICAL BANK    INTERRUPT›160 FOR I=0 TO 10:READ A:POKE 1600+I,A:NEXT I›170 DATA 104,162,6,160,0,169,7,32,92,228,96›180 X=USR(1600)›220 REM DRAW FIRST SCREEN›230 BYTE=DLIST-250:GOSUB BREAK›235 POKE 88,LOW:POKE 89,HIGH›240 POSITION 0,4›250 PRINT #6;"ATARi coíðÕTER Club"›260 PRINT #6›270 PRINT #6;"    ïÆ ãHARLottå"›280 BYTE=DLIST+20:GOSUB BREAK›290 POKE 88,LOW:POKE 89,HIGH›305 REM SETCOLORS AND DRAW SECOND SCREEN›312 SETCOLOR 0,12,6›313 SETCOLOR 1,4,6›314 SETCOLOR 2,15,8›315 SETCOLOR 3,8,6›320 POSITION 0,4›330 PRINT #6;"AtáÒi ãOÍðÕTeò ÃLõÂ"›340 PRINT #6›350 PRINT #6;"    ïÆ ÃÈArìÏtôÅ"›359 REM HOLD IMAGE ON SCREEN›360 GOTO 360›999 REM SUBROUTINE TO BREAK DOWN NUMBER INTO HIGH AND LOW BYTES›1000 HIGH=INT(BYTE/256)›1010 LOW=BYTE-HIGH*256›1020 RETURN ›