1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 06:08:06 +11:00
collapseos/blk/131

15 lines
468 B
Plaintext
Raw Normal View History

2020-06-07 21:25:02 +10:00
: handle ( c -- f )
DUP '0' '9' =><= IF num 0 EXIT THEN
DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN
UPPER 'Q' = ;
: bufp ( buf -- )
DUP 64 + SWAP DO i C@ 0x20 MAX EMIT LOOP ;
2020-06-07 21:25:02 +10:00
: bufs
1 aty ." I: " IBUF bufp
2 aty ." F: " FBUF bufp ;
: c<over KEY DUP EMIT DUP 0x0a = IF DROP 0x0d THEN ;
: VE ['] c<over 0x08 ( C< override ) RAM+ !
clrscr 0acc 0 PREVPOS ! contents
2020-06-07 21:25:02 +10:00
BEGIN status bufs setpos KEY handle UNTIL
0 0x08 RAM+ ! 19 aty ;