Just a tiny and fun bit of code

[CharlieJV]

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

Mind?  Never.  Any BASIC program modded and ported to any and every BASIC implementation under the sun (especially QB64pe for the benefit of everybody here), that just tickles me silly.