00000000: 00 80 5E 55 3A 42 52 41 49 4E 0D 0D 0D 0D 20 20 |..^U:BRAIN.... |
00000010: 20 20 20 20 20 20 20 D4 C8 C5 20 D2 C1 CE C4 CF | ... .....|
00000020: CD 20 D7 C1 CC CB 20 31 32 38 0D 20 20 20 20 20 |. .... 128. |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 42 59 0D 20 | BY. |
00000040: 20 20 20 20 20 20 20 20 20 20 20 D2 4F 47 45 52 | .OGER|
00000050: 20 CD 41 43 4F 4D 42 45 52 0D 0D C3 CF CD CD CF | .ACOMBER.......|
00000060: C4 CF D2 C5 20 CD C1 C7 C1 DA C9 CE C5 0D D3 45 |.... ..........E|
00000070: 50 54 45 4D 42 45 52 20 31 39 38 37 0D 0D 2A 2A |PTEMBER 1987..**|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 2A 2A 0D CE CF D4 C5 3A 20 C2 45 43 41 55 53 |***.....: .ECAUS|
000000B0: 45 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 |E THIS PROGRAM I|
000000C0: 53 20 57 52 49 54 54 45 4E 0D 46 4F 52 20 54 48 |S WRITTEN.FOR TH|
000000D0: 45 20 C3 2D 31 32 38 2C 20 49 54 20 43 41 4E 4E |E .-128, IT CANN|
000000E0: 4F 54 20 42 45 20 52 55 4E 20 4C 49 4B 45 0D 4F |OT BE RUN LIKE.O|
000000F0: 54 48 45 52 20 50 52 4F 47 52 41 4D 53 20 4F 4E |THER PROGRAMS ON|
00000100: 20 CC CF C1 C4 D3 D4 C1 D2 2E 20 20 C9 46 20 59 | ......... .F Y|
00000110: 4F 55 0D 41 52 45 20 43 55 52 52 45 4E 54 4C 59 |OU.ARE CURRENTLY|
00000120: 20 49 4E 20 36 34 20 4D 4F 44 45 2C 20 50 52 45 | IN 64 MODE, PRE|
00000130: 53 53 20 59 4F 55 52 0D 4D 41 43 48 49 4E 45 27 |SS YOUR.MACHINE'|
00000140: 53 20 D2 C5 D3 C5 D4 20 42 55 54 54 4F 4E 20 54 |S ..... BUTTON T|
00000150: 4F 20 50 55 54 20 54 48 45 0D 43 4F 4D 50 55 54 |O PUT THE.COMPUT|
00000160: 45 52 20 49 4E 54 4F 20 31 32 38 20 4D 4F 44 45 |ER INTO 128 MODE|
00000170: 2E 20 20 C1 20 4D 45 4E 55 20 4F 46 0D 41 4C 4C |. . MENU OF.ALL|
00000180: 20 31 32 38 20 50 52 4F 47 52 41 4D 53 20 4F 4E | 128 PROGRAMS ON|
00000190: 20 D3 49 44 45 20 32 20 4F 46 20 54 48 45 0D 44 | .IDE 2 OF THE.D|
000001A0: 49 53 4B 20 57 49 4C 4C 20 42 45 20 44 49 53 50 |ISK WILL BE DISP|
000001B0: 4C 41 59 45 44 20 41 55 54 4F 4D 41 54 49 43 41 |LAYED AUTOMATICA|
000001C0: 4C 4C 59 2E 0D C3 48 4F 4F 53 45 20 54 48 45 20 |LLY...HOOSE THE |
000001D0: 50 52 4F 47 52 41 4D 20 59 4F 55 20 57 49 53 48 |PROGRAM YOU WISH|
000001E0: 20 54 4F 20 52 55 4E 0D 46 52 4F 4D 20 54 48 49 | TO RUN.FROM THI|
000001F0: 53 20 4D 45 4E 55 2E 0D 2A 2A 2A 2A 2A 2A 2A 2A |S MENU..********|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 20 |*************.. |
00000220: 20 C1 43 43 4F 52 44 49 4E 47 20 54 4F 20 D2 4F | .CCORDING TO .O|
00000230: 47 45 52 20 CD 41 43 4F 4D 42 45 52 2C 20 54 48 |GER .ACOMBER, TH|
00000240: 45 0D D2 41 4E 44 4F 4D 20 D7 41 4C 4B 20 49 53 |E..ANDOM .ALK IS|
00000250: 20 42 41 53 45 44 20 4F 4E 20 53 49 4D 55 4C 41 | BASED ON SIMULA|
00000260: 54 49 4F 4E 0D 50 52 4F 47 52 41 4D 53 20 55 53 |TION.PROGRAMS US|
00000270: 45 44 20 42 59 20 53 43 49 45 4E 54 49 53 54 53 |ED BY SCIENTISTS|
00000280: 20 41 4E 44 0D 4D 41 54 48 45 4D 41 54 49 43 49 | AND.MATHEMATICI|
00000290: 41 4E 53 20 54 4F 20 53 54 55 44 59 20 45 56 45 |ANS TO STUDY EVE|
000002A0: 52 59 54 48 49 4E 47 0D 46 52 4F 4D 20 54 48 45 |RYTHING.FROM THE|
000002B0: 20 42 45 48 41 56 49 4F 52 20 4F 46 20 47 41 53 | BEHAVIOR OF GAS|
000002C0: 20 4D 4F 4C 45 43 55 4C 45 53 20 54 4F 0D 54 48 | MOLECULES TO.TH|
000002D0: 45 20 49 4E 54 45 52 41 43 54 49 4F 4E 20 4F 46 |E INTERACTION OF|
000002E0: 20 50 45 4F 50 4C 45 20 49 4E 20 41 20 43 52 4F | PEOPLE IN A CRO|
000002F0: 57 44 2E 0D 0D 20 20 D2 45 53 45 41 52 43 48 45 |WD... .ESEARCHE|
00000300: 52 53 20 55 53 45 20 54 48 45 49 52 20 53 49 4D |RS USE THEIR SIM|
00000310: 55 4C 41 54 49 4F 4E 53 0D 54 4F 20 48 45 4C 50 |ULATIONS.TO HELP|
00000320: 20 45 56 41 4C 55 41 54 45 20 45 58 50 45 52 49 | EVALUATE EXPERI|
00000330: 4D 45 4E 54 41 4C 20 44 41 54 41 2E 0D D4 48 45 |MENTAL DATA...HE|
00000340: 20 43 4F 4D 50 55 54 45 52 20 53 49 4D 55 4C 41 | COMPUTER SIMULA|
00000350: 54 45 53 20 57 48 41 54 20 57 4F 55 4C 44 0D 48 |TES WHAT WOULD.H|
00000360: 41 50 50 45 4E 20 49 46 20 41 20 50 52 4F 43 45 |APPEN IF A PROCE|
00000370: 53 53 20 57 45 52 45 20 54 52 55 45 4C 59 0D 52 |SS WERE TRUELY.R|
00000380: 41 4E 44 4F 4D 2E 20 D3 43 49 45 4E 54 49 53 54 |ANDOM. .CIENTIST|
00000390: 53 20 54 48 45 4E 20 43 4F 4D 50 41 52 45 20 54 |S THEN COMPARE T|
000003A0: 48 45 49 52 0D 53 49 4D 55 4C 41 54 49 4F 4E 53 |HEIR.SIMULATIONS|
000003B0: 20 57 49 54 48 20 54 48 45 49 52 20 45 58 50 45 | WITH THEIR EXPE|
000003C0: 52 49 4D 45 4E 54 41 4C 0D 44 41 54 41 3A 20 49 |RIMENTAL.DATA: I|
000003D0: 46 20 54 48 45 20 53 49 4D 55 4C 41 54 49 4F 4E |F THE SIMULATION|
000003E0: 20 44 4F 45 53 20 4E 4F 54 0D 43 4F 52 52 45 53 | DOES NOT.CORRES|
000003F0: 50 4F 4E 44 20 54 4F 20 52 45 41 4C 20 4C 49 46 |POND TO REAL LIF|
00000400: 45 2C 20 43 48 41 4E 43 45 53 20 41 52 45 0D 54 |E, CHANCES ARE.T|
00000410: 48 41 54 20 54 48 45 52 45 20 49 53 20 41 20 43 |HAT THERE IS A C|
00000420: 41 55 53 45 20 41 4E 44 20 45 46 46 45 43 54 0D |AUSE AND EFFECT.|
00000430: 52 45 4C 41 54 49 4F 4E 53 48 49 50 20 41 54 20 |RELATIONSHIP AT |
00000440: 57 4F 52 4B 20 53 4F 4D 45 57 48 45 52 45 20 49 |WORK SOMEWHERE I|
00000450: 4E 20 54 48 45 0D 50 52 4F 43 45 53 53 2E 0D 0D |N THE.PROCESS...|
00000460: 20 20 D4 48 45 20 D2 41 4E 44 4F 4D 20 D7 41 4C | .HE .ANDOM .AL|
00000470: 4B 20 44 45 4D 4F 4E 53 54 52 41 54 45 53 20 57 |K DEMONSTRATES W|
00000480: 48 41 54 0D 57 4F 55 4C 44 20 48 41 50 50 45 4E |HAT.WOULD HAPPEN|
00000490: 20 49 46 20 41 20 54 52 41 56 45 4C 45 52 20 44 | IF A TRAVELER D|
000004A0: 45 43 49 44 45 44 20 54 4F 0D 45 58 50 4C 4F 52 |ECIDED TO.EXPLOR|
000004B0: 45 20 41 20 43 49 54 59 20 42 59 20 54 41 4B 49 |E A CITY BY TAKI|
000004C0: 4E 47 20 53 54 52 45 45 54 53 20 41 54 0D 41 54 |NG STREETS AT.AT|
000004D0: 20 52 41 4E 44 4F 4D 2E 20 20 28 C1 54 20 45 41 | RANDOM. (.T EA|
000004E0: 43 48 20 49 4E 54 45 52 53 45 43 54 49 4F 4E 2C |CH INTERSECTION,|
000004F0: 0D 54 48 45 20 54 52 41 56 45 4C 45 52 20 43 41 |.THE TRAVELER CA|
00000500: 4E 20 4D 4F 56 45 20 4E 4F 52 54 48 2C 20 53 4F |N MOVE NORTH, SO|
00000510: 55 54 48 2C 0D 45 41 53 54 2C 20 4F 52 20 57 45 |UTH,.EAST, OR WE|
00000520: 53 54 2E 20 20 D4 48 45 20 43 49 54 59 20 54 41 |ST. .HE CITY TA|
00000530: 4B 45 53 20 55 50 0D 45 58 41 43 54 4C 59 20 4F |KES UP.EXACTLY O|
00000540: 4E 45 20 53 43 52 45 45 4E 2E 29 20 20 C8 4F 57 |NE SCREEN.) .OW|
00000550: 20 4C 4F 4E 47 20 57 49 4C 4C 0D 49 54 20 54 41 | LONG WILL.IT TA|
00000560: 4B 45 20 54 48 45 20 D2 41 4E 44 4F 4E 20 D7 41 |KE THE .ANDON .A|
00000570: 4C 4B 45 52 20 45 58 50 4C 4F 52 45 20 54 48 45 |LKER EXPLORE THE|
00000580: 0D 45 4E 54 49 52 45 20 43 49 54 59 3F 0D 0D 20 |.ENTIRE CITY?.. |
00000590: 20 D4 4F 20 48 45 4C 50 20 59 4F 55 20 50 55 54 | .O HELP YOU PUT|
000005A0: 20 54 48 45 20 D2 41 4E 44 4F 4D 20 D7 41 4C 4B | THE .ANDOM .ALK|
000005B0: 45 52 27 53 0D 54 52 41 56 45 4C 53 20 49 4E 20 |ER'S.TRAVELS IN |
000005C0: 50 45 52 53 50 45 43 54 49 56 45 2C 20 D2 4F 47 |PERSPECTIVE, .OG|
000005D0: 45 52 0D CD 41 43 4F 4D 42 45 52 20 48 41 53 20 |ER..ACOMBER HAS |
000005E0: 49 4E 43 4C 55 44 45 44 20 41 4E 20 4F 50 54 49 |INCLUDED AN OPTI|
000005F0: 4F 4E 20 57 48 49 43 48 0D 53 48 4F 57 53 20 59 |ON WHICH.SHOWS Y|
00000600: 4F 55 20 54 48 45 20 4A 4F 55 52 4E 45 59 20 4F |OU THE JOURNEY O|
00000610: 46 20 41 4E 4F 54 48 45 52 0D 54 52 41 56 45 4C |F ANOTHER.TRAVEL|
00000620: 45 52 20 57 48 4F 20 55 53 45 53 20 41 20 4D 41 |ER WHO USES A MA|
00000630: 50 20 54 4F 20 45 58 50 4C 4F 52 45 0D 54 48 45 |P TO EXPLORE.THE|
00000640: 20 43 49 54 59 2E 0D 0D 0D C4 C9 D3 CB 20 C6 C9 | CITY........ ..|
00000650: CC C5 D3 20 D4 C8 C9 D3 20 D0 D2 CF C7 D2 C1 CD |... .... .......|
00000660: 20 D5 D3 C5 D3 3A 0D 0D D2 C1 CE C4 CF CD 20 D7 | ....:........ .|
00000670: C1 CC CB 2E 31 32 38 20 20 20 20 D4 2E D2 C1 CE |....128 .....|
00000680: C4 CF CD 20 D7 C1 CC CB 2E 31 32 38 0D 0D 20 20 |... .....128.. |
00000690: 20 20 20 20 20 20 2A 2A 2A 2A 20 C5 4E 44 20 CF | **** .ND .|
000006A0: 46 20 D4 45 58 54 20 2A 2A 2A 2A 0D |F .EXT ****. |
..^U:BRAIN.... THE RANDOM WALK 1
28. BY. ROGER
MACOMBER..COMMODORE MAGAZINE.SEPTEMBER
1987..**********************************
***.NOTE: BECAUSE THIS PROGRAM IS WRITTE
N.FOR THE C-128, IT CANNOT BE RUN LIKE.O
THER PROGRAMS ON LOADSTAR. IF YOU.ARE C
URRENTLY IN 64 MODE, PRESS YOUR.MACHINE'
S RESET BUTTON TO PUT THE.COMPUTER INTO
128 MODE. A MENU OF.ALL 128 PROGRAMS ON
SIDE 2 OF THE.DISK WILL BE DISPLAYED AU
TOMATICALLY..CHOOSE THE PROGRAM YOU WISH
TO RUN.FROM THIS MENU..****************
*********************.. ACCORDING TO RO
GER MACOMBER, THE.RANDOM WALK IS BASED O
N SIMULATION.PROGRAMS USED BY SCIENTISTS
AND.MATHEMATICIANS TO STUDY EVERYTHING.
FROM THE BEHAVIOR OF GAS MOLECULES TO.TH
E INTERACTION OF PEOPLE IN A CROWD... R
ESEARCHERS USE THEIR SIMULATIONS.TO HELP
EVALUATE EXPERIMENTAL DATA..THE COMPUTE
R SIMULATES WHAT WOULD.HAPPEN IF A PROCE
SS WERE TRUELY.RANDOM. SCIENTISTS THEN C
OMPARE THEIR.SIMULATIONS WITH THEIR EXPE
RIMENTAL.DATA: IF THE SIMULATION DOES NO
T.CORRESPOND TO REAL LIFE, CHANCES ARE.T
HAT THERE IS A CAUSE AND EFFECT.RELATION
SHIP AT WORK SOMEWHERE IN THE.PROCESS...
THE RANDOM WALK DEMONSTRATES WHAT.WOUL
D HAPPEN IF A TRAVELER DECIDED TO.EXPLOR
E A CITY BY TAKING STREETS AT.AT RANDOM.
(AT EACH INTERSECTION,.THE TRAVELER CA
N MOVE NORTH, SOUTH,.EAST, OR WEST. THE
CITY TAKES UP.EXACTLY ONE SCREEN.) HOW
LONG WILL.IT TAKE THE RANDON WALKER EXP
LORE THE.ENTIRE CITY?.. TO HELP YOU PUT
THE RANDOM WALKER'S.TRAVELS IN PERSPECT
IVE, ROGER.MACOMBER HAS INCLUDED AN OPTI
ON WHICH.SHOWS YOU THE JOURNEY OF ANOTHE
R.TRAVELER WHO USES A MAP TO EXPLORE.THE
CITY....DISK FILES THIS PROGRAM USES:..
RANDOM WALK.128 T.RANDOM WALK.128..
**** END OF TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL