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
|
2020-06-11 06:54:36 +10:00
|
|
|
0 ACC ! UPPER 'Q' = ;
|
2020-06-07 21:25:02 +10:00
|
|
|
: bufp ( buf -- )
|
2020-06-08 06:16:07 +10:00
|
|
|
DUP 64 + SWAP DO i C@ 0x20 MAX EMIT LOOP ;
|
2020-06-07 21:25:02 +10:00
|
|
|
: bufs
|
|
|
|
1 aty ." I: " IBUF bufp
|
2020-06-12 02:01:22 +10:00
|
|
|
2 aty ." F: " FBUF bufp 0 3 gutter ;
|
2020-06-12 10:31:18 +10:00
|
|
|
: VE
|
2020-06-11 06:54:36 +10:00
|
|
|
clrscr 0 ACC ! 0 PREVPOS ! contents
|
2020-06-07 21:25:02 +10:00
|
|
|
BEGIN status bufs setpos KEY handle UNTIL
|
2020-06-12 11:52:08 +10:00
|
|
|
19 aty (infl) ;
|
2020-06-12 10:31:18 +10:00
|
|
|
|
2020-06-12 08:12:01 +10:00
|
|
|
|
|
|
|
|