diff --git a/03-ex.txt b/03-ex.txt
new file mode 100644
index 0000000..f17e726
--- /dev/null
+++ b/03-ex.txt
@@ -0,0 +1,6 @@
+vJrwpWtwJgWrhcsFMMfFFhFp
+jqHRNqRjqzjGDLGLrsFMfFZSrLrFZsSL
+PmmdzqPrVvPwwTWBwg
+wMqvLMZHhHMvwLHjbvcjnnSBnvTQFn
+ttgJtRGJQctTZtZT
+CrZsJsPPZsGzwwsLwLmpwMDw
diff --git a/03.txt b/03.txt
new file mode 100644
index 0000000..53d6524
--- /dev/null
+++ b/03.txt
@@ -0,0 +1,300 @@
+lDDWVvlVVQfDMlWjGJTRjQCgTGLCLj
+ZLZpwzLBhwZhSLBsjntGCtgJRjbnJgSG
+qppdZzzsdsmZphrNsNwZhllDHLcVVDWFPvFWcWdFlv
+ztdhgJDBJghmQtPFQPpmbw
+lVlLRcnfllcfVcccGnSQVLcsTPFbpwsPFspTSqmbpswpbF
+cCHRGcGcCRGlGrGcVGnrdWHWBDzBNhhQZWWNBhJz
+NfnSSQpdnRSSpvWdSsjZDGNDjGDwTGTjHG
+wlPzPqzPFbMmqPCFCJmbsjbHLDDHDZjDjbGHsT
+gwMlgmtmPcqVVvhVnvcRnn
+cBNBBCHhbhNhblBcCCvcBHSwTwDQSqRwDQpDRsjHST
+dPmzMVWdmmMnnZJtZVdqjTSrjTjrpQrsTTVwQRSj
+qzmZMmdZPtnGqclblGlbGvgBFc
+ZfpmNDfRhzbbqDnD
+SFtFjTTZVTFvVTjHrsVvqGBJqhnSSnbJznLGJwJq
+TjdPPtdMPPWCcZgW
+qsbmGCsjHNhmhmhzTDznpnlQZlbWlZ
+LTSSfSvggVVgBgfLtvvtTSczzpWnZQZnlnzpBcnWpQWc
+FrLvrrrVPgdPftSHHdNsjTHjmGThhm
+wGQlMjvMwpvjvZjZTZlWjplWJJTggDTgfCnntPgTJPbtPgSP
+qNhJmcVmdJqhHnPnDNtnPDCg
+LrrchqhRdLVzRdmhJcFFQWGGMjpGlvZzlQQv
+ZqZMbZMfQZptpjlF
+PJCggvHlwWHvSSvCJNvSPvDBtFDQThFQjtRQhhFTsVThQtsF
+PwWCnBBCClcMMznMdG
+rNwwQJrJrnQswrQrRRwCShBSLndZpdnhpGFSdhBp
+PvzzWVzbclGFhLFGdZll
+VWjPWvbjcVbVcGVzjcgzgwQQRRRrqwRJQwwstCRR
+zjBMMzznjbssrBrMBbvHDmrlprlrpwGpwQDV
+LhRwPPTLLNRZqScPWPWPTSmQvQQDGGdQHVDlmVpQGD
+NtfhNwhLLNwRwRNcTBgnJMCBzsBFjsJfCz
+jZjsWNDlPfClfMlM
+GjqbVSqjhgvgSVSBCPmMmCmfpwTBfh
+nGbjqtqcGzsLDFcJLs
+ZQtmZdtdQcLndRncdQQLFjWWDHNPfhpnqhqsHNNDnpHs
+TrMBGbJTwwlmDPPPWshWHfJq
+wmVzbrwbwvBlBlVGtSVLSdFjdFtdjLVR
+LBhZFhRPbbnPddMdPPlD
+NQszQNczlCSlJSsg
+mwmrVQwpQVWwTlvBpHHHFhZj
+pzzDffWpQBzMpHvzMfRnTNhZdrdBcnLrcdrTLZ
+msgJgtmbgmqJJcdrGcJjGn
+bSVPgwntmVnngQWvWSSMpMMHWH
+gmGMDHHdpngdrGmGcwbNCCnNcbbCSLwL
+zQPPPffQQlVlsPFQFzQchZZbLZNVcbqbNqbZgq
+PRjQzfRgRfjQBTfJQTlPFRHWmmvmWHGWrWvWWtjrdHpD
+vfrHfqrLfLwwNHdvnthpnnFFpstn
+gWcMclgmcRcWgDMWgBgGGFnntqQnGphdQhtbdFnh
+qRWmRDlcDqWBBPwPNrZHrwSHjTfr
+HVVbhdCdndhZSShMzRrzSM
+qBjWqvtWvDJjTjjGJtJtnqBvZMrgSGZlgfSgSRrMQGQRMgMR
+wmwtJsvjtTJwsNnVsHpdnsHdds
+FCJNZDMPNCNvzqQJHqzGqv
+hwjWcSTHwRpSWnQtGgQgGStgQQ
+WpwhRHTRpcLRjwlwwTWBcWdlFbCrsPrrLCMDrZCFsCDPrZPM
+DJjjShSGhGDSNdpfrWWcLFzrDWrDlF
+wtqZgwMBBPVMCBPQggMwqMMzfLlWrWLLzsWcFzTzVTzLss
+tgtwQqZBQQZbBZtPgbHpNJnJShcmJppSHh
+tHrWmrdzzdHflmHmHrSmqswlqhqNgssMhGgghssn
+pJcCBPPQPCcPpRpgwZNZBMnDhMsMBw
+RJCvRRVcQpjLpCJPWrftWvSnrFffWbrz
+jzlwwzDzTlQftzlWjfrBGBgVHBgpgBtPGVtP
+vhsshbMbNhZpgZrrrpHcZr
+qhdMqqSLSSbSJMqqSwwjzFzmjFQQFfHzLQ
+gDhHNnphPPPNCprHFhHFdbdczzjNqbzjVcdbQTcc
+tVJWBtVVZRWtjQbctjqcdj
+RfvlGLvLLLlLMZBmZBRhHDVPnVHPHCgFCnhlpn
+RFhZFTZvFdjlqqlRNCPwSSPCNPBSwC
+spHGswpnWgJLLJCPGg
+cWpDrVVbWfWbVfbsdQqcQzjjzlhdwqll
+WWJPpQwWdQQPNpQvqlvvCblbvbvwLL
+cmRMBMBTbSrTDRMcGBscTGfLZfvfvsCqhLlChZlLhfsC
+TVbzGSMGVVgdpdPJpQ
+lwsFfsZWGsGmsnlGQcPdBBdMbcPHfcCN
+RVvSLtSTrTVrTFPcBdCHRcPHbNNb
+LrqzLFTLrgSJLLLtTgJjVJvWlDDnjDWnWWlhlGWGhZWZhn
+GQJCMGbrMbbCGrrGtcwhctGjNSvWpVVVRjNJqVqqBBRRJq
+ssnglHHsnHzFmHnzHFPVDDSDRgVjvWDNpSSNpB
+PZfHmndFzzfPZPZfCdwchwGcbwwhCdMW
+DRGVQGmGQVnnGVmnnFpNbzCNRbRttCbpLztC
+qdqHBdjTqPlcTchBjJMvvvLtLCcLggLvtmgb
+fqhlHjdwqjjJTwldDmDmrGrrWFrDGZwD
+wFscLVLrrVhwWgZPrcswgZWFTnQdtTMnpQtjdpqdqvqQMt
+JRbHmmbDDSzDmDNpTnBBdpMHQtqtvp
+JmCCbvRGzbbGJsLgZsVhgLwwGW
+WDQwsBzWbBlMjdVpzTJVMj
+fncRngntnPCpJgmdFpFWgm
+RGZPZtZCfvWSvRZGSLvPccHwsrHbwHLrwHHQQsBDbllB
+PlNZhwgpppccgrqVvttbBfrlls
+CznSDDdHDRnRStVsVfDvfrtDZq
+QCddZFSFLTmccQmw
+rnwfVnclGPPFfSPSqBWZvvBBWqZvqWFh
+zLgLQgJssspmQTJmsgjZNmqqzqdHbthDdDDWHbhqBBqb
+QgmmjpNgCCZpjJLpmTrfrSrVRPfnrClfPwnS
+zDzPPwvwqvPPBqjnqvDqBffSfcSNJpNVfccLLNffBR
+MdTMZbgbmmTWGGdmssRCSNsSNVVVcJsNppsC
+MJghbhHhbtMMdWhbJhHgdmWvnFzHDQPDjQDvHHwvQwvzwF
+gGbqqRDrqDMdcBpVlpMG
+WzhPCnWfqMcpBnnNLZ
+fCqPHHJCfJhStwhWHbrrgvjFgbQbSbmbQs
+fhcchnSpfsNpjVVqnqjrGHqq
+zzlFLlPLWdggFqRBjqsrHrBTzz
+FDwgFLZWlbbchpwshsCNcw
+CmPlqqRJDHRDDsFv
+MfSpBQQNNfBfrfVZsmVVdzzrHZmH
+QSBSLSgmQBmwPCtgClhjPP
+NPNsHHHNsPsvHwDqgpwlqt
+rTRWSRrWRzgTzZrRVVLRQzjpbtmmGLlGDDbDwwmtblvDvw
+nRzSRrjSVRrnjrgZfrfzNdPdMPBfBMhJhhBcPhcJ
+LLhzQSDHDHNpNzHHJBQBMvMBqBRJBBqw
+rmbdtmlWCCMnvJrn
+FTVdmVgtjdtbWsvjjmdLSDcgHpDzShzDLPLSHh
+VFFJQVWHtQVHHWbJRRRHwqPvpMLpLZZWLwlwMllL
+jsngsdGssLvlqnZqZw
+hhmfDjDsmDNjjNRNVqNVJRtQHJ
+jvTnffrgFTwvqMzqGdMMSW
+sPbCtCCQQLffZGdWNLWDDzLzGM
+PQPBBtfZCZsmJPPplwwmTwpcTcmcgj
+NBmBRCCsBTRNTndGdswnlwvwnw
+fvbqrbPLqpGwScGGwbbb
+HJDPJFJLJtpJHCvCFBBBBNNWvF
+HJHgNQJBSlRRbJDRDb
+RptsfnshscWMLMZDZp
+njmrnPznnsTRTtPzFzRTswgQwqvVVwBNwwvjqCHqHq
+CBMgBJCTNgQcsQspPpWjRrWrsWsn
+mwLvHLGbdHbGzSHmvmvHzrhjjjPptjWGqZPPZhPRWWGP
+vbbrLFwLFDJFDfFN
+TnPvZSnQgQPHnnnQvgMSWppWNfWRpWfMtthMNDhN
+wLJmLBmGFBFdLBbCBbVCVlsGsWhtHqthRRhqhtHHGqqf
+LmHLbCjjBLVZzZSgzQgjrc
+wdSwfpBhtFbStpftjSVhBwFrGrsQnQgnGrQmqCPmDrmmDb
+zJvzLJLNZNscLzNHHLrGPvGGPrDDqGgDPDgC
+RWsNNRMsHTHLHTlMczLHZLWtpFwfpthSjFtwFhjSVplwtj
+QbrBDLGGRJMQJQJDbQbGvNscWNnTdvnvtnLcccvl
+fqZgpVPZHPmfgPPjBFgcscvNNccdddtdNvdFTs
+CgPpghfjjPgVmfBMMCRJQQJzJBwM
+jLWDqLdWdwLfHwJwzSSfwS
+gCgRRltMrlrCcCMzcBSVfZQfVNZNVSBVNNNh
+gMrcPntccGgzgTMlMPrtDWFvLqqdLnDsmLLFFqvp
+ttHJNccRRwmnsnHnHWMSwqfgvgfwSQZfQf
+ShpLhhzTPBMpQqQgvM
+zhbFjVdrjFjVljrVbdPddSTPHNssHnHlRNCHtRtsctJtGsRJ
+zMVTscVhQhGGhClv
+LfMJmgSBpLRfHmBPgpmJPSBdvQNtlHvrHvNNtNNNClGdGN
+JFJmmSFFbFFbRJPBgFPmSBPMzzWWTDjjTsTqqwjVWbjjVVsZ
+HZpCnwnggfFggbgLDcTb
+SjvWjGzNGGzRjSGmMcLhvhMhFMCcmv
+rjrVJNjVrzVNPrwtPwPCHBPB
+SWwFbTzsSjPzpjFbsWPTWTcWLCLgLgLBZjGVDjCVBBgCBGCZ
+lrJJttQcHqrHrvggHVBgBLffBC
+lnhhcqNRJWzhTdsWFz
+vzldvzlclbFjFvmtjZ
+DDNMNStMsSsGnhSMwQjTQVgVbwMbVTTQ
+DsDSCNNGpLtsNLpnNsqLppDzCBcdJHBzllcJfzJBPBdBlR
+qWNfDvffbJBFDpNfmpbwhGhwjLgTrGwhbGGwrj
+ZctMVCcVVQtTpthlnLtppw
+QMcRSPMZcpCZqDFNRFHNJFFF
+RmztpGSssNMzJRpCvqsCrqdHCBlBdw
+gffPFDcqVbgqWgjlPlwCCrdBdllnBH
+cFFZcbcqfQhgbcNJZRSMRtmNJptS
+PZthPBWlPNPSPtmHHggFGgBJJbwg
+qqzDvLLrfDpvvDLzqvnLzqpzbrCRGJRHwFCmHRwGwgwbbRCj
+nnpnMfpMLTVqfmthmsMNSScMhS
+dflvbdvpfffzpnNLNbWqtblqHjmVhVRhHrwrwrswhHnjsmwh
+gSGMdMcJBgMTGPSPDVZhHhHZmDZhrwwjVm
+CPJQGBGGPcSTFcTCScFtLLdWvptWLbNpNzvWQL
+WThqhvvRDJDRhwcrscNDNFgDHNct
+fnrZVnfVjrSGGLzZbnLzZLjVHstHHHQtgQbPpPcpHsscsFpN
+SVjZSzZdndVCdSSZmTRvMWBRWvvWlrvmhJ
+BcllhPPmMMBPcbRwgQtgHHgtmwgzmt
+rpLqbrbTnNvqjLqLNqrNLvHzDtwpDCzFwggttFFHCQFQ
+LrrrNLqjZSTsZZsvjbLjPhcBBlBsBcGPPcPlPVGP
+HHhrggvSHDtCDsfF
+ZMpLblppNZBDBwLzLLpMssCntfWdCFCnfCCtRNtq
+lbmJlzzLMPMmlBzhSJVccSJhTvSTDh
+sdjBBFqHscFnHTzCnRSnzgVTlC
+LpWWtvZfrpbLpZpWftprLCCNMzCZMmmzTNNTmSSVSM
+pLVtrtbGvpbpGLfPddHBscBQJJGcwsQq
+hLcLnVVcfQBLZPVZnThfVVmjqjHNjgvNfdvpNdrrvvfp
+lbRlWFHJtGNGpqmrqrCN
+DzRRDFsbDtFtDJtWRztzJZVBQMhTsLhQZMZHVLcLcP
+WgbdmgMmWDDvcPcpbz
+jffpllHSpHRptRRGRntSVwvLSCCJDzcCcDLvCzPP
+tRFrnlGfZrQpBpgQQsgF
+TpbBZbCCHCGZNHbzGqgFdNlcFSdNlStSqg
+wvWnWwLCPjJPJhMWtWdMfFSMgcdM
+hhmvmJrJLJJJPvvhDjswCRGHHrHzBBHGVRQBzRRQ
+zChCSBbpSsQscDHHQh
+LNJJRgGltJDvfcrfgHfZ
+lJNRGlLnNJtTGVMlFTbwSWqjBbzWWHSW
+NDTJQDVwCTCJhVGDLfbBbBfbGqbfHBfBHb
+lMgMrggMrmmtzMcgWdlmMlbsRjSRBsTRBWsSHSBTHRBj
+cMPlgztzrPMznnMPpgddgdzpwDDNNwhNFCTwNZQFLTVTwV
+ZgshQgzQnnwMtDwBwv
+SFWFlFZRRcmlWmWRBCDwvwwftBtLmfLf
+PjRFdTdWGddrGlPjcsJZpJzTqhzQJzNHhz
+PgHQgddszgdGPWpMjljMcj
+bSqTqnZLnDJSmnmZmtllGsnVtnWjGGWtjl
+fqSLDbRSfBdHsRwsFdHd
+RwHWZpCWhHvwvHCBMBpJMJGPJJnJgc
+lztljTFljRRBBzBnBMnJMS
+QbRljFtQfljbbFqNFrdZVrZfdCCwVwvddH
+sHzztVzLTgnssPggHHsnCtzBmfBMrMccBBmqmrBqBCRqMf
+ZhDQJhFDqjmSMrRF
+dZpwDhNhhZpQJdDQpwnsGttGwLtRRTLRts
+QJNhClVgPTTtPNCJJCtJhlNPZZRVZfvfzZzmvvzvsmZsvmzR
+blBWBpdbLBDqBpszzffRsvdzjvvd
+BLWpqBbqnDHqBbGlnWGBPcPJcHTTPrhtgNtCtgPc
+jWVJqVwgsJcHCVlQVVQNBp
+vGhGhTPtSSNCddSBCH
+ZCCDtbDftZsqrrcnWW
+hJThjThhVzVTZZwnNZRdgmzt
+lrbSSddsrbPQpsvNtgPRmtHmvtnR
+GQrspWdSGbDcsFFLBhCGVBjhjj
+rHdlHdZDlTcflcNfcrCgcTWWpWQFsRWsFjRCsCjWCmhF
+BnqbvQPLGLBPwqGmsVshsSWShGms
+PzzPPQJPMJtJbbznPnDdrHlNldDNltrgtfDg
+SmmMQhPSlmTwPpmnpllMSMPrccFDqFrDFGgqrDcCwfDgwq
+bVdLLNvdQWVbJbQLVGfGDGfDgrFrqgqJgg
+vjjWsbQdBsszhsHlhhPPSHsM
+PqzJqNzsJgsgNqPdLJPPPNVpMMVWGlFWNFGMpWppGF
+ZnZBjttQZcQZRTQDjQwGFlWMlGdGWVrWWlGn
+ZRDBRSZDSdSLsqJHfSbzzL
+rljJqtZlJqlJcvBNJBNQfQ
+TVMWznvPMTFWznwPFFvwFbbBNBgbcNpQdNcBFQpb
+mDnLWsPLvLMnnnmTzLzVCtlRRtjSljCZhDlhtqSq
+fgWMHClGMWfgRWWWGCfmfgCSVQNTDFHTtddVQQDZNLDZtVVL
+wSqbsvzpwpbpdFTNLQwLNTFN
+zscjPnPqsJlmPJCJSC
+GZSwQjGwGrCGwrTjdCTwdTBpqqlmNmVpNrNvplJqNNpl
+zMfJnDcbRRDRFbzDFRLFBtqNmqqtNBmNBvNm
+sHcJRRHzzfQTjjCjQjCH
+wJCVVbJgCLCwGsMbbGTlsRWHsztZPZWtPrPrWrHzrz
+DBqdvfqDBqFpWZFrtppZJp
+djqNfQcjDQjMgbbwLjlJGn
+TSwfZMfpQwcCCCCrbbCZ
+PLJmGJnjqjrsCjMMVj
+LnNNLLLnFFWmLFMGNMDgfRpDQSfwSfgQzBHwTS
+CdjNCMmdCrVmCjJdVjFNMtMzhWwpGbpBhPZZZDbGPpDhpr
+QSfHzlvgTQffSSHHclgfHnqPbPPPppBhpWDhwWvPhvbwwh
+cQfQRgQnQsnsQSgHRQJsCFMsCjLzJJFjCdNC
+ltLlJttmQdfVRhNmhB
+gWWDrPSvCSWgMMMZBVBdTQPQZNZVPR
+vCbwQzcQrCrLFHwJpHHGpp
+VbRVvVHRbJVTzVLBVPtt
+cSdgSZSZZFhnFcFwdDQcZZhgzpTlzLDzlWTvBWLztBtpLplT
+hZZvdrcSZQZSSwncdHCqHmGHqJrCJqbNbq
+lwWmsQlDbCZbVWZq
+rRShhhhPjTsjTRvHhqfzqfqvBZZvBCZffC
+scPThhRSjQmmNpplcg
+FChtDTThDqZtjppjvgNvjl
+LBwsVdVHLVvvpVGjjgjS
+BbHLBfRcsHcBdMbdWJQPWFCQCZZhWrJPQp
+zMtWCstzNrQLpbplFwQwhb
+gDTDHGvvHVfVdGZVJGDGdnmbwmWFwfhpbnfjwwjpLl
+GJcHVJdvZJVGZWHSSvTZMCzrzzRNSBtBNPBMqNBB
+pLzZVVGGZmZVlmDsQglgsllc
+WSvrjRjrMMFFnFjnrnrdjBRRgdsblQQPbpggsclNDDbPstDs
+SMWRBrrrvSRBSSvWWWBTMTCqpZzLCCTCwJZwwzGZzqHL
+TvfGwGZpPnSNgSSnGh
+srLVHLcjsjVtHqjjrjFjcCqPBggqNQQnMqhgngnznNNB
+VtdmPHLmtVHFLdmZWRJlWpWWWlmWfp
+SbSbdTsrVrdhfSdDGJWGmNwWWPwTGP
+BqlRpBMmllpmnpvvDJPZWPJwZcJgDD
+FFRMCnRFtCMRlMplqMBRBppVbtzdrdhssrmHzVVSsVhVHz
+dNrhhLsrshSmmRcPhm
+WMCngCzCvzvMMpplQvzWlRBPcVStSmTSQbbVSPQmwm
+MpzvWnllglJfqfMgsNdZHqNjdDsPHqqZ
+rNvGZRsRcRRBtBCttB
+DwPPQWnWWnPQnJlPhmTtBFBmqzhpmnFh
+QwQQQlbPPMWwDdDwlVDJJPPdvdSjrjdrsgssLLsZLNBrNNNr
+VjMMVzngnjQQfJDchZqGNqFPcg
+SWBwTtWSFTHwFClHHmwBPcJJDhNGPJNPPhPPGhJt
+CBvSBBBWHdmRTvRWRQFLQRnjnfLLzVbs
+flSpvLlmZpCpZmVSBtlvHHjFHTdssZdjHFdTWdNh
+RmQMQJRQJQmPgrzJrPcRQRJcWdNTGTGGFhGTdFhHThHGMTsF
+RzJrqqcqPRqqJDDqttCpmtlwBpDflSLt
+hBjPZbPBbWvTRnLRWntD
+MNGQNsQwfzsdGfgTGfzQwwffmnCRDVmJLRLCvnvLDvJCDgRL
+wTTdFldNHzTMljjFqphrBqhrZb
+wDcMCbZbzPDcZDWQdrJLrQrZBLRBQr
+FFSHStjtHgllgFdSNmlfFStBqRRssRsRJrLrjrrJBRVhLJ
+fGggtfHtgWMwbCGdCT
+RQrQDDbVGrRSfbVbGtmGtwHFWsCCzsJSJJHsJPJvWC
+hphQnhZQNjlBBcMMpCsHwFjvvHWHWsFvjC
+ppcnnBZqllTQfmrffbtGTDGt
+dsDFsBZBhCFhshFrpBFnmLQmHmRgRbLqmmmRQDLm
+PPBBNNNtGTwJNfTJffNttfLQgqLgHvHbqRwlgmblRvll
+NSNTGTJTWPjGWMPSJJzrBSpzdFSddCFdncrs
+bPzRlMPTzTMldJMnhswcjzfQVccQhc
+HCCqNmNmQQmQssJn
+pHptprtgRStTtMJt
+nTmhrsPMsTfmHHGcSgtj
+bJJwdlrJQLlvwlQDDwSbgffGVNjfgjNtVbcf
+QlpDQFJdvdFqJdFpLvDFpLLnzZMnBMRRzMTqnrzqTRPznz
+qRVRqBzgwqRpqRgVqQRPpQJJPrPhPGJnsGrCFdFJrZdG
+ZvWDmMvmSvCndssrsJ
+WcZcNWlcMjBQpzNTqVBp
+DpLPZLDDlcgmDmhVgfgfWWRwhwwt
+VrVMdbCrrBTjCMQQtMwQNSqMQW
+VCBHdJHdvrrFsbsdrBJTdTzZcpmZGDGPlmzmlccFDZDn
diff --git a/03.yab b/03.yab
new file mode 100644
index 0000000..1b90243
--- /dev/null
+++ b/03.yab
@@ -0,0 +1,62 @@
+sub getPriority(ch$)
+  local a
+  a = asc(ch$)
+  if and(a>=asc("a"), a<=asc("z")) return a-asc("a")+1
+  if and(a >= asc("A"), a<=asc("Z")) return a-asc("A")+27
+end sub
+
+open "03.txt" for reading as #1
+
+sum = 0
+while not eof(1)
+  line input #1 line$
+  lineLen = len(line$)
+  halfLen = lineLen/2
+
+  firstHalf$ = mid$(line$, 1, halfLen)
+  secondHalf$ = mid$(line$, halfLen + 1)
+
+  for i=1 to halfLen
+    for j=1 to halfLen
+      if mid$(firstHalf$, i, 1) == mid$(secondHalf$, j, 1) then
+        dup$ = mid$(firstHalf$, i, 1)
+        break 2
+      endif
+    next j
+  next i
+
+  sum = sum + getPriority(dup$)
+wend
+close #1
+
+print sum
+
+open "03.txt" for reading as #1
+
+sum = 0
+while not eof(1)
+  line input #1 line1$
+  line input #1 line2$
+  line input #1 line3$
+
+  for i=1 to len(line1$)
+    c1$ = mid$(line1$, i, 1)
+
+    for j=1 to len(line2$)
+      c2$ = mid$(line2$, j, 1)
+      if c1$ != c2$ continue
+
+      for k=1 to len(line3$)
+        c3$ = mid$(line3$, k, 1)
+        if c2$ != c3$ continue
+
+        badge$ = c3$
+      next k
+    next j
+  next i
+
+  sum = sum + getPriority(badge$)
+wend
+close #1
+
+print sum