The MGC

[Dr_Davenstein]

1 line of text... :lol:

Code:

'Compile with -s gui ;)
#Include "fbgfx.bi"

Option Explicit
ScreenRes 24,8
Randomize Timer
Dim As Integer Win_Col, c_Col, Last_Key
Dim As String In

Win_Col = Int(Rnd*255)

Do
    c_Col=(c_Col+1) MOD 255
    Locate 1,1
    Print Ltrim$(Str$(c_Col))
    
    If Multikey(Sc_Space) Then
        If Last_Key<>Sc_Space Then
            Last_Key = Sc_Space
            If c_Col = Win_Col Then
                Beep
                Exit do
            End If
        End If
    Else
        Last_Key = -1
    End If
Loop Until  Multikey(Sc_Escape)