diff options
Diffstat (limited to 'gwfetch.bas')
| -rw-r--r-- | gwfetch.bas | 9 |
1 files changed, 5 insertions, 4 deletions
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$;
|