10 '20NZ^[wIIB
100 INPUT "x=";X
110 INPUT "y=";Y
120 IF X<Y THEN
130    LET Z=X
140    LET X=Y
150    LET Y=Z
160 END IF
165 LET T=X*Y
170 IF Y=0 THEN
180    PRINT T/X
190    GOTO 270
200 END IF
210 LET R=X
220 LET R=R-Y
230 IF R>=Y THEN GOTO 220
240 LET X=Y
250 LET Y=R
260 GOTO 170
270 END
