Upside-Down Big Text

[SierraKen]

Convert up to 13 letters, symbols, or numbers into upside-down. 
Strange though how I couldn't use CLS instead of the second Screen NewImage at the bottom, or even after the INPUT line (if I put SCREEN before the DO). It just blacks out the screen for some reason with CLS without making the large text. 

Code removed because of possible too much memory used in loops. Fixed version is below.

[Jack002]

COOL!

[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