home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / EMPIRFMLA (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.5 KB  |  159 lines
  1. 0 REM PERCENT COMPOSITION ASSESMENT
  2. 1 REM BY MARK L. SEATVET  APRIL 1983
  3. 2 PRINT "[147]"
  4. 3 PRINT "PERCENT COMPOSITION ASSESMENT[146]"
  5. 4 POKE 53280,0
  6. 5 POKE 53281,0
  7. 100 PRINT ""
  8. 110 INPUT "INDICATE FIRST ELEMENT[146] BY SYMBOL"; A$
  9. 120 PRINT ""
  10. 130 PRINT A$; " 'S ATOMIC WEIGHT[146]";
  11. 140 INPUT A1
  12. 149 PRINT ""
  13. 150 INPUT "NUMBER OF UNITS[146]"; U1
  14. 159 PRINT ""
  15. 160 PRINT A$; " CONSISTS OF" ;A1*U1;" AMU'S"
  16. 170 FOR I = 1 TO 1500 : NEXT
  17. 200 PRINT "[147]"
  18. 210 INPUT "INDICATE SECOND ELEMENT[146] BY SYMBOL"; B$
  19. 220 PRINT ""
  20. 230 PRINT B$; " 'S ATOMIC WEIGHT[146]";
  21. 240 INPUT B2
  22. 250 PRINT ""
  23. 260 INPUT "NUMBER OF UNITS[146]"; U2
  24. 270 PRINT ""
  25. 280 PRINT B$; " CONSISTS OF" ;B2*U2;" AMU'S"
  26. 290 FOR I = 1 TO 1500 : NEXT
  27. 400 PRINT "[147]"
  28. 410 INPUT "INDICATE THIRD ELEMENT[146] BY SYMBOL"; C$
  29. 415 IF C$ = "" THEN GOTO 810
  30. 420 PRINT ""
  31. 430 PRINT C$;" 'S ATOMIC WEIGHT[146]";
  32. 440 INPUT C3
  33. 450 PRINT ""
  34. 460 INPUT "NUMBER OF UNITS[146]"; U3
  35. 470 PRINT ""
  36. 480 PRINT C$; " CONSISTS OF" ;C3*U3;" AMU'S"
  37. 490 FOR I = 1 TO 1500 : NEXT
  38. 500 PRINT "[147]"
  39. 510 INPUT "INDICATE FOURTH ELEMENT[146] BY SYMBOL"; D$
  40. 515 IF D$ = "" THEN GOTO 810
  41. 520 PRINT ""
  42. 530 PRINT D$;" 'S ATOMIC WEIGHT[146]";
  43. 540 INPUT D4
  44. 550 PRINT ""
  45. 560 INPUT "NUMBER OF UNITS[146]"; U4
  46. 570 PRINT ""
  47. 580 PRINT D$; " CONSISTS OF" ;D4*U4;" AMU'S"
  48. 590 FOR I = 1 TO 1500 : NEXT
  49. 600 PRINT "[147]"
  50. 610 INPUT "INDICATE FIFTH ELEMENT[146] BY SYMBOL"; E$
  51. 615 IF E$ = "" THEN GOTO 810
  52. 620 PRINT ""
  53. 630 PRINT E$;" 'S ATOMIC WEIGHT[146]";
  54. 640 INPUT E5
  55. 650 PRINT ""
  56. 660 INPUT "NUMBER OF UNITS[146]"; U5
  57. 670 PRINT ""
  58. 680 PRINT E$; " CONSISTS OF" ;E5*U5;" AMU'S"
  59. 690 FOR I = 1 TO 1500 : NEXT
  60. 700 PRINT "[147]"
  61. 710 INPUT "INDICATE SIXTH ELEMENT[146] BY SYMBOL"; F$
  62. 715 IF F$ = "" THEN GOTO 810
  63. 720 PRINT ""
  64. 730 PRINT F$;" 'S ATOMIC WEIGHT[146] ";
  65. 740 INPUT F6
  66. 750 PRINT ""
  67. 760 INPUT "NUMBER OF UNITS[146]"; U6
  68. 770 PRINT ""
  69. 780 PRINT F$; " CONSISTS OF" ;F6*U6;" AMU'S"
  70. 790 FOR I = 1 TO 1500 : NEXT
  71. 800 PRINT ""
  72. 810 INPUT "PRESS ANY NUMBER[146] ";Z
  73. 820 IF Z = 0  THEN GOTO 900
  74. 830 IF Z <> 0 THEN GOTO 900
  75. 840 IF Z = "" THEN GOTO 900
  76. 850 IF Y=0 THEN GOTO 400
  77. 900 Y=(A1*U1)+(B2*U2)+(C3*U3)+(D4*U4)+(E5*U5)+(F6*U6)
  78. 950 LET A=(A1*U1)/Y*100
  79. 955 LET B=(B2*U2)/Y*100
  80. 960 LET C=(C3*U3)/Y*100
  81. 965 LET D=(D4*U4)/Y*100
  82. 970 LET E=(E5*U5)/Y*100
  83. 975 LET F=(F6*U6)/Y*100
  84. 1002 PRINT "[147]"
  85. 1010 PRINT"";A$;" IS" ;A; "%"
  86. 1011 PRINT ""
  87. 1020 PRINT"";B$;" IS" ;B; "%"
  88. 1021 PRINT ""
  89. 1030 PRINT"";C$;" IS" ;C; "%"
  90. 1031 PRINT ""
  91. 1040 PRINT"";D$;" IS" ;D; "%"
  92. 1041 PRINT ""
  93. 1050 PRINT"";E$;" IS" ;E; "%"
  94. 1051 PRINT ""
  95. 1060 PRINT"";F$;" IS" ;F; "%"
  96. 1069 PRINT ""
  97. 1070 PRINT"";Y;"     AMU'S TOTAL[146]"
  98. 1079 PRINT ""
  99. 1080 PRINT "HIT ANY NUMBER[146] : "
  100. 1081 INPUT "EMPIRICAL FORMULA[146]"; EF
  101. 1082 IF EF = 0 THEN GOTO 3000
  102. 1083 IF EF<> 0 THEN GOTO 3000
  103. 3000 PRINT "[147]
  104. 3010 [136] AZ [178] A[172](1[173]A1)
  105. 3015 [153] A$;" EQUALS" ;AZ;" MOL/" ;A$;" ATOMS"
  106. 3019 [153] ""
  107. 3020 [136] BZ [178] B[172](1[173]B2)
  108. 3025 [153] B$;" EQUALS" ;BZ;" MOL/" ;B$;" ATOMS"
  109. 3028 [153] ""
  110. 3029 [139] C3 [178] 0 [167] [137] 4000
  111. 3030 [136] CZ [178] C[172](1[173]C3)
  112. 3031 [139] C3 [178] 0 [167] [137] 4000
  113. 3035 [153] C$;" EQUALS" ;CZ;" MOL/" ;C$;" ATOMS"
  114. 3038 [153] ""
  115. 3039 [139] D4 [178] 0 [167] [137] 4000
  116. 3040 [136] DZ [178] D[172](1[173]D4)
  117. 3041 [139] D4 [178] 0 [167] [137] 4000
  118. 3045 [153] D$;" EQUALS" ;DZ;" MOL/" ;D$;" ATOMS"
  119. 3048 [153] ""
  120. 3049 [139] E5 [178] 0 [167] [137] 4000
  121. 3050 [136] EZ [178] E[172](1[173]E5)
  122. 3051 [139] E5 [178] 0 [167] [137] 4000
  123. 3055 [153] E$;" EQUALS" ;EZ;" MOL/" ;E$;" ATOMS"
  124. 3058 [153] ""
  125. 3059 [139] F6 [178] 0 [167] [137] 4000
  126. 3060 [136] FZ [178] F[172](1[173]F6)
  127. 3061 [139] F6 [178] 0 [167] [137] 4000
  128. 3065 [153] F$;" EQUALS" ;FZ;" MOL/" ;F$;" ATOMS"
  129. 4000 [153] ""
  130. 4001 [133] "INDICATE APPROPREATE DIVISORWAIT"; DIV
  131. 4005 [139] DIV [178] 0 [167] [137] 4000
  132. 4009 [153] "LOAD"
  133. 4010 [136] AE [178] AZ[173]DIV
  134. 4015 [153] AE
  135. 4019 [153] ""
  136. 4020 [136] BE [178] BZ[173]DIV
  137. 4025 [153] BE
  138. 4029 [153] ""
  139. 4030 [136] CE [178] CZ[173]DIV
  140. 4035 [153] CE
  141. 4039 [153] ""
  142. 4040 [136] DE [178] DZ[173]DIV
  143. 4045 [153] DE
  144. 4049 [153] ""
  145. 4050 [136] EE [178] EZ[173]DIV
  146. 4055 [153] EE
  147. 4059 [153] ""
  148. 4060 [136] FE [178] FZ[173]DIV
  149. 4070 [129] I [178] 1 [164] 2500 : [130]
  150. 4080 [151] 53280,0
  151. 4081 [151] 53281,0
  152. 5000 [153] "LOADEMPIRICAL FORMULAWAIT"
  153. 5010 [153] ""
  154. 5020 [153] A$;AE;B$;BE;C$;CE;D$;DE;E$;EE;F$;FE
  155. 6000 [153] "ANOTHER ASSESSMENT? (Y/N)" ;
  156. 6005 [133] Q$
  157. 6010 [139] Q$ [178] "Y" [167] [137] 2
  158. 6020 [139] Q$ [178] "N" [167] [128]
  159.