Smallish Games

[bplus]

Simple Simon

Very Simple Simon

Code: (Select All)

_Title "Simple Simon" 'b+ 2021-06-27
Randomize Timer
While 1
    b$ = b$ + _Trim$(Str$(Int(Rnd * 4) + 1))
    For i = 1 To Len(b$)
        Cls
        Print Space$(i - 1); Mid$(b$, i, 1)
        _Delay 1
    Next
    Cls
    Print "Simon says repeat all that:"
    For i = 1 To Len(b$)
        k$ = Input$(1) ' < Dav mod to save 3 lines to poll key from Inkey$
        Print k$;
        If k$ <> Mid$(b$, i, 1) Then
            Beep
            Print
            Print b$
            Exit While
        End If
    Next
Wend

When game first starts watch for 1st number to flash quickly in top right corner. In place of 4 colors I used for digits 1-4.