\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=Simon
\FILE=SIMON.85P
:ClLCD
:Outpt(7,6,"Skill Level")
:Menu(1,"FUN",A,2,"EASY",B,3,"MEDM",C,4,"HARD",D,5,"WIZRD",E)
:Lbl A
:8\->\Z
:Goto ST
:Lbl B
:12\->\Z
:Goto ST
:Lbl C
:20\->\Z
:Goto ST
:Lbl D
:31\->\Z
:Goto ST
:Lbl E
:50\->\Z
:Lbl ST
:ClLCD
:60\->\SP
:Z\->\dimL SIMN
:For(X,1,Z)
:int (4*(rand))+24\->\Y
:If Y==27
:34\->\Y
:Y\->\SIMN(X)
:End
:1\->\C
:Lbl CC
:For(D,1,C)
:ClLCD
:If SIMN(D)==24
:Then
:Outpt(4,7,"###")
:Outpt(8,1,"Yellow.")
:End
:If SIMN(D)==25
:Then
:Outpt(3,10,"###")
:Outpt(8,8,"Green.")
:End
:If SIMN(D)==26
:Then
:Outpt(4,13,"###")
:Outpt(8,18,"Red.")
:End
:If SIMN(D)==34
:Then
:Outpt(5,10,"###")
:Outpt(8,13,"Blue.")
:End
:If D==6
:47\->\SP
:If D==10
:34\->\SP
:If D==14
:21\->\SP
:For(T,1,SP)
:log 25\->\TM
:End
:End
:ClLCD
:For(T,1,20)
:log 25\->\TM
:End
:1\->\D
:Lbl BB
:0\->\TT
:Lbl AA
:getKy\->\Q
:If Q\<>\0
:Goto FX
:IS>(TT,125)
:Goto AA
:Lbl FX
:ClLCD
:If Q\<>\SIMN(D)
:Goto OOPS
:If SIMN(D)==24
:Then
:Outpt(4,7,"###")
:Outpt(8,1,"Yellow.")
:End
:If SIMN(D)==25
:Then
:Outpt(3,10,"###")
:Outpt(8,8,"Green.")
:End
:If SIMN(D)==26
:Then
:Outpt(4,13,"###")
:Outpt(8,18,"Red.")
:End
:If SIMN(D)==34
:Then
:Outpt(5,10,"###")
:Outpt(8,13,"Blue.")
:End
:IS>(D,C)
:Goto BB
:For(T,1,100)
:log 25\->\TM
:End
:IS>(C,Z)
:Goto CC
:ClLCD
:Disp "WINNER!"
:Stop
:Lbl OOPS
:Disp "BUZZZZ..."
:Disp "YOU WERE ON THE"
:If C==1
:Outpt(2,18,"st")
:If C==2
:Outpt(2,18,"nd")
:If C==3
:Outpt(2,18,"rd")
:If (C>3 and C<10)
:Outpt(2,18,"th")
:If C\>=\10 and C\<=\20
:Outpt(2,19,"th")
:If (mod(C,10)==1 and C>20)
:Outpt(2,19,"st")
:If (mod(C,10)==2 and C>20)
:Outpt(2,19,"nd")
:If (mod(C,10)==3 and C>20)
:Outpt(2,19,"rd")
:If (mod(C,10)\>=\4 and mod(C,10)\<=\9 and C>20) or (mod(C,10)==0 and C\#\
>20
:Outpt(2,19,"th")
:Disp "TIME."
:Outpt(2,17,C)
:Stop
\STOP85\