DECLARE SUB LoadFont (a%)
DIM modes(20) AS STRING * 20
COMMON SHARED /modes/ modes() AS STRING * 20, NumModes AS INTEGER
COMMON SHARED /svgainf/ ChipSet$, VidMem AS INTEGER, CpuFound AS INTEGER
' $DYNAMIC
' $INCLUDE: 'SVGABC.BI'
DEFINT A-Z

DECLARE FUNCTION DefMask% (a$)
DECLARE SUB Scroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
DECLARE SUB LScroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
DECLARE SUB RScroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
DECLARE SUB BkScroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
DECLARE SUB DGetScreen (BYVAL DSeg%, BYVAL DOfs%, BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Page%, BYVAL Fast%)
DECLARE SUB DPutScreen (BYVAL DSeg%, BYVAL DOfs%, BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Page%, BYVAL Fast%)
DECLARE FUNCTION StorAnsis$ (a%)
DECLARE SUB MMButton (LeftB%, RightB%)
DECLARE SUB DelayV (BYVAL MilliSeconds%)
DECLARE SUB XQPrint (St$, BYVAL Row%, BYVAL Column%, BYVAL VAttr%, BYVAL Page%, BYVAL Fast%)
DECLARE FUNCTION Bin% (a$)
DECLARE FUNCTION InkeyX$ ()
DECLARE FUNCTION InkeyX2$ ()

COMMON SHARED /MouseP/ MousePresent

'DIM SHARED ScrlScreen(1000) AS INTEGER

REM $STATIC
FUNCTION Bin (a$)

SELECT CASE a$
CASE "1" TO "9"
a = VAL(a$)
CASE "A" TO "F"
a = ASC(a$) - 64
END SELECT
Bin = a
END FUNCTION

SUB Boundaries2 (X, Y)

IF X > 80 THEN X = 80
IF X < 1 THEN X = 1
IF Y > 24 THEN Y = 24
IF Y < 1 THEN Y = 1

END SUB

SUB ButtonPress (a)
XQPrint "Ý", 14, a, 112, 0, 1
XQPrint "Þ", 14, a + 3, 112, 0, 1
DelayV 125
XQPrint "Ý", 14, a, 8, 0, 1
XQPrint "Þ", 14, a + 3, 8, 0, 1
END SUB

FUNCTION DefMask (a$)

IF a$ = "AVT" THEN DefMask = 1
IF a$ = "ASC" THEN DefMask = 1
IF a$ = "ANS" THEN DefMask = 1
IF a$ = "LIT" THEN DefMask = 1
IF a$ = "MOT" THEN DefMask = 1
IF a$ = "TXT" THEN DefMask = 1
IF a$ = "GIF" THEN DefMask = 1

END FUNCTION

SUB FadeIn (sa$, X, Y)
currentc = 1: Y = Y - 1

  DO
  XQPrint MID$(sa$, currentc + 0, 1), X, currentc + Y + 0, 3, 0, 1
  XQPrint MID$(sa$, currentc + 1, 1), X, currentc + Y + 1, 11, 0, 1
  XQPrint MID$(sa$, currentc + 2, 1), X, currentc + Y + 2, 15, 0, 1
  currentc = currentc + 1
  IF currentc > LEN(sa$) THEN currentc = -1
  DelayV 50
  LOOP UNTIL currentc = -1

END SUB

SUB FadeItOut (sa$, X, Y)
currentc = 1: Y = Y - 1

  DO
  XQPrint MID$(sa$, currentc + 0, 1), X, currentc + Y + 0, 0, 0, 1
  XQPrint MID$(sa$, currentc + 1, 1), X, currentc + Y + 1, 3, 0, 1
  XQPrint MID$(sa$, currentc + 2, 1), X, currentc + Y + 2, 11, 0, 1
  XQPrint MID$(sa$, currentc + 3, 1), X, currentc + Y + 3, 15, 0, 1
  currentc = currentc + 1
  IF currentc > LEN(sa$) THEN currentc = -1
  DelayV 50
  LOOP UNTIL currentc = -1

END SUB

SUB FancyCLS (ct)

IF ct = -1 THEN ct = INT(8 * RND(1)) + 1
'FOR a = 1 TO 2000
'COLOR INT(15 * RND(1)) + 1, INT(7 * RND(1)) + 1
'PRINT CHR$(INT(220 * RND(1)) + 32);
'NEXT a

IF ct = 1 THEN
    FOR b = 1 TO 25
    XQPrint " ", b, 80, 3, 0, 1
    NEXT b
    FOR a = 1 TO 80
    LScroll 1, 1, 25, 80, 1
    NEXT a
    END IF
IF ct = 2 THEN
    FOR b = 1 TO 25
    XQPrint " ", b, 1, 3, 0, 1
    NEXT b
    FOR a = 1 TO 80
    RScroll 1, 1, 25, 80, 1
    NEXT a
    END IF
IF ct = 3 THEN
    FOR b = 1 TO 25
    XQPrint "  ", b, 40, 3, 0, 1
    NEXT b
    FOR a = 1 TO 40
    LScroll 1, 1, 25, 40, 1
    RScroll 1, 41, 25, 80, 1
    DelayV 5
    NEXT a
    END IF
IF ct = 4 THEN
    FOR b = 1 TO 25
    XQPrint " ", b, 1, 3, 0, 1
    XQPrint " ", b, 80, 3, 0, 1
    NEXT b
    FOR a = 1 TO 40
    RScroll 1, 1, 25, 40, 1
    LScroll 1, 41, 25, 80, 1
    DelayV 5
    NEXT a
    END IF
IF ct = 5 THEN
    FOR b = 1 TO 25
    XQPrint " ", b, 20, 3, 0, 1
    XQPrint " ", b, 40, 3, 0, 1
    XQPrint " ", b, 60, 3, 0, 1
    XQPrint " ", b, 80, 3, 0, 1
    NEXT b
    FOR a = 1 TO 40
    LScroll 1, 1, 25, 20, 1
    LScroll 1, 21, 25, 40, 1
    LScroll 1, 41, 25, 60, 1
    LScroll 1, 61, 25, 80, 1
    DelayV 5
    NEXT a
    END IF
IF ct = 6 THEN
    FOR b = 1 TO 25
    XQPrint " ", b, 1, 3, 0, 1
    XQPrint " ", b, 21, 3, 0, 1
    XQPrint " ", b, 41, 3, 0, 1
    XQPrint " ", b, 61, 3, 0, 1
    NEXT b
    FOR a = 1 TO 40
    RScroll 1, 1, 25, 20, 1
    RScroll 1, 21, 25, 40, 1
    RScroll 1, 41, 25, 60, 1
    RScroll 1, 61, 25, 80, 1
    DelayV 5
    NEXT a
    END IF
IF ct = 7 THEN
    FOR a = 1 TO 10
    Scroll 1, 1, 12, 80, 1
    Scroll 13, 1, 25, 80, 1
    XQPrint SPACE$(80), 12, 1, 3, 0, 1
    XQPrint SPACE$(80), 25, 1, 3, 0, 1
    DelayV 25
    NEXT a
    END IF
IF ct = 8 THEN
    FOR a = 1 TO 10
    BkScroll 1, 1, 12, 80, 1
    BkScroll 13, 1, 25, 80, 1
    XQPrint SPACE$(80), 1, 1, 3, 0, 1
    XQPrint SPACE$(80), 13, 1, 3, 0, 1
    DelayV 25
    NEXT a
    END IF
END SUB

FUNCTION InkeyX$
InkeyX$ = INKEY$
IF MousePresent THEN MMButton a, b
IF a OR b THEN InkeyX$ = " "
END FUNCTION

FUNCTION InkeyX2$
a$ = InkeyX$
IF STUse THEN
   IF a$ = CHR$(13) THEN STInst = 0
   IF a$ = CHR$(32) THEN STInst = 0
   IF a$ = CHR$(27) THEN STInst = 1
   END IF

InkeyX2$ = a$
END FUNCTION

SUB RemoveStatVGA
FOR a = 0 TO 32

	LINE (1, 463 + a)-(640, 463 + a), 15
	LINE (1, 462 + a)-(640, 462 + a), 15
	LINE (1, 461 + a)-(640, 461 + a), 11
	LINE (1, 460 + a)-(640, 460 + a), 11
	LINE (1, 459 + a)-(640, 459 + a), 3
	LINE (1, 458 + a)-(640, 458 + a), 3
	LINE (1, 457 + a)-(640, 457 + a), 9
	LINE (1, 456 + a)-(640, 456 + a), 9
	LINE (1, 455 + a)-(640, 455 + a), 1
	LINE (1, 454 + a)-(640, 454 + a), 1
	LINE (1, 453 + a)-(640, 453 + a), 0
DelayV 25
NEXT a

END SUB

DEFCUR C
SUB ScreenSaver

IF NumModes = 0 THEN EXIT SUB
IF NumModes = 5 THEN a = RES1024: mxx = 1023: myy = 767
IF NumModes = 4 THEN a = RES800: mxx = 799: myy = 599
IF NumModes = 2 THEN a = RES640: mxx = 639: myy = 479

DIM sx(150), sy(150), sxx(150), syy(150)
DIM Y1 AS CURRENCY
mx = 150

X = INT(mxx * RND(1)) + 1: Y = INT(myy * RND(1)) + 1
xx = INT(mxx * RND(1)) + 1: yy = INT(myy * RND(1)) + 1
X1 = 1: Y1 = 1: C = 32
xx1 = -1: yy1 = -1
DO
FOR a = mx TO 2 STEP -1
sx(a) = sx(a - 1): sy(a) = sy(a - 1): sxx(a) = sxx(a - 1): syy(a) = syy(a - 1)
NEXT a
sx(1) = X
sy(1) = Y
sxx(1) = xx
syy(1) = yy

DRWLINE 1, 0, sx(mx), sy(mx), sxx(mx), syy(mx)
DRWLINE 1, C, X, Y, xx, yy

C = C + .08: IF C > 55 THEN C = 32
X = X + X1: Y = Y + Y1
IF X > mxx THEN X1 = -X1
IF Y > myy THEN Y1 = -Y1
IF X < 2 THEN X1 = -X1
IF Y < 2 THEN Y1 = -Y1

xx = xx + xx1: yy = yy + yy1

IF xx > mxx THEN xx1 = -INT(xx1)
IF yy > myy THEN yy1 = -INT(yy1)
IF xx < 2 THEN xx1 = -INT(xx1)
IF yy < 2 THEN yy1 = -INT(yy1)
LOOP UNTIL InkeyX$ <> ""
a = RESTEXT
SCREEN 0: WIDTH 80
END SUB

DEFINT C
SUB ScScUp (Page)
REDIM ScrlScreen(1000) AS INTEGER

DGetScreen VARSEG(ScrlScreen(1)), VARPTR(ScrlScreen(1)), 2, 1, 24, 80, Page, 1
DPutScreen VARSEG(ScrlScreen(1)), VARPTR(ScrlScreen(1)), 1, 1, 23, 80, Page, 1
XQPrint SPACE$(80), 24, 1, 3, 0, 1
END SUB

FUNCTION StorAnsis$ (a)

IF a = 1 THEN
  a$ = "" + CHR$(13) + CHR$(10)
  a$ = a$ + "" + CHR$(13) + CHR$(10)
  a$ = a$ + "Ü°±Üþú" + CHR$(13) + CHR$(10)
  a$ = a$ + "ܲ±°°ÛÜ  ú  ܲ±°  Ü    Ü° °°²²Û²±±°°°  °  Ü" + CHR$(13) + CHR$(10)
  a$ = a$ + "ÜÛ²²±°    Ü  ܲ²²±°° °Ü  Þ° °°±ßßÛÛ²±°°ßß° °  Ý" + CHR$(13) + CHR$(10)
  a$ = a$ + "ÛÛ²±±°ß ° ݱ²ÛßÛ²±°° ßßßÛ²±°Ý    ßßß" + CHR$(13) + CHR$(10)
  a$ = a$ + "ÛÛ²±°ß°Ý°ß  Û²±°Û Ü° ßß° Ü    Û²°°° Ü  Ü° ßß° Üþ   °°Üþ  °±" + CHR$(13) + CHR$(10 _
)
  a$ = a$ + "ÞÛÛ²±þÝß   ÛÛ²±ÝÞ±°Ý  Þ±°Ý   ÛÛ²²±°°Þ±°Ý  Þ±°Ý °°°Ý²±Þ±²" + CHR$(13) + CHR$( _
10)
  a$ = a$ + " úþÛÛÛ²ÛÛÛ²Û²±Û²±ßÜÜß   ²²°Û²±Û²±²±±ß²±Þ²Û" + CHR$(13) + CHR$(10)
  a$ = a$ + "ßÜÜßßÜÜß ÛÛ²ÛÛ²Û±° Û²±ÛÛ²ú   ÛÛ²ßÜÜþ ÞÛ²ÛÛ" + CHR$(13) + CHR$(10)
  a$ = a$ + "Û²°ÝÞ±° ßÜß    ßÜß   Û²±°ßÜßþßÜß    ßÜß ²± Ý  ßßßÜ" + CHR$(13) + CHR$(10)
  a$ = a$ + "Û²±°Û²±°Û²±Þ° þ  Û²²°²± Û²±Þ° Û²°Ý   Þ²±" + CHR$(13) + CHR$(10)
  a$ = a$ + "Û²±°ÝÞÛ²±°ÞÛ²Ýþ  ° Ý   ÛÛ²²Ü  Û±°ÞÛ²Ýþ  ° Ý Û²°Ý   ÞÛ±" + CHR$(13) + CHR$(10)
  a$ = a$ + "ÞÛ²²± ÛÛ²²±Ý ß²±ÜÜ° ß  ÜÛÛÛÛ²² Û±±ß²±ÜÜ° ß  ÛÛ±Ý   ÞÛ²" + CHR$(13) + CHR$(10)
  a$ = a$ + "ÜÛÛÛ²²° Ü   ÜÛÛÛÛ²±°Ü M O t i O N  a N S i  G R a p h i C S ' 9 5" + CHR$(13) + CHR$(10)
  END IF

IF a = 2 THEN
  a$ = "±   þ Üß ÜÜß ± ßÜßÜÜÜÜßÜ°ß ÜÞÝÜÜ ²Üܲ±ÛÜ "
  a$ = a$ + "ßß þ ÜÛß  ±   ±   ۲ݰ Ûßß²± Ü ß°    Üß Üܲ°ÛÜ Ü²²Ü Üܲ"
  a$ = a$ + "°²ÛÜ ÜÜ   ²° °²±±ÜÜ ßÜÞ ßÜ  ² °  °Þ²Ý± Ü"
  a$ = a$ + "°°Ü ²Ûß  þ  ±ßÛ ²ß°²°°²°Û²°ÛÛ"
  a$ = a$ + "±ÛÛ²ÛßÜ ÜÛ ²Ü°²±ß±Þ° ±²ß²ßßßß  ÜÝ"
  a$ = a$ + "²ßþÛßßÜÞ± ± ²Û²°ßÜß ݲÜß ±ÜÞ²  ßܲÞ²Û±Û"
  a$ = a$ + "°ß ß±Û°Û±ßܲÝÞ Ü²°±²²°Ýþ Þ"
  a$ = a$ + "±±°± ÜܲÜ±ß ± ²Ü°²±²Þ Û°°°"
  a$ = a$ + "² ²ݱ±Ý ²° ßÝ ßÛÛ² Û²°±ÝßÞ°Û²ßÜ "
  a$ = a$ + "²±ÝÞ²±±ß Üß Ý² ²°ÝÞ Þßß²²ß  "
  a$ = a$ + "Ýܲ°±²²°ÝþÞÞ²±°Ýݱ ±ݱÛß ß°ܲ۱  "
  a$ = a$ + "Þ±Þ°Û°Þ  °²ßܲßÝÞ²Ý Þ²Ý²ÝÞ "
  a$ = a$ + "Û°ÝÞ ÜÜ  ÜÜ°ÝÞ²±±ß Üß Ý Û²²Û°Þ"
  a$ = a$ + "°²Þ °Üß  ݲ  ß Û±²Ý Û  ß±Þ ± ßÞ±±±±Ü ± Þ"
  a$ = a$ + "°ÝÝ Þ±²Ý  ß²°±²Þ²Ý"
  a$ = a$ + "²ÝÞ°±²°ÝÝÞÞ²±ÞÝ±Ý ° ²Ü Ü ±Þ²"
  a$ = a$ + "²²Ýß ±  °   Þ ±°°ÝÜ ßÛ²²±°ß þÝÞ"
  a$ = a$ + "±Ý±Û± ÝÞ°²ÝÞ ±±Ü ± Þ°ÝÞ°±²"
  a$ = a$ + "±² ÝÛ°Þ ²ÛÜ Ü ±  ÝßÛ²²±Û°ݲÞÝ"
  a$ = a$ + "Þ°²°ß Ü Üß±ßÜÛß Ü²²ÝÞß² ܲ"
  a$ = a$ + "±±²þÜßÛ²²±°ß Þ²°°ÝÜ  ²ÞÝÝ Ü ± °"
  a$ = a$ + " °ÛÜ ²Û°Û°ÝÞÛß ß  ² ²°² Üß ² ÛÜß Üܲ±Û"
  a$ = a$ + "²Ý°Ý ÛÜß²°ÝÞÛ±Ü ß±ßÜß Û°°²ß  ß²ÞÝ "
  a$ = a$ + "±þÞ°°  ±Þßݱ ß²ÛÛ Û þ   ±Þß ±ÞÝ  ±  Û Ü ²ßÛ°°²"
  a$ = a$ + "± ß Ý±ß°±   ±Üß² Þ²°ß± þ  ÞÞ ݲ Þ²þ ܲ ²²Ü²Ü "
  a$ = a$ + "ß²ÝÞ²    ° ßÝ°Þ   °  Ý  ݱ Üß²ÛÜß þ  °þßÝ"
  a$ = a$ + "°   °   ÜÛßÜÛÜ Ü ²ÞÜß þ ݱ F1-ÝÁÂÞ   F2-ÝÃÄÞ   "
  a$ = a$ + "F3-ÝÅÆÞ   F4-ÝÇÈÞ   F5-ÝÉÊÞ   F6-ÝËÌÞ   "
  a$ = a$ + "F7-ÝÐÒÞ   F8-ÝÑÒÞÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß"
  a$ = a$ + "ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß±² ú  Ûhd-wc             Û"
  a$ = a$ + "                                                    ú ²±ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ"
  a$ = a$ + "ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ°°° Delay:°"
  a$ = a$ + "±±± Size:±²²² Mask:²ÛÛÛ G"
  a$ = a$ + "rafix:Û²²²ScrollBack:²±ÜÜÜÜÜÜÜÜÜÜÜÜÜÜ"
  a$ = a$ + "Ü ±ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ"
  END IF

StorAnsis$ = a$
END FUNCTION