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

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

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

cls
x:=length(name)
c:=(80-x) div 2
locate (10,c)
put name

x:=length(address)
c:=(80-x) div 2
locate (11,c)
put address

x:=length(city)
c:=(80-x) div 2
locate (12,c)
put city

x:=length(code)
c:=(80-x) div 2
locate (13,c)
put code