, . -, . , RESUME () , . EXIT ; .

QUAN - ( ) : - ( ->A: ) - ; : - ( ->A: ) - 2+ ; : - ( ->A: ) - 4 + ; CREATE 6 ALLOT ( ) : RESUME ( -> . . ) RP@ SP@ - ! ( ) - @ TO - ( ) - @ SP! RP! ; ( ) : STOP ( -> ) QUIT ; : (START) ( A: -> ) DUP TO - - @ OVER 126 + ! DUP 126 + OVER 66 + ! 66 + - ! TO - ; : ( -> ) CREATE HERE DUP 132 + , 126 ALLOT HERE 2+ , ['] STOP , (START) ] DOES> ( PFA: ->) RP@ SWAP >R SP> - ! - R> TO - - ! - @ SP! RP! ; : START ( -> ) ' >BODY [COMPILE] LITERAL STATE @ IF COMPILE (START) ELSE (START) THEN ; IMMEDIATE

: , , . , -, , , , , . , , , .


    





Forekc.ru
, , , , , , , , , ,