Perpetual Motion solutions

Perpetual Motion was solved using Pascal by 3 contestants. Solution sizes: average 3064 bytes (shortest: 1674; longest: 3756).