home *** CD-ROM | disk | FTP | other *** search
- 0 REM PERCENT COMPOSITION ASSESMENT
- 1 REM BY MARK L. SEATVET APRIL 1983
- 2 PRINT "[147]"
- 3 PRINT "PERCENT COMPOSITION ASSESMENT[146]"
- 4 POKE 53280,0
- 5 POKE 53281,0
- 100 PRINT ""
- 110 INPUT "INDICATE FIRST ELEMENT[146] BY SYMBOL"; A$
- 120 PRINT ""
- 130 PRINT A$; " 'S ATOMIC WEIGHT[146]";
- 140 INPUT A1
- 149 PRINT ""
- 150 INPUT "NUMBER OF UNITS[146]"; U1
- 159 PRINT ""
- 160 PRINT A$; " CONSISTS OF" ;A1*U1;" AMU'S"
- 170 FOR I = 1 TO 1500 : NEXT
- 200 PRINT "[147]"
- 210 INPUT "INDICATE SECOND ELEMENT[146] BY SYMBOL"; B$
- 220 PRINT ""
- 230 PRINT B$; " 'S ATOMIC WEIGHT[146]";
- 240 INPUT B2
- 250 PRINT ""
- 260 INPUT "NUMBER OF UNITS[146]"; U2
- 270 PRINT ""
- 280 PRINT B$; " CONSISTS OF" ;B2*U2;" AMU'S"
- 290 FOR I = 1 TO 1500 : NEXT
- 400 PRINT "[147]"
- 410 INPUT "INDICATE THIRD ELEMENT[146] BY SYMBOL"; C$
- 415 IF C$ = "" THEN GOTO 810
- 420 PRINT ""
- 430 PRINT C$;" 'S ATOMIC WEIGHT[146]";
- 440 INPUT C3
- 450 PRINT ""
- 460 INPUT "NUMBER OF UNITS[146]"; U3
- 470 PRINT ""
- 480 PRINT C$; " CONSISTS OF" ;C3*U3;" AMU'S"
- 490 FOR I = 1 TO 1500 : NEXT
- 500 PRINT "[147]"
- 510 INPUT "INDICATE FOURTH ELEMENT[146] BY SYMBOL"; D$
- 515 IF D$ = "" THEN GOTO 810
- 520 PRINT ""
- 530 PRINT D$;" 'S ATOMIC WEIGHT[146]";
- 540 INPUT D4
- 550 PRINT ""
- 560 INPUT "NUMBER OF UNITS[146]"; U4
- 570 PRINT ""
- 580 PRINT D$; " CONSISTS OF" ;D4*U4;" AMU'S"
- 590 FOR I = 1 TO 1500 : NEXT
- 600 PRINT "[147]"
- 610 INPUT "INDICATE FIFTH ELEMENT[146] BY SYMBOL"; E$
- 615 IF E$ = "" THEN GOTO 810
- 620 PRINT ""
- 630 PRINT E$;" 'S ATOMIC WEIGHT[146]";
- 640 INPUT E5
- 650 PRINT ""
- 660 INPUT "NUMBER OF UNITS[146]"; U5
- 670 PRINT ""
- 680 PRINT E$; " CONSISTS OF" ;E5*U5;" AMU'S"
- 690 FOR I = 1 TO 1500 : NEXT
- 700 PRINT "[147]"
- 710 INPUT "INDICATE SIXTH ELEMENT[146] BY SYMBOL"; F$
- 715 IF F$ = "" THEN GOTO 810
- 720 PRINT ""
- 730 PRINT F$;" 'S ATOMIC WEIGHT[146] ";
- 740 INPUT F6
- 750 PRINT ""
- 760 INPUT "NUMBER OF UNITS[146]"; U6
- 770 PRINT ""
- 780 PRINT F$; " CONSISTS OF" ;F6*U6;" AMU'S"
- 790 FOR I = 1 TO 1500 : NEXT
- 800 PRINT ""
- 810 INPUT "PRESS ANY NUMBER[146] ";Z
- 820 IF Z = 0 THEN GOTO 900
- 830 IF Z <> 0 THEN GOTO 900
- 840 IF Z = "" THEN GOTO 900
- 850 IF Y=0 THEN GOTO 400
- 900 Y=(A1*U1)+(B2*U2)+(C3*U3)+(D4*U4)+(E5*U5)+(F6*U6)
- 950 LET A=(A1*U1)/Y*100
- 955 LET B=(B2*U2)/Y*100
- 960 LET C=(C3*U3)/Y*100
- 965 LET D=(D4*U4)/Y*100
- 970 LET E=(E5*U5)/Y*100
- 975 LET F=(F6*U6)/Y*100
- 1002 PRINT "[147]"
- 1010 PRINT"";A$;" IS" ;A; "%"
- 1011 PRINT ""
- 1020 PRINT"";B$;" IS" ;B; "%"
- 1021 PRINT ""
- 1030 PRINT"";C$;" IS" ;C; "%"
- 1031 PRINT ""
- 1040 PRINT"";D$;" IS" ;D; "%"
- 1041 PRINT ""
- 1050 PRINT"";E$;" IS" ;E; "%"
- 1051 PRINT ""
- 1060 PRINT"";F$;" IS" ;F; "%"
- 1069 PRINT ""
- 1070 PRINT"";Y;" AMU'S TOTAL[146]"
- 1079 PRINT ""
- 1080 PRINT "HIT ANY NUMBER[146] : "
- 1081 INPUT "EMPIRICAL FORMULA[146]"; EF
- 1082 IF EF = 0 THEN GOTO 3000
- 1083 IF EF<> 0 THEN GOTO 3000
- 3000 PRINT "[147]
- 3010 [136] AZ [178] A[172](1[173]A1)
- 3015 [153] A$;" EQUALS" ;AZ;" MOL/" ;A$;" ATOMS"
- 3019 [153] ""
- 3020 [136] BZ [178] B[172](1[173]B2)
- 3025 [153] B$;" EQUALS" ;BZ;" MOL/" ;B$;" ATOMS"
- 3028 [153] ""
- 3029 [139] C3 [178] 0 [167] [137] 4000
- 3030 [136] CZ [178] C[172](1[173]C3)
- 3031 [139] C3 [178] 0 [167] [137] 4000
- 3035 [153] C$;" EQUALS" ;CZ;" MOL/" ;C$;" ATOMS"
- 3038 [153] ""
- 3039 [139] D4 [178] 0 [167] [137] 4000
- 3040 [136] DZ [178] D[172](1[173]D4)
- 3041 [139] D4 [178] 0 [167] [137] 4000
- 3045 [153] D$;" EQUALS" ;DZ;" MOL/" ;D$;" ATOMS"
- 3048 [153] ""
- 3049 [139] E5 [178] 0 [167] [137] 4000
- 3050 [136] EZ [178] E[172](1[173]E5)
- 3051 [139] E5 [178] 0 [167] [137] 4000
- 3055 [153] E$;" EQUALS" ;EZ;" MOL/" ;E$;" ATOMS"
- 3058 [153] ""
- 3059 [139] F6 [178] 0 [167] [137] 4000
- 3060 [136] FZ [178] F[172](1[173]F6)
- 3061 [139] F6 [178] 0 [167] [137] 4000
- 3065 [153] F$;" EQUALS" ;FZ;" MOL/" ;F$;" ATOMS"
- 4000 [153] ""
- 4001 [133] "INDICATE APPROPREATE DIVISORWAIT"; DIV
- 4005 [139] DIV [178] 0 [167] [137] 4000
- 4009 [153] "LOAD"
- 4010 [136] AE [178] AZ[173]DIV
- 4015 [153] AE
- 4019 [153] ""
- 4020 [136] BE [178] BZ[173]DIV
- 4025 [153] BE
- 4029 [153] ""
- 4030 [136] CE [178] CZ[173]DIV
- 4035 [153] CE
- 4039 [153] ""
- 4040 [136] DE [178] DZ[173]DIV
- 4045 [153] DE
- 4049 [153] ""
- 4050 [136] EE [178] EZ[173]DIV
- 4055 [153] EE
- 4059 [153] ""
- 4060 [136] FE [178] FZ[173]DIV
- 4070 [129] I [178] 1 [164] 2500 : [130]
- 4080 [151] 53280,0
- 4081 [151] 53281,0
- 5000 [153] "LOADEMPIRICAL FORMULAWAIT"
- 5010 [153] ""
- 5020 [153] A$;AE;B$;BE;C$;CE;D$;DE;E$;EE;F$;FE
- 6000 [153] "ANOTHER ASSESSMENT? (Y/N)" ;
- 6005 [133] Q$
- 6010 [139] Q$ [178] "Y" [167] [137] 2
- 6020 [139] Q$ [178] "N" [167] [128]
-