F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 83

3549 03414 0 002077 DAC IN 3550 03415 0 001546 DAC PSTR 3551 03416 0 001520 DAC OVER 3552 03417 0 002266 DAC SUB 3553 03420 0 001402 DAC TOR 3554 03421 0 001416 DAC R 3555 03422 0 002240 DAC HERE 3556 03423 0 001616 DAC BYTE 3557 03424 0 001605 DAC CSTR 3558 03425 0 001443 DAC PLUS 3559 03426 0 002240 DAC HERE 3560 03427 0 001616 DAC BYTE 3561 03430 0 002223 DAC ONEP 3562 03431 0 001412 DAC FRMR 3563 03432 0 000641 DAC CMOV 3564 03433 0 001361 DAC SMIS 3565 * 3566 * **** (NUMBER) **** 3567 * ( D1 CADDR1 --- D2 CADDR2 ) 3568 * HEAD FNUL,(NUMBER),PNUM,DOCL 3569 003434 TLNK SET * 3570 03434 004250 VFD 1,0,1,FNUL,6,8,8,'250 3571 * =<FNUL,8>,'(' 3572 03435 147325 BCI 3,NUMBER 03436 146702 03437 142722 3573 03440 024400 VFD 8,'051 =')' 3574 03441 0 003357 DAC LINK 3575 003434 LINK SET TLNK 3576 03442 0 10 00130 PNUM JST DOCL 3577 03443 0 002223 PNM1 DAC ONEP 3578 03444 0 001541 DAC DUP 3579 03445 0 001402 DAC TOR 3580 03446 0 001572 DAC CAT 3581 03447 0 002152 DAC BASE 3582 03450 0 001565 DAC AT 3583 03451 0 000407 DAC DIGT 3584 03452 0 000277 DAC ZBRA 3585 03453 0 003501 DAC PNM3 3586 03454 0 001533 DAC SWAP 3587 03455 0 002152 DAC BASE 3588 03456 0 001565 DAC AT 3589 03457 0 001120 DAC USTR 3590 03460 0 001526 DAC DROP 3591 03461 0 002325 DAC ROT 3592 03462 0 002152 DAC BASE 3593 03463 0 001565 DAC AT 3594 03464 0 001120 DAC USTR 3595 03465 0 001451 DAC DPLS 3596 03466 0 002157 DAC DPL