Subversion Repositories SvarDOS

Rev

Rev 1428 | Rev 1430 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1428 Rev 1429
Line 1101... Line 1101...
1101 
          if (saveflag == 0) {
 1101 
          if (saveflag == 0) {
1102 
            db->modflag = 0;
 1102 
            db->modflag = 0;
1103 
            ui_msg(svarlang_str(0, 2), NULL, SCHEME_MSG);
 1103 
            ui_msg(svarlang_str(0, 2), NULL, SCHEME_MSG);
1104 
            mdr_bios_tickswait(11); /* 11 ticks is about 600 ms */
 1104 
            mdr_bios_tickswait(11); /* 11 ticks is about 600 ms */
1105 
          } else {
 1105 
          } else {
1106 
            ui_msg(svarlang_str(0, 3), NULL, SCHEME_ERR);
 1106 
            ui_msg(svarlang_str(0, 10), NULL, SCHEME_ERR);
1107 
            mdr_bios_tickswait(36); /* 2s */
 1107 
            mdr_bios_tickswait(36); /* 2s */
1108 
          }
 1108 
          }
1109 
          mdr_cout_cursor_show();
 1109 
          mdr_cout_cursor_show();
1110 
          break;
 1110 
          break;
1111 
 
 1111