Nugget - a program to estimate actual Gold content of a Specimen

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

Return to the Mine Site