collapseos/blk/102

50 LOAD+ ( B152, extras )
1 6 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 ;
blk: Add LOAD+ and LOADR+ And use them in all places they make sense. 2020-05-05 11:43:48 +10:00			`50 LOAD+ ( B152, extras )`
editor: implement I command Also, made LIST properly handle full 64-chars lines not ending with a null or CR. Previously, such a line would be accompanied by its following line, duplicating that line's output. 2020-05-07 02:19:36 +10:00			`1 6 LOADR+`
First function application: Block explorer! 2020-04-16 12:21:09 +10:00
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 ;`