25개 이상의 토픽을 선택하실 수 없습니다.
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
- : 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) ;
|