collapseos/blk/102

'? CASE NOT [IF] 51 52 LOADR+ [THEN] DROP ( B152-153 )
'? FILL NOT [IF] 53 LOAD+ [THEN] DROP ( B154 )
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
;
( I masks DO..LOOP's I. Do it as late as possible. )
: I _I ;
extra words: allow finer-grained loading 2020-06-04 10:26:41 +10:00			`'? CASE NOT [IF] 51 52 LOADR+ [THEN] DROP ( B152-153 )`
			`'? FILL NOT [IF] 53 LOAD+ [THEN] DROP ( B154 )`
editor: implement E 2020-05-07 22:44:17 +10:00			`1 7 LOADR+`
Block explorer upgraded to block editor! 2020-04-17 05:59:43 +10:00			`: BROWSE`
Make (print) stop on CR Lines edited with the Block editor end with 0xd and (print) spits spurious CR when printing those lines. Also, properly initialize ACC in BROWSE. 2020-05-06 05:49:50 +10:00			`0 ACC ! L`
			`BEGIN`
Block explorer upgraded to block editor! 2020-04-17 05:59:43 +10:00			`KEY CASE`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`'Q' OF EXIT ENDOF`
Block explorer upgraded to block editor! 2020-04-17 05:59:43 +10:00			`'B' OF B ENDOF`
			`'N' OF N ENDOF`
			`_NUM`
			`ENDCASE`
First function application: Block explorer! 2020-04-16 12:21:09 +10:00			`AGAIN`
Block explorer upgraded to block editor! 2020-04-17 05:59:43 +10:00			`;`
editor: simplify I with the use of MOVE- Also, delay the shadowing of DO..LOOP's I for as long as possible. 2020-05-07 11:10:27 +10:00			`( I masks DO..LOOP's I. Do it as late as possible. )`
			`: I _I ;`