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