F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 95

4128 04331 0 002144 DAC STAT 4129 04332 0 001565 DAC AT 4130 04333 0 001423 DAC ZEQU 4131 04334 0 000277 DAC ZBRA 4132 04335 0 004341 DAC QUT3 4133 04336 0 003031 DAC PDTQ 4134 * STRG $ OK 4135 04337 001640 VFD 8,3,8,'240 =3,' ' 4136 04340 147713 VFD 8,'317,8,'313 ='OK' 4137 04341 0 000263 QUT3 DAC BRAN 4138 04342 0 004320 DAC QUT1 4139 * 4140 * **** ABORT **** 4141 * HEAD FNUL,ABORT,ABRT,DOCL 4142 004343 TLNK SET * 4143 04343 002701 VFD 1,0,1,FNUL,6,5,8,'301 4144 * =<FNUL,5>,'A' 4145 04344 141317 BCI 1,BO 4146 04345 151124 VFD 8,'322,8,'124 ='RT' 4147 04346 0 004307 DAC LINK 4148 004343 LINK SET TLNK 4149 04347 0 10 00130 ABRT JST DOCL 4150 04350 0 001332 DAC SPST 4151 04351 0 002651 DAC DEC 4152 04352 0 002335 DAC SPCE 4153 04353 0 000627 DAC CR 4154 04354 0 003031 DAC PDTQ 4155 * STRG FIG-FORTH V 0.9$ 4156 04355 010706 VFD 8,17,8,'306 =17,'F' 4157 04356 144707 BCI 7,IG-FORTH V 0. 04357 126706 04360 147722 04361 152310 04362 120240 04363 153240 04364 130256 4158 04365 134640 VFD 8,'271,8,'240 ='9 ' 4159 IFN HSA 4160 04366 0 003031 DAC PDTQ 4161 * STRG HSA$ 4162 04367 002310 VFD 8,4,8,'310 =4,'H' 4163 04370 151701 BCI 1,SA 4164 04371 120000 VFD 8,'240 =' ' 4165 ENDC 4166 IFN XTND 4167 DAC PDTQ 4168 * STRG EXA$ 4169 VFD 8,4,8,'305 =4,'E' 4170 BCI 1,XA 4171 VFD 8,'240 =' '