F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 125

5407 05410 0 001616 DAC BYTE 5408 05411 0 001520 DAC OVER 5409 05412 0 002266 DAC SUB 5410 05413 0 001361 DAC SMIS 5411 * 5412 * **** SIGN **** 5413 * HEAD FNUL,SIGN,SIGN,DOCL 5414 005414 TLNK SET * 5415 05414 002323 VFD 1,0,1,FNUL,6,4,8,'323 5416 * =<FNUL,4>,'S' 5417 05415 144707 BCI 1,IG 5418 05416 047000 VFD 8,'116 ='N' 5419 05417 0 005377 DAC LINK 5420 005414 LINK SET TLNK 5421 05420 0 10 00130 SIGN JST DOCL 5422 05421 0 002325 DAC ROT 5423 05422 0 001435 DAC ZLES 5424 05423 0 000277 DAC ZBRA 5425 05424 0 005430 DAC SGN1 5426 05425 0 000241 DAC LIT 5427 05426 000255 VFD 16,CMNS 5428 05427 0 003335 DAC HOLD 5429 05430 0 001361 SGN1 DAC SMIS 5430 * 5431 * **** # **** 5432 * HEAD FNUL,#,DIG,DOCL 5433 005431 TLNK SET * 5434 05431 000443 VFD 1,0,1,FNUL,6,1,8,'043 5435 * =<FNUL,1>,'#' 5436 05432 0 005414 DAC LINK 5437 005431 LINK SET TLNK 5438 05433 0 10 00130 DIG JST DOCL 5439 05434 0 002152 DAC BASE 5440 05435 0 001565 DAC AT 5441 05436 0 004737 DAC MSMD 5442 05437 0 002325 DAC ROT 5443 05440 0 000241 DAC LIT 5444 05441 000011 DEC 9 5445 05442 0 001520 DAC OVER 5446 05443 0 002303 DAC LESS 5447 05444 0 000277 DAC ZBRA 5448 05445 0 005451 DAC DIG1 5449 05446 0 000241 DAC LIT 5450 05447 000007 OCT 7 5451 05450 0 001443 DAC PLUS 5452 05451 0 000241 DIG1 DAC LIT 5453 05452 000260 VFD 16,CZRO 5454 05453 0 001443 DAC PLUS 5455 05454 0 003335 DAC HOLD 5456 05455 0 001361 DAC SMIS