<<<--- % Author M.Ruckert LOC #100 GREG @ U OCTA 1000 V OCTA 30 Main LDO $1,U LDO $2,V PUSHJ $0,gcd TRAP 0,Halt,0 --->>> u IS $0 Parameter v IS $1 tmp IS $2 Local variable Loop DIVU tmp,u,v SET u,v $u\is v$ GET v,rR $v\is u\bmod v$ gcd PBNZ u,Loop POP 1,0 Done if $u=0$.