DEFINT A-Z

DECLARE SUB Shadow (A$, Xc%, Yc%, Col%, Col2%)

DECLARE SUB Text (A$, Xc, Yc, Col)

DIM SHARED Ascii%(1023), Power%(7)

Power%(7) = 1

FOR X = 6 TO 0 STEP -1

 Power%(X) = 2 * Power%(X + 1)

NEXT X

DEF SEG = &HFFA6

FOR X = 14 TO 1037

 Ascii%(X - 14) = PEEK(X)

NEXT X

SCREEN 13: CLS

LINE (5, 4)-(236, 22), 9, BF

Text "Is this awesome, or what?", 5, 5, 12

Shadow "Shadowed text is da bomb!", 14, 14, 15, 13

SLEEP

END



SUB Shadow (A$, Xc, Yc, Col, Col2)

Text A$, Xc - 1, Yc + 1, Col2

Text A$, Xc, Yc, Col

END SUB



SUB Text (A$, Xc, Yc, Col)

DIM Bitmap%(7)

DEF SEG = &HF000

FOR Str = 1 TO LEN(A$)

 FOR Byte = 0 TO 7

  Bitmap%(Byte) = Ascii%((ASC(MID$(A$, Str, 1)) * 8) + Byte)

 NEXT Byte

 FOR Y = 0 TO 7

  FOR X = 0 TO 7

   IF (Bitmap%(Y) AND Power%(X)) THEN PSET (Xc + X, Yc + Y), Col

  NEXT X

 NEXT Y

 Xc = Xc + 9

NEXT Str

END SUB