!macro wurzel Q,W { !set .M = Q !set .R = 0 !set .D = 128 !do while .D >= 1 { !set .T = .D * (2 * .R + .D) !if (.T <= .M) { !set .M = .M - .T !set .R = .R + .D } !set .D = .D / 2 } !set W = .R }