Rev 965 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 965 | Rev 992 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | program OIDPLUS; |
1 | program OIDPLUS; |
| 2 | 2 | ||
| 3 | (************************************************) |
3 | (************************************************) |
| 4 | (* OIDPLUS.PAS *) |
4 | (* OIDPLUS.PAS *) |
| 5 | (* Author: Daniel Marschall *) |
5 | (* Author: Daniel Marschall *) |
| 6 | (* Revision: 2022-09-26 *) |
6 | (* Revision: 2022-10-10 *) |
| 7 | (* License: Apache 2.0 *) |
7 | (* License: Apache 2.0 *) |
| 8 | (* This file contains: *) |
8 | (* This file contains: *) |
| 9 | (* - "OIDplus for DOS" program *) |
9 | (* - "OIDplus for DOS" program *) |
| 10 | (************************************************) |
10 | (************************************************) |
| 11 | 11 | ||
| Line 20... | Line 20... | ||
| 20 | uses |
20 | uses |
| 21 | Dos, Crt, Drivers, StrList, VtsFuncs, VtsCui, OidFile, OidUtils, |
21 | Dos, Crt, Drivers, StrList, VtsFuncs, VtsCui, OidFile, OidUtils, |
| 22 | Weid; |
22 | Weid; |
| 23 | 23 | ||
| 24 | const |
24 | const |
| 25 | VERSIONINFO = 'Revision: 2022-09-26'; |
25 | VERSIONINFO = 'Revision: 2022-10-10'; |
| 26 | TITLEBAR_LEFT_TEXT = 'OIDplus'; |
26 | TITLEBAR_LEFT_TEXT = 'OIDplus'; |
| 27 | DISKIO_SOUND_DEBUGGING = false; |
27 | DISKIO_SOUND_DEBUGGING = false; |
| 28 | DISKIO_SOUND_DELAY = 500; |
28 | DISKIO_SOUND_DELAY = 500; |
| 29 | ASNEDIT_LINES = 10; |
29 | ASNEDIT_LINES = 10; |
| 30 | DESCEDIT_LINES = 10; |
30 | DESCEDIT_LINES = 10; |
| Line 811... | Line 811... | ||
| 811 | WriteLn(''); |
811 | WriteLn(''); |
| 812 | 812 | ||
| 813 | if Trim(oid^.Description) <> '' then |
813 | if Trim(oid^.Description) <> '' then |
| 814 | begin |
814 | begin |
| 815 | (* WriteLn('Description:'); *) |
815 | (* WriteLn('Description:'); *) |
| - | 816 | (* TODO: We should avoid that this is more than 10 lines *) |
|
| 816 | WriteLn(oid^.Description); |
817 | WriteLn(oid^.Description); |
| 817 | WriteLn(''); |
818 | WriteLn(''); |
| 818 | end |
819 | end |
| 819 | else |
820 | else |
| 820 | begin |
821 | begin |