F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 59

2394 02076 0 002067 DAC LINK 2395 002074 LINK SET TLNK 2396 02077 0 10 00146 IN JST DOUS 2397 02100 000020 OCT 20 2398 * 2399 * **** OUT **** OFFSET IN OUTPUT LINE. 2400 * HEAD FNUL,OUT,OUT,DOUS 2401 002101 TLNK SET * 2402 02101 001717 VFD 1,0,1,FNUL,6,3,8,'317 2403 * =<FNUL,3>,'O' 2404 02102 152524 VFD 8,'325,8,'124 ='UT' 2405 02103 0 002074 DAC LINK 2406 002101 LINK SET TLNK 2407 02104 0 10 00146 OUT JST DOUS 2408 02105 000021 OCT 21 2409 * 2410 * **** SCR **** CURRENT FORTH DISK SCREEN. 2411 * HEAD FNUL,SCR,SCR,DOUS 2412 002106 TLNK SET * 2413 02106 001723 VFD 1,0,1,FNUL,6,3,8,'323 2414 * =<FNUL,3>,'S' 2415 02107 141522 VFD 8,'303,8,'122 ='CR' 2416 02110 0 002101 DAC LINK 2417 002106 LINK SET TLNK 2418 02111 0 10 00146 SCR JST DOUS 2419 02112 000022 OCT 22 2420 * 2421 * **** OFFSET **** 2422 * HEAD FNUL,OFFSET,OFST,DOUS 2423 002113 TLNK SET * 2424 02113 003317 VFD 1,0,1,FNUL,6,6,8,'317 2425 * =<FNUL,6>,'O' 2426 02114 143306 BCI 2,FFSE 02115 151705 2427 02116 052000 VFD 8,'124 ='T' 2428 02117 0 002106 DAC LINK 2429 002113 LINK SET TLNK 2430 02120 0 10 00146 OFST JST DOUS 2431 02121 000023 OCT 23 2432 * 2433 * **** CONTEXT **** 2434 * HEAD FNUL,CONTEXT,CONT,DOUS 2435 002122 TLNK SET * 2436 02122 003703 VFD 1,0,1,FNUL,6,7,8,'303 2437 * =<FNUL,7>,'C' 2438 02123 147716 BCI 2,ONTE 02124 152305 2439 02125 154124 VFD 8,'330,8,'124 ='XT' 2440 02126 0 002113 DAC LINK 2441 002122 LINK SET TLNK