0 'MINRLS.BA author unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 141 ZM=1 142 PRINTTAB(13);"M I N E R A L S" 150 INPUT"WHAT IS YOUR FIRST NAME? ";A$:IFA$=""THEN150 200 CLS 300 INPUT"DO YOU NEED INSTRUCTIONS?";C$:CLS 320 IFMID$(C$,1,1)="Y"THEN370 330 IFMID$(C$,1,1)="N"THEN540 340 PRINT"YES OR NO" 350 GOTO300 360 ' **INSTRUCTIONS** 370 PRINT"O.K. ";A$;". THIS IS A PROGRAM" 372 PRINT"TO HELP YOU FIND OUT WHAT KIND OF" 380 PRINT"MINERAL YOU ARE EXAMINING.":PRINT 381 ' 382 DATAAPATITE,AZURITE,BERYL,CALCITE,CHALCOPYRITE,CINNABAR,COPPER,CORUNDUM,FELDSPAR,FLOURITE 384 DATAGALENA,GRAPHITE,GYPSUM,HALITE,HEMATITE,HORNBLENDE,KAOLINITE,LIMONITE,MAGNETITE,MALACHITE 386 DATA MICA,OLIVINE,PYRITE,QUARTZ,SPHALERITE,SULFUR,TALC,TOPAZ,TOURMALINE," " 389 ' 390 PRINT"THE NEXT PAGE IS A LIST OF THE 29 ":PRINT:PRINT"MINERALS I CAN DETECT." 395 GOSUB3000 400 FORX=1TO15:READA1$,B$ 410 IFX<6THENPRINT" "; 412 PRINT2*X-1;". ";A1$; 420 IFX<5THENPRINT" "; 425 IFX<15THENPRINT2*X;". ";B$:IFX/5=INT(X/5)THENPRINT 430 NEXT 500 GOSUB3000 510 PRINT"'EMBER ALWAYS ANSWER YES OR NO TO" 511 PRINT"EVERY QUESTION, OTHERWISE I GET" 512 PRINT"MIXED UP!!" 540 PRINT"YOU WILL BE USING THE FOLLOWING ITEMS:" 545 ' 550 PRINT"PAPER";TAB(20);"FINGERNAIL" 551 ' 555 PRINT"STEEL NAIL";TAB(20);"GLASS" 556 ' 560 PRINT"QUARTZ";TAB(20);"STREAK PLATE" 570 PRINT"COPPER COIN"TAB(20)"HYDROCHLORIC ACID" 580 GOSUB3000:CLS 660 ' 740 PRINT"DOES YOUR MINERAL HAVE A":PRINT:PRINT"METALLIC LUSTER"; 750 GOSUB4000 760 IFMID$(B$,1,1)="N"THEN1320 770 PRINT"CAN IT MARK PAPER ";A$; 780 GOSUB4000 790 IFMID$(B$,1,1)="N"THEN890 800 PRINT"YOUR MINERAL SHOULD BE GREY OR BLACK IN":PRINT"COLOR ";A$;". NOW TO GO ON" 810 PRINT"DOES IT HAVE A CUBIC CLEAVAGE"; 820 GOSUB4000 830 IFMID$(B$,1,1)="N"THEN860 840 PRINT"EUREKA YOUR MINERAL IS GALENA!!!" 850 GOTO2400 860 PRINT"WE HAVE JUST DISCOVERED A DEPOSIT OF":PRINT"GRAPHITE IN YOUR HAND" 870 PRINT"(IN OTHER WORDS YOUR MINERAL IS GRAPHITE)" 880 GOTO2400 890 PRINT"CAN IT BE SCRATCHED BY A NAIL"; 900 GOSUB4000 910 IFMID$(B$,1,1)="N"THEN1140 920 PRINT"DOES IT STREAK GREEN OR BLUE":PRINT:PRINT"(YES OR NO)"; 930 GOSUB4000 940 IFMID$(B$,1,1)="N"THEN1020 950 PRINT"IS IT GREEN"; 960 GOSUB4000 970 IFMID$(B$,1,1)="Y"THEN1000 980 PRINT"WE HAVE JUST DISCOVERED YOUR MINERAL":PRINT:PRINT"IS AZURITE" 990 GOTO2400 1000 PRINT"YOUR MINERAL IS MALACHITE!!!" 1010 GOTO2400 1020 PRINT"DOES IT STREAK GREENISH BLACK"; 1030 GOSUB4000 1040 IFMID$(B$,1,1)="Y"THEN1070 1050 PRINT"THE MINERAL IS CHALCOPYRITE" 1060 GOTO2400 1070 PRINT"DOES IT STREAK COPPER"; 1080 GOSUB4000 1090 IFMID$(B$,1,1)="Y"THEN1120 1100 PRINT"YAHOO! ITS LIMONITE" 1110 GOTO2400 1120 PRINT"WOW!!! YOUR MINERAL IS COPPER" 1130 GOTO2400 1140 PRINT"CAN IT BE SCRATCHED BY GLASS"; 1150 GOSUB4000 1160 IFMID$(B$,1,1)="Y"THEN1200 1170 PRINT"I AM SORRY BUT YOU HAVE EITHER":PRINT:PRINT"EXAMINED YOUR MINERAL INCORRECTLY OR ARE" 1180 PRINT"USING A MINERAL I DO NOT KNOW.":PRINT 1190 GOSUB3000:GOTO43000 1200 PRINT"BRASS COLORING"; 1210 GOSUB4000 1220 IFMID$(B$,1,1)="N"THEN1250 1230 PRINT"YOUR MINERAL STREAKS GREENISH TO":PRINT:PRINT"BROWINSH BLACK & IS PYRITE." 1240 GOTO2400 1250 PRINT"IS IT GREY OR BLACK IN COLOR":PRINT:PRINT"(YES NO NO)"; 1260 GOSUB4000 1270 IFMID$(B$,1,1)="Y"THEN1300 1280 PRINT"YOUR MINERAL IS HEMATITE" 1290 GOTO2400 1300 PRINT"YOUR MINERAL IS MAGNETITE & STREAKS":PRINT:PRINT"BLACK" 1310 GOTO2400 1320 PRINT"DOES IT LEAVE A COLORED MARK ON":PRINT:PRINT"A STREAK PLATE"; 1330 GOSUB4000 1340 IFMID$(B$,1,1)="N"THEN1520 1350 PRINT"DOES IT HAVE A GREEN OR BLUE":PRINT:PRINT"COLOR (YES OR NO)"; 1360 GOSUB4000 1370 IFMID$(B$,1,1)="N"THEN1450 1380 PRINT"DOES IT HAVE A BLUE-GREEN STREAK"; 1390 GOSUB4000 1400 IFMID$(B$,1,1)="N"THEN1430 1410 PRINT"*****MALACHITE*****" 1420 GOTO2400 1430 PRINT"IT HAS A LIGHT BLUE STREAK AND IS":PRINT:PRINT"AZURITE" 1440 GOTO2400 1450 PRINT"DOES IT HAVE A RED OR ORANGE":PRINT:PRINT"COLOR (YES NOR NO)"; 1460 GOSUB4000 1470 IFMID$(B$,1,1)="Y"THEN1500 1480 PRINT"MY OPINION IS THAT YOUR MINERAL IS":PRINT:PRINT"SPHALERITE" 1490 GOTO2400 1500 PRINT"IT HAS A SCARLET STREAK AND IS CINNABAR" 1510 GOTO2400 1520 PRINT"DOES IT SHOW GOOD CLEAVAGE"; 1530 GOSUB4000 1540 IFMID$(B$,1,1)="N"THEN2070 1550 PRINT"CAN YOU SCRATCH IT WITH YOUR":PRINT:PRINT"FINGERNAIL"; 1560 GOSUB4000 1570 IFMID$(B$,1,1)="N"THEN1700 1580 PRINT"DOES IT BREAK INTO TRANSPARENT":PRINT:PRINT"SHEETS"; 1590 GOSUB4000 1600 IFMID$(B$,1,1)="N"THEN1630 1610 PRINT"*M*I*C*A*" 1620 GOTO2400 1630 PRINT"DOES IT FEEL GREASY"; 1640 GOSUB4000 1650 IFMID$(B$,1,1)="N"THEN1680 1660 PRINT"^TALC^" 1670 GOTO2400 1680 PRINT"IT'S GYPSUM." 1690 GOTO2400 1700 PRINT"CAN YOU SCRATCH IT WITH A":PRINT:PRINT"COPPER COIN"; 1710 GOSUB4000 1720 IFMID$(B$,1,1)="N"THEN1800 1730 PRINT"DOES IT BUBBLE WITH H.C.L.(ACID)"; 1740 GOSUB4000 1750 IFMID$(B$,1,1)="N"THEN1780 1760 PRINT" IF IT BUBBLED ITS CALCITE" 1770 GOTO2400 1780 PRINT" IT HAS GOT TO BE HALITE" 1790 GOTO2400 1800 PRINT"CAN YOU SCRATCH IT WITH A NAIL"; 1810 GOSUB4000 1820 IFMID$(B$,1,1)="N"THEN1900 1830 PRINT"IS IT BLACK"; 1840 GOSUB4000 1850 IFMID$(B$,1,1)="Y"THEN1880 1860 PRINT"IT'S FLOURITE." 1870 GOTO2400 1880 PRINT"IT'S THAT FANTASTIC HORNBLENDE." 1890 GOTO2400 1900 PRINT"CAN IT SCRATCH GLASS AND BE":PRINT:PRINT"SCRATCHED BY QUARTZ"; 1910 GOSUB4000 1920 IFMID$(B$,1,1)="N"THEN2040 1930 PRINT"GUESS WHAT IT IS. IT IS: " 1940 PRINT"F" 1950 PRINT"E" 1960 PRINT"L" 1970 PRINT"D" 1980 PRINT"S" 1990 PRINT"P" 2000 PRINT"A" 2010 PRINT"R" 2020 PRINT"GET THE MESSAGE" 2030 GOTO2400 2040 PRINT"YOUR MINERAL IS EITHER CORUNDUM OR TOPAZ" 2050 PRINT"(HINT: CORUNDUM WILL SCRATCH TOPAZ)" 2060 GOTO2400 2070 PRINT"CAN YOU SCRATCH IT WITH YOUR":PRINT:PRINT"FINGERNAIL"; 2080 GOSUB4000 2090 IFMID$(B$,1,1)="N"THEN2170 2100 PRINT"DOES IT HAVE A BRIGHT YELLOW COLOR"; 2110 GOSUB4000 2120 IFMID$(B$,1,1)="N"THEN2150 2130 PRINT"IT'S SULFUR" 2140 GOTO2400 2150 PRINT"I AM PROUD TO TELL YOU ITS KAOLINITE" 2160 GOTO2400 2170 PRINT"CAN YOU SCRATCH IT WITH A NAIL":PRINT:PRINT"(IF YOUR MINERAL IS OLIVE-":PRINT 2180 PRINT"GREEN AND HAS A SUGARY TEXTURE":PRINT:PRINT"ANSWER NO TO THIS QUESTION)"; 2190 GOSUB4000 2200 IFMID$(B$,1,1)="N"THEN2230 2210 PRINT" THE MINERAL IS APATITE" 2220 GOTO2400 2230 PRINT"CAN IT SCRATCH GLASS AND BE":PRINT:PRINT"SCRATCHED BY QUARTZ"; 2240 GOSUB4000 2250 IFMID$(B$,1,1)="Y"THEN2330 2260 PRINT"IS IT JET BLACK"; 2270 GOSUB4000 2280 IFMID$(B$,1,1)="N"THEN2310 2290 PRINT"WELL IT HAS GOT TO BE TOURMALINE" 2300 GOTO2400 2310 PRINT" YOUR MINERAL IS BERYL" 2320 GOTO2400 2330 PRINT"DOES IT FORM SEPARATE GRAINS (SUGARY":PRINT:PRINT"TEXTURE), AND HAVE AN":PRINT 2340 PRINT"OLIVE GREEN COLOR"; 2350 GOSUB4000 2360 IFMID$(B$,1,1)="Y"THEN2390 2370 PRINT"IT HAS JUST GOT TO BE QUARTZ" 2380 GOTO2400 2390 PRINT"OLIVINE IS THE NAME OF YOUR MINERAL" 2400 GOSUB3000 2410 GOTO43000 3000 ' SPACE BAR ROUTINE 3001 PRINT"PRESS ";:PRINT"SPACE BAR";:PRINT" TO CONTINUE"; 3002 ZZ$=INPUT$(1):CLS:RETURN 4000 ' 4010 INPUTB$:B1$=MID$(B$,1,1):IFB1$="Y"ORB1$="N"THEN4030 4020 PRINT"YES OR NO PLEASE";:GOTO4010 4030 CLS:RETURN 40000 ' 40001 INPUT"";ZN$:IFLEN(ZN$)<>LEN(STR$(VAL(ZN$)))THEN40003 40002 IFVAL(ZN$)<>0ORZN$="0"THEN40006 40003 VTABZM:PRINT"THAT IS NOT A NUMBER - TRY AGAIN";:GOSUB40010:GOTO40001 40006 RETURN 40010 RETURN 43000 ' 43005 ' 43010 CLS 43020 PRINT"DO YOU WANT TO TRY" 43030 INPUT"AGAIN (Y OR N) ?";R$:IFR$<>"Y"ANDR$<>"N"THEN43030 43040 CLS:IFR$="Y"THEN740 43050 MENU