5 'XPTerm.100 v2.0 [05/04/92] 6 '(C) James Yi [73327,1653] 7 'Xmodem with online access to TPDD-1/2 10 CLEAR256:PRINT"Loading.." 20 FORM=64711TO65004:IFS$=""THENREADS$ 22 D=(ASC(MID$(S$,1))-97)*16+ASC(MID$(S$,2))-97:POKEM,D:S$=MID$(S$,3):C=C+D:NEXT:IFC<>42415THENGOSUB85:END 30 RESTORE100:CALL64711,,HIMEM:GOSUB80 70 FORW=1TO500:NEXT:MENU 80 IFPEEK(64704)=0THENPRINT" Loaded":RETURN 85 PRINT" Cksm Error!":BEEP:RETURN 90 DATAofcbjdpmagaimnhhpnohhhcdafmcmnpmmnomcaofcbmapmagahmnakepcbmopkaoagmnmnpncknapkofciagecelcklcplmngnglnkccdpofbblaplonainj 91 DATAobbbmopkagagofmngjdenbmbmfmnmnpnoboddokamndjccmbobaimnilpnlhmecopncbmapmeomnilpnjbhhmjofonodnjbdbdmbaieeenonbdbdofonajnj 92 DATAobbjofbdbdnfmfabapaagagiciabmdfipnmnnjpnncfhpnbjbimnnjpnnkfapnblbjaimkgipnajnmfhdembnbbjolobninpniofonajnjmdecpnofcklipl 93 DATAhocdcclipllhcdcdcdcdcdmkhlpnobmjofnfcbmbpmboaihocddfpmklpnbpclhhhkbpfhbnmcjcpncligilahhhhknbobmjdgafofcbmepmhodnpcmdpnmn 94 DATAhhpnpockmcmhpnmnhhpnngdjhhdkmdpmclhhngdlobmjmnilpnhhcdalhilbmcmnpnmjofcbmfpmhocddfpcoipndgahmnilpnclbphhobmj 100 DATAXPTERMCOgxW^NSrngxWGNC@;*=GGK]JzZnzrkLDyknzBOmPax?xqXi>MPk>C[;Q?TdLJ[[;=C[KOU\lAMbP@W@\RUoHYp@RZnmyWwn`X`rWrJrWIjt^QHF^VHF^VukesmqgGixoY\RykB;xNyHMnmsQ[XCJn> 102 DATAX`rGRqpgZhXpNHvRVZXoke;xX^?sNHvRV@CJEKNkFtqGJo@ikOM\YQFEoyokkmsQCcUZnXzgZ^ogGiP[ka=xkwKbIhEydCB=\zrglKB]`JoglKB=`JC]eqBM 104 DATA;;C=eqB<aQAw[J[Gw=JtN;HfLoUJLo\Kgx`BCoWVUt^;=zIoHVunWRHojYaFAD=kqB\A;ow 105 DATALKvbz<_gI>VjGiEyVa;KC;;[CjEiEzXemTzlkzyLtpVIwy>cmeBhz;fGyLvJcENYolBIEAgY=frgAMRW;ASKnEw? 107 DATA=cCksTbksc`RjEmizk>CX=q;kCq;k;>?\atJwzLb[HUGK?`aZv^_xEfRWng>MklJYnPEXsfrgdJjYntCmkA@MnayWnqCxrOv]oMr]ofrgFM^;=DogdJFo 108 DATAMHzcoHVuns@FmF[RgCvR=QXB=mHm=>b^oHVun@RW;;;KnBEX=fBYAfrgtfHMkfJ\EiizrUraoDC]fvf=gvzhqsDX=];vyLCvyyGKvD_x?No^kxDXmOpP=?p_ 109 DATAEqiJ=`>QU>aogYaBC_]ojEHZi>lTxtYCjp\k^EXmH^vM^rgcLGmsDrwqNKwmMkNJDrgJAXXndz[zT`WCTt_JzWYnFFLndzkLxeGxMnfmmFh 110 DATAzLDwpMrbzTdwpMZ>Jx[rtHF]Ks`wYbeWBNRhGeFiITTzd?>PPHFzpHNfo@D`OJD@C;?yTHNXIHvPpHF]KeSjsdv]Bug`xQ>nTyfKnauaIfFy<\Ohsaq^G=xZ 111 DATAJJCN^zbgIj_zNAgOnZEBquOhsbMgZXrWVhhFkuwMyteGNNzO<=nooPCgMNZNmQK[B;OWnAHXkMvRVDrgVNFxYNbgE]FILH@\t]rykJEXna@hq]Ihz;FwbNrg 112 DATAWOfWdNrgbLrGv[oWOLNMDEFmJH>do]CisDC=t]rg[NbXmHVQoUZ@O>>vougisZ[XnrIHm`RWna@hq]Jhz;FgsNbkuA>sPy>gmoAh 113 DATAIeFyd;frkoAXnIKxueCisf^Rg?jxUfF]t]B\t]rILHd=t]Jw^MrW]PvN;HfLoUz=pAcKn[j\J=GwBOrGiFdmkqV=;L;C;HRmHHNXIy;ntHj\p>vPpHbApHFF 114 DATAoHrIoUJApHFBpEJApyOKn?Xne?xkYPXnDQXn`IxkRhqRNXnDQXnxJXl^B;[;[ksU^IpL;k;HZynHZHcGwOGYlTT<<`fmf]^[odOhIiEydE>OpxC^f]B;;@_[CjEiElEY=]?fs_cGKPBYnEr@VeV?DPMQP?;Hx?L@p?;ug` 118 DATAxyr?m`rg]=HYnrExATX=CNPAV`HAX[;Kn]ALnrEHF[;bW`HrW[GBW\HQT[CQSmt]FB;KnFF\z[CWuPBYnwDokcE_I=xzdCrgBit<;Q?KnAHxRMF[pDfgAOrg 119 DATAIZoGiFpWOLrGptowhM>]KtLRTn<]TmPQT;_Wn]COnA@]xQrGhMVOUgPA;Hv^LRZuHCVhIyF[oXTx>JC>f]ZhmnShJuWUx<[C@@rgy\ow=GXUmY?K;YCK 120 DATApHfbpLzeGeFyYq>cGfFYm\;jsq;KnCUhCgFyk?\xd\c?qCvJyCVizyfNCO\Hm\s@qDrgdJB;nRRwTu_DzyNO?vYhm=Vhz>@lfRfgkQvjKLGupEFgpLwvpwd= 121 DATAcRV=;d_luhRYC[YXmbRNNmogiGXYhEWYXhw>Bwpp_G;*DLVxpQRhpPVx;RvspHXhORZppWXXYRvspfWHIRZtp\?CDHBtPY;kkvFXxHv;pGv>qEFmJlZrCT 124 DATABMcRN>k^KNmHRwnHv;pG>>qr[gZ^_xdDBmu]vbv;ezDIXrBOR;qY;kk?\hIPFydCfNawvJLCvzKEJ=qyF?ku;upQF[z>;xkBwp\s;p` 125 DATAf>w]ZEkYGkk?\XCIKXtYK[EgFyk;rXlNnvoIIxwzHzZKPxeOb?p;NhwOVDqc\hXSbGqn]hBvDqHZEqRPXn`IXo\W;;y?KnM 126 DATAo_EGmjCiFYmHZFqy?KnsoOC;;[CGmzkFsQnaygEiFiCGmzksRX;Y]XlHZEqHZvos@v=yH=l?h_kx]XmHZEqHrzoHfbNUrHqrHm=s@fkJ^hC_Fybm;jsHZvo> 127 DATAvDqz>;*z*z*iHrQVCB;XTRWnypQnNfxLugisyFCY@nGeTBgITTzdCB]e]v?WuWesbEGdTBM>E[;msHGWOoGbQB\iVf\tZoyCT>gIxSzdCfMIqRiFCS]=uo^x 128 DATAprgI=pGZ=pWU=pyEH^XI\_yyHFU?HvaKHR^KlFNJqBykwDOno`XnyEHq\[Yq`^wLHzdWM>[qjE>KzbgI;xzd=RZqspgGid>QqZEY;JwoUrGuTvZyCB;@URgz 129 DATAsfwCPtzyEvNPDvrNwSyC;c=e]JGptogjMFHcUvjyEb]sHv\qHrQVCB=cURYnypqPyr[mMfhzEcgoUB]YrvrdEFhqpGMndchZuMgHUfgoUrWU=@]V=PiY 131 DATAHVunBd^uSZEYmNoMe_^xPdNJqRZnuC_EvSJF]g^xsXYF]g^xHR^KlFNJqRcEtSZRvuM;WnbKuhFmPrGw@@YnAQ_IKTz\L[XzA[=z=PmkXDOnaywPugIqbebm 132 DATAPiXCi^HHIT;;DWB=fsZCM>oqltpEyr[mShhzDsbkLhhtsVwprgYVBzkjgxC`vrCHFtqXCGZVBH> 133 DATAHOJlXvMwyr;myoKnayWnobxPPrg_UBhI]yjtK?]YrvbH;[wXy^[mTiHH^GMndchWD>;*BoWOLfhCz?M]XF]x]B]iVV[b;rHBwqqZ>rJkXCyihZosj=EbSrQO\p?cWHWFHIWVlKmkvqbSrF^VHvqoSZOniHHqj[Vx<;C;e[vqfB=;;OWpHvqoUvI@LFl?PrwuVBXkF[Rg=jBrHvqoU>J@Bd>j 136 DATAVZEliHhqkNlNCCGwO?Jk\;wqQeGiWn^mLnxkDqX;;=[EsihZ^oGbQj;YlEgjWrwxVvN^>rQ;ZnkHhqDqhzS;WnPlxkRnXndGyWVX@ 137 DATA=jIrmkvq>^MrHZHryV[mLohzPCgzWrw>WJgJXfNjVZEkHZzquwvqbeGEXv>RRre[vqI;Sn]ZhosoxbmwvqjYrCHCWFXfNjVZekpphJkVrgG 138 DATAixMnmsa<;e=iVjYC;;[ANogGiPXnfjXorO[kXpHZHF^VukvqbqBlmsQntwqkynXnyEHoQbjmDqXJ;rwYNv>AHF^VHF^V>Z\s;;kIYFXrsvxhYVHsbAi\\bUr 139 DATAuCuzaB[m^OPCe^hZjWRmy^Jqj?MaXz`@;_LAfrYu\chsLGDzA[kk>QhI]yzBWZWrzkxEQ^XnA@MnJCMnPvHk`f=AvFm`XBmzXF=AvBM?YF]?vjykdxPn?sXu 140 DATADBmwzD]?vfm`XF=AvbWn?shI]yzBUf]reWqx`rWye@G=]ShsHZWrh]ZemUtXCAYPnLYPnBFHk>J?seCjs 141 DATA]C`xeKjstbGQKPpOMuxkLDYnKLNp`f=xpjmrMBfr\[jsZfXcYjY=fB=VJzhqluXohJl?^jyfm;`xHv_K>jxUlBZw>b]K 142 DATAu_`xbeGOPd^czz\qIvxBM>PPyk*;LLCbEiZjWRmHVQoK``z;>WteShsZFhtYjYszagZy>]q]Cot^GWuY>;*;[IoEyd;f^czFng]f]p]F]xYZNnBrXnPvXAuG 143 DATAfsJWuBUbmruForHNfo^;KnySop>ForpRiZyf\mswxCNsj==jmrfF]p]BYwuForfRYn@=YsM>qruGfsjSy;;f^czVICCf]xYF]p]JwA[RXt\K_OHBtP\rWuYf 144 DATAnQqvZN=FxrHjgV\rWFNdxN[rGmMpGhMT;CV>TiE>tr@cWF[zOnyEhkc;YnjvakAyXnKGPnNFPnbGXnh?YnqyhEovhZyn>k>JwOyweGoEiIoEY?TZZCQyWxHj 145 DATAQPlBLyrB]bJJwUP@mG[rWI[BYnn[W<=vxryGKnmsqkWzXnNfXniHhqWzhz[cXzZRZnNfXniHhoG;YwyJ_mdyhInEyFaJ 146 DATA;kH>lO>bkryJ[mJb>sjfOfgmE;??PC<>;H>lO\g@sHb>sH>lO\w@sHb>syoKnms 147 DATAQniHHqHJhq>jBsHFDs]KjrLOfsstziz^cWm[VHGyf[qD>IYyZ[oS=ykN=iZMG^ 148 DATADsuCuzZw\q>J?sOcx@Wv^qcnhITmjz?X^kz@YnoEHQhxAT`pACTx]N[;KnLFhllydtZYspfNawvJCEv?OlbWnfSHqHnTsHRapHFQsuOhsbEWs\rGhMZPU_LBUu;KncRFMcRF]bRF=e]F]iVBm@]F]x]rGHNBY;dCYluOhs>zVry?[GeFYnoEXK]xaWoPATHc;;uOhsbMWE=LWE=LgC=pgwRJg[]B 152 DATA=;;OII;giCoFY?MTZv]Cjs\gjoTvnzmoeyy;_GKTZC>yWnwdPn?PPnQPPnvyXncE_JGWYnL?ipHDg[]rWF\f>h]ZEl_F`EoFYy\Ccs]SjsjE^ezZqV]CgyHN 153 DATAnoHvdQHb_KH^YqH^Vr>vds;*xW;;[FOOTonfVEU