An even better Pete.BAS!

[SMcNeill]

Pete posted his glorious Pete.BAS example over here: https://staging.qb64phoenix.com/showthre...1#pid11971

So... I had to one up it!  Here's the new and improved "Steve(tm) Improved Pete.BAS"

Code: (Select All)

Screen Pete
_Title "Steve(tm) Improved Pete.BAS"

Randomize Timer
If Play(0) = 0 Then
    Play "MBMNT210O3L4EEEP4EEEP4EGCDL1EL4FFFFFEEL8EEL4EDDEL2DL4G"
    Play "P4O3L4EEEP4EEEP4EGCDL1EL4FFFFFEEL8EEL4GGFDL4CL1"


    Play "MBMNT200O3L4CFL8FGFEL4DDDGL8GAGF"
    Play "L4ECCAL8AB-AGL4FDL8CCL4DGEL2F"
    Play "L4CFFFL2EL4EFEDL2CL4CAGF"
    Play "O4L4CO3L4CL8CCL4DGEL2F"
    Play "L4CFL8FGFEL4DDDGL8GAGFL4ECCAL8AB-AG"
    Play "L4FDL8CCL4DGEL2F "
End If
Do

    PlotChar "Xmas Pete"
    _Limit 15
    _Display
Loop Until _KeyHit
System


Sub PlotChar (text$)
    Static tempScreen
    If tempScreen = 0 Then tempScreen = _NewImage(8000, 100, 32)
    d = _Dest: s = _Source
    _Dest tempScreen
    Cls , 0
    Color , 0
    Print text$;
    _Source tempScreen
    _Dest d
    For i = 0 To Len(text$) - 1
        a$ = Mid$(text$, i + 1, 1)
        For y = 0 To 16
            For x = 0 To 8
                Color Int(Rnd * 16) + 16, Int(Rnd * 8)
                Locate y + 5, i * 8 + x + 4
                If Point(x + i * 8, y) Then Print a$;
            Next
        Next
    Next
    _Source s
End Sub