F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 78

3300 03147 0 000263 DAC BRAN 3301 03150 0 003200 DAC EXP7 3302 03151 0 001541 EXP4 DAC DUP 3303 03152 0 000241 DAC LIT 3304 03153 000215 VFD 16,CCR 3305 03154 0 002273 DAC EQAL 3306 03155 0 000277 DAC ZBRA 3307 03156 0 003165 DAC EXP5 3308 03157 0 001373 DAC LEAV 3309 03160 0 001526 DAC DROP 3310 03161 0 001737 DAC BL 3311 03162 0 001716 DAC ZERO 3312 03163 0 000263 DAC BRAN 3313 03164 0 003166 DAC EXP6 3314 03165 0 001541 EXP5 DAC DUP 3315 03166 0 000401 EXP6 DAC I 3316 03167 0 001605 DAC CSTR 3317 03170 0 001716 DAC ZERO 3318 03171 0 000401 DAC I 3319 03172 0 002223 DAC ONEP 3320 03173 0 001605 DAC CSTR 3321 03174 0 001716 DAC ZERO 3322 03175 0 000401 DAC I 3323 03176 0 002231 DAC TWOP 3324 03177 0 001605 DAC CSTR 3325 IFZ ECHO 3326 03200 0 001526 EXP7 DAC DROP 3327 ELSE 3328 IFN PTW 3329 EXP7 DAC BLK 3330 DAC AT 3331 DAC ZEQU ASR? 3332 DAC ZBRA 3333 DAC EXP8 3334 DAC EMIT 3335 DAC BRAN 3336 DAC EXP9 3337 EXP8 DAC DROP 3338 EXP9 EQU * 3339 ELSE 3340 EXP7 DAC EMIT 3341 ENDC 3342 ENDC 3343 03201 0 000322 DAC XLOP 3344 03202 0 003113 DAC EXP1 3345 03203 0 001526 DAC DROP 3346 03204 0 001361 DAC SMIS 3347 * 3348 * **** QUERY **** 3349 * HEAD FNUL,QUERY,QURY,DOCL