Listing of file='35B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 913, program filename = '35B' 0010 PRINT 0020 PRINT "CONCENTRATION (LOW STANDARD)?" 0030 INPUT C1 0040 PRINT "CONCENTRATION (HIGH STANDARD)?" 0050 INPUT C2 0060 PRINT "PERCENTAGE (LOW STANDARD)?" 0070 INPUT A1 0080 PRINT "PERCENTAGE (HIGH STANDARD)?" 0090 INPUT A2 0100 PRINT 0110 PRINT "PERCENTAGE (UNKNOWN)? TO END PROGRAM INPUT 0." 0120 INPUT A 0125 IF A=0 THEN 180 0130 C=(C2-C1)*LOG((100-A1)/(100-A))/LOG((100-A1)/(100-A2))+C1 0140 PRINT "CONCENTRATION=";C 0150 PRINT 0160 PRINT "PERCENTAGE (UNKNOWN)?" 0170 GOTO 120 0180 END