diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2024-12-04 21:32:19 -0500 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2024-12-04 21:32:19 -0500 |
| commit | a2816f92377ee074cbc6d1280815074aeb25ced6 (patch) | |
| tree | 5090c04217eb269aa53c73476bb3aaa357fa73d7 /gwfetch.bas | |
| parent | ef1650d4c025858f1a0ce27768c1fb00d753f564 (diff) | |
| download | GWFetch-a2816f92377ee074cbc6d1280815074aeb25ced6.tar.gz GWFetch-a2816f92377ee074cbc6d1280815074aeb25ced6.zip | |
Added a FreeDOS logo
Diffstat (limited to 'gwfetch.bas')
| -rw-r--r-- | gwfetch.bas | 33 |
1 files changed, 31 insertions, 2 deletions
diff --git a/gwfetch.bas b/gwfetch.bas index 0445d20..34ad593 100644 --- a/gwfetch.bas +++ b/gwfetch.bas @@ -64,7 +64,8 @@ 510 DIM LOGO$(25)
520 IF DOSBOX = 1 THEN GOSUB 20050:GOTO 1000
530 IF OEM% = &HEE OR OEM% = &HEF THEN GOSUB 20100:GOTO 1000
-540 GOSUB 20000
+540 IF OEM% = &HFD THEN GOSUB 20150:GOTO 1000
+550 GOSUB 20000
1000 REM Output time
1001 WHILE TIMER - STARTTIME < 5:WEND
@@ -540,7 +541,7 @@ 20075 LOGO$(25) = " "
20076 RETURN
-20100 REM DOSBox Logo
+20100 REM DR DOS Logo
20101 LOGO$(1) = " "
20102 LOGO$(2) = " XXXXX"
20103 LOGO$(3) = " XXXXXXXXX"
@@ -568,6 +569,34 @@ 20125 LOGO$(25) = " "
20126 RETURN
+20150 REM FreeDOS Logo
+20151 LOGO$(1) = " "
+20152 LOGO$(2) = " "
+20153 LOGO$(3) = " "
+20154 LOGO$(4) = " x&;:::::::&+"
+20155 LOGO$(5) = " &::::::::::::::&"
+20156 LOGO$(6) = " $::::::::::::::::::&"
+20157 LOGO$(7) = " &::::::::::::::::::::&"
+20158 LOGO$(8) = " &::::::::::::::::::::::&"
+20159 LOGO$(9) = " $:::::::::::::::::::::::$"
+20160 LOGO$(10) = " X::: :::::::::::::::::&_____"
+20161 LOGO$(11) = " &::: 00 : :::::::::::::+::&&/"
+20162 LOGO$(12) = " &::: 00 : 0 :::::::::::::::x&/"
+20163 LOGO$(13) = " x&:: ::::::&:::\:::|&&:+&/"
+20164 LOGO$(14) = " &:&&&&&&&&&&:::::\::| \&&\"
+20165 LOGO$(15) = " |:/::::::::::::::&\:| \--+"
+20166 LOGO$(16) = " |/ &&&XXX&&&X \|"
+20167 LOGO$(17) = " "
+20168 LOGO$(18) = " "
+20169 LOGO$(19) = " ,---. ,--. ,---.,---."
+20170 LOGO$(20) = " |__. ,---.,---.,---.| || |`---."
+20171 LOGO$(21) = " | | |---'|---'| || | |"
+20172 LOGO$(22) = " ` ` `---'`---'`--' `---'`---'"
+20173 LOGO$(23) = " "
+20174 LOGO$(24) = " "
+20175 LOGO$(25) = " "
+20176 RETURN
+
30000 REM String Trim Function
30010 REM input/output: TOTRIM$
30015 IF LEN(TOTRIM$) = 0 THEN RETURN
|