F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 57

2297 002013 LINK SET TLNK 2298 02017 0 10 00146 WDTH JST DOUS 2299 02020 000006 OCT 6 2300 * 2301 * **** WARNING **** WARNING MODE 2302 * (DEFAULT, GIVE MESSAGE NUMBER AT ERROR OR WARNING CONDITION, 2303 * DON'T GO TO DISK FOR MESSAGE). 2304 * HEAD FNUL,WARNING,WARN,DOUS 2305 002021 TLNK SET * 2306 02021 003727 VFD 1,0,1,FNUL,6,7,8,'327 2307 * =<FNUL,7>,'W' 2308 02022 140722 BCI 2,ARNI 02023 147311 2309 02024 147107 VFD 8,'316,8,'107 ='NG' 2310 02025 0 002013 DAC LINK 2311 002021 LINK SET TLNK 2312 02026 0 10 00146 WARN JST DOUS 2313 02027 000007 OCT 7 2314 * 2315 * **** FENCE **** PREVENTS 'FORGET' BELOW THIS 'FENCE' SETTING. 2316 * HEAD FNUL,FENCE,FENC,DOUS 2317 002030 TLNK SET * 2318 02030 002706 VFD 1,0,1,FNUL,6,5,8,'306 2319 * =<FNUL,5>,'F' 2320 02031 142716 BCI 1,EN 2321 02032 141505 VFD 8,'303,8,'105 ='CE' 2322 02033 0 002021 DAC LINK 2323 002030 LINK SET TLNK 2324 02034 0 10 00146 FENC JST DOUS 2325 02035 000010 OCT 10 2326 * 2327 * **** DP **** DICTIONARY POINTER TO NEXT AVAILABLE SPACE. 2328 * HEAD FNUL,DP,DP,DOUS 2329 002036 TLNK SET * 2330 02036 001304 VFD 1,0,1,FNUL,6,2,8,'304 2331 * =<FNUL,2>,'D' 2332 02037 050000 VFD 8,'120 ='P' 2333 02040 0 002030 DAC LINK 2334 002036 LINK SET TLNK 2335 02041 0 10 00146 DP JST DOUS 2336 02042 000011 OCT 11 2337 * 2338 * **** VOC-LINK **** VOCABULARY LINK (MAINLY FOR FUTURE USE). 2339 * HEAD FNUL,VOC-LINK,VOCL,DOUS 2340 002043 TLNK SET * 2341 02043 004326 VFD 1,0,1,FNUL,6,8,8,'326 2342 * =<FNUL,8>,'V' 2343 02044 147703 BCI 3,OC-LIN 02045 126714 02046 144716