Вы не можете выбрать более 25 тем
Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
|
- : 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' = ;
- : bufp ( buf -- )
- DUP 64 + SWAP DO I C@ 0x20 MAX EMIT LOOP ;
- : bufs
- 1 aty ." I: " IBUF bufp
- 2 aty ." F: " FBUF bufp 0 3 gutter ;
- : VE
- clrscr 0 ACC ! 0 PREVPOS ! contents
- BEGIN status bufs setpos KEY handle UNTIL
- 19 aty (infl) ;
|