From 4c20ad7d300ebed36819cb00dbbdc917609e0cab Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Sun, 30 Jul 2023 13:42:30 +0200 Subject: fix disk usage computation --- dosfetch.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dosfetch.pas b/dosfetch.pas index 979924d..bad3de3 100644 --- a/dosfetch.pas +++ b/dosfetch.pas @@ -84,8 +84,8 @@ begin end; free := longint(a)*longint(c)*longint(b); total := longint(a)*longint(c)*longint(d); - write(free div 1024, '/', total div 1024, ' KB ('); - writeln(round(100-(free/total)*100), '% free)'); + write(total div 1024 - free div 1024, '/', total div 1024, ' KB ('); + writeln(round((free/total)*100), '% free)'); end; procedure dosver; -- cgit 1.4.1