5 'XPTerm.200 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=63415TO63708: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<>41889THENGOSUB85:END 30 RESTORE100:CALL63415,,HIMEM:GOSUB80 70 FORW=1TO500:NEXT:MENU 80 IFPEEK(63408)=0THENPRINT" Loaded":RETURN 85 PRINT" Cksm Error!":BEEP:RETURN 90 DATAofcbegphagaimnghpiohhhcdafmclnphmnajcmofcblaphagahmnmbfncbplpeaoagmnlnpickpnpeofciagecelckgfpgmnkiicnkdnemofbbgdpgonainj 91 DATAobbbplpeagagofmnlkebnbmbmfmnlnpioboddokamnkmcnmbobaimnhlpilhmebopicblapheomnhlpijbhhmjofonodnjbdbdmbaieeenonbdbdofonajnj 92 DATAobbjofbdbdnfmfabapaagagiciabmdeipimnmjpincehpibjbimnmjpinkeapiblbjaimkfipiajnmkiebmbnbbjolobninpniofonajnjmddcpiofckglpg 93 DATAhocdccglpglhcdcdcdcdcdmkglpiobmjofnfcblbphboaihocddfpmjlpibpclhhhkbpfhbnmcicpicligilahhhhknbobmjdgafofcblephhodnpcldpimn 94 DATAghpipockmclhpimnghpingdjhhdkldphclhhngdlobmjmnhlpihhcdalhilbmclnpimjofcblfphhocddfpcnipidgahmnhlpiclbphhobmj 100 DATAXPTERMCO;fXDNcgq;fXmMC@;*=GGFh^EbcmtkxoykcmDOmPax?xqXi>MPk>C[;Q?TdLJ[[;=C[KOU\lAMbP@W@\RUoHYp@RZnAgXwTSn>TcISqigHJ_\JhRs`JgQVz_Z^owKAASBmZpqjowKAAykapS 102 DATAtH>u^HbL\RxOnTOsRBHWZVZrC^CVQ^\oOG]GtvACKnnjhJHGwKAAm_jrWGVvrCHJ_\@CWyVJgTHeNahZEm\KszHbHb]Otv\?; 104 DATA;]GtvLKKG>ftqLSox\GtvASKnuA_HiGMn?saC>FWRy?KnhlhqalXCjyYtLGtvyWKnAsQv]Ovv\B\Lrv;=HB\VyC[k=lXnufHrckxfbt]L]guvLc<;Hft 105 DATAqytZ;Df^fjF^ahzaD;?=;;Cmahf=fjrBVbDMbhzdl=?[J>Cn_jBL;mfVIwHfjq`vJ[EFIry>emdnh 106 DATAJUsvC=NHrf[K=<^;I?_XmHv\jHrfvbtkZR;]lMl>nmE`RjtkvJ[EJNry>gmnOrDS>;^S>;>GK?PEzkCpX=qcl;L;ewhJMqfgYlHb;FFAFHfjqHzRrZNxXXFhXXjYnrpH=C_KnufhKFpGqXrgyU^RgCj; 108 DATAYl]gZDSpXCCrCFGg[XrgyURWl<;;;H>XrDgYsTgYn\GsCJx[r 110 DATAtHvnNs`wYbegSYRhGQriIuwyd?fGTHrnsHrZr@D`OJD@C;?yTHjkLHbEsHvnNeCYvdB=;;CMLjv]NuknvQ>nTyfKnYVcIRry<\?Wvaq^GmnZJJC>zwbgIZCz 111 DATANAgOndhCqu?WvbMW\crG=@iFkuw\wtew`YzO<=ZdrPCW`YZNmQK[B;OWnLuXkMbL\DrWiYFhlYbgEIrILH@\ohrykSrXntmhqhvhz;FguYrWjZfGwYrWwWrW 112 DATA=goGdWNMDEr>NHbXr]sWvDC=ohrWnYbXmHbFrUvkR>jjruWXvZ[Xn=wHm`RWntmhqhwhz;FWFZbkuNrVhKJwk>A>sPy>gmxnhIQryd;frkxnX 113 DATAnTxxuesWvf^Rg?Vl[fF]ohB\ohrILHd=ohJGqXrGp[vN;HrArUfrrAcKnAV]J=GgUZrwXUd]fjV=;L;C;HbBLHjkLy;ntHVQs>bEsHNvrHR;rH>?rUvurHrv 114 DATArEvuryOKnRiXn;lXnxlxkd=YnO>YnkvxkeihIGXjz?YnCxXl^B;[;[ksUJ>sL;k;HfnqHfqq=^=sShBOTWeyM;IJmkXv];XvHFkrYn=wXl^B;[;[[oNHcw 116 DATA^CYnz>YngtX;CSSlbA=wwBlAkV[=HvGs\gvzA;_qbEnkuAOn>@yHHvFsjE^wwr^GwnjGRqYCn>Ynz>YCI`kH>vh\?DPMQP?;Hx?L@p?;uknvyr?m`rWeJHY 118 DATAnyrqATx=CNPAV`HAX[;KnGBLnyrAF[;bW`HrW[GBW\HQT[CQSmt]FB;KnrF\z[CGH\BYnVyokBz_ImnzdCrw@Au<;Q?KnLuxRMrOsDfWTZrgEeowXUpGdWrw 119 DATA=Bpgzh<]KtLRTn<]TmPQT;_WnywOn]l]xJPRZuHCVhIyF[ocAy>JC>ahZhmy@iJuWUxcGRrYm\kXvq;KnNBiCSrykJIyd\OtsCvJyCVizyfNCZIIm\_usDrgyUBk@^RwTukoxyNO?AGimHCiz>@\y]fW>]vjKLsisEr[sLckswdmu]V=;d_luhRY 121 DATACfFYm^^[ 122 DATAC`FYmo?wdCvjACvzZCRNlDBwdCvjACvzZCZPHu?WvbQgYCJG>^N^GvNZmoC>zobGHmoJxDN^GyNjExNZN?dmyoB^^RmpRiExNJEAc= 123 DATAv]zXs<^BkosnzmKisw>nksp_G;*DWCiC]>]s[CiN]bhsSEYb]FesbEIl]bhsqDy[]Fis\?ZGHvtTY;kk;tXxHbprGbssEr>NlZrCTB=v]N>k^KNmH 124 DATAblqHbprGjrsr[gZ^_xdDBmphvbv;ejtWXrBO>psY;kkJIiINrvJLCvzKEvqsyF?kugisQF[z>;xkGGiExNJEAc=v]zHm>nks\_pr`f>rhZEkYGkkJ 125 DATAIYCTxXtYK[ESryks]I?ZZkrTvHeW]EbV=ixZNtrF;YJ[BysnIYk^NbysHFzsRPXnkvXo\W;;y?KnLj`EzWjCUrYmH 126 DATAF;ty?KnrjPC;;[CzWzkCSSnufhEUriCzWzk>@Y;dJYlHFzsHFkrs@v=yH=l@c`kCKYmHFzsH^orHVNRU^=trHm=s@fkUKiCKrybmkXvHFkr>bys;*z*z*iKn 127 DATACOCm>T@HZYsL?gtUSyBhJMq;f^=jZEmeSkv`v=?ac[IEwYxHbpNHjtNH^sN 128 DATAhjMnJWOCWUZnGBLnHyOnOxOwmckv\JwaJpWBgrgj_rw;Y^XCmOYtCZOndhcoHPyfm;JzDf>wwZek=PIYHJ_\u_nvb]Bk>>]tHFNtybJmtAGKnoWkXpWF^fxg`vjAEjTtprgEaBjzHkWF^Jwa`f>I_ZeJHKgEarwr`fNTkZekwQiIQojtK[Wn 130 DATArdPnyrQLmDrWu;=;eKTv>jkLHJ[rMrYtyfjmPoYnfPYnCOCm\oYt`rWA@Y`zHcwBavj=Ez\t\OAwyXemZSYH^ogX`vbi?JStEz\tH^sN\osN`fRnufxtyf;k 131 DATA>nrNHfjqRdNH_ZeYEndt\[>tos_<;_kXCg]z\CxLaBbRfsZ>Ez`tyb[Z=^`ta^jlBknXfsFqCJMYNafkbTYQjyoX^;rCrXekV^t 132 DATA^OiZ^oWaar\k>UYoGoKx?R@JlvZ>CvN>HfjqHBOtRPXnZRYouSLza>LC`etoGmCHVRtm`G;*BKn_mhqxkOCK]iC]rYCQiJRGG?brGmaVzHWVlt\OgtyL^zEcG_cVL@QN[mwWiozWi@ 134 DATA>DnkaB[CbRgYHJ_\QKLnvuHqyB[mgXiz?cgTbvJA=VgrHbfrSvJA;JG_cBgJAGwKAqWiY^xLHbfrSz=ipB;[;cmjajYC;;KlPrWiYfXVyd?bfrUZ[@J\[kBSLw;BmlaVdmzYIJE^xt>>Du<;C;ewftyHMnbBy=s@fk@ZYnyViJ@CNlaV\<Duy^vxt 136 DATAH^gtHvxtyJ_mzZipPCgwbFnkaJwFcrgrbvjlaJGZcfmjav;[HrmsMz>uZE^lazuX^o[ko[iI?Vyd 137 DATA=nBuy?Kn>TcIBVYn>TsFHJ_\A;cEzUyu\;;;UGLn>TSpHFjtLZN<=NAuwpwKAenkaZUZ?J_\HRu\>R;uHJ[rKVXyE>Dux;WnAvhJSowKAqwKAIw;h>;;k_im 138 DATAcrYugaImfJDvmlYb_tJySzMC[]yRQ;KATgYvdB]lhB\LrV;=>vGsuSLzZkxjcz>rq@IqHFAFHnRFHfWu;RiExOjCY]YCr^iCxOZCD_iC@Pzu>zlWHnJudbWC 139 DATAcmdC@PjEY]iCxOZmHnJuuSLzZchCdf]OkRYnoCSkCC]khrwjcBWkykktHJ;PHvnMvuSLzZchSdz\qcmdI[qydEzOu\GtTHvtTHn[r;JGIff]rhF=Hjf=s 140 DATAhbZmSxOCU`yHHFGuHbFrURoNy>EkH^Ru>rNvHBUKPRiEouyEZFhddB=thzhqQayuDgYC;fxrUVUuLry?NGyujE^GjrWVJHg@>AZwlJWLJd^IjZem 141 DATAENaIQozBUJWuZChm_t>*;T@\GTvyxmXDrWiW>PQy>Gk`f]khzhoVbyu\zVmytJCUvnNbJmkYbI;*JPRJwHeRZtytjAEr]u^G\zECGCejiC=rYslfzHejYtHZru\FXPefnbhz]t>;gIQojt[[gEfbiC=rykKgYp`B]K\pgbb@YnYbiIwwizHDw 143 DATAlerWhBAYnfCaq?hYnCBQnmAa<[gH_teW\eR[m]gyNHJ[r=rluHfo\=jbuHv[SHVXSHnarHrZ 144 DATACmfxk`NQCcgYnigYsHRquA_LntuhomfYndhCqHJ[r?J_\yJ;m@Cwoevn;HJ_\>BhuH>]tHbfrUBhuy>]qmfYxH>]tHbfrMBkulvzKEvduuwTvjSy;;rg>]Hg 145 DATAzdvz;ENouHNou>>lu]@MNfrgFfrg>]@MOfrgFfvN>HJ_\HbfrSrGCaJW 146 DATAVfrG\fFMudBLch^bzB_wEL?UvA;kCjE\Zyn>my>=qEfsuyr]mEiizxcwifvjEEjvuyJ]mviipksj=UjvustzRsuyDl?stzBMfsu?Gg]ff^@xzlBU^n 147 DATAuRCHi_pWzXFOSpLACm@AX`\=Gh_NEz;KnrF\zVcgJJX?YQ>^zECxtfZEY=zzuyo_GwwytHnarHrZrOPaWhd>C;?=JjrGnLogJJd>JjbgIwwizHvUvtTHrZrIx?C>@_OM`OLMp[=;GGIfBQtYWy]`zytukoxyNoH=jAvHrZrSpqV_PQV[_pFI<=;HV\rABvbaB[G;HJJPUrnsRrg@DgrdEfGvyf[qbmiz@ExdgFNH_B\MgB=;oiC]rYnztXsrov>KmCnv\WhqH>]VHvFTH>HTH>fuHZwNykktHJ;vQr_kipYnXkiI[qyd?ZYSe;YvtB]VhF]shzeGYozTjD=worwZYrgKipGUJpgG`rGgcJg 152 DATA]h>;*wk<;??LMH@C[KoN;*Kz>;*?kRPtmdyo`XmdFpiWdURiaEOMvEjURY`QtEpnxsN`rvQhuOqdRfIVPeQhvgE]Oafcp`FRtEMfNrDfWFPWfobwboTdMNQS 153 DATAco?fS@vW@@d]=N`y;S;jfnN