Filename:MTRXCLR
Locate 1,1,"111111111111111111111"
Locate 1,2,"222222222222222222222"
Locate 1,3,"333333333333333333333"
Locate 1,4,"444444444444444444444"
Locate 1,5,"555555555555555555555"
Locate 1,6,"666666666666666666666"
Locate 1,7,"777777777777777777777"
0->L
Do
L+1->L
Int (Ran#*7)+1->Q
Locate 1,Q,"AREYOUSURETHISLINEISS"
LpWhile L<7