F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 87

3745 03651 152051 VFD 8,'324,8,'051 ='T)' 3746 03652 0 003606 DAC LINK 3747 003646 LINK SET TLNK 3748 03653 0 10 00130 PABT JST DOCL 3749 03654 0 004347 DAC ABRT 3750 03655 0 001361 DAC SMIS 3751 * 3752 * **** ERROR **** 3753 * HEAD FNUL,ERROR,EROR,DOCL 3754 003656 TLNK SET * 3755 03656 002705 VFD 1,0,1,FNUL,6,5,8,'305 3756 * =<FNUL,5>,'E' 3757 03657 151322 BCI 1,RR 3758 03660 147522 VFD 8,'317,8,'122 ='OR' 3759 03661 0 003646 DAC LINK 3760 003656 LINK SET TLNK 3761 03662 0 10 00130 EROR JST DOCL 3762 03663 0 002026 DAC WARN 3763 03664 0 001565 DAC AT 3764 03665 0 001435 DAC ZLES 3765 03666 0 000277 DAC ZBRA 3766 03667 0 003671 DAC ERR1 3767 03670 0 003653 DAC PABT 3768 03671 0 002240 ERR1 DAC HERE 3769 03672 0 002735 DAC CNT 3770 03673 0 002750 DAC TYPE 3771 03674 0 003031 DAC PDTQ 3772 * STRG $ ?$ 3773 03675 001640 VFD 8,3,8,'240 =3,' ' 3774 03676 137640 VFD 8,'277,8,'240 ='? ' 3775 03677 0 005027 DAC MESS 3776 03700 0 001332 DAC SPST 3777 03701 0 002077 DAC IN 3778 03702 0 001565 DAC AT 3779 03703 0 002072 DAC BLK 3780 03704 0 001565 DAC AT 3781 03705 0 004313 DAC QUIT 3782 03706 0 001361 DAC SMIS 3783 * 3784 * **** ID. **** 3785 * HEAD FNUL,ID.,IDDT,DOCL 3786 003707 TLNK SET * 3787 03707 001711 VFD 1,0,1,FNUL,6,3,8,'311 3788 * =<FNUL,3>,'I' 3789 03710 142056 VFD 8,'304,8,'056 ='D.' 3790 03711 0 003656 DAC LINK 3791 003707 LINK SET TLNK 3792 03712 0 10 00130 IDDT JST DOCL 3793 03713 0 003351 DAC PAD 3794 03714 0 000241 DAC LIT