diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2024-12-05 08:18:52 -0500 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2024-12-05 08:18:52 -0500 |
| commit | 519f9e73e480468d85eb6e421b947d5916bc3d50 (patch) | |
| tree | 57b500024e2d30f1f5d471729e0a0045296a9569 /gwfetch.bas | |
| parent | a2816f92377ee074cbc6d1280815074aeb25ced6 (diff) | |
| download | GWFetch-519f9e73e480468d85eb6e421b947d5916bc3d50.tar.gz GWFetch-519f9e73e480468d85eb6e421b947d5916bc3d50.zip | |
Added PC-DOS logo
Diffstat (limited to 'gwfetch.bas')
| -rw-r--r-- | gwfetch.bas | 31 |
1 files changed, 30 insertions, 1 deletions
diff --git a/gwfetch.bas b/gwfetch.bas index 34ad593..f38d8d6 100644 --- a/gwfetch.bas +++ b/gwfetch.bas @@ -65,7 +65,8 @@ 520 IF DOSBOX = 1 THEN GOSUB 20050:GOTO 1000
530 IF OEM% = &HEE OR OEM% = &HEF THEN GOSUB 20100:GOTO 1000
540 IF OEM% = &HFD THEN GOSUB 20150:GOTO 1000
-550 GOSUB 20000
+550 IF OEM% = 0 THEN GOSUB 20200:GOTO 1000
+560 GOSUB 20000
1000 REM Output time
1001 WHILE TIMER - STARTTIME < 5:WEND
@@ -597,6 +598,34 @@ 20175 LOGO$(25) = " "
20176 RETURN
+20200 REM PC-DOS Logo
+20201 LOGO$(1) = " "
+20202 LOGO$(2) = " "
+20203 LOGO$(3) = " ###########"
+20204 LOGO$(4) = " ####################"
+20205 LOGO$(5) = " ##########################"
+20206 LOGO$(6) = " ####### ##################"
+20207 LOGO$(7) = " ##### # #####################"
+20208 LOGO$(8) = " ###### # # ####### ########"
+20209 LOGO$(9) = " ####### # ## # ## ## ########"
+20210 LOGO$(10) = " ######### #### ### ############"
+20211 LOGO$(11) = " ############ ########## #####"
+20212 LOGO$(12) = " ############# ### #### ###"
+20213 LOGO$(13) = " ########### ### ## ######### ##"
+20214 LOGO$(14) = " ######## # #### ## ### ##"
+20215 LOGO$(15) = " ####### ### # ### # ###"
+20216 LOGO$(16) = " ######## ### ## #### ##########"
+20217 LOGO$(17) = " ######### ### # ### ########"
+20218 LOGO$(18) = " ######### ### ## ### ######"
+20219 LOGO$(19) = " ######### ### # ######"
+20220 LOGO$(20) = " ########## ## #############"
+20221 LOGO$(21) = " ######### ############"
+20222 LOGO$(22) = " ######### #############"
+20223 LOGO$(23) = " #################"
+20224 LOGO$(24) = " "
+20225 LOGO$(25) = " "
+20226 RETURN
+
30000 REM String Trim Function
30010 REM input/output: TOTRIM$
30015 IF LEN(TOTRIM$) = 0 THEN RETURN
|