F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 118

5060 ****************************************************************** 5061 * 5062 * MISCELLANEOUS HIGHER LEVEL 5063 * 5064 ****************************************************************** 5065 * 5066 * **** ' **** 5067 * HEAD FIMD,',TICK,DOCL 5068 005047 TLNK SET * 5069 05047 040447 VFD 1,0,1,FIMD,6,1,8,'047 5070 * =<FIMD,1>,''' 5071 05050 0 005022 DAC LINK 5072 005047 LINK SET TLNK 5073 05051 0 10 00130 TICK JST DOCL 5074 05052 0 003562 DAC DFND 5075 05053 0 001423 DAC ZEQU 5076 05054 0 001716 DAC ZERO 5077 05055 0 002455 DAC QERR 5078 05056 0 001526 DAC DROP 5079 05057 0 004050 DAC LTRL 5080 05060 0 001361 DAC SMIS 5081 * 5082 * **** FORGET **** 5083 * HEAD FNUL,FORGET,FRGT,DOCL 5084 005061 TLNK SET * 5085 05061 003306 VFD 1,0,1,FNUL,6,6,8,'306 5086 * =<FNUL,6>,'F' 5087 05062 147722 BCI 2,ORGE 05063 143705 5088 05064 052000 VFD 8,'124 ='T' 5089 05065 0 005047 DAC LINK 5090 005061 LINK SET TLNK 5091 05066 0 10 00130 FRGT JST DOCL 5092 05067 0 002136 DAC CURR 5093 05070 0 001565 DAC AT 5094 05071 0 002127 DAC CONT 5095 05072 0 001565 DAC AT 5096 05073 0 002266 DAC SUB 5097 05074 0 000241 DAC LIT 5098 05075 000030 OCT 30 5099 05076 0 002455 DAC QERR 5100 05077 0 005051 DAC TICK 5101 05100 0 001541 DAC DUP 5102 05101 0 002034 DAC FENC 5103 05102 0 001565 DAC AT 5104 05103 0 002303 DAC LESS 5105 05104 0 000241 DAC LIT 5106 05105 000025 OCT 25 5107 05106 0 002455 DAC QERR 5108 05107 0 001541 DAC DUP