F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 128

5557 * =<FNUL,2>,'U' 5558 05552 027000 VFD 8,'056 ='.' 5559 05553 0 005543 DAC LINK 5560 005551 LINK SET TLNK 5561 05554 0 10 00130 UDOT JST DOCL 5562 05555 0 001716 DAC ZERO 5563 05556 0 005530 DAC DDOT 5564 05557 0 001361 DAC SMIS 5565 ****************************************************************** 5566 * 5567 * UTILITY SECTION. 5568 * 5569 ****************************************************************** 5570 IFN DISK 5571 * 5572 * **** LIST **** 5573 * HEAD FNUL,LIST,LIST,DOCL 5574 TLNK SET * 5575 VFD 1,0,1,FNUL,6,4,8,'314 5576 * =<FNUL,4>,'L' 5577 BCI 1,IS 5578 VFD 8,'124 ='T' 5579 DAC LINK 5580 LINK SET TLNK 5581 LIST JST DOCL 5582 DAC DEC 5583 DAC CR 5584 DAC DUP 5585 DAC SCR 5586 DAC STOR 5587 DAC PDTQ 5588 * STRG SCR #$ 5589 VFD 8,6,8,'323 =6,'S' 5590 VFD 8,'303,8,'322 ='CR' 5591 VFD 8,'240,8,'243 =' ' 5592 VFD 8,'240 =' ' 5593 DAC DOT 5594 DAC LIT 5595 OCT 20 5596 DAC ZERO 5597 DAC XDO 5598 LST1 DAC CR 5599 DAC I 5600 DAC THRE 5601 DAC DOTR 5602 DAC SPCE 5603 DAC I 5604 DAC SCR 5605 DAC AT 5606 DAC DLIN