F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 107

4593 IFN PTW 4594 ****************************************************************** 4595 * 4596 * PAPERTAPE I/O 4597 * 4598 ****************************************************************** 4599 * 4600 * **** PTR **** 4601 * TAKE SUBSEQUENT INPUT FROM PAPERTAPE READER 4602 * HEAD FNUL,PTR,PTR,DOCL 4603 004752 TLNK SET * 4604 04752 001720 VFD 1,0,1,FNUL,6,3,8,'320 4605 * =<FNUL,3>,'P' 4606 04753 152122 VFD 8,'324,8,'122 ='TR' 4607 04754 0 004733 DAC LINK 4608 004752 LINK SET TLNK 4609 04755 0 10 00130 PTR JST DOCL 4610 04756 0 000241 DAC LIT 4611 04757 177777 DEC -1 4612 04760 0 002072 DAC BLK 4613 04761 0 001577 DAC STOR 4614 04762 0 001361 DAC SMIS 4615 * 4616 * **** PTRK **** 4617 * GET A CHARACTER FROM PAPERTAPE 4618 * HEAD FNUL,PTRK,PTRK,DOCL 4619 004763 TLNK SET * 4620 04763 002320 VFD 1,0,1,FNUL,6,4,8,'320 4621 * =<FNUL,4>,'P' 4622 04764 152322 BCI 1,TR 4623 04765 045400 VFD 8,'113 ='K' 4624 04766 0 004752 DAC LINK 4625 004763 LINK SET TLNK 4626 04767 0 10 00130 PTRK JST DOCL 4627 04770 0 000634 PTK1 DAC PTRC 4628 04771 0 001541 DAC DUP 4629 04772 0 000277 DAC ZBRA DISCARD NULLS 4630 04773 0 005002 DAC PTK2 4631 04774 0 001541 DAC DUP 4632 04775 0 000241 DAC LIT 4633 04776 000212 VFD 16,CLF 4634 04777 0 002273 DAC EQAL LINE FEED? 4635 05000 0 000277 DAC ZBRA NO - RETAIN 4636 05001 0 005005 DAC PTK3 ELSE FALL THROUGH AND DISCARD 4637 * 4638 05002 0 001526 PTK2 DAC DROP 4639 05003 0 000263 DAC BRAN 4640 05004 0 004770 DAC PTK1 4641 * 4642 05005 0 001541 PTK3 DAC DUP