F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 88

3795 03715 000020 OCT 20 SINCE WORDS - THATS 32 CHARACTERS 3796 03716 0 000241 DAC LIT 3797 03717 050521 VFD 8,337,8,337 TWO UNDERSCORES 3798 03720 0 003267 DAC FILL 3799 03721 0 001541 DAC DUP 3800 03722 0 002423 DAC PFA 3801 03723 0 002367 DAC LFA 3802 03724 0 001520 DAC OVER 3803 03725 0 002266 DAC SUB 3804 03726 0 003351 DAC PAD 3805 03727 0 001533 DAC SWAP 3806 03730 0 000671 DAC MOVE 3807 03731 0 003351 DAC PAD 3808 03732 0 002735 DAC CNT 3809 03733 0 000241 DAC LIT 3810 03734 000037 OCT 37 3811 03735 0 001300 DAC AND 3812 03736 0 002750 DAC TYPE 3813 03737 0 002335 DAC SPCE 3814 03740 0 001361 DAC SMIS 3815 * 3816 * **** CREATE **** 3817 * MODIFIED TO PUT HLT (FOR NOW) AT CFA 3818 * HEAD FNUL,CREATE,CRAT,DOCL 3819 003741 TLNK SET * 3820 03741 003303 VFD 1,0,1,FNUL,6,6,8,'303 3821 * =<FNUL,6>,'C' 3822 03742 151305 BCI 2,REAT 03743 140724 3823 03744 042400 VFD 8,'105 ='E' 3824 03745 0 003707 DAC LINK 3825 003741 LINK SET TLNK 3826 03746 0 10 00130 CRAT JST DOCL 3827 03747 0 003562 DAC DFND 3828 03750 0 000277 DAC ZBRA 3829 03751 0 003761 DAC CRT1 3830 03752 0 001526 DAC DROP 3831 03753 0 002405 DAC NFA 3832 03754 0 003712 DAC IDDT 3833 03755 0 000241 DAC LIT 3834 03756 000004 DEC 4 3835 03757 0 005027 DAC MESS 3836 03760 0 002335 DAC SPCE 3837 03761 0 002240 CRT1 DAC HERE 3838 03762 0 001541 DAC DUP ( HERE HERE ) 3839 03763 0 001541 DAC DUP ( HERE HERE HERE ) 3840 03764 0 001616 DAC BYTE ( HERE HERE C-HERE ) 3841 03765 0 001572 DAC CAT ( HERE HERE FIRST-BYTE ) 3842 03766 0 002017 DAC WDTH 3843 03767 0 001565 DAC AT