F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 56

2247 001762 LINK SET TLNK 2248 01767 0 10 00130 PORG JST DOCL 2249 01770 0 000241 DAC LIT 2250 01771 0 001000 DAC ORGN 2251 01772 0 001443 DAC PLUS 2252 01773 0 001361 DAC SMIS 2253 * 2254 * USER VARIABLES 2255 * 2256 * **** S0 **** STACK ORIGIN. 2257 * HEAD FNUL,S0,SZRO,DOUS 2258 001774 TLNK SET * 2259 01774 001323 VFD 1,0,1,FNUL,6,2,8,'323 2260 * =<FNUL,2>,'S' 2261 01775 030000 VFD 8,'060 ='0' 2262 01776 0 001762 DAC LINK 2263 001774 LINK SET TLNK 2264 01777 0 10 00146 SZRO JST DOUS 2265 02000 000003 OCT 3 2266 * 2267 * **** R0 **** RETURN STACK ORIGIN. 2268 * HEAD FNUL,R0,RZRO,DOUS 2269 002001 TLNK SET * 2270 02001 001322 VFD 1,0,1,FNUL,6,2,8,'322 2271 * =<FNUL,2>,'R' 2272 02002 030000 VFD 8,'060 ='0' 2273 02003 0 001774 DAC LINK 2274 002001 LINK SET TLNK 2275 02004 0 10 00146 RZRO JST DOUS 2276 02005 000004 OCT 4 2277 * 2278 * **** TIB **** TERMINAL INPUT BUFFER. 2279 * HEAD FNUL,TIB,TIB,DOUS 2280 002006 TLNK SET * 2281 02006 001724 VFD 1,0,1,FNUL,6,3,8,'324 2282 * =<FNUL,3>,'T' 2283 02007 144502 VFD 8,'311,8,'102 ='IB' 2284 02010 0 002001 DAC LINK 2285 002006 LINK SET TLNK 2286 02011 0 10 00146 TIB JST DOUS 2287 02012 000005 OCT 5 2288 * 2289 * **** WIDTH **** MAXIMUM NAME LENGTH (DEFAULT, 31 CHARACTERS). 2290 * HEAD FNUL,WIDTH,WDTH,DOUS 2291 002013 TLNK SET * 2292 02013 002727 VFD 1,0,1,FNUL,6,5,8,'327 2293 * =<FNUL,5>,'W' 2294 02014 144704 BCI 1,ID 2295 02015 152110 VFD 8,'324,8,'110 ='TH' 2296 02016 0 002006 DAC LINK