WndProc (Part 16).

                                                       type=stype+pvalue;

                                                       *type='F';

                                                }

                                                else

                                                {

                                                       numeric=snumeric+pvalue;

                                                       *numeric=(double *) calloc ((unsigned long) 1, sizeof(double));

                                                       *(*numeric)=atof(szBuffer);

                                                       type=stype+pvalue;

                                                       *type='N';

                                                }

// 

                                                dscroll=5;

                                                break;

                                         }

// 

                                  }

// 

                                  if (up) { up=0; SendMessage(hWnd, WM_VSCROLL, SB_LINEUP,0L);}

                                  if (down) { down=0; SendMessage(hWnd, WM_VSCROLL, SB_LINEDOWN,0L);}

                                  if (left) {left=0; SendMessage(hWnd, WM_HSCROLL, SB_LINEUP,0L);}

                                  if (right) {right=0; SendMessage(hWnd, WM_HSCROLL, SB_LINEDOWN,0L);}

                           }

// 

                           dscroll=5;

                           credraw=1;

                           InvalidateRect(hWnd, NULL, FALSE);

                     break;

                     case WM_DESTROY:

                           GlobalUnlock(hGlobalMemory);

                           GlobalFree(hGlobalMemory);

                           GlobalUnlock(hGlobalMemory2);

                           GlobalFree(hGlobalMemory2);

                           GlobalUnlock(hGlobalMemory3);

                           GlobalFree(hGlobalMemory3);

                           PostQuitMessage(0);

                     break;

                     default:

                           return DefWindowProc(hWnd, message, wParam, lParam);

              }

       return 0;

}