F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 120

5159 005141 LINK SET TLNK 5160 05145 0 10 00130 ENDF JST DOCL 5161 05146 0 002472 DAC QCMP 5162 05147 0 001726 DAC TWO 5163 05150 0 002522 DAC QPRS 5164 05151 0 002240 DAC HERE 5165 05152 0 001533 DAC SWAP 5166 05153 0 001577 DAC STOR 5167 05154 0 001361 DAC SMIS 5168 * 5169 * **** THEN **** 5170 * HEAD FIMD,THEN,THEN,DOCL 5171 005155 TLNK SET * 5172 05155 042324 VFD 1,0,1,FIMD,6,4,8,'324 5173 * =<FIMD,4>,'T' 5174 05156 144305 BCI 1,HE 5175 05157 047000 VFD 8,'116 ='N' 5176 05160 0 005141 DAC LINK 5177 005155 LINK SET TLNK 5178 05161 0 10 00130 THEN JST DOCL 5179 05162 0 005145 DAC ENDF 5180 05163 0 001361 DAC SMIS 5181 * 5182 * **** DO **** 5183 * HEAD FIMD,DO,DO,DOCL 5184 005164 TLNK SET * 5185 05164 041304 VFD 1,0,1,FIMD,6,2,8,'304 5186 * =<FIMD,2>,'D' 5187 05165 047400 VFD 8,'117 ='O' 5188 05166 0 005155 DAC LINK 5189 005164 LINK SET TLNK 5190 05167 0 10 00130 DO JST DOCL 5191 05170 0 002570 DAC COMP 5192 05171 0 000372 DAC XDO 5193 05172 0 002240 DAC HERE 5194 05173 0 000241 DAC LIT 5195 05174 000003 DEC 3 5196 05175 0 001361 DAC SMIS 5197 * 5198 * **** LOOP **** 5199 * HEAD FIMD,LOOP,LOOP,DOCL 5200 005176 TLNK SET * 5201 05176 042314 VFD 1,0,1,FIMD,6,4,8,'314 5202 * =<FIMD,4>,'L' 5203 05177 147717 BCI 1,OO 5204 05200 050000 VFD 8,'120 ='P' 5205 05201 0 005164 DAC LINK 5206 005176 LINK SET TLNK 5207 05202 0 10 00130 LOOP JST DOCL 5208 05203 0 000241 DAC LIT