,808,225:76:E$(20),S$(20),V$(20):56T" HAT IS CORRECT.":RR.5:135" HAT IS INCORRECT. HE VALENCE IS:":""15)V$(X):138UO,.:UR$"":UI$"":UL.UL80UC,.UI$:UI$""6 S4,33:S1,(UI$):WV110::S1,.( UI$(13)(UR$)1UC,1:" ":: UI$(20)12L (UR$)UL6i 14:UR$UR$UI$:UI$;:6y (UR$)16 UR$(UR$,(UR$)1):" ";:6 (US$).17 US1(US$):UI$(US$,US,1):UI$""  (UI$)46 UI$(32) (UI$)48(UI$)5721% A (UI$)65(UI$)9023G k (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128):  "":UT,UU%:53281,9:53280,8 ""16)"MENU" " --------------------------------------" 7)"1. BEGIN PERIODIC TABLE"F 7)"2. STUDENT INSTRUCTIONS"l 7)"3. TEACHER INSTRUCTIONS" 7)"4. QUIT" !" --------------------------------------" "7)"PRESS A NUMBER KEY (1-4) "; #UL1:US$"1234":4:US$"":(UR$)82,37,39,36:269 $53281,.:53280,.:"";:808,237:\ %"":UT,UL%:53281,.:53280,. &UP.:UG$"TUDENT NST":74:83 '"":UT,UL%:53281,2:53280,10 (UP.:UG$"EACHER NST":74 )6)"O THE BEST OF OUR KNOWLEDGE," *" THIS PROGRAM IS IN THE PUBLIC"D +" DOMAIN. F THIS IS NOT THE CASE"a ," PLEASE CONTACT:" -6)"OMMODORE USINESS ACHINES" .10)"3370 HARMACY VE. /10)"GINCOURT, NTARIO" 010)"ANADA 1 24" 110)"(416) 499-4292" 2UP1:71:74235)"ROGRAM AME: ERODIC ABLE]45)"RITTEN Y : TEPHEN OROSZCZUK55)"PGRADED Y : EAN INSTEAD65)"HIS PROGRAM WILL RUN ON ANY79)" 64 ":718"";:UT,UU%:53280,14:53281,69I138:"";:&:I122:"";:>;I137:"";:V<I122:"";:o=""18)" >18)"  ?18)" @18)" A12)"C O M M O D O R EB15)"EDUCATIONALC16)"SOFTWARE(D(UD$,24)9)"PRESS SPACE BAR OR WAIT":I.:UO,.IEA$:A$" "II1:I25069vFT1$"":T2$"":T3$"":T4$"":I.:140:26G(UD$,24)6)"PRESS SPACE BAR TO CONTINUE":UO,.HUI$:UI$" "72IS4,17:S1,35:WV110::S1,.:JUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)PK" --------------------------------------":LUB1024:U1209:U2210:U3211:U4214:UC204:UU2048MUT53272:UU%21:UL%23:UP%2139:UM1024:UO198NUD$""OUP$" ".PUT$" ERIODIC ABLE"aQS54272:EZSS23:EZ,.::S24,15:S6,240:R"";::53281,.:53280,.:A.:R.:N.:UP.:98S" HE AIM OF THIS PROGRAM IS TO AID YOUT" IN THE LEARNING OF THE SYMBOLS ANDU" VALENCES OF THE FIRST 20 ELEMENTS8V" OF THE PERIODIC TABLE.hW" OU WILL BE GIVEN AN ELEMENT NAME OR A"X" SYMBOL. OU WILL HAVE TO GIVE THE OTHERY" AS WELL AS THE VALENCE OF THE ELEMENT.":71:74Z" OR EXAMPLE:":14)"HE ELEMENT IS ODIUM.";["HAT IS ITS SYMBOL? A":14)"HAT IS CORRECT."u\14)"HAT IS ITS VALENCE? 1":14)"HAT IS CORRECT."]" OTE: OR MULTIPLE VALENCES USE"^12)"'&' ONLY (NO SPACES) TO"_12)"SEPARATE THE NUMBERS. `12)"OR EXAMPLE: ULFUR IS"a12)"2&4.":71bbUP.:UT,UL%:" OW MANY QUESTIONS DO YOU WANT? ";cUS$"1234567890Q":UL2:4:UR$"Q"dA(UR$):A20A198e" HAT IS THE HIGHEST NUMBER ELEMENT YOU"f" WOULD LIKED TO BE ASKED"(g" (20 ELEMENTS) ? ";QhUL2:US$"1234567890Q":4:UR$"Q"liB(UR$):B20B1103j:UT,UL%:J1B:E$(J),S$(J),V$(J):kQ1A:UG$"":UPQ:74lYY1:""10)R"RIGHT OUT OF"N""mX(B(1)1):Z(2(1)1):Z2119HnNN1:" HE ELEMENT IS: "E$(X):" HAT IS ITS SYMBOL? ";moUL15:US$"":4:A$UR$:A$"Q"pA$S$(X)2:115q" HAT IS INCORRECT. HE SYMBOL IS:":""15)S$(X)r138s" HAT IS ITS VALENCE? ";tUL.:US$"0123456789&Q":4:A$UR$:A$"Q"1uA$V$(X)2:128=v3:128wNN1:" HE SYMBOL IS: "S$(X):" HAT IS THE ELEMENT? ";xUL.:US$"":4:A$UR$:A$"Q"yA$E$(X)2:124z" HAT IS INCORRECT. HE ELEMENT IS:":""15)E$(X){138$|" HAT IS ITS VALENCE? ";S}UL.:US$"0123456789&":4:A$UR$:A$"Q"i~A$V$(X)2:128p371:"":" OUR PERCENTAGE WAS: ";:S(R100A):S"%"""S80" OT BAD.":71S90" ERY GOOD":71(S99" XCELLENT!!!":71SS100" INSTEIN MOVE OVER!!!":71s81:S5,8:S6,255:S4,39F150604:S1,F1:DV13:F2F12F12:S15,F2:::8181:S5,8:S6,255:S4,65:S2,12:S3,12S1,10:WV150:S3,8:S3,13::815U$""c"";:53280,3:53281,1:S4,65:S2,12WV122:" ";:U$" ";:56295,3"2023,224:U$"";T"";D$"DISTRIBUTED BY ":148:D$"VANSVILLE RINTING ORP. ":148D$"MODIFIED BY: EAN INSTEAD ":148:"";:S3,14:EZ139:S1,4:U$"";:DV1EZ:"";:((D$,EZ);:S1,.:WV.1:::S3,8IEZ1(D$):WV14::S1,4pU$""(D$,(EZ(D$)));:S1,.:WV11000::"YDROGEN","",1"ELIUM","E",."ITHIUM","I",1"ERYLLIUM","E",2"ORON","",3"ARBON","",4"ITROGEN","",3-"XYGEN","",2C"LUORINE","",1V"EON","E",.k"ODIUM","A",1"AGNESIUM","G",2"LUMINUM","L",3"ILICON","I",4"HOSPHORUS","",3"ULPHUR","","2&4""HLORINE","L",1 "RGON","R",.#"OTASSIUM","",19"ALCIUM","A",2