00000000: 00 80 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000010: C2 CF D2 C4 C5 D2 20 D0 C1 D4 D2 CF CC 0D 20 20 |...... ....... |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 | B|
00000030: 59 0D 20 20 20 20 20 20 20 20 20 20 20 D2 2E 20 |Y. .. |
00000040: C8 41 52 4F 4C 44 20 C4 52 4F 49 44 0D 0D 0D C3 |.AROLD .ROID....|
00000050: CF CD CD CF C4 CF D2 C5 20 CD C1 C7 C1 DA C9 CE |........ .......|
00000060: C5 0D CD 41 52 43 48 20 31 39 38 37 0D 0D 2A 2A |...ARCH 1987..**|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 2A 0D CE CF D4 C5 3A 20 D4 48 49 53 20 50 |***.....: .HIS P|
000000A0: 52 4F 47 52 41 4D 20 44 4F 45 53 20 4E 4F 54 20 |ROGRAM DOES NOT |
000000B0: 52 45 4C 49 4E 4B 0D 54 4F 20 54 48 45 20 CC CF |RELINK.TO THE ..|
000000C0: C1 C4 D3 D4 C1 D2 20 4F 50 45 52 41 54 49 4E 47 |...... OPERATING|
000000D0: 20 53 59 53 54 45 4D 2E 20 20 D4 4F 0D 52 45 54 | SYSTEM. .O.RET|
000000E0: 55 52 4E 20 54 4F 20 CC CF C1 C4 D3 D4 C1 D2 2C |URN TO ........,|
000000F0: 20 52 45 42 4F 4F 54 20 54 48 45 0D CC CF C1 C4 | REBOOT THE.....|
00000100: D3 D4 C1 D2 20 44 49 53 4B 2E 0D 2A 2A 2A 2A 2A |.... DISK..*****|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 0D 0D 0D 20 20 CF 4E 45 20 57 41 59 20 59 4F 55 |... .NE WAY YOU|
00000140: 20 43 41 4E 20 53 50 52 55 43 45 20 55 50 20 59 | CAN SPRUCE UP Y|
00000150: 4F 55 52 0D 54 49 54 4C 45 20 53 43 52 45 45 4E |OUR.TITLE SCREEN|
00000160: 53 20 41 4E 44 20 4D 45 4E 55 20 44 49 53 50 4C |S AND MENU DISPL|
00000170: 41 59 53 20 49 53 20 54 4F 0D 41 44 44 20 41 20 |AYS IS TO.ADD A |
00000180: 4D 4F 56 49 4E 47 20 42 4F 52 44 45 52 2E 20 20 |MOVING BORDER. |
00000190: C2 CF D2 C4 C5 D2 20 D0 C1 D4 D2 CF CC 0D 4C 45 |...... .......LE|
000001A0: 54 53 20 59 4F 55 20 46 49 4C 4C 20 54 48 45 20 |TS YOU FILL THE |
000001B0: 4F 55 54 45 52 20 45 44 47 45 20 4F 46 20 41 0D |OUTER EDGE OF A.|
000001C0: 53 43 52 45 45 4E 20 57 49 54 48 20 41 20 43 48 |SCREEN WITH A CH|
000001D0: 41 52 41 43 54 45 52 2C 20 41 4E 44 20 54 48 45 |ARACTER, AND THE|
000001E0: 4E 0D 43 48 41 4E 47 45 20 54 48 45 20 43 4F 4C |N.CHANGE THE COL|
000001F0: 4F 52 20 4F 46 20 54 48 4F 53 45 20 43 48 41 52 |OR OF THOSE CHAR|
00000200: 41 43 54 45 52 53 0D 41 54 20 52 45 47 55 4C 41 |ACTERS.AT REGULA|
00000210: 52 20 49 4E 54 45 52 56 41 4C 53 2C 20 54 48 55 |R INTERVALS, THU|
00000220: 53 20 43 52 45 41 54 49 4E 47 0D 54 48 45 20 49 |S CREATING.THE I|
00000230: 4C 4C 55 53 49 4F 4E 20 4F 46 20 4D 4F 54 49 4F |LLUSION OF MOTIO|
00000240: 4E 2E 20 20 D7 48 45 4E 20 59 4F 55 27 56 45 0D |N. .HEN YOU'VE.|
00000250: 45 58 50 45 52 49 4D 45 4E 54 45 44 20 57 49 54 |EXPERIMENTED WIT|
00000260: 48 20 C2 CF D2 C4 C5 D2 20 D0 C1 D2 D4 CF CC 20 |H ...... ...... |
00000270: 41 4E 44 0D 46 4F 55 4E 44 20 41 4E 20 45 46 46 |AND.FOUND AN EFF|
00000280: 45 43 54 20 59 4F 55 20 4C 49 4B 45 2C 20 59 4F |ECT YOU LIKE, YO|
00000290: 55 20 43 41 4E 0D 52 45 4D 4F 56 45 20 54 48 45 |U CAN.REMOVE THE|
000002A0: 20 C9 CE D0 D5 D4 20 50 52 4F 4D 50 54 53 2C 20 | ..... PROMPTS, |
000002B0: 53 55 42 53 54 49 54 55 54 45 0D 46 49 58 45 44 |SUBSTITUTE.FIXED|
000002C0: 20 56 41 4C 55 45 53 2C 20 41 4E 44 20 49 4E 43 | VALUES, AND INC|
000002D0: 4F 52 50 4F 52 41 54 45 20 59 4F 55 52 0D 53 45 |ORPORATE YOUR.SE|
000002E0: 54 2D 55 50 20 49 4E 54 4F 20 59 4F 55 52 20 4F |T-UP INTO YOUR O|
000002F0: 57 4E 20 C2 C1 D3 C9 C3 20 50 52 4F 47 52 41 4D |WN ..... PROGRAM|
00000300: 53 2E 0D 0D 20 20 D7 48 45 4E 20 59 4F 55 20 52 |S... .HEN YOU R|
00000310: 55 4E 20 C2 CF D2 C4 C5 D2 20 D0 C1 D4 D2 CF CC |UN ...... ......|
00000320: 2C 20 59 4F 55 0D 43 41 4E 20 43 48 41 4E 47 45 |, YOU.CAN CHANGE|
00000330: 20 41 20 4E 55 4D 42 45 52 20 4F 46 20 4F 50 54 | A NUMBER OF OPT|
00000340: 49 4F 4E 53 3A 0D 0D 0D D3 D0 C5 C5 C4 20 2D 2D |IONS:........ --|
00000350: 20 43 4F 4E 54 52 4F 4C 53 20 48 4F 57 20 46 41 | CONTROLS HOW FA|
00000360: 53 54 20 54 48 45 20 42 4F 52 44 45 52 0D 41 50 |ST THE BORDER.AP|
00000370: 50 45 41 52 53 20 54 4F 20 4D 4F 56 45 2E 20 20 |PEARS TO MOVE. |
00000380: C9 4E 50 55 54 20 41 20 4E 55 4D 42 45 52 0D 42 |.NPUT A NUMBER.B|
00000390: 45 54 57 45 45 4E 20 31 20 41 4E 44 20 32 35 35 |ETWEEN 1 AND 255|
000003A0: 2E 20 20 CC 4F 57 45 52 20 4E 55 4D 42 45 52 53 |. .OWER NUMBERS|
000003B0: 0D 4D 41 4B 45 20 54 48 45 20 42 4F 52 44 45 52 |.MAKE THE BORDER|
000003C0: 20 4D 4F 56 45 20 46 41 53 54 45 52 2E 0D 0D D3 | MOVE FASTER....|
000003D0: C3 D2 C5 C5 CE 20 C3 CF C4 C5 20 2D 2D 20 53 50 |..... .... -- SP|
000003E0: 45 43 49 46 49 45 53 20 57 48 49 43 48 0D 43 48 |ECIFIES WHICH.CH|
000003F0: 41 52 41 43 54 45 52 20 49 53 20 55 53 45 44 20 |ARACTER IS USED |
00000400: 54 4F 20 46 4F 52 4D 20 54 48 45 20 42 4F 52 44 |TO FORM THE BORD|
00000410: 45 52 2E 0D CE 4F 54 45 20 54 48 41 54 20 53 43 |ER...OTE THAT SC|
00000420: 52 45 45 4E 20 43 4F 44 45 53 20 49 4E 53 54 45 |REEN CODES INSTE|
00000430: 41 44 20 4F 46 0D C1 D3 C3 C9 C9 20 43 4F 44 45 |AD OF...... CODE|
00000440: 53 20 41 52 45 20 55 53 45 44 2E 20 20 C6 4F 52 |S ARE USED. .OR|
00000450: 20 41 20 43 4F 4D 50 4C 45 54 45 0D 4C 49 53 54 | A COMPLETE.LIST|
00000460: 49 4E 47 20 4F 46 20 53 43 52 45 45 4E 20 43 4F |ING OF SCREEN CO|
00000470: 44 45 53 2C 20 53 45 45 20 C1 50 50 45 4E 44 49 |DES, SEE .PPENDI|
00000480: 58 0D C2 20 4F 46 20 54 48 45 20 36 34 20 D0 52 |X.. OF THE 64 .R|
00000490: 4F 47 52 41 4D 4D 45 52 27 53 20 C7 55 49 44 45 |OGRAMMER'S .UIDE|
000004A0: 20 4F 52 0D C1 50 50 45 4E 44 49 58 20 C5 20 4F | OR..PPENDIX . O|
000004B0: 46 20 54 48 45 20 36 34 20 D5 53 45 52 27 53 20 |F THE 64 .SER'S |
000004C0: C7 55 49 44 45 2E 0D 0D CE D5 CD C2 C5 D2 20 CF |.UIDE......... .|
000004D0: C6 20 C3 CF CC CF D2 D3 20 2D 2D 20 4C 45 54 53 |. ...... -- LETS|
000004E0: 20 59 4F 55 20 43 48 4F 4F 53 45 0D 54 48 45 20 | YOU CHOOSE.THE |
000004F0: 4E 55 4D 42 45 52 20 4F 46 20 43 4F 4C 4F 52 53 |NUMBER OF COLORS|
00000500: 20 55 53 45 44 20 49 4E 20 59 4F 55 52 0D 42 4F | USED IN YOUR.BO|
00000510: 52 44 45 52 20 41 53 20 57 45 4C 4C 20 41 53 20 |RDER AS WELL AS |
00000520: 54 48 45 49 52 20 53 45 51 55 45 4E 43 45 2E 20 |THEIR SEQUENCE. |
00000530: D4 48 45 0D 4D 41 58 49 4D 55 4D 20 56 41 4C 55 |.HE.MAXIMUM VALU|
00000540: 45 20 59 4F 55 20 43 41 4E 20 55 53 45 20 49 53 |E YOU CAN USE IS|
00000550: 20 31 32 37 2E 0D 0D C3 CF CC CF D2 20 C3 CF C4 | 127........ ...|
00000560: C5 D3 20 2D 2D 20 41 53 4B 53 20 59 4F 55 20 54 |.. -- ASKS YOU T|
00000570: 4F 20 45 4E 54 45 52 20 54 48 45 0D 43 4F 4C 4F |O ENTER THE.COLO|
00000580: 52 53 20 49 4E 20 53 45 51 55 45 4E 43 45 2E 20 |RS IN SEQUENCE. |
00000590: 20 D5 53 45 20 54 48 45 20 53 41 4D 45 0D 43 4F | .SE THE SAME.CO|
000005A0: 44 45 20 59 4F 55 20 57 4F 55 4C 44 20 55 53 45 |DE YOU WOULD USE|
000005B0: 20 49 4E 20 41 20 D0 CF CB C5 0D 53 54 41 54 45 | IN A .....STATE|
000005C0: 4D 45 4E 54 20 54 4F 20 43 48 41 4E 47 45 20 54 |MENT TO CHANGE T|
000005D0: 48 45 20 43 4F 4C 4F 52 20 4F 46 20 54 48 45 0D |HE COLOR OF THE.|
000005E0: 53 43 52 45 45 4E 2E 0D 0D 20 20 CF 4E 43 45 20 |SCREEN... .NCE |
000005F0: 49 4E 53 54 41 4C 4C 45 44 2C 20 54 48 45 20 42 |INSTALLED, THE B|
00000600: 4F 52 44 45 52 20 57 49 4C 4C 0D 4D 4F 56 45 20 |ORDER WILL.MOVE |
00000610: 57 48 49 4C 45 20 41 20 C2 C1 D3 C9 C3 20 50 52 |WHILE A ..... PR|
00000620: 4F 47 52 41 4D 20 43 4F 4E 54 49 4E 55 45 53 0D |OGRAM CONTINUES.|
00000630: 54 4F 20 45 58 45 43 55 54 45 2E 20 20 D4 48 45 |TO EXECUTE. .HE|
00000640: 20 C2 C1 D3 C9 C3 20 50 52 4F 47 52 41 4D 20 43 | ..... PROGRAM C|
00000650: 41 4E 0D 43 4F 4E 54 52 4F 4C 20 54 48 45 20 42 |AN.CONTROL THE B|
00000660: 4F 52 44 45 52 20 57 49 54 48 20 50 4F 4B 45 53 |ORDER WITH POKES|
00000670: 20 41 4E 44 0D 50 45 45 4B 53 2E 20 20 28 D4 48 | AND.PEEKS. (.H|
00000680: 45 20 53 50 45 43 49 46 49 43 20 41 44 44 52 45 |E SPECIFIC ADDRE|
00000690: 53 53 45 53 20 41 52 45 0D 49 4E 20 54 48 45 20 |SSES ARE.IN THE |
000006A0: 50 52 4F 47 52 41 4D 20 4C 49 53 54 49 4E 47 2E |PROGRAM LISTING.|
000006B0: 29 20 20 D9 4F 55 20 43 41 4E 0D 53 54 4F 50 20 |) .OU CAN.STOP |
000006C0: 54 48 45 20 4D 4F 54 49 4F 4E 20 4F 46 20 54 48 |THE MOTION OF TH|
000006D0: 45 20 42 4F 52 44 45 52 20 57 49 54 48 0D D3 D9 |E BORDER WITH...|
000006E0: D3 20 34 39 31 35 35 2C 20 54 48 45 4E 20 53 54 |. 49155, THEN ST|
000006F0: 41 52 54 20 49 54 20 41 47 41 49 4E 20 57 49 54 |ART IT AGAIN WIT|
00000700: 48 0D D3 D9 D3 20 34 39 31 35 32 2E 0D 0D 0D C4 |H.... 49152.....|
00000710: C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 |... ..... .... .|
00000720: D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 0D 0D C2 CF D2 |...... .........|
00000730: C4 C5 D2 20 D0 C1 D4 D2 CF CC 20 20 20 20 20 20 |... ...... |
00000740: D4 2E C2 CF D2 C4 C5 D2 20 D0 C1 D4 D2 CF CC 0D |........ .......|
00000750: 0D 20 20 20 20 20 20 20 20 2A 2A 2A 2A 20 C5 4E |. **** .N|
00000760: 44 20 CF 46 20 D4 45 58 54 20 2A 2A 2A 2A 0D |D .F .EXT ****. |
.... BORDER PATROL.
BY. R. HAROLD DROID...C
OMMODORE MAGAZINE.MARCH 1987..**********
***************************.NOTE: THIS P
ROGRAM DOES NOT RELINK.TO THE LOADSTAR O
PERATING SYSTEM. TO.RETURN TO LOADSTAR,
REBOOT THE.LOADSTAR DISK..*************
************************... ONE WAY YOU
CAN SPRUCE UP YOUR.TITLE SCREENS AND ME
NU DISPLAYS IS TO.ADD A MOVING BORDER.
BORDER PATROL.LETS YOU FILL THE OUTER ED
GE OF A.SCREEN WITH A CHARACTER, AND THE
N.CHANGE THE COLOR OF THOSE CHARACTERS.A
T REGULAR INTERVALS, THUS CREATING.THE I
LLUSION OF MOTION. WHEN YOU'VE.EXPERIME
NTED WITH BORDER PARTOL AND.FOUND AN EFF
ECT YOU LIKE, YOU CAN.REMOVE THE INPUT P
ROMPTS, SUBSTITUTE.FIXED VALUES, AND INC
ORPORATE YOUR.SET-UP INTO YOUR OWN BASIC
PROGRAMS... WHEN YOU RUN BORDER PATROL
, YOU.CAN CHANGE A NUMBER OF OPTIONS:...
SPEED -- CONTROLS HOW FAST THE BORDER.AP
PEARS TO MOVE. INPUT A NUMBER.BETWEEN 1
AND 255. LOWER NUMBERS.MAKE THE BORDER
MOVE FASTER...SCREEN CODE -- SPECIFIES
WHICH.CHARACTER IS USED TO FORM THE BORD
ER..NOTE THAT SCREEN CODES INSTEAD OF.AS
CII CODES ARE USED. FOR A COMPLETE.LIST
ING OF SCREEN CODES, SEE APPENDIX.B OF T
HE 64 PROGRAMMER'S GUIDE OR.APPENDIX E O
F THE 64 USER'S GUIDE...NUMBER OF COLORS
-- LETS YOU CHOOSE.THE NUMBER OF COLORS
USED IN YOUR.BORDER AS WELL AS THEIR SE
QUENCE. THE.MAXIMUM VALUE YOU CAN USE IS
127...COLOR CODES -- ASKS YOU TO ENTER
THE.COLORS IN SEQUENCE. USE THE SAME.CO
DE YOU WOULD USE IN A POKE.STATEMENT TO
CHANGE THE COLOR OF THE.SCREEN... ONCE
INSTALLED, THE BORDER WILL.MOVE WHILE A
BASIC PROGRAM CONTINUES.TO EXECUTE. THE
BASIC PROGRAM CAN.CONTROL THE BORDER WI
TH POKES AND.PEEKS. (THE SPECIFIC ADDRE
SSES ARE.IN THE PROGRAM LISTING.) YOU C
AN.STOP THE MOTION OF THE BORDER WITH.SY
S 49155, THEN START IT AGAIN WITH.SYS 49
152....DISK FILES THIS PROGRAM USES..BOR
DER PATROL T.BORDER PATROL..
**** END OF TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL