izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1610 Commits
4 Branches
13MB
Tree: e0bcf3473e
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'e0bcf3473e'
${ noResults }
collapseos/blk/402

11 lines
294B
Raw Blame History 

  1. : XYPOS [ GRID_MEM LITN ] ;

  2. : _cl* COLS LINES * ;

  3. : AT-XY ( x y -- ) LINES * + _cl* MOD XYPOS ! ;

  4. : _lf

  5.     XYPOS @ BEGIN ( pos )

  6.         0 ( blank ) SWAP TUCK CELL!

  7.         1+ DUP COLS MOD NOT UNTIL

  8.     _cl* MOD XYPOS ! ;

  9. : _bs 0 ( blank ) XYPOS @ TUCK CELL! ( pos ) 1-

  10.     _cl* MOD XYPOS ! ;