F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 60

2442 02127 0 10 00146 CONT JST DOUS 2443 02130 000024 OCT 24 2444 * 2445 * **** CURRENT **** 2446 * HEAD FNUL,CURRENT,CURR,DOUS 2447 002131 TLNK SET * 2448 02131 003703 VFD 1,0,1,FNUL,6,7,8,'303 2449 * =<FNUL,7>,'C' 2450 02132 152722 BCI 2,URRE 02133 151305 2451 02134 147124 VFD 8,'316,8,'124 ='NT' 2452 02135 0 002122 DAC LINK 2453 002131 LINK SET TLNK 2454 02136 0 10 00146 CURR JST DOUS 2455 02137 000025 OCT 25 2456 * 2457 * **** STATE **** 2458 * HEAD FNUL,STATE,STAT,DOUS 2459 002140 TLNK SET * 2460 02140 002723 VFD 1,0,1,FNUL,6,5,8,'323 2461 * =<FNUL,5>,'S' 2462 02141 152301 BCI 1,TA 2463 02142 152105 VFD 8,'324,8,'105 ='TE' 2464 02143 0 002131 DAC LINK 2465 002140 LINK SET TLNK 2466 02144 0 10 00146 STAT JST DOUS 2467 02145 000026 OCT 26 2468 * 2469 * **** BASE **** 2470 * HEAD FNUL,BASE,BASE,DOUS 2471 002146 TLNK SET * 2472 02146 002302 VFD 1,0,1,FNUL,6,4,8,'302 2473 * =<FNUL,4>,'B' 2474 02147 140723 BCI 1,AS 2475 02150 042400 VFD 8,'105 ='E' 2476 02151 0 002140 DAC LINK 2477 002146 LINK SET TLNK 2478 02152 0 10 00146 BASE JST DOUS 2479 02153 000027 OCT 27 2480 * 2481 * **** DPL **** OFFSET OF DECIMAL POINT AFTER DOUBLE-INTEGER INPUT. 2482 * HEAD FNUL,DPL,DPL,DOUS 2483 002154 TLNK SET * 2484 02154 001704 VFD 1,0,1,FNUL,6,3,8,'304 2485 * =<FNUL,3>,'D' 2486 02155 150114 VFD 8,'320,8,'114 ='PL' 2487 02156 0 002146 DAC LINK 2488 002154 LINK SET TLNK 2489 02157 0 10 00146 DPL JST DOUS 2490 02160 000030 OCT 30