collapseos/blk/102

17 lines
354 B
Plaintext
Raw Normal View History

'? CASE NOT [IF] 51 52 LOADR+ [THEN] DROP ( B152-153 )
'? FILL NOT [IF] 53 LOAD+ [THEN] DROP ( B154 )
2020-05-07 08:44:17 -04:00
1 7 LOADR+
: BROWSE
0 ACC ! L
BEGIN
KEY CASE
2020-04-22 21:19:12 -04:00
'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 ;