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 )
|
2020-05-07 22:44:17 +10:00
|
|
|
1 7 LOADR+
|
2020-04-17 05:59:43 +10:00
|
|
|
: BROWSE
|
2020-05-06 05:49:50 +10:00
|
|
|
0 ACC ! L
|
|
|
|
BEGIN
|
2020-04-17 05:59:43 +10:00
|
|
|
KEY CASE
|
2020-04-23 11:19:12 +10:00
|
|
|
'Q' OF EXIT ENDOF
|
2020-04-17 05:59:43 +10:00
|
|
|
'B' OF B ENDOF
|
|
|
|
'N' OF N ENDOF
|
|
|
|
_NUM
|
|
|
|
ENDCASE
|
2020-04-16 12:21:09 +10:00
|
|
|
AGAIN
|
2020-04-17 05:59:43 +10:00
|
|
|
;
|
2020-05-07 11:10:27 +10:00
|
|
|
( I masks DO..LOOP's I. Do it as late as possible. )
|
|
|
|
: I _I ;
|