Listing of file='31 ' on disk='vmedia/glbr_22.wvd.zip'
# Sector 257, program filename = '31' 0005 PRINT "***GREATEST COMMON DIVISOR OF TWO INTEGERS***" 0010 PRINT 0100 PRINT "INPUT 'INTEGER,INTEGER'. TO END PROGRAM INPUT '0,0'" 0110 INPUT A,B 0115 IF A=0 THEN 999 0120 PRINT 0130 C=ABS(A) 0140 D=ABS(B) 0150 R=C-D*INT(C/D) 0160 IF R=0 THEN 200 0170 C=D 0180 D=R 0190 GOTO 150 0200 PRINT "G.C.D.=";D 0210 PRINT 0220 PRINT "INPUT 'INTEGER,INTEGER'" 0230 GOTO 110 0999 END