width var word
trial_pause var byte

trial_pause = 20
'out7 = 0
move_servo:
	for width = 0 to 65535 step 10
		for trial_pause = 1 to 5
			pulsout 7, width
			pause 20
			debug dec ? width
		next
	next

    Source: geocities.com/siliconvalley/foothills/4312/html/BasicStamp

               ( geocities.com/siliconvalley/foothills/4312/html)                   ( geocities.com/siliconvalley/foothills/4312)                   ( geocities.com/siliconvalley/foothills)                   ( geocities.com/siliconvalley)