%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:709
File Name:SIMONSAY
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 3
\ClrText
\Locate 5,1,"SIMON SAYS"
\Locate 6,2,"LEVEL="
\Locate 3,4,"\(-)\(-)\(-) \(-)\(-)\(-) \(-)\(-)\(-) \(-)\(-)\(-)"
\Locate 3,5,"\(-) \(-) \(-) \(-) \(-) \(-) \(-) \(-)"
\Locate 3,6,"\(-)\(-)\(-) \(-)\(-)\(-) \(-)\(-)\(-) \(-)\(-)\(-)"
\Locate 3,7,"F2  F3  F4  F5"
0\->A
\Lbl 1
\Isz A
\Locate 12,2,A
\Locate 7,3,"\asterWAIT\aster"
\Int 4\Ran#\->B
B\->\Mat V[1,A]
\For 1\->D \To A
\Mat V[1,D]\->C
C=0\=>\Locate 4,5,"#"
C=1\=>\Locate 8,5,"#"
C=2\=>\Locate 12,5,"#"
C=3\=>\Locate 16,5,"#"
0\->E:\While E<45
\Isz E
\WhileEnd
C=0\=>\Locate 4,5," "
C=1\=>\Locate 8,5," "
C=2\=>\Locate 12,5," "
C=3\=>\Locate 16,5," "
\Next 
\Locate 7,3,"  GO  "
\For 1\->F \To A
0\->E
\While E=0
\Getkey\->E
\WhileEnd
E=69\=>0\->E
E=59\=>1\->E
E=49\=>2\->E
E=39\=>3\->E
E\->\Mat U[1,F]
\Mat V[1,F]\->G
E\<>G\=>\Goto2
E=0\=>\Locate 4,5,"#"
E=1\=>\Locate 8,5,"#"
E=2\=>\Locate 12,5,"#"
E=3\=>\Locate 16,5,"#"
\While H<65
\Isz H
\WhileEnd
E=0\=>\Locate 4,5," "
E=1\=>\Locate 8,5," "
E=2\=>\Locate 12,5," "
E=3\=>\Locate 16,5," "
\Next 
\Goto1
\Lbl 2
\ClrText
"GAME OVER"
"HIGHLEVEL="
"LEVEL="
\Locate 7,3,A
(\Det \Mat N)\->B
\Locate 11,2,B\Disp\If A>B
\Then [[A]]\->\Mat N
\Locate 11,2,A
\Locate 5,5,"NEW HIGHLEVEL!"\Disp\IfEnd
\Goto3
%End