diff options
Diffstat (limited to 'gwfetch.bas')
| -rw-r--r-- | gwfetch.bas | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/gwfetch.bas b/gwfetch.bas index dc71cae..f2d394a 100644 --- a/gwfetch.bas +++ b/gwfetch.bas @@ -6,8 +6,22 @@ 29 REM battery or the time has been set
30 SHOWUPTIME = 1
-199 PRINT "GWFetch 0.1 (c) 2024 J.Armstrong - See LICENSE.txt"
-200 PRINT "Working..."
+150 PRINT "GWFetch 0.1 (c) 2024 J.Armstrong - See LICENSE.txt"
+151 PRINT
+152 PRINT "While we have some time, please consider donating if you"
+153 PRINT "like this software. I suggest:"
+154 PRINT
+155 IF INT(TIMER) MOD 2 = 0 THEN GOTO 165
+160 PRINT "The Greater Cleveland Food Bank"
+161 PRINT "https://greaterclevelandfoodbank.org/"
+162 GOTO 190
+165 PRINT "Colors+ Youth Center"
+166 PRINT "https://colorsplus.org/"
+167 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.)"
+200 PRINT:PRINT "Working..."
210 TMPFILE$ = "TEST.TMP"
211 REM The array for our asm routines
212 DIM Q%(400)
@@ -278,7 +292,6 @@ 12530 NEXT I
12540 DOSVER = 1 + VARPTR(Q%(1))
12550 CALL DOSVER(DVER%, OEM%)
-12565 print "okay: ";oem%
12570 TOTRIM$ = STR$(DVER% MOD 256):GOSUB 30000:DVERMAJOR$ = TOTRIM$
12580 TOTRIM$ = STR$(INT(DVER% / 256)):GOSUB 30000:DVERMINOR$ = TOTRIM$
12600 DATA &H55 : REM push bp
|