% Mr. M
% December 13, 2000
% Center name, address, city, etc. using procedure

var name,address,city,code:string
var x,c:int

procedure calc(s:string)
  x:=length(s)
  c:=(80-x) div 2
end calc

put "Enter name: "..
get name
put "Enter address: "..
get address
put "Enter city: "..
get city
put "Enter postal code: "..
get code

cls
calc(name)
locate (10,c)
put name

calc(address)
locate (11,c)
put address

calc(city)
locate (12,c)
put city

calc(code)
locate (13,c)
put code