array.load data$[],"!Portrait Grid","","fn.def x(a)","  gr.screen w,h","  fn.rtn w/х*a","fn.end","","fn.def y(a)","  gr.screen w,h","  fn.rtn h/у*a","fn.end","","","fn.def xc()","  gr.screen w,h","  fn.rtn w/2","fn.end","","","fn.def yc()","  gr.screen w,h","  fn.rtn h/2","fn.end","","fn.def sw()","  gr.screen w,h","  fn.rtn w","fn.end","","fn.def sh()","  gr.screen w,h","  fn.rtn h","fn.end","","! Не пyтать координаты x,y и  длины w,h","","fn.def w(a)","  gr.screen w,h","  fn.rtn (w/х)*a","fn.end","","fn.def h(a)","  gr.screen w,h","  fn.rtn (w/х)*a","fn.end","","fn.def grt_text(x,y,s$)","  gr.text.align 2","  gr.text.size h(0.5)","  gr.text.draw t,x,y+h(0.1775),s$","fn.end","","fn.def grid()","  gr.screen sw,sh","  for i=1 to у","    gr.set.stroke 2","    gr.color 255,255,255,255,0","    gr.line gln,0,y(i),sw,y(i)","    gr.line vln,x(i),0,x(i),sh","    grt_text(x(i-0.5),y(0.5),int$(i))","    grt_text(x(0.5),y(i-0.5),int$(i))","    gr.set.stroke 1","    gr.color 255,0,0,0,1","    gr.line gln,0,y(i),sw,y(i)","    gr.line vln,x(i),0,x(i),sh","    grt_text(x(i-0.5),y(0.5),int$(i))","    grt_text(x(0.5),y(i-0.5),int$(i))","  next i","  gr.color 255,255,0,0,0","  gr.set.stroke 1","  gr.line gln,0,sh/2,sw,sh/2","  gr.line vln,sw/2,0,sw/2,sh","fn.end","","",""
width=3
height=5
File.mkdir "../source/T_Lib/"
for cicle=1 to 30
Array.length n, data$[]
TEXT.OPEN W, FN1, "../source/T_Lib/"+int$(width*cicle)+"x"+int$(height*cicle)
for i=1 to n
ln$=""
for j=1 to len(data$[i])
z$=mid$(data$[i],j,1)

if z$="х" then 
 ln$=ln$+int$(width*cicle)
elseif z$="у" then
 ln$=ln$+int$(height*cicle)
else
 ln$=ln$+z$
endif
next j
!print ln$
TEXT.WRITELN FN1, ln$
next i
TEXT.CLOSE FN1
print int$(cicle)+"). файл "+int$(width*cicle)+"x"+int$(height*cicle)+" сохранен."
next cicle
print "Программа завершена!"