10 REM *********************** 20 REM 30 REM N U G G E T 40 REM ================== 50 REM 60 REM G. Gatfield 70 REM 1996 80 REM 90 REM *********************** 100 REM 110 REM 120 REM------------------------------ 130 REM A program for calculating 140 REM the actual GOLD content and 150 REM value of a Nugget or Specimen 160 REM The formula in line 480 is 170 REM adapted from that used by the 180 REM Geological Survey of W.A. 190 REM------------------------------ 200 REM G=Weight of GOLD 210 REM D=Density of GOLD/S.G. = 19.3 220 REM N=Weight of Nugget in Air 230 REM Q=Density of Quartz/S.G. 240 REM W=Weight of Nugget in Water 250 REM P=Price of GOLD in $/Troy Oz. 260 REM V=Value of GOLD in $/Troy Oz. 270 REM------------------------------ 280 CLS 290 PRINT TAB(10)"GOLD NUGGET WEIGHT & VALUE" 300 PRINT TAB(9)------------------------------" 310 PRINT 320 PRINT "To discover the actual GOLD content of a Nugget or Specimen'" 330 PRINT "Please enter your answers to the following questions." 340 PRINT "You will also have to estimate the density (Specific Gravity) of the" 350 PRINT "matrix rock. e.g. Quartz=2.6, Calcite=2.7, Pyrite=5.0, etc." 360 PRINT 370 INPUT "WEIGHT OF NUGGET IN AIR ",N 380 PRINT 390 IF N<=0 THEN PRINT "Weight of Nugget has to be greater that Zero or else we're wasting our time." :GOTO 370 400 INPUT "WEIGHT OF NUGGET IN WATER ",W 410 PRINT 420 IF W>=N THEN PRINT "Weight in Water has to be less than in Air. Please enter again." :GOTO 400 430 IF W<=0 THEN PRINT "Weight in Water has to be greater than Zero. Please enter again." :GOTO 400 440 D=19.3 : REM Density/Specific Gravity of GOLD 450 INPUT "DENSITY OF MATRIX ",Q 460 PRINT 470 IF Q<1 OR Q>12 THEN PRINT "You have entered a S.G. that is below that of Water or above that of a likely Matrix." :GOTO 450 480 G=(D*N*(1-Q/(N/(N-W))))/(D-Q) 490 IF G>N THEN PRINT "Total weight of GOLD can't be greater than initial weight of Specimen."'"Please enter values again. " :FOR I=1 TO 5000 :NEXT I :GOTO 280 :REM timer delay, adjust value of I to suit 500 IF G<=0 THEN PRINT " LOOKS LIKE YOUR SPECIMEN IS A BIT OF A DUFFER, HEY!!!." :END 510 PRINT "GOLD CONTENT = ";G;" Troy Ozs." 520 PRINT 530 INPUT "Do you wish to calculate the value of the Nugget. (Y=Yes) ",A$ 540 IF A$="Y" OR A$="y" THEN GOTO 550 ELSE END 550 PRINT 560 INPUT "What is the current GOLD price per Troy Ounce in Dollars. ",P 570 IF P<=100 THEN PRINT "If the price of GOLD ever falls to that level, I would not bother with this exercise!!!" :GOTO 560 580 IF P>2000 THEN PRINT "If the price of GOLD ever reaches that height, I hope you're doing this in a well guarded strongroom." :GOTO 560 590 V=G*P 600 PRINT 610 PRINT "VALUE OF NUGGET = $";V 620 END