F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 122

5259 05244 0 10 00130 END JST DOCL 5260 05245 0 005232 DAC UNTL 5261 05246 0 001361 DAC SMIS 5262 * 5263 * **** AGAIN **** 5264 * HEAD FIMD,AGAIN,AGAN,DOCL 5265 005247 TLNK SET * 5266 05247 042701 VFD 1,0,1,FIMD,6,5,8,'301 5267 * =<FIMD,5>,'A' 5268 05250 143701 BCI 1,GA 5269 05251 144516 VFD 8,'311,8,'116 ='IN' 5270 05252 0 005241 DAC LINK 5271 005247 LINK SET TLNK 5272 05253 0 10 00130 AGAN JST DOCL 5273 05254 0 001722 DAC ONE 5274 05255 0 002522 DAC QPRS 5275 05256 0 002570 DAC COMP 5276 05257 0 000263 DAC BRAN 5277 05260 0 005125 DAC BACK 5278 05261 0 001361 DAC SMIS 5279 * 5280 * **** REPEAT **** 5281 * HEAD FIMD,REPEAT,RPET,DOCL 5282 005262 TLNK SET * 5283 05262 043322 VFD 1,0,1,FIMD,6,6,8,'322 5284 * =<FIMD,6>,'R' 5285 05263 142720 BCI 2,EPEA 05264 142701 5286 05265 052000 VFD 8,'124 ='T' 5287 05266 0 005247 DAC LINK 5288 005262 LINK SET TLNK 5289 05267 0 10 00130 RPET JST DOCL 5290 05270 0 001402 DAC TOR 5291 05271 0 001402 DAC TOR 5292 05272 0 005253 DAC AGAN 5293 05273 0 001412 DAC FRMR 5294 05274 0 001412 DAC FRMR 5295 05275 0 001726 DAC TWO 5296 05276 0 002266 DAC SUB 5297 05277 0 005145 DAC ENDF 5298 05300 0 001361 DAC SMIS 5299 * 5300 * **** IF **** 5301 * HEAD FIMD,IF,IF,DOCL 5302 005301 TLNK SET * 5303 05301 041311 VFD 1,0,1,FIMD,6,2,8,'311 5304 * =<FIMD,2>,'I' 5305 05302 043000 VFD 8,'106 ='F' 5306 05303 0 005262 DAC LINK 5307 005301 LINK SET TLNK