14 lines
354 B
Text
14 lines
354 B
Text
|
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
|