about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--dosfetch.pas20
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.