Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
~ 5 Y 8 6 VEX 1. i3 SOURCE: PoRTx-A~~ Fig <strong>Forth</strong> 8386/88 Ver 1.0<br />
EJECT<br />
; * QUIT *<br />
. ************<br />
QUIT<br />
. *************<br />
; * ABORT "<br />
. *************<br />
I<br />
Dl3<br />
DB<br />
T) B<br />
DW<br />
ABORT DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DB<br />
DB<br />
84H<br />
'QUI '<br />
'T1+S3il<br />
PAREN-4<br />
DOCOL<br />
ZERO<br />
BLK<br />
STORE<br />
5B .w. C<br />
RPSTO ; BEGIS<br />
CR<br />
QLTERY<br />
INTER<br />
STATE<br />
AT<br />
ZEQU<br />
ZBRAN ; IF<br />
OFFSET QUITZ-$<br />
PDOTQ<br />
2<br />
'JK ' ; EXDIF<br />
BTiAN ; AGAIN<br />
DFFSET QUIT1-$<br />
859<br />
'ABGR'<br />
'T1+80%<br />
QUIT-7<br />
DOCGL<br />
SPSTO<br />
DECA<br />
QS TAC<br />
CR<br />
DOTCPU<br />
PDOTQ<br />
OD H<br />
'Fig-<strong>Forth</strong> '<br />
FIG2EL+30Hl ADD?', FIGRE7J+3aH<br />
FORTH<br />
DEFIN<br />
QUIT<br />
PAGE 66