home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / PERIODICTABLE (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  173 lines
  1. 1 POKE808,225:GOSUB76:DIME$(20),S$(20),V$(20):GOTO56
  2. 2 PRINT" [158][212]HAT IS CORRECT.":R=R+.5:GOTO135
  3. 3 PRINT" [129][212]HAT IS INCORRECT.  [212]HE VALENCE IS:":PRINT""TAB(15)V$(X):GOTO138
  4. 4 POKEUO,.:UR$="":UI$="":IFUL=.THENUL=80
  5. 5 POKEUC,.
  6. 6 GETUI$:IFUI$=""THEN6
  7. 7 POKES+4,33:POKES+1,ASC(UI$):FORWV=1TO10:NEXT:POKES+1,.
  8. 8 IFUI$=CHR$(13)ANDLEN(UR$)>=1THENPOKEUC,1:PRINT" [157]":RETURN
  9. 9 IFUI$=CHR$(20)THEN12
  10. 10 IFLEN(UR$)=>ULTHEN6
  11. 11 GOSUB14:UR$=UR$+UI$:PRINTUI$;:GOTO6
  12. 12 IFLEN(UR$)<1THEN6
  13. 13 UR$=LEFT$(UR$,LEN(UR$)-1):PRINT"[157]  [157][157]";:GOTO6
  14. 14 IFLEN(US$)=.THEN17
  15. 15 FORUS=1TOLEN(US$):IFUI$<>MID$(US$,US,1)THENNEXT:UI$=""
  16. 16 RETURN
  17. 17 IFASC(UI$)=46THENRETURN
  18. 18 IFUI$=CHR$(32)THENRETURN
  19. 19 IFASC(UI$)<48ORASC(UI$)>57THEN21
  20. 20 RETURN
  21. 21 IFASC(UI$)<65ORASC(UI$)>90THEN23
  22. 22 RETURN
  23. 23 IFASC(UI$)<193ORASC(UI$)>218THENUI$="":RETURN
  24. 24 IFPEEK(UT)=UU%THENUI$=CHR$(ASC(UI$)-128):RETURN
  25. 25 RETURN
  26. 26 PRINT"[147]":POKEUT,UU%:POKE53281,9:POKE53280,8
  27. 27 PRINT""SPC(16)"MENU"
  28. 28 PRINT" --------------------------------------"
  29. 29 PRINTSPC(7)"1.   BEGIN PERIODIC TABLE"
  30. 30 PRINTSPC(7)"2.   STUDENT INSTRUCTIONS"
  31. 31 PRINTSPC(7)"3.   TEACHER INSTRUCTIONS"
  32. 32 PRINTSPC(7)"4.   QUIT"
  33. 33 PRINT" --------------------------------------"
  34. 34 PRINTSPC(7)"PRESS A NUMBER KEY (1-4) ";
  35. 35 UL=1:US$="1234":GOSUB4:US$="":ONVAL(UR$)GOSUB82,37,39,36:GOTO26
  36. 36 POKE53281,.:POKE53280,.:PRINT"[147]";:POKE808,237:END
  37. 37 PRINT"[147]":POKEUT,UL%:POKE53281,.:POKE53280,.
  38. 38 UP=.:UG$="[211]TUDENT [201]NST":GOSUB74:GOTO83
  39. 39 PRINT"[147]":POKEUT,UL%:POKE53281,2:POKE53280,10
  40. 40 UP=.:UG$="[212]EACHER [201]NST":GOSUB74
  41. 41 PRINTSPC(6)"[212]O THE BEST OF OUR KNOWLEDGE,"
  42. 42 PRINT"   THIS PROGRAM IS IN THE PUBLIC"
  43. 43 PRINT"   DOMAIN.  [201]F THIS IS NOT THE CASE"
  44. 44 PRINT"   PLEASE CONTACT:"
  45. 45 PRINTSPC(6)"[195]OMMODORE [194]USINESS [205]ACHINES"
  46. 46 PRINTSPC(10)"3370 [208]HARMACY [193]VE.
  47. 47 [153][166]10)"ATNGINCOURT, (null)NTARIO"
  48. 48 [153][166]10)"LENANADA   (null)1(null) 2(null)4"
  49. 49 [153][166]10)"(416) 499-4292"
  50. 50 UP[178]1:[141]71:[141]74
  51. 51 [153][166]5)"(null)ROGRAM (null)AME: (null)ERODIC (null)ABLE
  52. 52 PRINTSPC(5)"[215]RITTEN [194]Y  : [211]TEPHEN [215]OROSZCZUK
  53. 53 [153][166]5)"(null)PGRADED PEEKY : (null)EAN (null)INSTEAD
  54. 54 PRINTSPC(5)"[212]HIS PROGRAM WILL RUN ON ANY
  55. 55 [153][166]9)"LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)":[137]71
  56. 56 [153]"LOAD";:[151]UT,UU%:[151]53280,14:[151]53281,6
  57. 57 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  58. 58 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  59. 59 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  60. 60 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  61. 61 [153]""[166]18)"STEP  WAIT
  62. 62 PRINTSPC(18)" [146]   [146][169]
  63. 63 [153][166]18)" WAIT  TAB((null)
  64. 64 PRINTSPC(18)"[223]  [146]
  65. 65 [153][166]12)"C O M M O D O R E
  66. 66 PRINTSPC(15)"EDUCATIONAL
  67. 67 [153][166]16)"SOFTWARE
  68. 68 PRINTLEFT$(UD$,24)SPC(9)"PRESS SPACE BAR OR WAIT[146]":I=.:POKEUO,.
  69. 69 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN69
  70. 70 T1$="":T2$="":T3$="":T4$="":I=.:GOSUB140:GOTO26
  71. 71 PRINTLEFT$(UD$,24)SPC(6)"PRESS SPACE BAR TO CONTINUE[146]":POKEUO,.
  72. 72 GETUI$:IFUI$<>" "THEN72
  73. 73 POKES+4,17:POKES+1,35:FORWV=1TO10:NEXT:POKES+1,.:RETURN
  74. 74 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  75. 75 PRINT" --------------------------------------":RETURN
  76. 76 UB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
  77. 77 UT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
  78. 78 UD$=""
  79. 79 UP$="                                       "
  80. 80 UT$=" [208]ERIODIC [212]ABLE[160][160][160][160]"
  81. 81 S=54272:FOREZ=STOS+23:POKEEZ,.:NEXT:POKES+24,15:POKES+6,240:RETURN
  82. 82 PRINT"[147]";:RESTORE:POKE53281,.:POKE53280,.:A=.:R=.:N=.:UP=.:GOTO98
  83. 83 PRINT" [212]HE AIM OF THIS PROGRAM IS TO AID YOU
  84. 84 [153]" IN THE LEARNING OF THE SYMBOLS AND
  85. 85 PRINT" VALENCES OF THE FIRST 20 ELEMENTS
  86. 86 [153]" OF THE PERIODIC TABLE.
  87. 87 PRINT" [217]OU WILL BE GIVEN AN ELEMENT NAME OR A"
  88. 88 PRINT" SYMBOL. [217]OU WILL HAVE TO GIVE THE OTHER
  89. 89 [153]" AS WELL AS THE VALENCE OF THE ELEMENT.":[141]71:[141]74
  90. 90 [153]" ASCOR EXAMPLE:":[153][163]14)"(null)HE ELEMENT IS (null)ODIUM."
  91. 91 [153]"(null)HAT IS ITS SYMBOL? (null)A":[153][163]14)"(null)HAT IS CORRECT."
  92. 92 [153][163]14)"(null)HAT IS ITS VALENCE? 1":[153][163]14)"(null)HAT IS CORRECT."
  93. 93 [153]" (null)OTE:      ASCOR MULTIPLE VALENCES USE"
  94. 94 [153][166]12)"'&' ONLY (NO SPACES) TO"
  95. 95 [153][166]12)"SEPARATE THE NUMBERS.
  96. 96 PRINTSPC(12)"[198]OR EXAMPLE:  [211]ULFUR IS"
  97. 97 PRINTSPC(12)"2&4.":GOTO71
  98. 98 UP=.:POKEUT,UL%:PRINT"[147]  [159][200]OW MANY QUESTIONS DO YOU WANT?   [157][157]";
  99. 99 US$="1234567890Q":UL=2:GOSUB4:IFUR$="Q"THENRETURN
  100. 100 A=VAL(UR$):IFA>20ORA<1THEN98
  101. 101 PRINT"[147] [159][215]HAT IS THE HIGHEST NUMBER ELEMENT YOU"
  102. 102 PRINT" WOULD LIKED TO BE ASKED"
  103. 103 PRINT" (20 ELEMENTS) ?       [157][157][157][157][157]";
  104. 104 UL=2:US$="1234567890Q":GOSUB4:IFUR$="Q"THENRETURN
  105. 105 B=VAL(UR$):IFB>20ORB<1THEN103
  106. 106 RESTORE:POKEUT,UL%:FORJ=1TOB:READE$(J),S$(J),V$(J):NEXT
  107. 107 FORQ=1TOA:UG$="":UP=Q:GOSUB74
  108. 108 Y=Y+1:PRINT"[158]"TAB(10)R"RIGHT OUT OF"N""
  109. 109 X=INT(B*RND(1)+1):Z=INT(2*RND(1)+1):IFZ=2THEN119
  110. 110 N=N+1:PRINT" [153][212]HE ELEMENT IS: "E$(X):PRINT" [153][215]HAT IS ITS SYMBOL? ";
  111. 111 UL=15:US$="":GOSUB4:A$=UR$:IFA$="Q"THENRETURN
  112. 112 IFA$=S$(X)THENGOSUB2:GOTO115
  113. 113 PRINT" [129][212]HAT IS INCORRECT.  [212]HE SYMBOL IS:":PRINT""TAB(15)S$(X)
  114. 114 GOSUB138
  115. 115 PRINT" [153][215]HAT IS ITS VALENCE? ";
  116. 116 UL=.:US$="0123456789&Q":GOSUB4:A$=UR$:IFA$="Q"THENRETURN
  117. 117 IFA$=V$(X)THENGOSUB2:GOTO128
  118. 118 GOSUB3:GOTO128
  119. 119 N=N+1:PRINT" [150][212]HE SYMBOL IS: "S$(X):PRINT" [150][215]HAT IS THE ELEMENT? ";
  120. 120 UL=.:US$="":GOSUB4:A$=UR$:IFA$="Q"THENRETURN
  121. 121 IFA$=E$(X)THENGOSUB2:GOTO124
  122. 122 PRINT" [129][212]HAT IS INCORRECT.  [212]HE ELEMENT IS:":PRINT""TAB(15)E$(X)
  123. 123 GOSUB138
  124. 124 PRINT" [150][215]HAT IS ITS VALENCE? ";
  125. 125 UL=.:US$="0123456789&":GOSUB4:A$=UR$:IFA$="Q"THENRETURN
  126. 126 IFA$=V$(X)THENGOSUB2:GOTO128
  127. 127 GOSUB3
  128. 128 GOSUB71:PRINT"[147]":NEXT
  129. 129 PRINT"[147] [158][217]OUR PERCENTAGE WAS: ";:S=INT(R*100/A):PRINTS"[157]%"
  130. 130 PRINT""
  131. 131 IFS<=80THENPRINT" [150][206]OT BAD.":GOTO71
  132. 132 IFS<=90THENPRINT" [153][214]ERY GOOD":GOTO71
  133. 133 IFS<=99THENPRINT" [159][197]XCELLENT!!!":GOTO71
  134. 134 IFS=100THENPRINT" [158][197]INSTEIN MOVE OVER!!!":GOTO71
  135. 135 GOSUB81:POKES+5,8:POKES+6,255:POKES+4,39
  136. 136 FORF1=50TO60STEP4:POKES+1,F1:FORDV=1TO3:FORF2=F1-2TOF1+2:POKES+15,F2
  137. 137 NEXT:NEXT:NEXT:GOTO81
  138. 138 GOSUB81:POKES+5,8:POKES+6,255:POKES+4,65:POKES+2,12:POKES+3,12
  139. 139 POKES+1,10:FORWV=1TO50:POKES+3,8:POKES+3,13:NEXT:GOTO81
  140. 140 U$=""
  141. 141 PRINT"[147]";:POKE53280,3:POKE53281,1:POKES+4,65:POKES+2,12
  142. 142 FORWV=1TO22:PRINT"[159]                                        [146]";:NEXT
  143. 143 PRINTU$"                                       [146]";:POKE56295,3
  144. 144 POKE2023,224:PRINTU$"[145][145][145][159][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  145. 145 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
  146. 146 D$="DISTRIBUTED BY ":GOSUB148:D$="[197]VANSVILLE [208]RINTING [195]ORP. ":GOSUB148
  147. 147 D$="MODIFIED BY: [211]EAN [215]INSTEAD ":GOSUB148:PRINT"";:RETURN
  148. 148 POKES+3,14:FOREZ=1TO39:POKES+1,4:PRINTU$"[145][157]";:FORDV=1TOEZ:PRINT"[157]";:NEXT
  149. 149 PRINTLEFT$(D$,EZ);:POKES+1,.:FORWV=.TO1:NEXT:NEXT:POKES+3,8
  150. 150 FOREZ=1TOLEN(D$):FORWV=1TO4:NEXT:POKES+1,4
  151. 151 PRINTU$"[145][145]"RIGHT$(D$,ABS(EZ-LEN(D$)));:POKES+1,.:NEXT
  152. 152 FORWV=1TO1000:NEXT:RETURN
  153. 153 DATA"[200]YDROGEN","[200]",1
  154. 154 DATA"[200]ELIUM","[200]E",.
  155. 155 DATA"[204]ITHIUM","[204]I",1
  156. 156 DATA"[194]ERYLLIUM","[194]E",2
  157. 157 DATA"[194]ORON","[194]",3
  158. 158 DATA"[195]ARBON","[195]",4
  159. 159 DATA"[206]ITROGEN","[206]",3
  160. 160 DATA"[207]XYGEN","[207]",2
  161. 161 DATA"[198]LUORINE","[198]",1
  162. 162 DATA"[206]EON","[206]E",.
  163. 163 DATA"[211]ODIUM","[206]A",1
  164. 164 DATA"[205]AGNESIUM","[205]G",2
  165. 165 DATA"[193]LUMINUM","[193]L",3
  166. 166 DATA"[211]ILICON","[211]I",4
  167. 167 DATA"[208]HOSPHORUS","[208]",3
  168. 168 DATA"[211]ULPHUR","[211]","2&4"
  169. 169 DATA"[195]HLORINE","[195]L",1
  170. 170 DATA"[193]RGON","[193]R",.
  171. 171 DATA"[208]OTASSIUM","[203]",1
  172. 172 DATA"[195]ALCIUM","[195]A",2
  173.