F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 115

4958 05032 0 000277 DAC ZBRA 4959 05033 0 005040 DAC MES2 4960 IFN DISK 4961 DAC DDUP 4962 DAC ZBRA 4963 DAC MES1 4964 DAC LIT 4965 OCT 4 4966 DAC OFST 4967 DAC AT 4968 DAC BSCR 4969 DAC SLSH 4970 DAC SUB 4971 DAC DLIN 4972 MES1 DAC BRAN 4973 DAC MES3 4974 ELSE 4975 05034 0 001722 DAC ONE TRUE - ALWAYS 4976 05035 0 000241 DAC LIT 4977 05036 000006 OCT 6 DISK RANGE 4978 05037 0 003662 DAC EROR 4979 ENDC 4980 05040 0 003031 MES2 DAC PDTQ 4981 * STRG MSG #$ 4982 05041 003315 VFD 8,6,8,'315 =6,'M' 4983 05042 151707 VFD 8,'323,8,'307 ='SG' 4984 05043 120243 VFD 8,'240,8,'243 =' ' 4985 05044 120000 VFD 8,'240 =' ' 4986 05045 0 005537 DAC DOT 4987 05046 0 001361 MES3 DAC SMIS 4988 IFN DISK 4989 * 4990 * **** LOAD **** 4991 * HEAD FNUL,LOAD,LOAD,DOCL 4992 TLNK SET * 4993 VFD 1,0,1,FNUL,6,4,8,'314 4994 * =<FNUL,4>,'L' 4995 BCI 1,OA 4996 VFD 8,'104 ='D' 4997 DAC LINK 4998 LINK SET TLNK 4999 LOAD JST DOCL 5000 DAC BLK 5001 DAC AT 5002 DAC TOR 5003 DAC IN 5004 DAC AT 5005 DAC TOR 5006 DAC ZERO 5007 DAC IN