Let me know if there is anyway to make it take up less space!
ClrHome
{0}->LSIMON
50->dim(LSIMON
Output(1,4,"SIMON SAYS
Output(3,4,"F1=1, F2=2
Output(5,4,"F3=3, F4=4
Output(8,2,"By: TheCubist
Pause
Lbl 3
ClrHome
For(E,1,50
RandInt(1,4)->A
A->LSIMON(E
End
For(Z,1,50
For(B,1,Z
LSIMON(B)->A
If A=1
Output(2,4,A
If A=2
Output(2,12,A
If A=3
Output(6,4,A
If A=4
Output(6,12,A
For(J,1,200
End:ClrHome
For(J,1,50
End:End
For(B,1,Z
Repeat sum(K={11,12,13,14,45
getKey->K
End
If K=45
Goto A
LSIMON(B)+10->A
If K=\=A:Then
ClrHome
Disp "YOUR SCORE:
Output(3,2,Z
Pause
Goto 3
End:End
For(J,1,50
End:End
ClrHome
Disp "YOU WIN!
Pause
Goto 3
Lbl A
DelVar LSIMON
ClrHome
Currently 395 bytes. How low can we get it?