Just a tiny and fun bit of code

[Jack]

thanks CharlieJV  
I moded it a bit for QB64, I hope that you won't mind

Code: (Select All)

Dim As Long i, j, k, cl

Dim As String s

s = "QB64pe"

Screen 8, 0

Cls

Print s

For j = 0 To 7

    Locate 2 + j, 1

    For k = 0 To Len(s) * 8 - 1

        If Point(k, j) = 0 Then Print " "; Else Print "*";

    Next k

    Print

Next j

cl = CsrLin

Locate 1, 1

Print Space$(Len(s));

Locate cl, 1 'restore cursor position