15 lines
191 B
Text
15 lines
191 B
Text
include ..\Utilitys.pmt
|
|
|
|
( "abc" "ABC" "123" )
|
|
|
|
len var dim1
|
|
1 get len var dim2 drop
|
|
|
|
dim1 for
|
|
var i
|
|
dim2 for
|
|
var j
|
|
( j i ) sget tochar print
|
|
endfor
|
|
nl
|
|
endfor
|