Compucolor.org – Virtual Media

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