F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 114

4909 TLNK SET * 4910 VFD 1,0,1,FNUL,6,6,8,'250 4911 * =<FNUL,6>,'(' 4912 BCI 2,LINE 4913 VFD 8,'051 =')' 4914 DAC LINK 4915 LINK SET TLNK 4916 PLIN JST DOCL 4917 DAC TOR 4918 DAC CL 4919 DAC BBUF 4920 DAC SSMD 4921 DAC FRMR 4922 DAC BSCR 4923 DAC STAR 4924 DAC PLUS 4925 DAC BLCK 4926 DAC PLUS 4927 DAC CL 4928 DAC SMIS 4929 * 4930 * **** .LINE **** 4931 * HEAD FNUL,.LINE,DLIN,DOCL 4932 TLNK SET * 4933 VFD 1,0,1,FNUL,6,5,8,'256 4934 * =<FNUL,5>,'.' 4935 BCI 1,LI 4936 VFD 8,'316,8,'105 ='NE' 4937 DAC LINK 4938 LINK SET TLNK 4939 DLIN JST DOCL 4940 DAC PLIN 4941 DAC DTRA 4942 DAC TYPE 4943 DAC SMIS 4944 ENDC 4945 * 4946 * **** MESSAGE **** 4947 * HEAD FNUL,MESSAGE,MESS,DOCL 4948 005022 TLNK SET * 4949 05022 003715 VFD 1,0,1,FNUL,6,7,8,'315 4950 * =<FNUL,7>,'M' 4951 05023 142723 BCI 2,ESSA 05024 151701 4952 05025 143505 VFD 8,'307,8,'105 ='GE' 4953 05026 0 004763 DAC LINK 4954 005022 LINK SET TLNK 4955 05027 0 10 00130 MESS JST DOCL 4956 05030 0 002026 DAC WARN 4957 05031 0 001565 DAC AT