random.fs 188 B

1234567891011121314
  1. start-microcode random
  2. \ Fill PICTURE and CHARACTER RAM with random numbers
  3. : main
  4. d# 0
  5. begin
  6. RANDOM c@ over c!
  7. 1-
  8. h# 1FFF and
  9. again
  10. ;
  11. end-microcode