Calendar: Difference between revisions

Content added Content deleted
Line 9,573: Line 9,573:


function center (s,n) x=n-len(s):center=space(x\2+(x and 1))& s & space(x\2):end function
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
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
function iif(a,b,c) :if a then iif=b else iif =c end if : end function




sub docal (yr,nmonth,sloc)
sub docal (yr,nmonth,sloc)
Line 9,647: Line 9,643:
print string(ncols,"=")
print string(ncols,"=")
end sub
end sub



</lang>
</lang>
output
output