Listing of file='NTHROO.BAS;01' on disk='vmedia/modified_utilities-sector.ccvf'
10 PLOT 12,14:REM NTHROO CALCULATES ANY ROOT 20 PRINT :PRINT :PRINT TAB( 20)"NTH ROOT CALCULATOR" 30 PRINT TAB( 20)"___________________":PLOT 15 40 PRINT :INPUT " NUMBER, OF WHICH THE ROOT IS REQUIRED = ";N 50 PRINT :INPUT " NUMBER OF ROOT TO BE CALCULATED =";R 60 PRINT :X= EXP (LOG (N)/ R) 70 PRINT " THE ROOT OF ";N;" TO THE POWER OF ";R;"," 80 PRINT :PRINT TAB( 32)"= ";X 90 PRINT :INPUT " PRESS RETURN TO REPEAT, ENTER M FOR MENU ";P$ 100 IF P$= "M"THEN 130 120 GOTO 10 130 PLOT 1 140 END