image of READY prompt

Wang2200.org

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