21 lines
340 B
Plaintext
21 lines
340 B
Plaintext
10 PRINT "First number"
|
|
20 INPUT A
|
|
30 PRINT "Second number"
|
|
40 INPUT B
|
|
42 LET Q = A
|
|
44 LET R = B
|
|
50 IF Q<0 THEN LET Q=-Q
|
|
60 IF R<0 THEN LET R=-R
|
|
70 IF Q>R THEN GOTO 130
|
|
80 LET R = R - Q
|
|
90 IF Q=0 THEN GOTO 110
|
|
100 GOTO 50
|
|
110 LET U = (A*B)/R
|
|
111 IF U < 0 THEN LET U = - U
|
|
112 PRINT U
|
|
120 END
|
|
130 LET C=Q
|
|
140 LET Q=R
|
|
150 LET R=C
|
|
160 GOTO 70
|