DECLARE SUB bigletter (Word$, Size%, Clr%, Style%, Position%)
COLOR 13, 8
1 CLS
SCREEN 12

FOR h = 1 TO 3
IF h = 3 GOTO qasw
   COLOR 7
FOR X = 1 TO 500
c = INT(RND * 639) + 1
r = INT(RND * 479) + 1
t = .5
CIRCLE (c, r), t
NEXT X
COLOR 0
FOR X = 1 TO 500
c = INT(RND * 639) + 1
r = INT(RND * 479) + 1
t = 10
CIRCLE (c, r), t
NEXT X

NEXT h
qasw: COLOR 5
    FOR i% = 440 TO 1000 STEP 5

    NEXT i%


FOR s = 1 TO 11
PRINT
NEXT s

' (size, color, style, position)
' 1 solid 2 squares 3 slant\ 4 slant/ 5 vertical lines 6 horizontal lines
'7 crosses 8 Xs 9 outline 10 spider web 11 bubbles 12 circles 13 shadow
'14 separated squares 15 building 16 stars
bigletter "BurnSoft", 10, 4, 17, 50
bigletter "Inc.", 6, 1, 11, 170
bigletter "", 8, 1, 1, 250
bigletter "Presents", 8, 3, 12, 350
FOR d = 1 TO 5000
NEXT d
FOR X = 1 TO 50
IF INKEY$ <> "" THEN GOTO 2
NEXT X

SLEEP 1
CLS
bigletter "Big", 10, 14, 16, 50
bigletter "Pack", 10, 13, 14, 250
FOR X = 1 TO 50
IF INKEY$ <> "" THEN GOTO 2
NEXT X

SLEEP 1
CLS
bigletter "", 10, 2, 13, 50
bigletter "Of", 10, 2, 13, 150
FOR X = 1 TO 50
IF INKEY$ <> "" THEN GOTO 2
NEXT X

SLEEP 1
CLS
bigletter "Screen", 10, 2, 16, 50
bigletter "Savers", 10, 2, 3, 150
FOR X = 1 TO 50
IF INKEY$ <> "" THEN GOTO 2
NEXT X
SLEEP 1
GOTO 1
2

SUB bigletter (Word$, Size%, Clr%, Style%, Position%)
DEFINT A-Z
COLOR 15
   DIM Box(-1 TO 7, -1 TO 15)
   Wordlength = LEN(Word$) * Size * 8
   WordHeight = Size * 16
   WordCenter = 320 - (Wordlength / 2)
   PALETTE 15, 0
   FOR Letter = 1 TO LEN(Word$)
     LOCATE 1, 1
     PRINT MID$(Word$, Letter, 1)
     FOR X = 0 TO 7
       FOR y = 0 TO 15
        Box(X, y) = POINT(X, y)
       NEXT y
     NEXT X
     FOR X = 0 TO 7
       Left = WordCenter + (X * Size)
       Right = Left + Size
       lr = (Left + Right) \ 2
       FOR y = 0 TO 15
         Up = Position + (y * Size)
         Down = Up + Size
         UD = (Up + Down) \ 2
         IF Box(X, y) THEN
           SELECT CASE Style
              CASE 1
                'solid
                LINE (Left, Up)-(Right, Down), Clr, BF
              CASE 2
                'squares
                 LINE (Left, Up)-(Right, Down), Clr, B
              CASE 3
                'slant (\)
                 LINE (Left, Up)-(Right, Down), Clr
              CASE 4
                'slant (/)
                LINE (Right, Up)-(Left, Down), Clr
              CASE 5
                'Vertical Lines
                LINE (lr, Up)-(lr, Down), Clr
              CASE 6
                'Horizontal Lines
                LINE (Left, UD)-(Right, UD), Clr
              CASE 7
                'Crosses
                LINE (lr, Up)-(lr, Down), Clr
                LINE (Left, UD)-(Right, UD), Clr
              CASE 8
                'X's
                 LINE (Left, Up)-(Right, Down), Clr
                 LINE (Right, Up)-(Left, Down), Clr
              CASE 9
                'outline
                IF Box(X - 1, y) = 0 THEN LINE (Left, Up)-(Left, Down), Clr
                IF Box(X + 1, y) = 0 THEN LINE (Right, Up)-(Right, Down), Clr
                IF Box(X, y - 1) = 0 THEN LINE (Left, Up)-(Right, Up), Clr
                IF Box(X, y + 1) = 0 THEN LINE (Left, Down)-(Right, Down), Clr
              CASE 10
               'Spider Web
                IF Box(X - 1, y) = 0 THEN LINE (lr, UD)-(Left, UD), Clr
                IF Box(X + 1, y) = 0 THEN LINE (lr, UD)-(Right, UD), Clr
                IF Box(X, y - 1) = 0 THEN LINE (lr, UD)-(lr, Up), Clr
                IF Box(X, y + 1) = 0 THEN LINE (lr, UD)-(lr, Down), Clr
                IF Box(X - 1, y - 1) = 0 THEN LINE (lr, UD)-(Left, Up), Clr
                IF Box(X + 1, y - 1) = 0 THEN LINE (lr, UD)-(Right, Up), Clr
                IF Box(X - 1, y + 1) = 0 THEN LINE (lr, UD)-(Left, Down), Clr
                IF Box(X + 1, y + 1) = 0 THEN LINE (lr, UD)-(Right, Down), Clr
              CASE 11
                'Bubbles
                CIRCLE (lr, UD), Size \ 2, Clr
              CASE 12
                'Circles
                CIRCLE (lr, UD), Size \ 2, Clr
                PAINT STEP(0, 0), Clr
              CASE 13
                'Shadow
                IF Box(X + 1, y) = 0 THEN LINE (Right, Up)-(Right, Down), Clr
                IF Box(X, y + 1) = 0 THEN LINE (Left, Down)-(Right, Down), Clr
                IF Box(X + 1, y + 1) = 0 THEN PSET (Right, Down), Clr
              CASE 14
                'Seperated squares
                LINE (Left + 1, Up + 1)-(Right - 1, Down - 1), Clr, BF
              CASE 15
                'building
                LINE (Left, Down)-(lr, Up), Clr
                LINE STEP(0, 0)-(Right, Down), Clr
                LINE STEP(0, 0)-(Left, Down), Clr
                LINE (Left, Up)-(Right, Up), Clr
              CASE 16
                'STARS
                LINE (lr, Up)-(lr, Down), Clr
                LINE (Left, UD)-(Right, UD), Clr
                LINE (Left, Up)-(Right, Down), Clr
                LINE (Right, Up)-(Left, Down), Clr
              CASE 17
                'Shodowed Square
                LINE (lr, Down)-(lr, Up), Clr
                LINE (Left, Down)-(lr, Down), Clr
              CASE 18
                LINE (lr, Up)-(lr, Down), Clr
                LINE (Left, Down)-(lr, Down), Clr
                LINE (Left, Up)-(Right, Up), Clr
                LINE (Up, Down)-(Up, Down), Clr
                LINE (Up, Up)-(Up, Down), Clr
              END SELECT
           END IF
         NEXT y
       NEXT X
     WordCenter = WordCenter + (Size * 8)
   NEXT Letter
   LOCATE 1, 1
   PRINT " "
   PALETTE
END SUB