equal
deleted
inserted
replaced
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uIO; |
21 unit uIO; |
22 interface |
22 interface |
23 uses SDLh, uTypes; |
23 uses SDLh, uTypes; |
24 |
|
25 var ipcPort: Word = 0; |
|
26 hiTicks: Word; |
|
27 |
24 |
28 procedure initModule; |
25 procedure initModule; |
29 procedure freeModule; |
26 procedure freeModule; |
30 |
27 |
31 procedure SendIPC(s: shortstring); |
28 procedure SendIPC(s: shortstring); |
429 SendEmptyPacketTicks:= 0; |
426 SendEmptyPacketTicks:= 0; |
430 end; |
427 end; |
431 |
428 |
432 procedure freeModule; |
429 procedure freeModule; |
433 begin |
430 begin |
434 ipcPort:= 0; |
|
435 end; |
431 end; |
436 |
432 |
437 end. |
433 end. |