F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 129

5607 DAC XLOP 5608 DAC LST1 5609 DAC CR 5610 DAC SMIS 5611 * 5612 * **** INDEX **** LIST FIRST LINE OF A RANGE OF DISK SCREENS. 5613 * HEAD FNUL,INDEX,INDX,DOCL 5614 TLNK SET * 5615 VFD 1,0,1,FNUL,6,5,8,'311 5616 * =<FNUL,5>,'I' 5617 BCI 1,ND 5618 VFD 8,'305,8,'130 ='EX' 5619 DAC LINK 5620 LINK SET TLNK 5621 INDX JST DOCL 5622 DAC CR 5623 DAC ONEP 5624 DAC SWAP 5625 DAC XDO 5626 IDX1 DAC CR 5627 DAC I 5628 DAC THRE 5629 DAC DOTR 5630 DAC SPCE 5631 DAC ZERO 5632 DAC I 5633 DAC DLIN 5634 DAC QTRM 5635 DAC ZBRA 5636 DAC IDX2 5637 DAC LEAV 5638 IDX2 DAC XLOP 5639 DAC IDX1 5640 DAC SMIS 5641 * 5642 * **** TRIAD **** LIST DISK SCREENS THREE PER PAGE. 5643 * HEAD FNUL,TRIAD,TRAD,DOCL 5644 TLNK SET * 5645 VFD 1,0,1,FNUL,6,5,8,'324 5646 * =<FNUL,5>,'T' 5647 BCI 1,RI 5648 VFD 8,'301,8,'104 ='AD' 5649 DAC LINK 5650 LINK SET TLNK 5651 TRAD JST DOCL 5652 DAC LIT 5653 OCT 214 FORM FEED 5654 DAC EMIT 5655 DAC THRE 5656 DAC SLSH