5 'XPTERM.100 V1.0 [11-02-91] 6 '(c)1991 by James Yi [73327,1653] 7 'XModem download to PDD 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 32 CLEAR256,HIMEM-PEEK(64208)-PEEK(64209)*256 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 DATAXPTERMCO_@iPHKQs>Fav;*I>Gu;>G;*CB;KK?DpO[;=LJ<;*Mz>;*?`W`TJLjXbv[O@w;EOSpLI[@LQUoR?YdLjLplAvCXQXkLOU\lqsPRWx`BMvOGYtP^>> 101 DATAhBXm^RXlpRYC_BykLBYksHgvOGYp@RZt\KZs>BXs]kOMlkWTRtH^ZsHbnVycPnmsQnmsaIu@igHF^VJhRs`JgC]z_Z^ogGi@SBmz\sjogGi@yk 102 DATAwKRtHn`XHvRVRxOnypqRBHWL]ZrCX\FG`OcbpM[gpa_wPY;KCFWZn=CYnmCIky]gR>r@n>X\oOG]gkxACKnvEiJHGgGi@m=rrGy\vrCHF^V@CWk]JGJodnY\ZEm\KszHBis\St>HBis\Kt>]okx 104 DATA\?;;]gkxLKKG>FasLGDz\gkxASKndL^HiGMn[d`C>jkNy?KnpGiqiGYCbWZtLgkxyWKn]dPv]omx\Bl_wv;=HraQyC[kEGYnDBIrkFyfbt]L]GmxLc<; 105 DATAHFasytZ;DrWn]rG=^vNvsUA\GMyH>wsZpGk^ZpuDvoCyHmX;;;KmHzECr[wubqWm\RitkvJ[E>;ty>em 107 DATABKiz;fw>_bKkC[>fzsH>@H^GmktJiJUsvC=BfzsfvbtkZR?A@Mpy>cmR;]z[eWqZGwjZOYxLcTyy>cmbLY?`ajz;fGT_f]gvvJcEjAtlBIE 108 DATAAgY=frw[_RW;ASknEw?=^bksc>z=tDS^AhJMqfgYng>Mw^rGt^rgz_ByuHbWsfrWI]GgL\oWm\rwb_zHpRMioQMyuHZDtC[K=HbWs=hOnsNYnDBIYl]w= 109 DATAs@Fmy`[Pr\[W^gkk]MYnDBYl@B;;;oGw_bku\bluHVyU^?wuNc]fvzhqQNY=]suye;vyZfXs_b[CkiZ?mijJ>oY=TJl?xCgt_bGPX`;LHd]hv^Kt[`QkDrWm 110 DATA\rw[_jykDNIfbt<=dCHA`nbvKWQZiBmVXCG>`bWnsiosHFU?^GYmHjx??jg?SZUmywntHZMtEJNty>=p?hOxHF]KlbWpvDN`\rggcrWB`R_OMx_O[;KsbpGp 111 DATAtc]c\biIVTjzHCmjq^G=xjGHyjFYcnQqVHGbtj= 112 DATA>VeVmyHMqbaW?LAYv?p_EJAyksNYnqRYlHN^t\^;qCfn`\z\q<^ykD^iENAiCLAYmHrxsObJYt 114 DATAHrxsUZ@O>jYtuWTsZ[XnmRImu_DzQFo>Jw[l;Y`z;fw^afN`\ZEkuHwF_rGHajiEHAyus@FlVjqu]?Ts>N^tH>ftHRos>bptHrrtHJYt>FbsH>ftH^ksUZ@O 115 DATAHFqsewSs]?Ts>BhtHrrtHJdt@JY;;=;=^fhxaB<;>og;]rgG]Fwua^pYK`lduRhtwC>b\Fm^\rgw`BwkTXY;TXYlHrrtHFZt@JY;;=;=MVltDo?UGo[mkNls 116 DATA@b`@?OiEx@I=MZntukRsbewKbr^Gw@Y;;OK=]oRs\rWT]BW=>jktHJptY?qkXL[IRAyBSrGMtV_pD[GPTgPqSo<=; 118 DATAHFU?H>Mtg;mM``BCwG_Oys]F;owmMsZ>=Jyt\rGZ=HGe=d^KzZEmHv\VY;[@ub]wCpB;]OOWtHfZCHj;N\NMDpvbzicG]OGmd=V?u\KoN]_DzlbgB;mSTsbAMocfg\cvJyEVCuyfNCV^imA]YC 120 DATA`^iCSAykF^yfmOTsLjbx;En`\bWnDBYxHN^tGbGulJG>arWu\rGHanWkcJgEaBm`\vbv;ezDIXbB;Gwmcf>b\ZEkYGK;YK[ESAykklYWa^atWTIq\^XsFXYi 121 DATAaZetIVI;brLuj^Yzc>Puu_iBRMuHvMuRPXn^RYo\W;;y?KnMo_EGmjCUAYmHvNuy?KnsoOC;;[CGmzkFsQnDBiEUAiCGmzk 122 DATAmZY;`_YlHvMuHFZts@v=yH=l?h_k?`YmHvMuHJdtHfbNUNQurHm=s@fkQ`iCJAybmkTsHFZt>RMuHrQVCBKWdRWnypqLHzcuuWTsyFCksHGacrWWdrwD`^Hl 123 DATAWaykEayfm;ozDZOnZEbqRaiI;xzd=rTuspgGid>QqZEksXizHs^=GNoMbagJ\k`uHN]uMRZuu_rxbEWxdrGiFpGC`R_WmHbI[;[Eb@ykOb^ItXjzC[Wna]IqyfvaKutzzEVduazrtDB]MgF]c\BMU 126 DATA\VKrhuJdnU\ZUY=^Kt?YQm\sQsoowueBLU\rY=TrGKavnn`XuwQsx?;[;[W;;KKmHR`t 127 DATAHRYuyWlk]fYnSeixrkxxeBMV\vBHyf[mEli@PSHmuMJmuQG_Gf@Y;AgYlHv>vupgGiTJ@BdnU\ZElJRiqkNlNCCGwO?Jk\sQsQewdfn^mjiykElYnHfiJ@CNV 129 DATA\V\<joumgQsqZ>rrfiIg@yd=zJ@HrguHZ]tMvyuyK[Gg@yd>zC;oWV^fnZ\vJ;=NLvuGgybMWE 133 DATA=LWE=pggcJW_irGiFd][\j]I]yzBzkhJAdxUhrWB`NOU\lQUiXAC;WHlhG@p_F@rfpyksiOCGAiZi>sXpnJChBJxfpYnOQiIGAit;ALqrBMk\JwUPxeGGAYn 134 DATAFvqkvEPnXOIEkoMId;KnkOIqQ>^zEChZhZekJqiJXSGGmg`x>NTt\KSsLGDzA[kkrXiI]yzBWZTv?KhxOCMsyHHfTvHzEC 136 DATAEb]KHr]v>rbvfrGOoOXteKZxfwhoWtYCtuyrUn_vfbku\KQsZfHRiBXvNGlsfzeGKTZnIDokVjQwlBzkdC?I;giC[AY?MTZv]sTs\KOtTrwR`fNb\ZElfpiJ 137 DATA;D>OqB=d\rGZUpGLPpWRhrGe=d=c\bZCLuiC]AYC;;[C=fZnYePnDDOnsiofmcuzHNTtHfSuH^Av>BfvnvubJiMhFReq`fd=`oimfq`RdPiMxWJyWG`MHdwe 138 DATA?rYe_iXfhPfXwjQfmjYQ@LEnPoum`fW@dptUulhJf?ErlpDPUMF]gKbVeOCb[ccSzO_E;c;eOc@]sxFMITUf[YpmlXvEptID`RhJrfrm]HCb?LbNpOyQyXsOeotleGaJfhdwIW`FmELTXuSanl_RqqWYvWEIItN=fKLEV@NeonTbFBQiXdEPdEPDPtPdEPdEib^K