You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
SOURCE: FORTH. A86 Fig <strong>Forth</strong> 9086/88 Ver 1.0<br />
EJECT<br />
. **************<br />
; * CREATE *<br />
. **************<br />
CREAT<br />
86H<br />
'CREAT'<br />
'EV+80H<br />
I DDOT-6<br />
DOCOL<br />
DFIND<br />
ZBRAN ; I F<br />
OFFSET CREA1-$<br />
DROP<br />
NFA<br />
IDCOT<br />
LIT, 4<br />
MESS<br />
SPACE ; ENDIP<br />
HEXE<br />
DUP<br />
CAT<br />
WIDTIl<br />
AT<br />
MIN<br />
ONEP<br />
ALLOT<br />
DUP<br />
LIT, 0A3H<br />
TOGGL<br />
HERE<br />
ONE<br />
SU3 3<br />
LIT, 80H<br />
TOGGL<br />
LATES<br />
COK??.A<br />
CURR<br />
AT<br />
STORE<br />
HERE<br />
m o p<br />
COMMA<br />
SEMIS