This group has gotten too quiet. So, it just came to me, how about lines done for the Type 340? A few lines of code later, done. Result? Hyperactive lines. Remember that this running on the 340 is at least 50 times faster.
Most of the code is the random number generator, Of course, if you want to try it, you'll have to use my branch. Just assemble it and go.
Bill
Lines version that uses the Type 340 display
#include <TYPE340/type340defs.ah>
// Set a vector to random directions and lengths, loop
100/
top,
jsp random
dac v1
lio [prog
dla
jmp top
// The Type 340 program
prog, scale(1) intensity(3) next(vector)
v1, 0
end
halt
// Generate a random number, return it in ac as a visible vector command.
random,
local rtn, ran
dap rtn
lac ran
rar 1s
xor [355670
add [355670
dac ran
and [177777
ior [200000
rtn, jmp .
ran, 0
endloc
constants
start 100