%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:727
File Name:CASINOID
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 0
\Cls
\AxesOff
\ViewWindow 1,127,1,1,63,1
0\->D
\Lbl 4
55\->A:57\->B:54\->C:4\->E:\(-)4\->F
\Plot 33,1
\Plot 33,30
\Line
\Plot 90,30
\Line
\Plot 90,1
\Line
\For 33\->Z \To 90 \Step 3
\Int 10\Ran#+20\->Y
\PlotOn Z,Y
\Next 
\Text 58,54,"--"
\Text 5,39,"\asterCASINOID\aster"
\Text 15,46,"SCORE="
\Text 15,70,D
\Text 55,57,"."
\Lbl 1
E>0\=>D+E\->D
E<0\=>D-E\->D
\Getkey=58\=>\Goto2
\Getkey=31\=>\Goto3
\Getkey=78\=>E-3\->E
\Getkey=68\=>E+3\->E
\If \Getkey=38\ And C>35
\Then \Text 58,C,"   "
C-5\->C
\Text 58,C,"--"
\IfEnd
\If \Getkey=27\ And C<77
\Then \Text 58,C,"   "
C+5\->C
\Text 58,C,"--"
\IfEnd
\Text A,B," "
A+F\->A:B+E\->B
\Text A,B,"."
B+E>86\=>\(-)E\->E
B+E<32\=>\(-)E\->E
A-4<28\=>4\->F
\If A+4>55\ And B\>=C-2\ And B\<=C+8
\Then D+15\->D
\Text 15,70,D
\(-)4\->F
\IfEnd
\If A+4>55\ And B<C-2\ Or A+4>55\ And B>C+8
\Then \ClrText
"SCORE="
"HIGHSCORE="
D*10\->D
\Locate 7,1,D
(\Det \Mat Q)\->A
\Locate 11,2,A\Disp\If D>A
\Then \Locate 5,5,"NEW HIGHSCORE!"
[[D]]\->\Mat Q
\Locate 11,2,D\Disp\Goto0
\IfEnd
\IfEnd
\Goto1
\Lbl 2
\Text A,B," "
\Text 58,C,"   "
\Text 50,55,"      "
\Goto4
\Lbl 3
\Text 50,55,"PAUSED"
\While \Getkey\<>48
\WhileEnd
\Text 50,55,"      "
\Goto1
%End
%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