F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 93

4034 04223 0 002357 DAC LTST 4035 04224 0 000241 DAC LIT 4036 04225 040000 OCT 040000 4037 04226 0 001557 DAC TOGL 4038 04227 0 001361 DAC SMIS 4039 * 4040 * **** VOCABULARY **** 4041 * HEAD FNUL,VOCABULARY,VCAB,DOCL 4042 004230 TLNK SET * 4043 04230 005326 VFD 1,0,1,FNUL,6,10,8,'326 4044 * =<FNUL,10>,'V' 4045 04231 147703 BCI 4,OCABULAR 04232 140702 04233 152714 04234 140722 4046 04235 054400 VFD 8,'131 ='Y' 4047 04236 0 004214 DAC LINK 4048 004230 LINK SET TLNK 4049 04237 0 10 00130 VCAB JST DOCL 4050 04240 0 002712 DAC BULD 4051 04241 0 000241 DAC LIT 4052 04242 120201 OCT 120201 4053 04243 0 002256 DAC COMA 4054 04244 0 002136 DAC CURR 4055 04245 0 001565 DAC AT 4056 04246 0 002376 DAC CFA 4057 04247 0 002256 DAC COMA 4058 04250 0 002240 DAC HERE 4059 04251 0 002051 DAC VOCL 4060 04252 0 001565 DAC AT 4061 04253 0 002256 DAC COMA 4062 04254 0 002051 DAC VOCL 4063 04255 0 001577 DAC STOR 4064 04256 0 002722 DAC DOES 4065 04257 0 002231 DOVC DAC TWOP 4066 04260 0 002127 DAC CONT 4067 04261 0 001577 DAC STOR 4068 04262 0 001361 DAC SMIS 4069 * 4070 * ***** THE DEFINITION OF 'FORTH' WAS MOVED TO NEAR THE END OF THE 4071 * DICTIONARY, BECAUSE IT IS NOT PURE CODE. 4072 * 4073 * 4074 * **** DEFINITIONS **** 4075 * HEAD FNUL,DEFINITIONS,DFNS,DOCL 4076 004263 TLNK SET * 4077 04263 005704 VFD 1,0,1,FNUL,6,11,8,'304 4078 * =<FNUL,11>,'D' 4079 04264 142706 BCI 4,EFINITIO 04265 144716