2020-05-04 21:43:48 -04:00
|
|
|
50 LOAD+ ( B152, extras )
|
2020-05-06 12:19:36 -04:00
|
|
|
1 6 LOADR+
|
2020-04-15 22:21:09 -04:00
|
|
|
|
2020-04-16 15:59:43 -04:00
|
|
|
: BROWSE
|
2020-05-05 15:49:50 -04:00
|
|
|
0 ACC ! L
|
|
|
|
BEGIN
|
2020-04-16 15:59:43 -04:00
|
|
|
KEY CASE
|
2020-04-22 21:19:12 -04:00
|
|
|
'Q' OF EXIT ENDOF
|
2020-04-16 15:59:43 -04:00
|
|
|
'B' OF B ENDOF
|
|
|
|
'N' OF N ENDOF
|
|
|
|
_NUM
|
|
|
|
ENDCASE
|
2020-04-15 22:21:09 -04:00
|
|
|
AGAIN
|
2020-04-16 15:59:43 -04:00
|
|
|
;
|
2020-05-06 21:10:27 -04:00
|
|
|
( I masks DO..LOOP's I. Do it as late as possible. )
|
|
|
|
: I _I ;
|