*** ../prestruct-c/c00.c	Thu Dec  7 13:52:38 1972
--- c00.c	Tue Jan 11 16:26:40 2000
***************
*** 193,208 ****
  
  	case 120:	/* . */
  	case 124:	/* number */
! 		peekc = c;
! 		switch(c=getnum(c=='0'? 8:10)) {
! 			case 25:		/* float 0 */
! 				c = 23;
! 				break;
! 
! 			case 23:		/* float non 0 */
! 				cval = isn++;
! 		}
! 		return(c);
  
  	case 122:	/* " */
  		return(getstr());
--- 193,208 ----
  
  	case 120:	/* . */
  	case 124:	/* number */
!                 cval = 0;
!                 if (c=='0')
!                         b = 8; else
!                         b = 10;
!                 while(ctab[c]==124) {
!                         cval = cval*b + c -'0';
!                         c = getchar();
!                 }
!                 peekc = c;
!                 return(21);
  
  	case 122:	/* " */
  		return(getstr());
***************
*** 323,329 ****
  	extern csym, ctyp, isn, fcval, peeksym, opdope, cp, cmst;
  	int csym[], opdope[], cp[], cmst[];
  	extern space, cval, ossiz, cmsiz, mosflg, osleft;
! 	double fcval;
  	int space[];
  
  	int op[], opst[20], pp[], prst[20], andflg, o,
--- 323,329 ----
  	extern csym, ctyp, isn, fcval, peeksym, opdope, cp, cmst;
  	int csym[], opdope[], cp[], cmst[];
  	extern space, cval, ossiz, cmsiz, mosflg, osleft;
! 	int fcval;
  	int space[];
  
  	int op[], opst[20], pp[], prst[20], andflg, o,
*** ../prestruct-c/c02.c	Fri Dec  8 11:21:58 1972
--- c02.c	Tue Jan 11 16:26:12 2000
***************
*** 3,10 ****
  	extern csym, strflg, xdflg, peeksym, fcval;
  	int o, c, cs[], type, csym[], width, nel, ninit, defsym[];
  	char s[];
! 	float sf;
! 	double fcval;
  
  	if(((o=symbol())==0) | o==1)	/* EOF */
  		return;
--- 3,10 ----
  	extern csym, strflg, xdflg, peeksym, fcval;
  	int o, c, cs[], type, csym[], width, nel, ninit, defsym[];
  	char s[];
! 	int sf;
! 	int fcval;
  
  	if(((o=symbol())==0) | o==1)	/* EOF */
  		return;
***************
*** 400,406 ****
  		switch(cs[0]) {
  
  		/* sort unmentioned */
! 		case -2:
  			cs[0] = 5;		/* auto */
  
  		/* auto */
--- 400,406 ----
  		switch(cs[0]) {
  
  		/* sort unmentioned */
! 		case 01777762:			/* -2 */
  			cs[0] = 5;		/* auto */
  
  		/* auto */
