mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 22:28:05 +11:00
15 lines
220 B
Plaintext
15 lines
220 B
Plaintext
103 LOAD
|
|
VARIABLE _K
|
|
|
|
: PGM
|
|
100 _LIST
|
|
BEGIN
|
|
KEY
|
|
DUP 'Q' = IF DROP EXIT THEN
|
|
DUP 58 ( '9'+1 ) < IF _NUM
|
|
ELSE
|
|
_K ! _K (find) IF EXECUTE THEN
|
|
THEN
|
|
AGAIN
|
|
; PGM
|