30 lines
No EOL
636 B
Text
30 lines
No EOL
636 B
Text
Filename:MATRIX
|
|
"ARE YOU SURE THIS LINE IS SECURE?OF COURSE.TRUST ME...YOU KNOW,MORPHEUS THINKS HE'S THE ONE.WHAT DO YOU THINK?I DON'T KNOW.SHIT,WHO'S THAT?GOTTA RUN..."
|
|
Lbl 1
|
|
0->A~Z
|
|
Int (Ran#*7)+1->Y
|
|
Int (Ran#*21)+1->X
|
|
Int (Ran#*7)+1->R
|
|
Int (Ran#*10)+1->Q
|
|
Do
|
|
Y+1->Y
|
|
If Y>R
|
|
Then Int (Ran#*7)+1->Y
|
|
Int (Ran#*21)+1->X
|
|
Int (Ran#*7)+1->R
|
|
IfEnd
|
|
Int (Ran#*10)->A
|
|
Locate X,Y,A
|
|
L+1->L
|
|
LpWhile L<Q
|
|
Int (Ran#*7)+1->B
|
|
Int (Ran#*7)+1->C
|
|
Int (Ran#*7)+1->D
|
|
Locate 1,B," "
|
|
Locate 1,D," "
|
|
Locate 1,C," "
|
|
Int (Ran#*50)+1->G
|
|
If G=50
|
|
Then Prog "MTRXCLR"
|
|
IfEnd
|
|
Goto 1 |