Listing of file='LOGANT.BAS;01' on disk='vmedia/modified_utilities-sector.ccvf'
10 PLOT 12,14:REM LOGANT LOG-ANTILOG CALC. 20 PRINT :PRINT :PRINT TAB( 15)"LOG OR ANTILOG CONVERSIONS" 30 PRINT TAB( 15)"__________________________" 40 PRINT :PLOT 15 50 PRINT " TO FIND LOG OF A NUMBER, ENTER 1 -" 60 INPUT " AND TO CONVERT LOG. BACK TO NUMBER, ENTER 2 -";K 70 PRINT :K= INT (K):IF K< 1OR K> 2THEN 50 80 ON KGOTO 150,250 150 INPUT " ENTER BASE OF LOG = ";B$ 160 PRINT :INPUT " ENTER NUMBER FOR WHICH LOG. IS REQUIRED = ";X 165 IF B$= "E"THEN 175 170 L= (LOG (X)/ LOG (VAL (B$))):GOTO 180 175 L= LOG (X) 180 PRINT :PRINT " --- LOG OF ";X;" TO BASE ";B$;" IS," 190 PRINT :PRINT TAB( 32)"= ";L 200 GOTO 290 210 GOTO 10 250 INPUT " ENTER BASE OF LOG = ";A$ 260 PRINT :INPUT " ENTER LOG TO BE CONVERTED TO NUMBER = ";Z 265 IF A$= "E"THEN 270 268 V= EXP (Z* LOG (VAL (A$))):PRINT :GOTO 280 270 PRINT :V= EXP (Z* LOG (2.71828)) 280 PRINT " --- CONVERSION OF LOG ";Z;" USING BASE ";A$;"," 285 PRINT :PRINT TAB( 32)"= ";V 290 PRINT :INPUT " ENTER 1 TO REPEAT, 2 FOR MENU, - ";T 300 T= INT (T):IF T< 1OR T> 2THEN 290 310 ON TGOTO 10,320 320 PLOT 1 330 END 350 END