collapseos/blk/102

mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 21:30:56 +11:00
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
First function application: Block explorer! 2020-04-16 12:21:09 +10:00			`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`