1 ' RANDOM WALK (A LA PARTICLE-IN-A-BOX)
2 ' ...EINSTEIN REVISITED...
3 ' 
4 '     ERIC KNUDSON
5 '     946 WASHINGTON ROAD
6 '     GROSSE POINTE, MI 48230
7 '
8 'LET ME KNOW IF ANY NUMBER GIVES A HALF-WAY
9 'INTERESTING RORSCHACH...
10 PRINT CHR$(26)
20 INPUT"INPUT RANDOM SEED: ",R
30 RANDOMIZE R
40 PRINT CHR$(26)
100 DEFSNG L,C,X,Y
110 X=26!
120 Y=12
130 L=INT(64384!+X-128*Y)
140 C=CINT(RND*25+65)
150 POKE L,C
160 A=INT(RND*3)-1!
162 X=X+A
164 IF X>=0 AND X<=52 THEN 170
166 X=X-A:GOTO 160
170 B=INT(RND*3)-1!
172 Y=Y+B
174 IF Y>=0 AND Y<=24 THEN 130
176 Y=Y-B
178 GOTO 170
180 GOTO 130
70
166 X=X-A:GOT