00000000: 00 80 5E 55 3A 5A 45 52 4F 0D 20 20 20 20 20 20 |..^U:ZERO. |
00000010: 20 20 C3 20 CF 20 CC 20 CF 20 D2 20 20 20 C3 20 | . . . . . . |
00000020: C8 20 C1 20 D3 20 C5 20 D2 0D 0D 20 20 20 20 20 |. . . . ... |
00000030: 20 20 20 20 20 20 42 59 20 D3 43 4F 54 54 20 C5 | BY .COTT .|
00000040: 2E 20 D2 45 53 48 0D 0D 20 20 20 20 CF 4E 45 20 |. .ESH.. .NE |
00000050: 44 41 59 20 CA 45 46 46 20 CA 4F 4E 45 53 2C 20 |DAY .EFF .ONES, |
00000060: 41 20 43 4F 4D 50 49 4C 45 52 0D 4B 49 4E 44 20 |A COMPILER.KIND |
00000070: 4F 46 20 47 55 59 2C 20 4C 4F 4F 4B 45 44 20 41 |OF GUY, LOOKED A|
00000080: 54 20 4D 45 20 41 4E 44 20 53 41 49 44 0D 22 C8 |T ME AND SAID.".|
00000090: 45 59 20 D3 43 4F 54 54 2C 20 48 4F 57 20 27 42 |EY .COTT, HOW 'B|
000000A0: 4F 55 54 20 41 20 52 4F 55 54 49 4E 45 20 54 48 |OUT A ROUTINE TH|
000000B0: 41 54 0D 44 4F 45 53 20 54 48 49 53 2E 2E 2E 22 |AT.DOES THIS..."|
000000C0: 2E 20 20 D7 48 41 54 20 48 45 20 57 41 4E 54 45 |. .HAT HE WANTE|
000000D0: 44 20 57 41 53 20 41 4E 0D 41 53 53 45 4D 42 4C |D WAS AN.ASSEMBL|
000000E0: 59 20 4C 41 4E 47 55 41 47 45 20 52 4F 55 54 49 |Y LANGUAGE ROUTI|
000000F0: 4E 45 20 54 48 41 54 20 27 43 48 41 53 45 53 0D |NE THAT 'CHASES.|
00000100: 43 4F 4C 4F 52 53 27 20 4F 4E 20 41 4E 59 20 52 |COLORS' ON ANY R|
00000110: 45 43 54 41 4E 47 4C 45 20 4F 4E 20 54 48 45 0D |ECTANGLE ON THE.|
00000120: 53 43 52 45 45 4E 2E 20 20 C2 4C 41 43 4B 20 49 |SCREEN. .LACK I|
00000130: 53 20 27 43 48 41 53 45 44 27 20 42 59 20 57 48 |S 'CHASED' BY WH|
00000140: 49 54 45 2C 0D 57 48 49 54 45 20 49 53 20 27 43 |ITE,.WHITE IS 'C|
00000150: 48 41 53 45 44 27 20 42 59 20 52 45 44 2C 20 52 |HASED' BY RED, R|
00000160: 45 44 20 49 53 0D 27 43 48 41 53 45 44 27 20 42 |ED IS.'CHASED' B|
00000170: 59 20 43 59 41 4E 2C 20 45 54 43 2E 20 20 D4 48 |Y CYAN, ETC. .H|
00000180: 49 53 20 47 49 56 45 53 0D 54 48 45 20 45 46 46 |IS GIVES.THE EFF|
00000190: 45 43 54 20 4F 46 20 54 48 45 20 43 4F 4C 4F 52 |ECT OF THE COLOR|
000001A0: 53 20 43 48 41 53 49 4E 47 20 45 41 43 48 0D 4F |S CHASING EACH.O|
000001B0: 54 48 45 52 2E 20 20 C2 55 54 20 54 48 45 59 27 |THER. .UT THEY'|
000001C0: 52 45 20 4E 45 56 45 52 20 41 42 4C 45 20 54 4F |RE NEVER ABLE TO|
000001D0: 0D 43 41 54 43 48 20 4F 4E 45 20 41 4E 4F 54 48 |.CATCH ONE ANOTH|
000001E0: 45 52 2E 0D 0D 0D 0D 0D 20 20 20 20 C3 CF CC CF |ER...... ....|
000001F0: D2 20 C3 C8 C1 D3 C5 D2 20 52 45 51 55 49 52 45 |. ...... REQUIRE|
00000200: 53 20 54 57 4F 20 D3 D9 D3 0D 43 4F 4D 4D 41 4E |S TWO ....COMMAN|
00000210: 44 53 2E 20 20 CF 4E 45 20 49 4E 49 54 49 41 4C |DS. .NE INITIAL|
00000220: 49 5A 45 53 20 54 48 45 0D 44 49 4D 45 4E 53 49 |IZES THE.DIMENSI|
00000230: 4F 4E 53 20 4F 46 20 59 4F 55 52 20 52 45 43 54 |ONS OF YOUR RECT|
00000240: 41 4E 47 4C 45 3B 20 54 48 45 0D 53 45 43 4F 4E |ANGLE; THE.SECON|
00000250: 44 20 D3 D9 D3 20 50 45 52 46 4F 52 4D 53 20 54 |D ... PERFORMS T|
00000260: 48 45 20 41 43 54 55 41 4C 0D 43 48 41 53 49 4E |HE ACTUAL.CHASIN|
00000270: 47 2E 20 20 D2 45 50 45 41 54 45 44 4C 59 20 43 |G. .EPEATEDLY C|
00000280: 41 4C 4C 49 4E 47 20 54 48 45 0D 53 45 43 4F 4E |ALLING THE.SECON|
00000290: 44 20 D3 D9 D3 20 41 44 44 52 45 53 53 20 43 52 |D ... ADDRESS CR|
000002A0: 45 41 54 45 53 20 54 48 45 0D 43 48 41 53 49 4E |EATES THE.CHASIN|
000002B0: 47 20 45 46 46 45 43 54 2E 20 20 D4 48 49 53 20 |G EFFECT. .HIS |
000002C0: 49 53 20 54 48 45 20 43 4F 44 45 20 59 4F 55 0D |IS THE CODE YOU.|
000002D0: 4E 45 45 44 20 54 4F 20 41 44 44 20 54 4F 20 59 |NEED TO ADD TO Y|
000002E0: 4F 55 52 20 C2 C1 D3 C9 C3 20 50 52 4F 47 52 41 |OUR ..... PROGRA|
000002F0: 4D 2E 0D 0D 20 31 30 30 20 D0 CF CB C5 32 35 31 |M... 100 ....251|
00000300: 2C 23 3A D2 C5 CD 20 54 4F 50 20 4C 45 46 54 20 |,#:... TOP LEFT |
00000310: D8 20 28 30 20 2D 20 33 38 29 0D 20 31 31 30 20 |. (0 - 38). 110 |
00000320: D0 CF CB C5 32 35 32 2C 23 3A D2 C5 CD 20 54 4F |....252,#:... TO|
00000330: 50 20 4C 45 46 54 20 D9 20 28 30 20 2D 20 32 33 |P LEFT . (0 - 23|
00000340: 29 0D 20 31 32 30 20 D0 CF CB C5 32 35 33 2C 23 |). 120 ....253,#|
00000350: 3A D2 C5 CD 20 43 48 41 52 53 20 D7 C9 C4 C5 20 |:... CHARS .... |
00000360: 28 32 20 2D 20 33 39 29 0D 20 31 33 30 20 D0 CF |(2 - 39). 130 ..|
00000370: CB C5 32 35 34 2C 23 3A D2 C5 CD 20 43 48 41 52 |..254,#:... CHAR|
00000380: 53 20 C8 C9 C7 C8 20 28 32 20 2D 20 32 34 29 0D |S .... (2 - 24).|
00000390: 20 31 34 30 20 D3 D9 D3 34 39 31 35 32 20 3A D2 | 140 ...49152 :.|
000003A0: C5 CD 20 D3 D4 C1 D2 D4 20 C2 CF D8 20 26 20 C3 |.. ..... ... & .|
000003B0: CF CC CF D2 0D 20 31 35 30 20 D3 D9 D3 34 39 31 |..... 150 ...491|
000003C0: 35 35 20 3A D2 C5 CD 20 C3 C8 C1 D3 C5 20 CF CE |55 :... ..... ..|
000003D0: C5 20 D4 C9 CD C5 0D 20 31 36 30 20 C7 CF D4 CF |. ..... 160 ....|
000003E0: 20 31 35 30 20 3A D2 C5 CD 20 C9 CE C6 C9 CE C9 | 150 :... ......|
000003F0: D4 C5 20 C3 C8 C1 D3 C5 0D 0D 0D 0D 20 20 20 20 |.. ......... |
00000400: D4 48 45 52 45 20 41 52 45 20 54 48 52 45 45 20 |.HERE ARE THREE |
00000410: 41 44 44 49 54 49 4F 4E 41 4C 20 C3 CF CC CF D2 |ADDITIONAL .....|
00000420: 0D C3 C8 C1 D3 C5 20 46 49 4C 45 53 20 4F 4E 20 |...... FILES ON |
00000430: 54 48 49 53 20 44 49 53 4B 2E 0D C3 CF CC CF D2 |THIS DISK.......|
00000440: 2E C3 C8 C1 D3 C5 2E D0 C1 CC 2C 20 54 48 45 20 |.........., THE |
00000450: 53 4F 55 52 43 45 20 43 4F 44 45 3B 0D C3 CF CC |SOURCE CODE;....|
00000460: CF D2 2E C3 C8 C1 D3 C5 2E CF 2C 20 54 48 45 20 |.........., THE |
00000470: 4F 42 4A 45 43 54 20 43 4F 44 45 3B 20 41 4E 44 |OBJECT CODE; AND|
00000480: 0D C2 C9 D4 D3 2C 20 54 48 45 20 44 45 4D 4F 20 |....., THE DEMO |
00000490: 50 52 4F 47 52 41 4D 2E 20 20 D4 48 45 20 53 4F |PROGRAM. .HE SO|
000004A0: 55 52 43 45 0D 43 4F 44 45 20 43 41 4E 20 42 45 |URCE.CODE CAN BE|
000004B0: 20 CC CF C1 C4 45 44 20 41 4E 44 20 CC C9 D3 D4 | ....ED AND ....|
000004C0: 45 44 20 4A 55 53 54 0D 4C 49 4B 45 20 41 4E 20 |ED JUST.LIKE AN |
000004D0: 4F 52 44 49 4E 41 52 59 20 C2 C1 D3 C9 C3 20 50 |ORDINARY ..... P|
000004E0: 52 4F 47 52 41 4D 2E 20 20 D4 48 45 0D 53 4F 55 |ROGRAM. .HE.SOU|
000004F0: 52 43 45 20 43 4F 44 45 20 49 53 20 C8 C5 C1 D6 |RCE CODE IS ....|
00000500: C9 CC D9 20 43 4F 4D 4D 45 4E 54 45 44 20 41 4E |... COMMENTED AN|
00000510: 44 0D 53 54 52 41 49 47 48 54 46 4F 52 57 41 52 |D.STRAIGHTFORWAR|
00000520: 44 2E 20 20 C8 45 52 45 27 53 20 41 20 4C 49 54 |D. .ERE'S A LIT|
00000530: 54 4C 45 0D 43 48 41 4C 4C 45 4E 47 45 20 46 4F |TLE.CHALLENGE FO|
00000540: 52 20 54 48 45 20 43 52 45 41 54 49 56 45 20 50 |R THE CREATIVE P|
00000550: 52 4F 47 52 41 4D 4D 45 52 0D 4F 55 54 20 54 48 |ROGRAMMER.OUT TH|
00000560: 45 52 45 2E 20 20 C2 59 20 43 48 41 4E 47 49 4E |ERE. .Y CHANGIN|
00000570: 47 20 CF CE C5 20 43 4F 4D 4D 41 4E 44 20 49 4E |G ... COMMAND IN|
00000580: 0D 54 48 45 20 53 4F 55 52 43 45 20 43 4F 44 45 |.THE SOURCE CODE|
00000590: 2C 20 54 48 45 20 43 4F 4C 4F 52 53 20 57 49 4C |, THE COLORS WIL|
000005A0: 4C 20 4D 4F 56 45 0D C3 CF D5 CE D4 C5 D2 C3 CC |L MOVE..........|
000005B0: CF C3 CB D7 C9 D3 C5 20 49 4E 53 54 45 41 44 20 |....... INSTEAD |
000005C0: 4F 46 20 43 4C 4F 43 4B 57 49 53 45 2E 0D D7 48 |OF CLOCKWISE...H|
000005D0: 49 43 48 20 43 4F 4D 4D 41 4E 44 20 49 53 20 49 |ICH COMMAND IS I|
000005E0: 54 3F 0D 0D 20 20 20 20 C3 CF CC CF D2 20 C3 C8 |T?.. ..... ..|
000005F0: C1 D3 C5 D2 27 53 20 49 4E 54 45 4E 54 20 49 53 |....'S INTENT IS|
00000600: 20 54 4F 20 45 41 53 49 4C 59 0D 41 44 44 20 41 | TO EASILY.ADD A|
00000610: 20 43 4F 4C 4F 52 20 4D 41 52 51 55 45 45 20 45 | COLOR MARQUEE E|
00000620: 46 46 45 43 54 20 54 4F 20 59 4F 55 52 0D C2 C1 |FFECT TO YOUR...|
00000630: D3 C9 C3 20 4D 45 4E 55 20 53 43 52 45 45 4E 20 |... MENU SCREEN |
00000640: 4F 52 20 57 48 41 54 45 56 45 52 2E 0D 0D 20 20 |OR WHATEVER... |
00000650: 20 20 C9 20 48 4F 50 45 20 59 4F 55 20 4C 49 4B | . HOPE YOU LIK|
00000660: 45 20 C3 CF CC CF D2 20 C3 C8 C1 D3 C5 D2 20 41 |E ..... ...... A|
00000670: 4E 44 0D 55 53 45 20 49 54 20 4F 46 54 45 4E 2E |ND.USE IT OFTEN.|
00000680: 20 20 C9 54 20 43 41 4E 20 41 44 44 20 41 20 4C | .T CAN ADD A L|
00000690: 49 54 54 4C 45 0D 5A 49 50 20 54 4F 20 41 4E 20 |ITTLE.ZIP TO AN |
000006A0: 4F 54 48 45 52 57 49 53 45 20 4C 49 46 45 4C 45 |OTHERWISE LIFELE|
000006B0: 53 53 20 22 D0 52 45 53 53 0D D2 C5 D4 D5 D2 CE |SS ".RESS.......|
000006C0: 20 54 4F 20 53 45 4C 45 43 54 22 20 4D 45 4E 55 | TO SELECT" MENU|
000006D0: 2E 20 20 C9 20 45 4E 43 4F 55 52 41 47 45 0D 41 |. . ENCOURAGE.A|
000006E0: 4C 4C 20 CD 2D CC 20 50 52 4F 47 52 41 4D 4D 45 |LL .-. PROGRAMME|
000006F0: 52 53 20 54 4F 20 54 49 4E 4B 45 52 20 57 49 54 |RS TO TINKER WIT|
00000700: 48 0D 54 48 45 20 53 4F 55 52 43 45 20 43 4F 44 |H.THE SOURCE COD|
00000710: 45 2E 20 20 D7 48 4F 20 4B 4E 4F 57 53 20 57 48 |E. .HO KNOWS WH|
00000720: 41 54 20 43 41 4E 0D 42 45 20 44 4F 4E 45 20 54 |AT CAN.BE DONE T|
00000730: 4F 20 C3 CF CC CF D2 20 C3 C8 C1 D3 C5 D2 3F 0D |O ..... ......?.|
00000740: 0D 0D C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 D2 CF |....... .... ...|
00000750: C7 D2 C1 CD 20 D5 D3 C5 D3 3A 0D 0D C2 C9 D4 D3 |.... ....:......|
00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C3 | .|
00000770: CF CC CF D2 2E C3 C8 C1 D3 C5 2E CF 0D C3 CF CC |................|
00000780: CF D2 2E C3 C8 C1 D3 C5 2E D0 C1 CC 20 20 20 20 |............ |
00000790: D4 2E C2 C9 D4 D3 0D 0D 20 20 20 20 20 20 20 2A |........ *|
000007A0: 2A 2A 2A 2A 20 C5 4E 44 20 4F 46 20 D4 45 58 54 |**** .ND OF .EXT|
000007B0: 20 2A 2A 2A 2A 2A 0D | *****. |
..^U:ZERO. C O L O R C H A S E
R.. BY SCOTT E. RESH.. ONE
DAY JEFF JONES, A COMPILER.KIND OF GUY,
LOOKED AT ME AND SAID."HEY SCOTT, HOW 'B
OUT A ROUTINE THAT.DOES THIS...". WHAT
HE WANTED WAS AN.ASSEMBLY LANGUAGE ROUTI
NE THAT 'CHASES.COLORS' ON ANY RECTANGLE
ON THE.SCREEN. BLACK IS 'CHASED' BY WH
ITE,.WHITE IS 'CHASED' BY RED, RED IS.'C
HASED' BY CYAN, ETC. THIS GIVES.THE EFF
ECT OF THE COLORS CHASING EACH.OTHER. B
UT THEY'RE NEVER ABLE TO.CATCH ONE ANOTH
ER...... COLOR CHASER REQUIRES TWO SY
S.COMMANDS. ONE INITIALIZES THE.DIMENSI
ONS OF YOUR RECTANGLE; THE.SECOND SYS PE
RFORMS THE ACTUAL.CHASING. REPEATEDLY C
ALLING THE.SECOND SYS ADDRESS CREATES TH
E.CHASING EFFECT. THIS IS THE CODE YOU.
NEED TO ADD TO YOUR BASIC PROGRAM... 100
POKE251,#:REM TOP LEFT X (0 - 38). 110
POKE252,#:REM TOP LEFT Y (0 - 23). 120 P
OKE253,#:REM CHARS WIDE (2 - 39). 130 PO
KE254,#:REM CHARS HIGH (2 - 24). 140 SYS
49152 :REM START BOX & COLOR. 150 SYS491
55 :REM CHASE ONE TIME. 160 GOTO 150 :RE
M INFINITE CHASE.... THERE ARE THREE
ADDITIONAL COLOR.CHASE FILES ON THIS DIS
K..COLOR.CHASE.PAL, THE SOURCE CODE;.COL
OR.CHASE.O, THE OBJECT CODE; AND.BITS, T
HE DEMO PROGRAM. THE SOURCE.CODE CAN BE
LOADED AND LISTED JUST.LIKE AN ORDINARY
BASIC PROGRAM. THE.SOURCE CODE IS HEAV
ILY COMMENTED AND.STRAIGHTFORWARD. HERE
'S A LITTLE.CHALLENGE FOR THE CREATIVE P
ROGRAMMER.OUT THERE. BY CHANGING ONE CO
MMAND IN.THE SOURCE CODE, THE COLORS WIL
L MOVE.COUNTERCLOCKWISE INSTEAD OF CLOCK
WISE..WHICH COMMAND IS IT?.. COLOR CH
ASER'S INTENT IS TO EASILY.ADD A COLOR M
ARQUEE EFFECT TO YOUR.BASIC MENU SCREEN
OR WHATEVER... I HOPE YOU LIKE COLOR
CHASER AND.USE IT OFTEN. IT CAN ADD A L
ITTLE.ZIP TO AN OTHERWISE LIFELESS "PRES
S.RETURN TO SELECT" MENU. I ENCOURAGE.A
LL M-L PROGRAMMERS TO TINKER WITH.THE SO
URCE CODE. WHO KNOWS WHAT CAN.BE DONE T
O COLOR CHASER?...FILES THIS PROGRAM USE
S:..BITS COLOR.CHASE.O.COL
OR.CHASE.PAL T.BITS.. ***** END
OF TEXT *****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL