bceb2b6a95/forthlets/maze/maze.retro
Download diff| 84e43d30e60064df7ababd72f5cfee5776af4841 | bceb2b6a9535fe0ec18cad0d5de821544b76ed70 | ||
|---|---|---|---|
62 | : row ." | " COLUMNS for 2dup + @ emit 32 emit 1+ next ." | " cr ; | 62 | : row ." | " COLUMNS for 2dup + @ emit 32 emit 1+ next ." | " cr ; |
63 | : display | 63 | : display |
64 | clear | 64 | clear |
65 | fast-render | ||
66 | 32 emit 33 for ." -" next cr | 65 | 32 emit 33 for ." -" next cr |
67 | board 0 ROWS for row next 2drop | 66 | board 0 ROWS for row next 2drop |
68 | 32 emit 33 for ." -" next cr | 67 | 32 emit 33 for ." -" next cr |