F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 74

3103 02716 002704 VFD 1,0,1,FNUL,6,5,8,'304 3104 * =<FNUL,5>,'D' 3105 02717 147705 BCI 1,OE 3106 02720 151476 VFD 8,'323,8,'076 ='S>' 3107 02721 0 002705 DAC LINK 3108 002716 LINK SET TLNK 3109 02722 0 10 00130 DOES JST DOCL 3110 02723 0 001412 DAC FRMR 3111 02724 0 002357 DAC LTST 3112 02725 0 002423 DAC PFA 3113 02726 0 001577 DAC STOR 3114 02727 0 002675 DAC PSCD 3115 02730 0 10 00152 JST DODS PICKED UP BY PSCD 3116 * 3117 * **** COUNT **** 3118 * ( ADDR --- CADDR+1 COUNT ) 3119 * HEAD FNUL,COUNT,CNT,DOCL 3120 002731 TLNK SET * 3121 02731 002703 VFD 1,0,1,FNUL,6,5,8,'303 3122 * =<FNUL,5>,'C' 3123 02732 147725 BCI 1,OU 3124 02733 147124 VFD 8,'316,8,'124 ='NT' 3125 02734 0 002716 DAC LINK 3126 002731 LINK SET TLNK 3127 02735 0 10 00130 CNT JST DOCL 3128 02736 0 001616 DAC BYTE 3129 02737 0 001541 DAC DUP 3130 02740 0 002223 DAC ONEP 3131 02741 0 001533 DAC SWAP 3132 02742 0 001572 DAC CAT 3133 02743 0 001361 DAC SMIS 3134 * 3135 * **** TYPE **** 3136 * ( CADDR COUNT --- ) TYPE STRING OF CHARACTERS 3137 * HEAD FNUL,TYPE,TYPE,DOCL 3138 002744 TLNK SET * 3139 02744 002324 VFD 1,0,1,FNUL,6,4,8,'324 3140 * =<FNUL,4>,'T' 3141 02745 154720 BCI 1,YP 3142 02746 042400 VFD 8,'105 ='E' 3143 02747 0 002731 DAC LINK 3144 002744 LINK SET TLNK 3145 02750 0 10 00130 TYPE JST DOCL 3146 02751 0 002345 DAC DDUP 3147 02752 0 000277 DAC ZBRA 3148 02753 0 002767 DAC TYP2 3149 02754 0 001520 DAC OVER 3150 02755 0 001443 DAC PLUS 3151 02756 0 001533 DAC SWAP 3152 02757 0 000372 DAC XDO