HEX 2F441 CONSTANT ATTN 2F443 CONSTANT KBDBUF
2F6D9 CONSTANT SYSFLG 2F6E9 CONSTANT USRFLG
2F6F9 CONSTANT MATHFLG 2F6FE CONSTANT RNDSEED
2F7B2 CONSTANT PASS 2F946 CONSTANT DELAYC
2F948 CONSTANT DELAYL 2F94F CONSTANT DWIDTH
2F958 CONSTANT PWIDTH : J R> R@ SWAP >R ;
: BIN 2 BASE ! ; : B. BASE @ BIN SWAP . BASE ! ;
: OCTAL 8 BASE ! ; : O. BASE @ OCTAL SWAP . BASE ! ;
: BASE. BASE C@ DECIMAL DUP . BASE C! ;
: ID. DUP H. DUP COUNT 1F AND 1- ROT 2+ OVER 2* +
DUP 2+ DUP @ SWAP >BODY = IF ." P " ELSE
." S " THEN C@ 7F AND ROT ROT TYPE EMIT ;
: $VLIST BEGIN DUP ID. CR BEGIN ?TERMINAL WHILE
0 KBDBUF N! KEY DROP REPEAT 5- @ ?DUP 0= UNTIL ;
: VLIST LATEST $VLIST E0005 D 1 DO
DUP @ $VLIST 5+ LOOP DROP ; DECIMAL