F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 53

2107 * =<FNUL,8>,'C' 2108 01657 147716 BCI 3,ONSTAN 01660 151724 01661 140716 2109 01662 052000 VFD 8,'124 ='T' 2110 01663 0 001645 DAC LINK 2111 001656 LINK SET TLNK 2112 01664 0 10 00130 CON JST DOCL 2113 01665 0 003746 DAC CRAT 2114 01666 0 002625 DAC SMDG 2115 01667 0 002256 DAC COMA 2116 01670 0 002675 DAC PSCD 2117 01671 0 10 00140 JST DOCN PICKED UP BY PSCD 2118 * 2119 * **** VARIABLE **** 2120 * ( N --- ) 2121 * HEAD FNUL,VARIABLE,VAR,DOCL 2122 001672 TLNK SET * 2123 01672 004326 VFD 1,0,1,FNUL,6,8,8,'326 2124 * =<FNUL,8>,'V' 2125 01673 140722 BCI 3,ARIABL 01674 144701 01675 141314 2126 01676 042400 VFD 8,'105 ='E' 2127 01677 0 001656 DAC LINK 2128 001672 LINK SET TLNK 2129 01700 0 10 00130 VAR JST DOCL 2130 01701 0 001664 DAC CON 2131 01702 0 002675 DAC PSCD 2132 01703 0 10 00143 JST DOVR PICKED UP BY PSCD 2133 * 2134 * **** USER **** 2135 * HEAD FNUL,USER,USER,DOCL 2136 001704 TLNK SET * 2137 01704 002325 VFD 1,0,1,FNUL,6,4,8,'325 2138 * =<FNUL,4>,'U' 2139 01705 151705 BCI 1,SE 2140 01706 051000 VFD 8,'122 ='R' 2141 01707 0 001672 DAC LINK 2142 001704 LINK SET TLNK 2143 01710 0 10 00130 USER JST DOCL 2144 01711 0 001664 DAC CON 2145 01712 0 002675 DAC PSCD 2146 01713 0 10 00146 JST DOUS PICKED UP BY PSCD 2147 EJCT