mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 16:58:06 +11:00
f6ded7712e
This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues.
17 lines
294 B
Plaintext
17 lines
294 B
Plaintext
'? CASE NOT [IF] 48 49 LOADR+ [THEN] DROP ( B153-154 )
|
|
'? FILL NOT [IF] 50 LOAD+ [THEN] DROP ( B155 )
|
|
1 7 LOADR+
|
|
: BROWSE
|
|
0 ACC ! L
|
|
BEGIN
|
|
KEY CASE
|
|
'Q' OF EXIT ENDOF
|
|
'B' OF B ENDOF
|
|
'N' OF N ENDOF
|
|
_NUM
|
|
ENDCASE
|
|
AGAIN
|
|
;
|
|
|
|
|