Rev 7693 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7693 | Rev 7696 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | (* |
1 | (* |
| 2 | Copyright 2017 Anton Krotov |
2 | Copyright 2017 Anton Krotov |
| Line 3... | Line 3... | ||
| 3 | 3 | ||
| 4 | This program is free software: you can redistribute it and/or modify |
4 | This program is free software: you can redistribute it and/or modify |
| 5 | it under the terms of the GNU Lesser General Public License as published by |
5 | it under the terms of the GNU Lesser General Public License as published by |
| Line 102... | Line 102... | ||
| 102 | PROCEDURE LinkStatus* (num: INTEGER): INTEGER; |
102 | PROCEDURE LinkStatus* (num: INTEGER): INTEGER; |
| 103 | RETURN K.sysfunc2(74, num * 256 + 10) |
103 | RETURN K.sysfunc2(74, num * 256 + 10) |
| 104 | END LinkStatus; |
104 | END LinkStatus; |
| Line 105... | Line -... | ||
| 105 | - | ||
| 106 | 105 | ||
| - | 106 | ||