开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
main.c
资源名称：DOS系统的源代码.rar　[点击查看]
上传用户：xiaoan1112
上传日期：2013-04-11
资源大小：19621k
文件大小：17k
源码类别：

操作系统开发

开发平台：

Visual C++

main.c：源码内容
  1. ;/*
  2. ; *                      Microsoft Confidential
  3. ; *                      Copyright (C) Microsoft Corporation 1991
  4. ; *                      All Rights Reserved.
  5. ; */
  7. #include <common.h>
  8. #include <filemgr.h>
  9. #include <text.h>
  10. #include <menus.h>
  11. #include <prot.h>
  12. #include <time.h>
  13. #include <direct.h>
  15. extern GlobalIdle(void);
  16. extern TOKEN Get_Identifier_Token(char far *identifier);
  17. extern void Shell_TTY_Out(char *str);
  18. extern void Get_CWD(char *);
  20. extern BOOL AddTask(char far *programname, char far *parameters,char far *defaulttitle,TOKEN properties);
  22. struct CountryBuffer {
  23.     int Date_Format;
  24.     char Currency_Symbol[5];
  25.     char Thousands_Sep[2];
  26.     char Decimal_Sep[2];
  27.     char Date_Sep[2];
  28.     char Time_Sep[2];
  29.     char Currency_Pos;
  30.     char Num_Decimals;
  31.     char Time_Format;
  32.     long Case_Mapping;
  33.     char Data_Sep[2];
  34.     char Reserved[10];
  35. } ;
  36. struct CountryBuffer NationData;
  38. MSG     msg;
  39. INST    ginst;
  40. INGD    gingd;
  41. INDV    gindv;
  42. BOOL    gisgraph = FALSE ;
  43. INCH    cinch;
  45. BOOL gfStillInitializing; /* used in allocs to bail if we're gonna toast */
  46. BOOL gfScreenModeChanged; /* used to restore screen in case we bail out early */
  47. BOOL gfSwapHandlerInstalled;
  49. char gStartUpDir[1+MAX_PATH];
  50. char gStartInDir[1+MAX_PATH];
  51. int gStartUpDirEnd; /* location where the NULL goes in the above name */
  53. BOOL gBeeps_On; /* Whether to have Beeps turned on or not on error */
  55. gBeeps_On = TRUE ;
  57. extern MENUINFO MainMenuBar;
  58. extern MENUINFO FileMgrMenuBar;
  59. extern BYTE ErrorCrit;
  61. extern VOID setmenubar(MENUINFO *amenu,PWND towind);
  62. extern BOOL GetInternationalData(void);
  63. extern void InstallSwapHandler(void) ;
  64. extern void     PrintHelpText(void);
  65. extern VOID SetUpExitToDos(void); /* see init.c */
  66. extern BOOL AsynchUpdateTreeList(void);
  68. VOID DeleteBatchFile(void);
  70. extern WND ViewWind;
  71. extern BOOL gMouseDown;
  72. extern BYTE gMouseX;    /* X value of last mouse-down */
  73. extern BYTE gMouseY;    /* Y value of last mouse-down */
  75. /* INTERNATIONALIZE HERE!
  76.  * We still don't have international am/pm symbols
  77. */
  78. /*
  79.  * sets up datestr to be in format ' 00-00-00 '
  80.  * sets up timestr to be in format ' 12:20 am '
  81.  *
  82.  * if force is not set, and time (minutes) has not changed, returns
  83.  * false and does not format strings.
  84.  * if force is set, formats strings and returns true
  85.  * if force is not set, and time has changed, formats strings and returns true
  86.  */
  88. #define NumToAsc(num,str) (temp=(num)/10, *(str++)=(char)((temp%10)+'0'), *(str++)=(char)((num)-temp*10+'0'))
  90. BOOL FAR Get_Date_and_Time_Strings(unsigned int theDate, unsigned int theTime,
  91.       char *datestr, char *timestr, BOOL force)
  92. {
  93.     static struct tm lasttime;
  94.     struct tm temptime, *newtime;
  95.     time_t long_time;
  96.     register int temp;
  97.     int date1, date2, date3;  /* for international date order */
  99.     if(!theDate && !theTime) {
  100. time(&long_time);
  101. newtime = localtime(&long_time);
  102.     } else {
  103. temptime.tm_year = 80 + (theDate>>0x09);
  104. temptime.tm_mon  = ((theDate>>0x05)&0x0f) - 1;
  105. temptime.tm_mday = theDate&0x1f;
  106. temptime.tm_hour = theTime>>0x0b;
  107. temptime.tm_min  = (theTime>>0x05)&0x3f;
  108. #if 0 /* We don't use the seconds */
  109. temptime.tm_sec  = 2*(theTime&0x1f);
  110. #endif
  112. newtime = &temptime;
  113. goto FormatDateAndTime;
  114.     }
  116.     if (force || (newtime->tm_min != lasttime.tm_min))
  117.     {
  118. lasttime = *newtime;
  119. FormatDateAndTime:
  120. if(datestr) {
  121.     if(NationData.Date_Format == 1) {
  122. date1 = newtime->tm_mday;
  123. date2 = newtime->tm_mon + 1;
  124. date3 = newtime->tm_year;
  125.     } else if(NationData.Date_Format == 2) {
  126. date1 = newtime->tm_year;
  127. date2 = newtime->tm_mon + 1;
  128. date3 = newtime->tm_mday;
  129.     } else {
  130. date1 = newtime->tm_mon + 1;
  131. date2 = newtime->tm_mday;
  132. date3 = newtime->tm_year;
  133.     }
  135.     NumToAsc(date1, datestr);
  136.     *(datestr++) = *NationData.Date_Sep;
  137.     NumToAsc(date2, datestr);
  138.     *(datestr++) = *NationData.Date_Sep;
  139.     NumToAsc(date3, datestr);
  140. }
  142. if(timestr) {
  143.     if(NationData.Time_Format&0x01) { /* A 24-hour clock */
  144. timestr[5] = ' ';
  145. NumToAsc(newtime->tm_hour, timestr);
  146.     } else { /* A 12-hour clock */
  147. temp = newtime->tm_hour;
  148. if(temp < 12) {
  149.     if(temp == 0)
  150. temp = 12;
  151.     timestr[5] = 'a';
  152. } else {
  153.     if(temp != 12)
  154. temp = temp - 12;
  155.     timestr[5] = 'p';
  156. }
  157. if((temp/10)>0)
  158.     *(timestr++) = (char) ((temp/10) + '0');
  159. else
  160.     *(timestr++) = (char) ' ';
  161. *(timestr++) = (char) ((temp%10) + '0');
  162.     }
  163.     *(timestr++) = *NationData.Time_Sep;
  164.     NumToAsc(newtime->tm_min, timestr);
  165. }
  167. return(TRUE);
  168.     } else {
  169.        return(FALSE);
  170.     }
  171. }
  173. /*
  174.  * draw the top title bar--
  175.  */
  176. VOID FAR UpdateMainTitleBar(char *szTitle)
  177. {
  178.     char *titlestring;
  179.     int i;
  180.     WORD len;
  181.     WORD titlestart;
  182.     char padded[100];
  184.  titlestring = szTitle ;
  186.     len = strlen(titlestring);
  187.     titlestart = axMac/2 - len/2;
  188.     for(i=0;i<axMac;i++)
  189.     {
  190. padded[i] = ' ';
  191.     }
  192.     FEnableMouseNest(FALSE);
  194.     TextOut(&MainWind,(RX) 0,(RY) 0, padded,titlestart,isaHilite);
  195.  TextOut(&MainWind,(RX) titlestart,0,titlestring,len,isaHilite);
  196.     TextOut(&MainWind,(RX) titlestart+len,(RY)0, padded,axMac-(titlestart+len),isaHilite);
  197.     if (gisgraph)
  198.     {
  199. if(CHEIGHT > SMALLHEIGHT)
  200. {
  201.      SetAreaPat(0);
  202.      SetLinePat(1);
  203.      SetColor(0,0x7FFF);
  204.      Move(0,CHEIGHT-1);
  205.      Draw((axMac)*CWIDTH,CHEIGHT-1);
  206. }
  207.     }
  208.     FEnableMouseNest(TRUE);
  209. }
  211. VOID FAR PauseBeforeScreenErase(VOID)
  212. {
  213. #ifndef NOLOADER
  214.     if(Get_KeyWord_Assignment(TK_SAVESTATE,TK_PAUSE) != TK_DISABLED)
  215.     {
  216. if (GET_WAIT_FLAG())
  217. {
  218.  /* clear out keyboard buffer */
  219.  while(kbhit())
  220. getch();
  222.  Shell_TTY_Out(szPressAKey);
  223.  /* wait for key to be hit */
  224.     while(!kbhit())
  225. ;
  226.  /* eat key */
  227.     getch();
  228. }
  229. Set_KeyWord_Assignment(TK_SAVESTATE,TK_PAUSE,TK_ENABLED);
  230.     }
  231. #endif
  232. }
  235. VOID ParseCommandLine(void)
  236. {
  237.     char far *commandline;
  238.     char lastfound=0;
  239.     char tstr[256], *szWhichRes;
  240.     TOKEN tkRes;
  242. #ifndef NOLOADER
  243.     if(GET_WAIT_FLAG())
  244. return;
  246. /*      We use the previous bytes to store pause flag status, a far pointer, etc
  247.  *      See loader.asm for exact details.
  248.  */
  249. commandline = GET_COMMAND_PTR()+9;
  250. #if 0
  251. printf("%d, ", *(commandline-2)) ;
  252. printf("%d, ", *(commandline-1)) ;
  253. printf("%d, ", *commandline) ;
  254. printf("%d, ", *(commandline+1)) ;
  255. printf("%d, ", *(commandline+2)) ;
  256. printf("%d, ", *(commandline+3)) ;
  257. printf("n") ;
  258. getchar() ;
  259. #endif
  260.     for( ; ; ++commandline) {
  261. switch(*commandline) {
  262. case(''):
  263. case('r'):
  264.     goto AllDone;
  265.     break;
  267. case('/'):
  268.     ++commandline;
  269.     switch(lastfound=(char)toupper(*commandline)) {
  270.     case 'T':
  271. Set_KeyWord_Assignment(TK_SAVESTATE, TK_SCREENMODE, TK_TEXT);
  272. break;
  274.     case 'G':
  275. Set_KeyWord_Assignment(TK_SAVESTATE, TK_SCREENMODE,TK_GRAPHICS);
  276. break ;
  278. #ifdef ERICLIKESBEEPCONTROL
  279.     case 'B' : // /BEEP
  280. Set_KeyWord_Assignment(TK_SAVESTATE, TK_BEEP, TK_ENABLED);
  281. break ;
  283.     case 'N' : // /NOBEEP
  284. Set_KeyWord_Assignment(TK_SAVESTATE, TK_BEEP, TK_DISABLED);
  285. break ;
  286. #else
  287.     case 'B' :
  288. Set_KeyWord_Assignment(TK_SAVESTATE, TK_FORCEMONO, TK_ENABLED);
  289. break ;
  290. #endif
  292. #ifdef SWAPMOUSESWITCH
  293.     case 'S' : // /SWAPMOUSE
  294. Set_KeyWord_Assignment(TK_SAVESTATE, TK_SWAPMOUSE,
  295. Get_KeyWord_Assignment(TK_SAVESTATE, TK_SWAPMOUSE)
  296. == TK_DISABLED ? TK_ENABLED : TK_DISABLED);
  297. break ;
  298. #endif
  299. #if 0
  300.     case '?' : // /HELP
  301.     case 'H' :
  302. #endif
  303.     default  :
  304. PrintHelpText();
  305. SetUpExitToDos();
  306. exit(0);
  307.     }
  308.     break;
  310. case(':'):
  311.     ++commandline;
  312.     switch(lastfound) {
  313.     case 'G':
  314.     case 'T':
  315. switch(toupper(*commandline)) {
  316. case 'L':
  317.     tkRes = TK_LOWRES;
  318.     goto MakeKeyword;
  320. case 'M':
  321.     tkRes = TK_MEDIUMRES;
  322.     goto MakeKeyword;
  324. case 'H':
  325.     tkRes = TK_HIGHRES;
  326.     goto MakeKeyword;
  328. MakeKeyword:
  329.     strfcpy(tstr, Get_Token_Identifier(tkRes));
  330.     for(szWhichRes=tstr; *szWhichRes; ++szWhichRes)
  331. /*do nothing */ ;
  332.     for(++commandline; *commandline>='0' && *commandline<='9';
  333.     ++commandline)
  334. *(szWhichRes++) = *commandline;
  335.     *szWhichRes = '';
  337.     Set_KeyWord_Assignment(TK_SAVESTATE, TK_RESOLUTION,
  338.     Get_Identifier_Token(tstr));
  339.     break;
  341. default:
  342.     break;
  343. }
  344. break;
  346.     default:
  347. break;
  348.     }
  350.     lastfound = 0;
  351.     break;
  353. default:
  354.     break;
  355. }
  356.     }
  357. AllDone:
  358.     ;
  359. #endif
  360. }
  362. extern char far * cdecl GET_STARTUP_NAME(VOID);
  363. VOID FAR SetUpStartUpDirectory(VOID)
  364. {
  365. #ifndef NOLOADER
  366.     strfcpy(gStartUpDir,GET_STARTUP_NAME());
  367.     gStartUpDirEnd=FindLastComponent(gStartUpDir);
  368.     gStartUpDir[gStartUpDirEnd]= 0;
  370. #else
  371.     strcpy(gStartUpDir,".\");
  372. gStartUpDirEnd=2;
  373. #endif
  374. Get_CWD(gStartInDir);
  376. }
  378. extern char *gpszNonSwap ;
  379. /*
  380.  * This is where all background tasking is done, so it should
  381.  * be called often.
  382.  */
  383. VOID MainIdle(void)
  384. {
  385.    static  int     arbitrarycounter;
  387.    /* Add more idle procs here if required.
  388.    */
  389. #ifdef PROF
  390.    ClockOn();
  391. #endif
  392.    /* note we need to call both idles always!
  393.     * thus, the & must be & and not && so it
  394.     * won't short circuit!
  395.     */
  396.     if(gMouseDown && m_fPerformingViewFile()) {
  397. ViewWindProc(&ViewWind, WM_MOUSEIDLE, 1,
  398. ((DWORD)gMouseY<<24) | ((DWORD)gMouseX<<16));
  399.     }
  400.    if (FileMgrIdle() & StartProgramsIdle() & AsynchUpdateTreeList())
  401.    {
  402.       GlobalIdle(); /* Tell the world we're idle */
  403.    }
  404.    /*
  405.     * We poll the time to see if it changed. But we
  406.     * don't really need to do it all the time, so
  407.     * we use "arbitrarycounter" to determine if we should
  408.     * check to see if we should update it. Assumes we
  409.     * are idle 64k times a minute
  410.     */
  411.    if (arbitrarycounter++ == 0)
  412. MessageBar(gpszNonSwap, isaMenu,FALSE);
  413. #ifdef PROF
  414.    ClockOff();
  415. #endif
  416. fPollKeyboard=TRUE;
  418. }
  420. WORD gCnx = cnxNull;
  421. /*
  422.  * Called by CW during menu and dialog idle time
  423.  */
  424. WORD FARPUBLIC RspAppIdle(WORD cnx,DWORD Lparam)
  425. {
  426.     if(cnx == cnxDialog)
  427.     {
  428. PDLG    pdlg = (PDLG)LOWORD(Lparam);
  430. if (pdlg->pfnDlg != NULL)
  431. {
  432.      /* send dlmIdle to appropriate dialog proc */
  433.      (*pdlg->pfnDlg)(dlmIdle, 0, 0, 0, 0);
  434. }
  436.     }
  437.     gCnx = cnx;
  438.      /*
  439.       * do not idle when in a critcal dialog!
  440.       */
  441.      if( ErrorCrit == 0xFF)
  442.      {
  443. MainIdle();
  444.      }
  445.      gCnx = cnxNull;
  446.      return(rspContinue);
  447. }
  449. /*
  450.  * we don't use the standard argv handling, so why
  451.  * have it around?
  452.  */
  453. void cdecl _setargv(void)
  454. {
  455. }
  456. #if 0
  457. void cdecl _setenvp(void)
  458. {
  459. static char * foo;
  460. foo = environ;
  462. unlink("foo");
  463. }
  464. #endif
  465. /* WARNING
  466.  * this is a replacement for the C call malloc. This SHOULD NEVER BE
  467.  * CALLED IN YOUR CODE! This function is called at startup by
  468.  * C-runtime to setup the environment. Since we don't want to carry
  469.  * around a bunch of code we don't use, we just use our own allocation
  470.  * Note that this memory is never freed! This is very important, since
  471.  * the freework function can tromp
  472.  * The real malloc sucks in about .5k of code
  473.  */
  474. void * cdecl malloc(unsigned int s)
  475. {
  476. return(PbAllocWork(s));
  477. }
  480. BOOL gfEarlyExit = FALSE ;
  482. extern Dos_Version(void);
  483. void VersionCheck(void) 
  484. {
  485. /* Perform version check!! We use the new "int 2f" issued by the BIOS
  486.  * to swap disks on a single floppy system -- "A:", "B:" on 1 physical drive
  487.  */
  488. if (Dos_Version() < MIN_MAJOR_VERSION)
  489. {
  490. Shell_TTY_Out(szIncorrectDosVersion) ;
  491. gfEarlyExit = TRUE ;
  492. DoExit() ;
  493. }
  494. }
  496. extern WORD GetLastScanCode(void);
  498. /*
  499.  * Looks for '!' signature in the ROM, followed 18 bytes later by 
  500.  * '01' which is the ROM BIOS version number.  
  501.  * Thus, this will only detect Tandy's with version 1.0 ROM.
  502.  */
  503. #define IsTandy1000 ( (*((BYTE FAR *)0xf000c000L) == 0x21) && (*((WORD FAR *)0xf000c012L) == 0x3130))
  505. /*
  506.  * The Tandy 1000 returns some strange keyboard messages, so we have to
  507.  * trap them and change them to the correct messages.  GetLastScanCode
  508.  * helps us determine what the correct message is, but it will return
  509.  * useless values if a modifier key is changed, so we have to store the
  510.  * last useful value in wSaveScanCode.
  511.  */
  512. VOID FAR PASCAL Tandy1000KeyboardHook(WORD message, WORD wParam, DWORD lParam)
  513. {
  514.     static WORD wSaveScanCode = 0;
  515.     WORD wLastScanCode;
  517. #if 0
  518.     char buf[80];
  520.     if(message == WM_CHAR)
  521. com1("nWM_CHAR    ");
  522.     else if(message == WM_KEYUP)
  523. com1("nWM_KEYUP   ");
  524.     else if(message == WM_KEYDOWN)
  525. com1("nWM_KEYDOWN ");
  526.     else {
  527. sprintf(buf, "n%-10d ", message);
  528. com1(buf);
  529.     }
  530.     sprintf(buf, "%04x 0x%04x 0x%04x ", wParam, HIWORD(lParam),
  531.     GetLastScanCode()&0xff7f);
  532.     com1(buf);
  533.     if(message==WM_CHAR && !(wParam&0xff00)) {
  534. buf[0] = LOBYTE(wParam);
  535. buf[1] = '';
  536. com1(buf);
  537.     }
  538. #endif
  540.     if(message == WM_CHAR) {
  541. switch(wParam) {
  542. case(VK_HOME):
  543.     wLastScanCode = GetLastScanCode()&0x7f;
  544.     if(wLastScanCode == 0x47 || wLastScanCode == 0x58)
  545. wSaveScanCode = wLastScanCode;
  546.     if(wSaveScanCode == 0x47)
  547. wParam = '\';
  548.     break;
  550. case(VK_LEFT):
  551.     wLastScanCode = GetLastScanCode()&0x7f;
  552.     if(wLastScanCode == 0x4b || wLastScanCode == 0x2b)
  553. wSaveScanCode = wLastScanCode;
  554.     if(wSaveScanCode == 0x4b)
  555. wParam = '|';
  556.     break;
  558. case(VK_UP):
  559.     wLastScanCode = GetLastScanCode()&0x7f;
  560.     if(wLastScanCode == 0x48 || wLastScanCode == 0x29)
  561. wSaveScanCode = wLastScanCode;
  562.     if(wSaveScanCode == 0x48)
  563. wParam = '~';
  564.     break;
  566. case(VK_DOWN):
  567.     wLastScanCode = GetLastScanCode()&0x7f;
  568.     if(wLastScanCode == 0x50 || wLastScanCode == 0x4a)
  569. wSaveScanCode = wLastScanCode;
  570.     if(wSaveScanCode == 0x50)
  571. wParam = '`';
  572.     break;
  574. case('-'):
  575.     wLastScanCode = GetLastScanCode()&0x7f;
  576.     if(wLastScanCode == 0x58 || wLastScanCode == 0x0c)
  577. wSaveScanCode = wLastScanCode;
  578.     if(wSaveScanCode == 0x58)
  579. wParam = VK_HOME;
  580.     break;
  581. }
  582.     }
  583.     InsertKeyboardMessage(message, wParam, lParam);
  584. }
  587. #ifdef HASHHITTEST
  588. char b1[80];
  589. extern int ghashhits;
  590. extern int ghashmisses;
  591. extern int ghashnotpresent;
  592. extern int gnohashnotpresent;
  593. #endif
  595. extern VOID Do_Read_Ini_File(void);
  597. /*
  598. **                              Main program
  599. */
  600. void cdecl main(int argc, char *argv[])
  601. {
  602. UnReferenced(argc) ;
  603. UnReferenced(argv) ;
  605. /* Get information on the country we're in... */
  606. GetInternationalData();
  608. /* In case we bail out because of low memory situations, we want to
  609.  * restore the screen to appropriate state before quitting in case we
  610.  * modified the screen mode.
  611.  */
  612. gfScreenModeChanged = FALSE;
  614. /* The following field is used to determine whether to bail out or not in
  615.  * a low memory situation. If we run out of memory when we are initializing
  616.  * we will bail out.
  617.  */
  618. gfStillInitializing = TRUE;
  620. /* used to de-install swap handler on exitting the shell */
  621. gfSwapHandlerInstalled = FALSE ;
  623. VersionCheck() ;
  625. SetUpStartUpDirectory();
  626. /*
  627.  *  parse the shell.ini file
  628.  */
  629. Do_Read_Ini_File();
  630. /* if we are returning from a program, we must pause before
  631.  * we initialize the screen so the user can read the output
  632.  * of the last program
  633.  */
  634. PauseBeforeScreenErase();
  635. if (!InitializeShell())
  636.     DoExit();
  638.     //if(IsTandy1000) check is disfunctional, so we used an ini switch
  639. if(Get_KeyWord_Assignment(TK_SAVESTATE,TK_TANDY1000) == TK_ENABLED)
  640. HookKeyboardMessage(TRUE, Tandy1000KeyboardHook);
  642.    /*  Allocate memory for the OutOfMemory Dialog Box HCAB structure now.
  643. * When we are actually, out of memory, we may not be able to allocate
  644. * enuf memory to put up the dialog box. This way, we are guaranteed to
  645. * atleast be able to say: "Out Of Memory" in a neat dialog box!
  646. */
  647. if (!AllocateHcabForOutOfMem())
  648. DoExit();
  650. /* Set up the collating table for sorts to be done later! */
  651. SetCollatingTable() ;
  653. /* If we have to use the collating sort, set sort functions to the
  654.  * collating sorts!
  655.  */
  656. if (!FDoQuickCompare())
  657. {
  658. SortFnArr[SORT_NAME] = name_cmp ;
  659. SortFnArr[SORT_EXT]  = ext_cmp ;
  661. /* This is the variable that is used to call the sort function! Update
  662.  * it correctly.
  663.  */
  664. if (*SortCmp == quick_name_cmp)
  665. {
  666. *SortCmp = name_cmp ;
  667. }
  668. else if (*SortCmp == quick_ext_cmp)
  669. {
  670. *SortCmp = ext_cmp ;
  671. }
  672. }
  674. InstallSwapHandler() ;
  675. /*
  676.  * WARNING taskmaninit must happen first!
  677.  */
  678. DeleteBatchFile();
  680. gfSwapHandlerInstalled = TRUE ;
  681. gfStillInitializing = FALSE;
  683. #ifdef HASHHITTEST
  684. ErrorCrit = 34; 
  685. itoa(ghashhits, b1, 10);
  686. strcat(b1, "n");
  687. itoa(ghashmisses, b1+strlen(b1), 10);
  688. strcat(b1, "n");
  689. itoa(gnohashnotpresent, b1+strlen(b1), 10);
  690. ShellMessageBox("HASH RESULTS", b1);
  691. ErrorCrit = 0xFF;
  692. #endif  
  694. /*
  695.  *      Handle messages (keyboard,mouse)
  696.  */
  697. MainIdle();
  698. while (1)
  699. {
  700.      if (PeekMessage(&msg))
  701.      {
  702.    DispatchMessage(&msg);
  703.      }
  704.      else
  705.      {
  706. MainIdle();
  707.      }
  708.      fPollKeyboard=TRUE;
  710. }
  711.  }