REP 14/1 ;05C1 WIT ; ;[1041] 20-AUG-82 RLF Makes SIZE ERROR work when ACCPETed data item ; is multiplied by a constant. REP 53/3 ;05C2 TERM20: TLNE FLG,ASCALE ;IF ASCALE IS SET, WIT TERM20: JFCL 17,.+1 ;[1041] CLEAR ALL FLAGS TLNE FLG,ASCALE ;IF ASCALE IS SET, SUM 114500