: bufp ( buf -- ) DUP 64 + SWAP DO i C@ DUP 0x20 < IF DROP 0x20 THEN EMIT LOOP ; : 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 EDPOS ! modeM contents BEGIN status bufs setpos KEY MODE @ EXECUTE UNTIL 0 0x08 RAM+ ! 19 aty ;