F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 121

5209 05204 000003 DEC 3 5210 05205 0 002522 DAC QPRS 5211 05206 0 002570 DAC COMP 5212 05207 0 000322 DAC XLOP 5213 05210 0 005125 DAC BACK 5214 05211 0 001361 DAC SMIS 5215 * 5216 * **** +LOOP **** 5217 * HEAD FIMD,+LOOP,PLOP,DOCL 5218 005212 TLNK SET * 5219 05212 042653 VFD 1,0,1,FIMD,6,5,8,'253 5220 * =<FIMD,5>,'+' 5221 05213 146317 BCI 1,LO 5222 05214 147520 VFD 8,'317,8,'120 ='OP' 5223 05215 0 005176 DAC LINK 5224 005212 LINK SET TLNK 5225 05216 0 10 00130 PLOP JST DOCL 5226 05217 0 000241 DAC LIT 5227 05220 000003 DEC 3 5228 05221 0 002522 DAC QPRS 5229 05222 0 002570 DAC COMP 5230 05223 0 000354 DAC XPLO 5231 05224 0 005125 DAC BACK 5232 05225 0 001361 DAC SMIS 5233 * 5234 * **** UNTIL **** 5235 * HEAD FIMD,UNTIL,UNTL,DOCL 5236 005226 TLNK SET * 5237 05226 042725 VFD 1,0,1,FIMD,6,5,8,'325 5238 * =<FIMD,5>,'U' 5239 05227 147324 BCI 1,NT 5240 05230 144514 VFD 8,'311,8,'114 ='IL' 5241 05231 0 005212 DAC LINK 5242 005226 LINK SET TLNK 5243 05232 0 10 00130 UNTL JST DOCL 5244 05233 0 001722 DAC ONE 5245 05234 0 002522 DAC QPRS 5246 05235 0 002570 DAC COMP 5247 05236 0 000277 DAC ZBRA 5248 05237 0 005125 DAC BACK 5249 05240 0 001361 DAC SMIS 5250 * 5251 * **** END **** 5252 * HEAD FIMD,END,END,DOCL 5253 005241 TLNK SET * 5254 05241 041705 VFD 1,0,1,FIMD,6,3,8,'305 5255 * =<FIMD,3>,'E' 5256 05242 147104 VFD 8,'316,8,'104 ='ND' 5257 05243 0 005226 DAC LINK 5258 005241 LINK SET TLNK