collapseos/blk/131

14 lines
391 B
Plaintext
Raw Normal View History

2020-06-07 07:25:02 -04:00
: handle ( c -- f )
DUP '0' '9' =><= IF num 0 EXIT THEN
DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN
0 ACC ! UPPER 'Q' = ;
2020-06-07 07:25:02 -04:00
: bufp ( buf -- )
DUP 64 + SWAP DO i C@ 0x20 MAX EMIT LOOP ;
2020-06-07 07:25:02 -04:00
: bufs
1 aty ." I: " IBUF bufp
2020-06-11 12:01:22 -04:00
2 aty ." F: " FBUF bufp 0 3 gutter ;
: VE
clrscr 0 ACC ! 0 PREVPOS ! contents
2020-06-07 07:25:02 -04:00
BEGIN status bufs setpos KEY handle UNTIL
19 aty (infl) ;