1000 ; COLORME.M65›1010 ; BY MATTHEW RATCLIFF›1011 ; (c)1989, ANTIC PUBLISHING INC.›1012 ; Use the command:                    ASM D:COLORME.M65,,D:COLORME.EXE›1013 ; To assemble this program.›1020 ;   Note that the FIRST 6 BYTES›1030 ; must be shaved off COLORME.MAC›1040 ; to turn it into an accessory!›1050 ; Use this program:›1060 ; 10 OPEN #1,4,0,"D:COLORME.EXE"›1070 ; 20 OPEN #2,8,0,"D:COLORME.ACC"›1080 ; 30 FOR I=1 TO 6:GET #1,A:NEXT I›1090 ; 40 TRAP 60›1100 ; 50 GET #1,A:PUT #2,1:GOTO 50›1110 ; 60 CLOSE #1:CLOSE #2:? "COLORME.ACC DONE"›1120 ;›1130     .OPT NO LIST›1140     .OPT OBJ›1160     .INCLUDE #D:LIBRARY.M65›1170     .INCLUDE #D:DMACROS.M65›1190     *=  $2FF0›1200 ;›1210     .BYTE " Color Me " ;10 Byte Name›1220     .WORD ENDACC-RUNACC ;Length of Accessory›1230     .WORD RUNACC ;Load address›1240     .WORD RUNACC ;Run Address›1250 ;›1260 ;ACCESSORY VARIABLES›1270 COLOREG = 710›1280 ;›1290 RUNACC›1300      DODIALOG  24,60,COLORSOBJ,COLORTOUCH›1310     LDA COLOREG›1320     CLC ›1330     ADC #$10›1340     STA COLOREG›1350      EVENTDIALOG  ›1360      RELEASEDIALOG  ›1370     RTS ›1380 COLORS›1390     .BYTE " ",252,4,"Next Screen Color",13,13›1400     .BYTE 252,1," Accessory",13›1410     .BYTE 252,1,"  by Mat*Rat",13,0›1420 COLORSOBJ›1430     .BYTE 1›1440     .WORD COLORS,8,8›1450     .BYTE 8,255›1460 COLORTOUCH›1470     .BYTE 0,148,0,136,255›1480 ENDACC›