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 |