
sl0'daprt'cr4'cr4'uc2'm'a'g'i's'c'h'e' 'q'u'a'd'r'a't'e' 'f'u'e'r' 'n' 'k'l'e'i'n'e'r' 'lcl'l'0'cr4''
s20'daprt'uc2'n'>=<' ' 'lcl' ''
iread'n''
dim'a'82''
n';'a'//'0''
<>['<n'i+'l'>]<'i/'2';'j''
l';'i';'iks';'f';'g''
n'ix'n';'z''
n'i+'l';'y''
s30'0';'a'f'g''
for'f'step'l'until'n'rpeat's30''
l';'f''
for'g'step'l'until'n'rpeat's30''
s40'if'a'i'j'zero's4l''
use's70''
s4l'iks';'a'i'j''
iks'i+'l';'iks''
j';'ja''
i';'ia''
j'i+'l';'j''
i'i_'l';'i''
s42'if'i'zero's50''
s44'if'>['<j'i_'y'>]'<zero's60''
s46'if'>['<iks'i_'z'>]'<pos's80''
use's40''
s50'n';'i''
use's44''
s60'l';'j''
use's46''
s70'ia'i+'l';'i';'ia''
ja';'j''
use's42''
s80'daprt'cr4'cr4''
l';'i';'j''
s90'0600'iprt'a'i'j''
for'j'step'l'until'n'rpeat's90''
daprt'cr4'cr4''
l';'j''
for'i'step'l'until'n'rpeat's90''
daprt'cr4'cr4'uc2'd'i'e' 's'u'm'm'e' 'i's't' 'lcl''
>['<n'ix'n'ix'n'i+'n'>]'I?'*':'S''
)f))'IPRT'S''
DAPRT'CR^'CR^'CR^''
USE'S*)'''W