' ' ƒsƒ“ƒN“d˜bƒRƒ“ƒgƒ[ƒ‹ƒ\ƒtƒg ' ‰Û‹àƒf[ƒ^‘‚«ž‚݃vƒƒOƒ‰ƒ€ ' 2006/3/6@by T.AZAMI ' ' ‰Û‹àƒf[ƒ^‚ð“à‘ŸEEPROM‚É‘‚«ž‚Þ Dim ci As Byte Dim cj As Byte Input RA.Bit0 'RA0 “d—¬ŒŸoƒsƒ“ Input RA.Bit1 'RA0 ”½“]ŒŸoƒsƒ“ Output RA.Bit2 'RA2 ”½“]ƒŠƒŒ[o—Í Output RA.Bit3 'RA3 ”½“]ƒŠƒŒ[(+) Output RA.Bit4 'RA4 ”½“]ƒŠƒŒ[(-) Low RA.Bit2 '”½“]ƒŠƒŒ[ OFF Low RA.Bit3 '”½“]ƒŠƒŒ[(+) OFF Low RA.Bit4 '”½“]ƒŠƒŒ[(-) OFF Input RD.Bit0 'DTMFŽóMƒf[ƒ^ Input RD.Bit1 Input RD.Bit2 Input RD.Bit3 Input RD.Bit4 'DTMFŽóMƒtƒ‰ƒO Output RC.Bit0 'BZ—p Initlcd 'LCD‰Šú‰» Clearlcd 'ƒI[ƒvƒjƒ“ƒOƒ^ƒCƒgƒ‹•\Ž¦ Homelcd Putlcd "Pink Tel Controller" Setpos 0,1 Putlcd "¶·ÝÃÞ°À¶·ºÐ " '‰Û‹àî•ñ‚ð“à‘ŸEEPROM‚Ö‘‚«ž‚Þ 'ƒAƒhƒŒƒX‚Í“d˜b”Ô†‚Ìã‚RŒ…Aƒf[ƒ^”’l‚Í•b” '“ÁŽê”’lEEE255‚Å‰Û‹à‚µ‚È‚¢ '“ÁŽê”’lEEE1‚Å4Œ…–Ú‚ð•]‰¿‚·‚é ' Write 000 , 0 ' Write 001 , 0 ' ‘Û“d˜b Write 002 , 0 ' Write 003 , 0 ' Œg‘ÑŠ„ˆø”Ô† Write 004 , 0 ' 0041“ú–{ƒeƒŒƒRƒ€ Write 005 , 0 ' Write 006 , 0 ' Write 007 , 0 ' Write 008 , 0 ' 0088“ú–{ƒeƒŒƒRƒ€ Write 009 , 0 ' Write 010 , 0 ' Write 011 , 90 ' –kŠC“¹`ŠâŽè Write 012 , 255 ' ƒtƒŠ[ƒ_ƒCƒAƒ‹ Write 013 , 90 ' –kŠC“¹`ŠâŽè Write 014 , 90 ' –kŠC“¹`ŠâŽè Write 015 , 90 ' –kŠC“¹`ŠâŽè Write 016 , 90 ' –kŠC“¹`ŠâŽè Write 017 , 90 ' –kŠC“¹`ŠâŽè Write 018 , 90 ' –kŠC“¹`ŠâŽè Write 019 , 90 ' –kŠC“¹`ŠâŽè Write 020 , 0 ' Write 021 , 90 ' å‘ä`ŒQ”n Write 022 , 90 ' å‘ä`ŒQ”n Write 023 , 90 ' å‘ä`ŒQ”n Write 024 , 90 ' å‘ä`ŒQ”n Write 025 , 90 ' å‘ä`ŒQ”n Write 026 , 90 ' å‘ä`ŒQ”n Write 027 , 90 ' å‘ä`ŒQ”n Write 028 , 90 ' å‘ä`ŒQ”n Write 029 , 90 ' å‘ä`ŒQ”n Write 030 , 90 ' “Œ‹ž Write 031 , 90 ' “Œ‹ž Write 032 , 90 ' “Œ‹ž Write 033 , 90 ' “Œ‹ž Write 034 , 90 ' “Œ‹ž Write 035 , 90 ' “Œ‹ž Write 036 , 90 ' “Œ‹ž Write 037 , 90 ' “Œ‹ž Write 038 , 90 ' “Œ‹ž Write 039 , 90 ' “Œ‹ž Write 040 , 0 ' Write 041 , 90 ' é‹Ê`_“Þì Write 042 , 90 ' é‹Ê`_“Þì Write 043 , 90 ' é‹Ê`_“Þì Write 044 , 90 ' é‹Ê`_“Þì Write 045 , 90 ' é‹Ê`_“Þì Write 046 , 90 ' é‹Ê`_“Þì Write 047 , 90 ' é‹Ê`_“Þì Write 048 , 180 ' é‹Ê`_“Þì Write 049 , 180 ' é‹Ê`_“Þì Write 050 , 60 ' ‚h‚o“d˜b Write 051 , 90 ' ŽR—œ`ŽOd Write 052 , 90 ' ŽR—œ`ŽOd Write 053 , 90 ' ŽR—œ`ŽOd Write 054 , 90 ' ŽR—œ`ŽOd Write 055 , 90 ' ŽR—œ`ŽOd Write 056 , 90 ' ŽR—œ`ŽOd Write 057 , 0 ' ƒiƒrƒ_ƒCƒAƒ‹ Write 058 , 90 ' ŽR—œ`ŽOd Write 059 , 90 ' ŽR—œ`ŽOd Write 060 , 0 ' Write 061 , 90 ' ‘åã Write 062 , 90 ' ‘åã Write 063 , 90 ' ‘åã Write 064 , 90 ' ‘åã Write 065 , 90 ' ‘åã Write 066 , 90 ' ‘åã Write 067 , 90 ' ‘åã Write 068 , 90 ' ‘åã Write 069 , 90 ' ‘åã Write 070 , 10 ' PHS Write 071 , 90 ' ˜a‰ÌŽR`•ºŒÉ Write 072 , 90 ' ˜a‰ÌŽR`•ºŒÉ Write 073 , 90 ' ˜a‰ÌŽR`•ºŒÉ Write 074 , 90 ' ˜a‰ÌŽR`•ºŒÉ Write 075 , 90 ' ˜a‰ÌŽR`•ºŒÉ Write 076 , 90 ' ˜a‰ÌŽR`•ºŒÉ Write 077 , 90 ' ˜a‰ÌŽR`•ºŒÉ Write 078 , 90 ' ˜a‰ÌŽR`•ºŒÉ Write 079 , 90 ' ˜a‰ÌŽR`•ºŒÉ Write 080 , 10 ' Œg‘Ñ Write 081 , 90 ' ’¹Žæ`‚’m Write 082 , 90 ' ’¹Žæ`‚’m Write 083 , 90 ' ’¹Žæ`‚’m Write 084 , 90 ' ’¹Žæ`‚’m Write 085 , 90 ' ’¹Žæ`‚’m Write 086 , 90 ' ’¹Žæ`‚’m Write 087 , 90 ' ’¹Žæ`‚’m Write 088 , 90 ' ’¹Žæ`‚’m Write 089 , 90 ' ’¹Žæ`‚’m Write 090 , 10 ' Œg‘Ñ Write 091 , 90 ' •Ÿ‰ª`‰«“ê Write 092 , 90 ' •Ÿ‰ª`‰«“ê Write 093 , 90 ' •Ÿ‰ª`‰«“ê Write 094 , 90 ' •Ÿ‰ª`‰«“ê Write 095 , 90 ' •Ÿ‰ª`‰«“ê Write 096 , 90 ' •Ÿ‰ª`‰«“ê Write 097 , 90 ' •Ÿ‰ª`‰«“ê Write 098 , 90 ' •Ÿ‰ª`‰«“ê Write 099 , 90 ' •Ÿ‰ª`‰«“ê Write 100 , 0 ' ƒIƒyƒŒ[ƒ^[’ʘb Write 101 , 0 ' Write 102 , 0 ' Write 103 , 0 ' Write 104 , 0 ' ”Ô†ˆÄ“à Write 105 , 0 ' Write 106 , 255 ' ƒRƒŒƒNƒgƒR[ƒ‹ Write 107 , 0 ' Write 108 , 255 ' Ž©“®ƒRƒŒƒNƒgƒR[ƒ‹ Write 109 , 0 ' Write 110 , 255 ' ŒxŽ@ Write 111 , 0 ' Write 112 , 0 ' Write 113 , 255 ' ŒÌá Write 114 , 255 ' ˜b’†’²¸ Write 115 , 0 ' “d•ñ Write 116 , 255 ' “d˜b‹Ç Write 117 , 180 ' Žž•ñ Write 118 , 255 ' ŠCã•ÛˆÀ Write 119 , 255 ' Á–h Write 120 , 0 ' Write 121 , 0 ' Write 122 , 0 ' Write 123 , 0 ' Write 124 , 0 ' Write 125 , 0 ' Write 126 , 0 ' Write 127 , 0 ' Write 128 , 0 ' Write 129 , 0 ' Write 130 , 0 ' Write 131 , 0 ' Write 132 , 0 ' Write 133 , 0 ' Write 134 , 0 ' Write 135 , 0 ' Write 136 , 0 ' Write 137 , 0 ' Write 138 , 0 ' Write 139 , 0 ' Write 140 , 0 ' Write 141 , 0 ' Write 142 , 0 ' Write 143 , 0 ' Write 144 , 0 ' Write 145 , 0 ' Write 146 , 0 ' Write 147 , 0 ' Write 148 , 0 ' Write 149 , 0 ' Write 150 , 0 ' Write 151 , 0 ' Write 152 , 0 ' Write 153 , 0 ' Write 154 , 0 ' Write 155 , 0 ' Write 156 , 0 ' Write 157 , 0 ' Write 158 , 0 ' Write 159 , 0 ' Write 160 , 0 ' Write 161 , 0 ' Write 162 , 0 ' Write 163 , 0 ' Write 164 , 0 ' Write 165 , 0 ' Write 166 , 0 ' Write 167 , 0 ' Write 168 , 0 ' Write 169 , 0 ' Write 170 , 0 ' Write 171 , 0 ' Write 172 , 0 ' Write 173 , 0 ' Write 174 , 0 ' Write 175 , 0 ' Write 176 , 0 ' Write 177 , 180 ' “V‹C—\•ñ Write 178 , 0 ' Write 179 , 0 ' Write 180 , 0 ' Write 181 , 0 ' Write 182 , 0 ' Write 183 , 0 ' Write 184 , 0 ' Write 185 , 0 ' Write 186 , 0 ' Write 187 , 0 ' Write 188 , 0 ' Write 189 , 0 ' Write 190 , 0 ' Write 191 , 0 ' Write 192 , 0 ' Write 193 , 0 ' Write 194 , 0 ' Write 195 , 0 ' Write 196 , 0 ' Write 197 , 0 ' Write 198 , 0 ' Write 199 , 0 ' Write 200 , 0 ' Write 201 , 0 ' Write 202 , 0 ' Write 203 , 0 ' Write 204 , 0 ' Write 205 , 0 ' Write 206 , 0 ' Write 207 , 0 ' Write 208 , 0 ' Write 209 , 0 ' Write 210 , 0 ' Write 211 , 0 ' Write 212 , 0 ' Write 213 , 0 ' Write 214 , 0 ' Write 215 , 0 ' Write 216 , 0 ' Write 217 , 0 ' Write 218 , 0 ' Write 219 , 0 ' Write 220 , 0 ' Write 221 , 0 ' Write 222 , 0 ' Write 223 , 0 ' Write 224 , 0 ' Write 225 , 0 ' Write 226 , 0 ' Write 227 , 0 ' Write 228 , 0 ' Write 229 , 0 ' Write 230 , 0 ' Write 231 , 0 ' Write 232 , 0 ' Write 233 , 0 ' Write 234 , 0 ' Write 235 , 0 ' Write 236 , 0 ' Write 237 , 0 ' Write 238 , 0 ' Write 239 , 0 ' Write 240 , 0 ' Write 241 , 0 ' Write 242 , 0 ' Write 243 , 0 ' Write 244 , 0 ' Write 245 , 0 ' Write 246 , 0 ' Write 247 , 0 ' Write 248 , 0 ' Write 249 , 0 ' Write 250 , 0 ' Write 251 , 0 ' Write 252 , 0 ' Write 253 , 0 ' Write 254 , 0 ' Write 255 , 0 ' Setpos 0,1 Putlcd "ÃÞ°À¶·ºÐ ¶ÝØ®³ " For cj = 1 To 100 For ci = 1 To 1000 High RC.Bit0 Low RC.Bit0 Next Next End