uses StartUp \ Описание кучи констант без лишних слов \ CONSTS комментарий \ константа0 выражение0 \ ... \ константаn выражениеn \ ; \ Пустых строк быть не должно! \ CONSTS comments \ constant0 value0 \ ... \ constant_n value_n \ ; : CONSTS BEGIN REFILL 0= ABORT" CONST without ;" \ NextWord name S" ;" COMPARE WHILE INTERPRET 0 >IN ! CONSTANT REPEAT ;
Make your own free website on Tripod.com