Calendar: Difference between revisions

 

function center (s,n) x=n-len(s):center=space(x\2+(x and 1))& s & space(x\2):end function

sub print(x) wscript.stdout.writeline x : end sub

function iif(a,b,c) :if a then iif=b else iif =c end if : end function

 

sub docal (yr,nmonth,sloc)

print string(ncols,"=")

end sub

</lang>

output