diff options
| author | Nagy Tibor <xnagytibor@protonmail.com> | 2023-07-30 20:38:11 +0200 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2023-07-31 14:18:10 +0200 |
| commit | ec71c8cc68f2e21da27642a815c1ab291f085ac9 (patch) | |
| tree | 04c0033c238189e3b2258d41cbfb88992d4f19c1 | |
| parent | 1de8330bf392a7b90dd77be55bacf53145410a22 (diff) | |
| download | dosfetch-ec71c8cc68f2e21da27642a815c1ab291f085ac9.tar.gz dosfetch-ec71c8cc68f2e21da27642a815c1ab291f085ac9.tar.xz dosfetch-ec71c8cc68f2e21da27642a815c1ab291f085ac9.zip | |
Use CRT windowing procedure
| -rw-r--r-- | dosfetch.pas | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/dosfetch.pas b/dosfetch.pas index 2a1abcc..55c094f 100644 --- a/dosfetch.pas +++ b/dosfetch.pas @@ -142,33 +142,35 @@ end; procedure colorline(s : string); var y, b, r : string; begin - write(' '); textcolor(yellow); write(copy(s, 1, 14)); textcolor(lightblue); write(copy(s, 15,14)); textcolor(lightred); write(copy(s, 29,14)); normvideo; - write(' '); + writeln; end; begin clrscr; writeln; + window(2, 2, 80, 25); colorline('88888888ba, ,ad8888ba, ad88888ba '); - textcolor(white); write('OS: '); normvideo; dosver; colorline('88 `"8b d8"'' `"8b d8" "8b '); - textcolor(white); write('Shell: '); normvideo; writeln(getenv('COMSPEC')); colorline('88 `8b d8'' `8b Y8, '); - textcolor(white); write('Floppy drives: '); normvideo; floppy; colorline('88 88 88 88 `Y8aaaaa, '); - textcolor(white); write('Disk: '); normvideo; disksize(0); colorline('88 88 88 88 `"""""8b, '); - textcolor(white); write('Base Memory: '); normvideo; base_memory; colorline('88 8P Y8, ,8P `8b '); - textcolor(white); write('Ext. Memory: '); normvideo; extended_memory; colorline('88 .a8P Y8a. .a8P Y8a a8P '); - textcolor(white); write('Floating Point Unit: '); normvideo; fpu; colorline('88888888Y"'' `"Y8888Y"'' "Y88888P"'); + window(45, 2, 80, 25); + textcolor(white); write('OS: '); normvideo; dosver; + textcolor(white); write('Shell: '); normvideo; writeln(getenv('COMSPEC')); + textcolor(white); write('Floppy drives: '); normvideo; floppy; + textcolor(white); write('Disk: '); normvideo; disksize(0); + textcolor(white); write('Base Memory: '); normvideo; base_memory; + textcolor(white); write('Ext. Memory: '); normvideo; extended_memory; + textcolor(white); write('Floating Point Unit: '); normvideo; fpu; + writeln; end. |