collapseos/blk/102

17 lines
279 B
Plaintext

50 LOAD+ ( B152, extras )
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 ;