Up and Down solutions

Up and Down was solved using Pascal by 4 contestants. Solution sizes: average 1525 bytes (shortest: 1032; longest: 2055).