Directory of image this file is from
This file as a plain text file
[BOUNCE-MLP,2-3-71 #9W LDA 7K STO 1Y [YZERO TO Y CAD 8K STO 1A [-1 TO ALPHA LDA 8K STO 1B [ZERO TO BETA LDA 4A STO 1X [XMIN TO X [GET DEL X0 JSR 3T LDA 3Y [RANDOM VEL STO 9K #1W JSR 1D JSR 1D JSR 1D JSR 1D LDA 1A STO 1T ADD 1K STO 1A [ALPHA - 2 LDA 1T ADD 1Y STO 1Y [Y+ETC. ADD 1M BZA 2W [Y MIN #3W LDA 1X ADD 9K STO 1X [X+DELTA X BOS 5W #6W LDA 2K STO 1C LDA 3K STO 2C JSR 1P [POINT PAUSE TRC 1W #4W LDA 5K STO 1C LDA 6K STO 2C JSR 1P [DROP PAUSE TRC 9W [PAUSE-SUBROUTINE #2P TRC #1P 0 LDA 2C ADD 4K BNV p-3 LDA 1C ADD 4K STO 1C BNV 1P+1 #5A LDA 4B STO 4C LDA 4D STO 4E LDA 5C STO 5E #5B LDA 4C STO 4C LDA 4A DIS LDA 5G STO 5G LDA 5E DIS LDA 5I STO 5I LDA 5E DIS LDA 4C ADD 4F STO 4C LDA 5E ADD 5H STO 5E CAD 4E STO 4E BZA p+3 TRC 5B TRC 2P [DISPLAY SUBROUTINE #2D TRC #1D 0 LDA 1X STO 1T LDA 1Y SLL SLL DIS DIS DIS DIS TRC 2D #2W LDA 9K BRN p+3 ADD 1K ADD 1N STO 9K BZA 4W CAD 1A STO 1T SCA SCA SCA CAA 1N ADD 1T BRP p+3 CAA 1N STO 1A TRC 3W #5W CAA 8K [COM X STO 1X [INTO X LDA 9K SCA SCA SCA CAA 1N ADD 9K CAA 1N STO 9K TRC 6W #1C 0 #2C 0 #1X 0 #1Y 0 #1A 0 #1B 0 #1K 7776 #2K 4000 [OUTER PP #3K 4100 [INNER PP #4K 7777 #5K 4000 [OUTER DP #6K 777 [INNER DP #7K 614 #8K 0 #9K 4 #1M 770 #1N 1 #1T 0 #3C 40 [DELTA X ZERO #5C 3777 #5E 0 #5G 4000 #5H -100 #5I 3777 #4A 4000 #4B -1777 #4C 0 #4D 100 #4E 0 #4F 100 [END BOUNCE [GENERATE RANDOM NUMBER 0--3777 TRC #3T 0 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 STO 3Y [TEST LDA p-4 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