git-svn-id: https://spexeah.com:8443/svn/Asuro@586 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/include/asuro.pas

@@ -3,11 +3,11 @@ unit asuro;
 interface
  
 const
-     VERSION       = '1.0.0-583a';
+     VERSION       = '1.0.0-584a';
      VERSION_MAJOR = '1';
      VERSION_MINOR = '0';
      VERSION_SUB   = '0';
-     REVISION      = '583';
+     REVISION      = '584';
      RELEASE       = 'a';
  
 implementation

src/terminal.pas

@@ -374,16 +374,16 @@ end;
 procedure SendSerial(Params : PParamList);
 begin
     Serial.init(COM1);
-    Serial.Send(uint8('H'), COM1, 1000);
+    Serial.Send(uint8('H'), COM1, 100000);
-    Serial.Send(uint8('E'), COM1, 1000);
+    Serial.Send(uint8('E'), COM1, 100000);
-    Serial.Send(uint8('L'), COM1, 1000);
+    Serial.Send(uint8('L'), COM1, 100000);
-    Serial.Send(uint8('L'), COM1, 1000);
+    Serial.Send(uint8('L'), COM1, 100000);
-    Serial.Send(uint8('O'), COM1, 1000);
+    Serial.Send(uint8('O'), COM1, 100000);
-    Serial.Send(uint8('W'), COM1, 1000);
+    Serial.Send(uint8('W'), COM1, 100000);
-    Serial.Send(uint8('O'), COM1, 1000);
+    Serial.Send(uint8('O'), COM1, 100000);
-    Serial.Send(uint8('R'), COM1, 1000);
+    Serial.Send(uint8('R'), COM1, 100000);
-    Serial.Send(uint8('L'), COM1, 1000);
+    Serial.Send(uint8('L'), COM1, 100000);
-    Serial.Send(uint8('D'), COM1, 1000);
+    Serial.Send(uint8('D'), COM1, 100000);
 end;
 
 procedure init;