5 'XPTERM.200 V1.0 [11-02-91] 6 '(c)1991 by James Yi [73327,1653] 7 'XModem download to PDD 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 32 CLEAR256,HIMEM-PEEK(62717)-PEEK(62718)*256 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;?y?H;Ks>jVv;*I>Gu;>G;*CB;KK?DpO[;=LJ<;*Mz>;*?`W`TJLjXbv[O@w;EOSpLI[@LQUoR?YdLjLplAvCXQXkLOU\lqsPRWx`B=> 101 DATAhBXm^RXlpRYC;Aykh@YksHWrQsTsNv@Yt>rVsJtrCHJ_\>YsrHM[JpWA@Q[wYBIgjCvpkCMKnLDYncCYnADY?;WOn`CYYmWLsb=W?;WKn 103 DATAXAi>uogA]dNxwZoNb]WCqzYnOAYnTOsX^O[kuCykapSCH@^Cqzi<=ogP]vN>>J_\\SzvHNTsyHMn>TS<=n`s>VQ^uWLsb]WC?yZnwDYCQyKnwDYCOy[CszYC 104 DATA<;[CqzY???nkxBY?AXZCqziy;mk=r`JC^xjBL;\RYnFHYkx@doSGilwOmVw\bWn>gLCMCZnVHyRHjpsRhYmIH]Z^WkLBW;[cmVIiz[egc 107 DATA^vJkEfusD?G=sKKqDrgBAGmkPIYn\AoC^GG`^v^AyI]kgIykPIyuyTIwr@\SgOxkggMtpBL`mvJ[E^zsL;ewy>gmpJiE`Tjz[eGz^BZscSkuDgYnOKYlJ>tHRQs@RW;;;KnIMkfJ\E\TzrUZAtDCMSqfmSqzhqmLY=]GaxLOaxyGKvD_x?No^krLYmOpP=?p_EdTJ=`>QUf@tgYaB 110 DATAC_]odMIZi>lTxtYCjp\kXMYmHZbQ>vZVHN;@?Zj?SZUmywntHNFtE>Gty>=p@cPxHvnNlbWpvDNG\rw?crgf_R_OMx_O[;Ksbpw=Bd]J\biIwwizH@aWm`QTmp[=;_wfbxaC@xYJmCJzmkJzis_IwwipkWazEGgrAA[n=oWUF]XnCOsi;j;YlEGG`R\khOyHDV\=Y;KlHrMtbCtHnQt@rge`BI=S^gIn?yBUF=u>f=uewMs]oMsDrGY^NHh^rW=gGWQ`rGY^fh>ZHWS`fnG\zNrVhKJwk>A>sPy>gm@SiIl?yd 114 DATA;frk;JYneQyue_Msf^Rg?Vl[fFMF\Jge`rgDarGs]JwnarwwarWQ`JW>]rgDarwc]fh>ZpWz]fmE\FMF\JwLarwwarW=aRws<;C;CGiqgTY?;GKnXAYnHBik 115 DATA\TIQvzgtEZ[@^RWQQKKte_LsCCXfaf>A\ZemtUYJm[Ls<;K^CC;ogT^>QUHjkLHZbQHf]EHvEtA`AV`uEZyt\S?u]KNs>n=ujENG\BxYq>cGn?YmHRQsprge`ngEcBzk=QYn@AYneQIn][yk[QYCn?iZi>cyanpXY;kk 120 DATAg[iIs?yd;vl;NxubRir`FXto@IX\BgtjSYBaN_tqTiZc>@uY\YgcjDuY?Kna\iEf?iCh?yko]iB=ogTcJg\crw^cZPpHbPtLBm<;sN;HBxQewnx 121 DATA]SNsDrwbcvN;HZzQ\;;;]wnx>^[\HRQseSNs]wnx>JptI\rGU`Jg\crG= 122 DATA@]W;M^YlHbL\BpwwdfnG\vj[;^rktZYngNYnM^YnoMIq?>Ku>jIujE>wwbwLHbq]UjJuu;JzbEW;d^Rn>TcItwyd;^rtyr[JEkWoWkXd^@xVI?=RQujE>TkrGhdrG]dFXQdf>TkZekT`YnrdPnyrQLmDrWu;=;eGKs>jkL 124 DATAuKAwy^;mHZ;uSvjACvZ>=>UuH>Ku>Z;uyf[m;_YC_V_uHnZuqZ>rVdYCD?iZosj=EvuuQO\p?cG\eFx\eVlKmWKsTc@wowL 127 DATA`^hGF?izTSn@PIqBpWL`^xFsQZnJdYC;;KlHROtUV[@HzRtHR]uvuuHB^uyO[GD?i@A?wkBeYnwbY;WgYlQwZnBPiqiiYxHFuulvjdgKfvJA;JwfeFn<\VzHWj`u 129 DATAu[KsbEw[fZNxy?Kn>TcIE?Yn>TsFHJ_\lV;[\;;;WrTtMzqujqwKAqWDeZN<=^quwpwKAen<\ZUZ?J_\>Ru\u[KsbEwAHJ_\HJ_\>z?vFpizgFFvLnIi_@=vMkYb_tJySzMCwiyRQ;KATgYvdFMuadYOdbluHvEtKDrVoxqSjlAEkoNKnHQUdlMGx[PVjLQT 131 DATAh`=;HrFtUfYvQ>^z=CX;gFnA\bWn^jYnxYY?VjYC<;kkhkYn^jYnuYY?ZjYC;?;mPF=worgKipGL^B=;;Cm;\BmNgF]J\BY;ZlYlugLs>Jxuy?[Gl?YniMYK 132 DATA]xaWoPAT;ogf_NPUhPaI[;KnCGiIV?iz;CGYgfNwoZEl@x?l@xOnN[ykerYnrd`EY?yEuSLzZw>rkN`qInYnpYSniMILd@AVdtqT[;kp?j]SOZYSWvGv>ZbQ 133 DATAVfft;QJn?mYw?vGvHJLtVfft;A^GwwykNOYC[?Y?AXjzlW\[Eb]OOxuSLzZcxKhf]OkRYnoCcCY?YkCC=B\rwwgBWkHvjVvuSLzZcxWhf]I\F=Hjf=J\bzuhnRhE>vTAZwlJWLJ\>;fF=J 136 DATA\BKmCnv\;OsH>]VHvFTHBGvHZwNekNstB]uhF]J\B=;;C=worgKipGUJpwXUxeGYoZnNOYnf^YnGjykEsiviyt^ZpiW 137 DATAdURiaEOMvEjURY`QtEpnxsnlOEp_mfMWvdMuqhqQhqlXUhEzuTP?dGRLfFRimP_QbvcBrePERjOdDhCm=XidM\W=]]]xNLe;[=cM\QC]rjCt_dh=uPFBzPiN 138 DATAMtPvnxuhgS>mDL;XOLPeMPeMPeMPeMPeMPeMPeMPAAvQydCi?`akdt[cndUEZFzIWuptleGaJfhdwIW`FmELTXuSanl_RqqWYvWEIItN=fKLEV@NeonTbFBQ 139 DATAiXdEPdEPDPtPdEPdEib^KemNk