F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 92

3986 04150 142524 VFD 8,'305,8,'124 ='ET' 3987 04151 0 004116 DAC LINK 3988 004144 LINK SET TLNK 3989 04152 0 10 00130 ITRP JST DOCL 3990 04153 0 003562 ITR1 DAC DFND FIND NEXT WORD 3991 04154 0 000277 DAC ZBRA FOUND? 3992 04155 0 004174 DAC ITR4 NO 3993 04156 0 002144 DAC STAT COMPARE STATE TO LENGTH BYTE 3994 04157 0 001565 DAC AT 3995 04160 0 002303 DAC LESS 3996 04161 0 000277 DAC ZBRA 3997 04162 0 004167 DAC ITR2 3998 04163 0 002376 DAC CFA 3999 04164 0 002256 DAC COMA 4000 04165 0 000263 DAC BRAN 4001 04166 0 004171 DAC ITR3 4002 04167 0 002376 ITR2 DAC CFA 4003 04170 0 000254 DAC EXEC 4004 04171 0 004123 ITR3 DAC QSTK 4005 04172 0 000263 DAC BRAN 4006 04173 0 004212 DAC ITR7 4007 04174 0 002240 ITR4 DAC HERE 4008 04175 0 001616 DAC BYTE 4009 04176 0 003510 DAC NUMB 4010 04177 0 002157 DAC DPL 4011 04200 0 001565 DAC AT 4012 04201 0 002223 DAC ONEP 4013 04202 0 000277 DAC ZBRA 4014 04203 0 004207 DAC ITR5 4015 04204 0 004067 DAC DLIT 4016 04205 0 000263 DAC BRAN 4017 04206 0 004211 DAC ITR6 4018 04207 0 001526 ITR5 DAC DROP 4019 04210 0 004050 DAC LTRL 4020 04211 0 004123 ITR6 DAC QSTK 4021 04212 0 000263 ITR7 DAC BRAN 4022 04213 0 004153 DAC ITR1 4023 * 4024 * **** IMMEDIATE **** 4025 * HEAD FNUL,IMMEDIATE,IMMD,DOCL 4026 004214 TLNK SET * 4027 04214 004711 VFD 1,0,1,FNUL,6,9,8,'311 4028 * =<FNUL,9>,'I' 4029 04215 146715 BCI 3,MMEDIA 04216 142704 04217 144701 4030 04220 152105 VFD 8,'324,8,'105 ='TE' 4031 04221 0 004144 DAC LINK 4032 004214 LINK SET TLNK 4033 04222 0 10 00130 IMMD JST DOCL