F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 127

5507 005514 LINK SET TLNK 5508 05517 0 10 00130 DOTR JST DOCL 5509 05520 0 001402 DAC TOR 5510 05521 0 004434 DAC STOD 5511 05522 0 001412 DAC FRMR 5512 05523 0 005475 DAC DDTR 5513 05524 0 001361 DAC SMIS 5514 * 5515 * **** D. **** 5516 * HEAD FNUL,D.,DDOT,DOCL 5517 005525 TLNK SET * 5518 05525 001304 VFD 1,0,1,FNUL,6,2,8,'304 5519 * =<FNUL,2>,'D' 5520 05526 027000 VFD 8,'056 ='.' 5521 05527 0 005514 DAC LINK 5522 005525 LINK SET TLNK 5523 05530 0 10 00130 DDOT JST DOCL 5524 05531 0 001716 DAC ZERO 5525 05532 0 005475 DAC DDTR 5526 05533 0 002335 DAC SPCE 5527 05534 0 001361 DAC SMIS 5528 * 5529 * **** . **** 5530 * HEAD FNUL,.,DOT,DOCL 5531 005535 TLNK SET * 5532 05535 000456 VFD 1,0,1,FNUL,6,1,8,'056 5533 * =<FNUL,1>,'.' 5534 05536 0 005525 DAC LINK 5535 005535 LINK SET TLNK 5536 05537 0 10 00130 DOT JST DOCL 5537 05540 0 004434 DAC STOD 5538 05541 0 005530 DAC DDOT 5539 05542 0 001361 DAC SMIS 5540 * 5541 * **** ? **** 5542 * HEAD FNUL,?,QUST,DOCL 5543 005543 TLNK SET * 5544 05543 000477 VFD 1,0,1,FNUL,6,1,8,'077 5545 * =<FNUL,1>,'?' 5546 05544 0 005535 DAC LINK 5547 005543 LINK SET TLNK 5548 05545 0 10 00130 QUST JST DOCL 5549 05546 0 001565 DAC AT 5550 05547 0 005537 DAC DOT 5551 05550 0 001361 DAC SMIS 5552 * 5553 * **** U. **** 5554 * HEAD FNUL,U.,UDOT,DOCL 5555 005551 TLNK SET * 5556 05551 001325 VFD 1,0,1,FNUL,6,2,8,'325