Directory of image this file is from
This file as a plain text file

[GENERATE RANDOM NUMBER 0--3777
TRC
#3T 0
LDA
3Y+1 [0
STO
 3Y [RANDOM NUMBER
LDA
3V+1 [=#3Z
STO
3U+1
STO
3U+13
ADD
3Z+10 [1
STO
3U+3
#3U LDA
XXX
ADD
XXX+1
ADD
3Z+11 [-377
BRP 
p-3
ADD
3Z+12 [377
STO
XXX
ADD
 3Y
STO
 3Y
[TEST
LDA
p-6
ADD
3Z+10 [+1
STO
3U+1
STO
3U+13
ADD
3V [-3Z-10
BZA
3T-1 [FINISHED
LDA
3U+1
ADD
3Z+10 [1
STO
3U+3
ADD
3V [-3Z-10
BNZ
3U
LDA
3V+1 [#3Z
STO
3U+3
TRC
 3U
[CONSTANTS FOR SUBR
[LIST OF 8 NUMBERS FROM 0 TO 377
#3Z   0 [
 32 [
 73 [
105 [
156 [
234 [
310 [
377 [
1 [CONSTANT
-376
 377
#3V -3Z-7
 3Z
#3Y  00 [SUM-RAND #
000