Upside-Down Big Text

[SierraKen]

I removed the loop, just in case having too many SCREEN _NEWIMAGE lines take up too much computer memory.  
So here is a much cleaner version: 

Code: (Select All)

start:

Input "Word to make upside-down (up to 13 letters, symbols, or numbers: ", word$

If Len(word$) > 13 Then GoTo start

Screen _NewImage(800, 600, 32)

Locate 1, 32

Color 1

Print word$

letters = Len(word$)

ll = (letters * 8) - 2

cent = (_Width / 2)

For I = 248 To 248 + ll Step .15

    jj = 0

    For j = 15 To 0 Step -.15

        jj = jj + .15

        If Point(I, j) > 0 Then

            Line ((I - 196) * 4, jj * 4 + 50)-((I - 196) * 4 + 2, jj * 4 + 52), _RGB32(0, 0, 0), BF

        Else

            PSet ((I - 196) * 4, jj * 4 + 50), _RGB32(255, 255, 255)

        End If

    Next j

    jj = 0

Next I

Sleep