home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antic Magazine 1989 June
/
Antic_Magazine_1989_06_Antic_Side_A.atr
/
colorme.m65
< prev
next >
Wrap
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¢