5 dup 0 = if pop pop 2drop drop ret then
\r
8 dup 2 = if colhigh then
\r
10 dup 4 + write colnorm
\r
11 curx @ 10 mod 10 swap - do space loop
\r
14 cr 50 do asc = emit loop KBD_FW@ drop
\r
18 inccur @ dup ." depth: " d. cr
\r
19 ." <handle> <size> <current offset>" cr
\r
21 dup @ dup d. space dyns d. space 4 + dup @ d. 4 + cr
\r
30 KBD_FW@ ( handle addr key )
\r
33 over dynp over + i swap c! ( handle addr )
\r
35 i FC = if 2 - FC emit space then
\r
36 pop dup FE - if ( handle addr )
\r
40 over dynresize ( handle )
\r
47 ' (cmdline ' cmdline is
\r
50 until KBD_FW@ dup 1B = if done then
\r
51 dup emit space d. space loop ;
\r
53 : fs. ( fname -- ) fsDloadnew dup dyn. dynde ;
\r
55 : fsdisp ( fname -- )
\r
56 screen cls 0 0 at! fs. cr
\r
57 ." press any key to continue ..."
\r
60 create tmpbuf 100 alloc
\r
69 i 4 * tmpbuf + @ dup . tab.
\r
71 then pop drop ; rh tmpbuf
\r
73 : bye 2dup push push \ R: n1 n2
\r
77 ." unbalanced stack: " swap . space . KBD_FW@ halt ;
\r