F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 76

3201 * =<FNUL,4>,'(' 3202 03026 127242 BCI 1,." 3203 03027 024400 VFD 8,'051 =')' 3204 03030 0 002771 DAC LINK 3205 003025 LINK SET TLNK 3206 03031 0 10 00130 PDTQ JST DOCL 3207 03032 0 001416 DAC R 3208 03033 0 002735 DAC CNT 3209 03034 0 001541 DAC DUP 3210 03035 0 001625 DAC CELL 3211 03036 0 002223 DAC ONEP 3212 03037 0 001412 DAC FRMR 3213 03040 0 001443 DAC PLUS 3214 03041 0 001402 DAC TOR 3215 03042 0 002750 DAC TYPE 3216 03043 0 001361 DAC SMIS 3217 * 3218 * **** ." **** TYPE ASCII MESSAGE. 3219 * HEAD FIMD,.",DOTQ,DOCL 3220 003044 TLNK SET * 3221 03044 041256 VFD 1,0,1,FIMD,6,2,8,'256 3222 * =<FIMD,2>,'.' 3223 03045 021000 VFD 8,'042 ='"' 3224 03046 0 003025 DAC LINK 3225 003044 LINK SET TLNK 3226 03047 0 10 00130 DOTQ JST DOCL 3227 03050 0 000241 DAC LIT 3228 03051 000242 VFD 16,CDQT 3229 03052 0 002144 DAC STAT 3230 03053 0 001565 DAC AT 3231 03054 0 000277 DAC ZBRA 3232 03055 0 003071 DAC DTQ1 3233 03056 0 002570 DAC COMP 3234 03057 0 003031 DAC PDTQ 3235 03060 0 003363 DAC WORD 3236 03061 0 002240 DAC HERE 3237 03062 0 001616 DAC BYTE 3238 03063 0 001572 DAC CAT 3239 03064 0 001625 DAC CELL 3240 03065 0 002223 DAC ONEP 3241 03066 0 002250 DAC ALOT 3242 03067 0 000263 DAC BRAN 3243 03070 0 003075 DAC DTQ2 3244 03071 0 003363 DTQ1 DAC WORD 3245 03072 0 002240 DAC HERE 3246 03073 0 002735 DAC CNT 3247 03074 0 002750 DAC TYPE 3248 03075 0 001361 DTQ2 DAC SMIS 3249 * 3250 * **** EXPECT **** READ N CHARACTERS TO MEMORY