Antic Magazine 1989 June/Antic_Magazine_1989_06_Antic_Side_A.atr/colorme.m65

Text File | 2023-02-26 | 1KB | 1 lines

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¢