|
Post by bplus on Jun 27, 2021 15:24:45 GMT -5
_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$ = InKey$ While k$ = "" k$ = InKey$ Wend Print k$; If k$ <> Mid$(b$, i, 1) Then Beep Print Print b$ Exit While End If Next Wend
|
|