mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-28 09:48:05 +11:00
a36db99651
This fixes weird glitches I had on trs80. It's *always* a matter of RAM initialization. By now, I should know...
15 lines
468 B
Plaintext
15 lines
468 B
Plaintext
: handle ( c -- f )
|
|
DUP '0' '9' =><= IF num 0 EXIT THEN
|
|
DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN
|
|
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 ;
|
|
: c<over KEY DUP EMIT DUP 0x0a = IF DROP 0x0d THEN ;
|
|
: VE ['] c<over 0x08 ( C< override ) RAM+ !
|
|
clrscr 0acc 0 PREVPOS ! contents
|
|
BEGIN status bufs setpos KEY handle UNTIL
|
|
0 0x08 RAM+ ! 19 aty ;
|