F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 123

5308 05304 0 10 00130 IF JST DOCL 5309 05305 0 002570 DAC COMP 5310 05306 0 000277 DAC ZBRA 5311 05307 0 002240 DAC HERE 5312 05310 0 001716 DAC ZERO 5313 05311 0 002256 DAC COMA 5314 05312 0 001726 DAC TWO 5315 05313 0 001361 DAC SMIS 5316 * 5317 * **** ELSE **** 5318 * HEAD FIMD,ELSE,ELSE,DOCL 5319 005314 TLNK SET * 5320 05314 042305 VFD 1,0,1,FIMD,6,4,8,'305 5321 * =<FIMD,4>,'E' 5322 05315 146323 BCI 1,LS 5323 05316 042400 VFD 8,'105 ='E' 5324 05317 0 005301 DAC LINK 5325 005314 LINK SET TLNK 5326 05320 0 10 00130 ELSE JST DOCL 5327 05321 0 001726 DAC TWO 5328 05322 0 002522 DAC QPRS 5329 05323 0 002570 DAC COMP 5330 05324 0 000263 DAC BRAN 5331 05325 0 002240 DAC HERE 5332 05326 0 001716 DAC ZERO 5333 05327 0 002256 DAC COMA 5334 05330 0 001533 DAC SWAP 5335 05331 0 001726 DAC TWO 5336 05332 0 005145 DAC ENDF 5337 05333 0 001726 DAC TWO 5338 05334 0 001361 DAC SMIS 5339 * 5340 * **** WHILE **** 5341 * HEAD FIMD,WHILE,WHIL,DOCL 5342 005335 TLNK SET * 5343 05335 042727 VFD 1,0,1,FIMD,6,5,8,'327 5344 * =<FIMD,5>,'W' 5345 05336 144311 BCI 1,HI 5346 05337 146105 VFD 8,'314,8,'105 ='LE' 5347 05340 0 005314 DAC LINK 5348 005335 LINK SET TLNK 5349 05341 0 10 00130 WHIL JST DOCL 5350 05342 0 005304 DAC IF 5351 05343 0 002231 DAC TWOP 5352 05344 0 001361 DAC SMIS 5353 * 5354 * 5355 * 5356 * **** SPACES **** 5357 * HEAD FNUL,SPACES,SPCS,DOCL