diff --git a/cvm/forth.c b/cvm/forth.c index 764b570..f8f4a98 100644 --- a/cvm/forth.c +++ b/cvm/forth.c @@ -105,7 +105,7 @@ int main(int argc, char *argv[]) // debug panel dw = newwin(1, 30, LINES-1, COLS-30); w = newwin(WLINES, WCOLS, 1, 1); - scrollok(w, 1); + scrollok(w, 0); while (VM_steps(1000)) { debug_panel(); } diff --git a/cvm/forth.fs b/cvm/forth.fs index e72e66f..ef7b325 100644 --- a/cvm/forth.fs +++ b/cvm/forth.fs @@ -2,7 +2,6 @@ : CURSOR! ( new old -- ) DROP COLS /MOD 6 PC! ( y ) 5 PC! ( x ) ; : CELL! ( c pos -- ) 0 CURSOR! 0 PC! ; -: NEWLN ( ln -- ) DROP 0xa 0 PC! ; SYSVARS 0x70 + CONSTANT GRID_MEM 402 403 LOADR ( Grid )