From 4fe578bc33ecc8f279a00fa6c18cd78d3b558380 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Sun, 1 Dec 2024 17:14:19 -0500
Subject: Added a timer to the donation screen

---
 gwfetch.bas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'gwfetch.bas')

diff --git a/gwfetch.bas b/gwfetch.bas
index 1dcd1ed..d85eac6 100644
--- a/gwfetch.bas
+++ b/gwfetch.bas
@@ -7,7 +7,7 @@
 30 SHOWUPTIME = 1
 
 150 PRINT "GWFetch 0.1 (c) 2024 J.Armstrong - See LICENSE.txt"
-151 PRINT
+151 STARTTIME = TIMER:PRINT
 152 PRINT "While we have some time, please consider donating if you"
 153 PRINT "like this software.  I suggest:"
 154 PRINT
@@ -65,9 +65,10 @@
 540 GOSUB 20000
 
 1000 REM Output time
-1001 CLS
-1002 GOSUB 30100
-1003 GOSUB 3000
+1001 WHILE TIMER - STARTTIME < 5:WEND
+1002 CLS
+1003 GOSUB 30100
+1004 GOSUB 3000
 1010 R = 2:C=41
 1020 IF LEN(COMPNAME$) = 0 THEN GOTO 1100
 1030 LOCATE R,C:PRINT COMPNAME$;
-- 
cgit v1.2.3