diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2024-12-01 17:14:19 -0500 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2024-12-01 17:14:19 -0500 |
| commit | 4fe578bc33ecc8f279a00fa6c18cd78d3b558380 (patch) | |
| tree | 08f25cf077b12b8924cdbb5c523151c28835c504 | |
| parent | 01d07915ec0676205452206e5a175af59aad3ad2 (diff) | |
| download | GWFetch-4fe578bc33ecc8f279a00fa6c18cd78d3b558380.tar.gz GWFetch-4fe578bc33ecc8f279a00fa6c18cd78d3b558380.zip | |
Added a timer to the donation screen
| -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$;
|