aboutsummaryrefslogtreecommitdiff
path: root/gwfetch.bas
diff options
context:
space:
mode:
Diffstat (limited to 'gwfetch.bas')
-rw-r--r--gwfetch.bas20
1 files changed, 16 insertions, 4 deletions
diff --git a/gwfetch.bas b/gwfetch.bas
index 0e3a81f..c23e4cb 100644
--- a/gwfetch.bas
+++ b/gwfetch.bas
@@ -1,3 +1,11 @@
+1 REM GWFetch 0.1
+2 REM https://git.rainbow-100.com/cgit.cgi/gwfetch/about/
+3 REM
+4 REM Copyright 2024 Jeffrey Armstrong <jeff@rainbow-100.com>
+5 REM Licensed under a JSON license -
+6 REM "The Software shall be used for Good, not Evil."
+7 REM
+8 REM More terms in LICENSE.txt
10 REM Customization!
19 REM Maybe you want to name the computer?
@@ -5,6 +13,8 @@
28 REM Uptime can be shown, but is meaningless if the system has a clock
29 REM battery or the time has been set
30 SHOWUPTIME = 1
+39 REM When set to 1, this flag will call SYSTEM rather than just END
+40 SYSTEMONEND = 0
150 PRINT "GWFetch 0.1 (c) 2024 J.Armstrong - See LICENSE.txt"
151 STARTTIME = TIMER:PRINT
@@ -24,7 +34,9 @@
169 GOTO 190
190 PRINT:PRINT "(The author of GWFetch has no affiliation with the above org."
-191 PRINT "Please consider donating if you like this software.)"
+191 PRINT "Please consider donating if you like this software. If you
+192 PRINT "do donate, drop me a note at jeff@rainbow-100.com. Your
+193 PRINT "generosity will make me smile.)"
200 PRINT:PRINT "Working..."
210 TMPFILE$ = "TEST.TMP"
211 REM The array for our asm routines
@@ -96,9 +108,9 @@
1235 R = R + 1
1240 LOCATE R,C:PRINT "Memory: ";MEMFREE$;" / ";MEMTOTAL$;
-1997 LOCATE ROWS, 41:PRINT "Press any key...";
-1998 WHILE LEN(INKEY$) = 0:WEND
-1999 REM SYSTEM
+1995 LOCATE ROWS, 41:PRINT "Press any key...";
+1996 WHILE LEN(INKEY$) = 0:WEND
+1997 IF SYSTEMONEND = 1 THEN SYSTEM
2000 END
3000 REM Logo output