spr512.fs 131 B

12345678910111213
  1. start-microcode spr512
  2. : main
  3. begin
  4. d# 150
  5. YLINE c@
  6. <
  7. SPR_PAGE c!
  8. again
  9. ;
  10. end-microcode