Listing of file='FRAC.BAS;01' on disk='vmedia/chip_128-sector.ccvf'
190 PLOT 6,2,12 200 REM "FRAC"; DECIMAL-TO-FRACTION CONVERSION 210 REM 220 REM REFERENCE: PETER BICE, ELECTRONIC DESIGN #25, 230 REM DEC. 7, 1972 240 REM 250 REM COMPUCOLOR VERSION BY WALLACE R, RUST, JUNE 1985 260 REM 300 PRINT 310 PRINT " THIS PROGRAM CONVERTS YOUR DECIMAL NUMBER INTO A SERIES" 320 PRINT "OF SUCCESSIVELY FINER RATIONAL-FRACTION APPROXIMATIONS." 330 PRINT "THE PRONTOUT STOPS BEFORE NUMERATOR OR DEMOMINATOR EXCEED" 340 PRINT "SIX DIGITS. THE NUMBER YOU ENTER CAN BE POSITIVE OR NEGATIVE," 350 PRINT "WITH EIGHT OR MORE SIGNIFICANT DIGITS." 360 PRINT 370 PRINT " EXAMPLES: 3.1415926 -2.718281828 307.125 .0077" 380 REM 390 TL= 1E6:REM TERMINATOR LIMIT 400 REM 410 PRINT 420 INPUT "ENTER DECIMAL NUMBER: ";S 430 A1= 0:A2= 1:B1= 1:B2= 0 440 N= INT (S) 450 T= A2:A2= N* A2+ A1:A1= T 460 T= B2:B2= N* B2+ B1:B1= T 470 IF ABS (A2)> TLOR ABS (B2)> TLTHEN 400 500 PRINT A2;"/";B2; 510 PRINT TAB( 20);A2/ B2; 530 IF S= NTHEN PRINT " EXACT":GOTO 400 540 PRINT 600 S= 1/ (S- N) 610 GOTO 440 620 END