home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / xpterm.200 < prev    next >
Text File  |  2006-10-19  |  6KB  |  57 lines

  1. 5 'XPTERM.200 V1.0 [11-02-91]
  2. 6 '(c)1991 by James Yi [73327,1653]
  3. 7 'XModem download to PDD
  4. 10 CLEAR256:PRINT"Loading.."
  5. 20 FORM=63415TO63708:IFS$=""THENREADS$
  6. 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
  7. 30 RESTORE100:CALL63415,,HIMEM:GOSUB80
  8. 32 CLEAR256,HIMEM-PEEK(62717)-PEEK(62718)*256
  9. 70 FORW=1TO500:NEXT:MENU
  10. 80 IFPEEK(63408)=0THENPRINT" Loaded":RETURN
  11. 85 PRINT" Cksm Error!":BEEP:RETURN
  12. 90 DATAofcbegphagaimnghpiohhhcdafmclnphmnajcmofcblaphagahmnmbfncbplpeaoagmnlnpickpnpeofciagecelckgfpgmnkiicnkdnemofbbgdpgonainj
  13. 91 DATAobbbplpeagagofmnlkebnbmbmfmnlnpioboddokamnkmcnmbobaimnhlpilhmebopicblapheomnhlpijbhhmjofonodnjbdbdmbaieeenonbdbdofonajnj
  14. 92 DATAobbjofbdbdnfmfabapaagagiciabmdeipimnmjpincehpibjbimnmjpinkeapiblbjaimkfipiajnmkiebmbnbbjolobninpniofonajnjmddcpiofckglpg
  15. 93 DATAhocdccglpglhcdcdcdcdcdmkglpiobmjofnfcblbphboaihocddfpmjlpibpclhhhkbpfhbnmcicpicligilahhhhknbobmjdgafofcblephhodnpcldpimn
  16. 94 DATAghpipockmclhpimnghpingdjhhdkldphclhhngdlobmjmnhlpihhcdalhilbmclnpimjofcblfphhocddfpcnipidgahmnhlpiclbphhobmj
  17. 100 DATAXPTERMCO;?y?H;Ks>jVv;*I>Gu;>G;*CB;KK?DpO[;=LJ<;*Mz>;*?`W`TJLjXbv[O@w;EOSpLI[@LQUoR?YdLjLplAvCXQXkLOU\lqsPRWx`B=<QGYtP^>>
  18. 101 DATAhBXm^RXlpRYC;Aykh@YksHW<QGYp@RZt\;Ts>rQs<JW<QgxnrEJfPGGcJQYnOAYn`YcJUpwKAqwKAe^@\FVn>TsNv@Yt>rVsJtrCHJ_\<q\wuAyFHJ_\\JgT
  19. 102 DATAHQYn[ySnTOsPJpWA@ypL>>YsrHM[JpWA@Q[wYBI<j_VnapSs=nU@uTh?CVhDDZ`B;?]xjrWb\rWn\>gjCvpkCMKnLDYncCYnADY?;WOn`CYYmWLsb=W?;WKn
  20. 103 DATAXAi>uogA]dNxwZoNb]WCqzYnOAYnTOsX^O[kuCykapSCH@^Cqzi<=ogP]vN>>J_\\SzvHNTsyHMn>TS<=n`s>VQ^uWLsb]WC?yZnwDYCQyKnwDYCOy[CszYC
  21. 104 DATA<;[CqzY???nkxBY?AXZCqzi<Aogi<T^F^oG<iTk>y;mk=r`J<oGo]fXm]B]?kRY?qziJBog<ipiCS;ZsLSoxI[KnLsaJ=CWd]rWT\nx]]zuTiS_CI;Z?U;Kn
  22. 105 DATAxBiZyBKmH^asHJesyO;puBIp^EiIL;jGS?YC;;[CT?iJ<?[J>C^xjBL;<GWz\f]>\RYnFHYkx@doSGilwOmVw<do[GilwWQ;GBLlLkKsTBM@\rgG^j]Hucl?
  23. 106 DATAfg]HjK^pECHI^VgI^WrEDrwM^F]>\bWn>gLCMCZnVHyRHjpsRhYmIH]Z^WkLBW;[<agEdTZte;`x`?G=HfCtKB;;;_WnGjmHCjydHRQs`VIwy>cmVIiz[egc
  24. 107 DATA^vJkEfusD?G=sKKqDrgBAGmkPIYn\AoC^GG`^v^AyI]kgIykPIyuyTIwr@\SgOxkggMtpBL`mvJ[E^zsL;ewy>gmpJiE`Tjz[eGz^BZscSkuDgYnOKYl<S[<
  25. 108 DATAJBWRCGY=^BgJ[IGk^b[HUoyCTjmuHb;FlJYnzHYnJMYsfrWT\jYngqmk]lMn`@YnkKyrO^=tMZ=tfrGE_^;=DoWT\FoMHbCtHRQss@FmF[RgCvR=QXB=mHm=
  26. 109 DATA>J>tHRQs@RW;;;Kn<MY=fBYAfrWC>IMkfJ\E\TzrUZAtDCMSqfmSqzhqmLY=]GaxLOaxyGKvD_x?No^krLYmOpP=?p_EdTJ=`>QU<bWn`@YnOKyu>f@tgYaB
  27. 110 DATAC_]odMIZi>lTxtYCjp\kXMYmHZbQ>vZVHN;@?Zj?SZUmywntHNFtE>Gty>=p@cPxHvnNlbWpvDNG\rw?crgf_R_OMx_O[;Ksbpw=Bd]J\biIwwizH<WnlTsb
  28. 111 DATA\_Nsy]wX\[KtUvtTHvEtIxAC>@aWm`QTmp[=;_wfbxaC@xYJmCJzmkJzis_IwwipkWazEGgrAA[n=oWUF]XnCOsi;j;YlEGG`R\khOyHDV\=Y;KlHrMt<FXA
  29. 112 DATA@aWn@PioMPYmHVqs?O[mxk_Cd?Y=]gMsHJRtTfMF\FmF\bgEd?ILH@LF\rykDMYn`@YneQimxkoXukoxyN_kUQiZyf<mb]gzz\wCTbWn@AYneQyHCvrCTZUm
  30. 113 DATALoMshNONegMs>bCtHnQt@rge`BI=S^gIn?yBUF=u>f=uewMs]oMsDrGY^NHh^rW=gGWQ`rGY^fh>ZHWS`fnG\z<qH^QtCf>NrVhKJwk>A>sPy>gm@SiIl?yd
  31. 114 DATA;frk;JYneQyue_Msf^Rg?Vl[fFMF\Jge`rgDarGs]JwnarwwarWQ`JW>]rgDarwc]fh>ZpWz]fmE\FMF\JwLarwwarW=aRws<;C;CGiqgTY?;GKnXAYnHBik
  32. 115 DATA\TIQv<PAbezMan^Gs?iCf?YncPYk>zgt<wgt@rwwarGU`Rws<;C;CCH^abKNclK>EZ[@^RWQQKKte_LsCCXfaf>A\ZemtUYJm[Ls<;K<DCMA\BYn;CYkDGW[
  33. 116 DATAarWmavLS>^C<uGNsZ[XnuTY?;CKn`CYCLWYnRWYnNOY;CSSlbA=wwB\AkV[=Hrit\gvzA;_qbEnkuAOnNXyHHrhtjE^wwBm=brw@bB]NDWnkYVCTdHrUB;KV
  34. 117 DATAjLQTh<[IwwizH\WtHbuN^rgzhhLQj;mO`lQT^LBC;oGnLogzhl=CFPQY[knKMt^Fi;KnrF\zHCGLbBYnVyokBz_ImnzdCrw@Au<;Q?KnhOyRMrptDrW\\rgS
  35. 118 DATAgogf_FPKHd>C;ogT^>QUHjkLHZbQHf]EHvEtA`AV`<KnkN@qRFGbbZEm^OZ;nOLl`rwKhogmU@ID`OjZyv]mnOlCbEwdbB=LJD=NrBZmY?K;YCKnbXImPBKv
  36. 119 DATAbRWCs?iH;C^G\ZUCm[imbZizsfwtbvjI\k>uEZyt\S?u]KNs>n=ujENG\BxYq>cGn?YmHRQsprge`ngEcBzk=QYn@AYneQIn][yk[QYCn?iZi>cyanpXY;kk
  37. 120 DATAg[iIs?yd;vl;<s<<eKNs>NxubRir`FXto@IX\BgtjSYBaN_tqTiZc>@uY\YgcjDuY?Kna\iEf?iCh?yko]iB=ogTcJg\crw^cZPpHbPtLBm<;sN;HBxQewnx
  38. 121 DATA]SNsDrwbcvN;HZzQ\;;;]wnx>^[\HRQseSNs]wnx>Jpt<SCu@rw^crGU`^RgFsrC?R[Q=REuDrw^crW=argHXdXlcZrCF[Rg=ZFu]gMsZE>I\rGU`Jg\crG=
  39. 122 DATA@]W;M^YlHbL\BpwwdfnG\vj[;^rktZYngNYnM^YnoMIq?>Ku>jIujE>wwbwLHbq]UjJuu;JzbEW;d^Rn>TcItwyd;^rtyr[JEkW<UXUmy?[Gl?Ynf^izt^W;
  40. 123 DATAb_Yly^jmXMazvfGi_`gZJl^tBWRCb<j<;_KmeGKs^Cm;\bWC_<j<>oWkXd^@xVI?=RQujE>TkrGhdrG]dFXQdf>TkZekT`YnrdPnyrQLmDrWu;=;eGKs>jkL
  41. 124 DATAuKAwy^;mHZ;uSvjACvZ>=>UuH>Ku>Z;uyf[m;_YC_<JH^GMxHnNulZrk;_YnoMio=bizufwNgrWGdrG=@]WnTOsPyr[mmbizEcgwdB=TkvrdEFZupGMnw_iZ
  42. 125 DATAuMWMdfgwdrG]JpgwdJW^JdbzzfgydVyZbbWCiiiCy?YC@?i<@oWkXD^wwnnX^WRnhxOniMIQaDBTu_K=;oGYdJWKez_IB?ydtDWa_NsTDB]=\NNnJdY?@?Yv
  43. 126 DATAD_XnqQiJBcM<\Fn<jrw=BHGcJen=\rN;;=;m<;;<Drwm`rWMdvn@>V_uHnZuqZ>rVdYCD?iZosj=EvuuQO\p?cG\eFx\eVlKmWKs<cau@rgcffRn>Tc@wowL
  44. 127 DATA`^hGF?iz<cwjevj;EzfuyN[mteizSCgO`rWL`^hzS;wkiiYkySkk>TSn@PIqBpWL`^xFsQZnJdYC;;KlHROtUV[@HzRtHR]u<j;YlEWoerWL`fx<QW_IB?yd
  45. 128 DATA?ROtUZ[@J\[kBSLw;B]=\VdmFgIJEJlu>vuuHB^uyO[GD?i@A?wkBeYnwbY;WgYlQwZnBPiqiiYxHFuulvj<EbsuyR\mAhiz>dgKfvJA;JwfeFn<\VzHWj`u
  46. 129 DATAu[KsbEw[fZNxy?Kn>TcIE?Yn>TsFHJ_\lV;[\;;;WrTtMzqujqwKAqWDeZN<=^quwpwKAen<\ZUZ?J_\>Ru\u[KsbEw<QoWGerWb`FhOfv><m[KsbIw[fJjJ
  47. 130 DATAzHXiV^yyjSi<CrgO`v>AHJ_\HJ_\>z?vFpizgFFvLnIi_@=vMkYb_tJySzMCwiyRQ;KATgYvdFMuadYOdbluHvEtKDrVoxqSjlAEkoNKnHQUdlMGx[PVjLQT
  48. 131 DATAh`=;HrFtUfYvQ>^z=CX;gFnA\bWn^jYnxYY?VjYC<;kkhkYn^jYnuYY?ZjYC;?;mPF=worgKipGL^B=;;Cm;\BmNgF]J\BY;ZlYlugLs>Jxuy?[Gl?YniMYK
  49. 132 DATA]xaWoPAT;ogf_NPUhPaI[;KnCGiIV?iz;CGYgfNwoZEl@x?l@xOnN[ykerYnrd`EY?yEuSLzZw>rkN`qInYnpYSniMILd@AVdtqT[;kp?j]SOZYSWvGv>ZbQ
  50. 133 DATAVfft;QJn?mYw?vGvHJLtVfft;A<lkBMR\JWt_Hgi\pgf_^=Gh_NE;oWj_^hpksj=MfHvbEwugvNBA>^GwwykNOYC[?Y?AXj<CGWvaf^@xz<rnnI<OZqtCB=D
  51. 134 DATAhFMLprGZhOiJ;rwZ^f=B\^K=MnlW>zlW\[Eb]OOxuSLzZcxKhf]OkRYnoCcCY?YkCC=B\rwwgBWkHv<X>jVvuSLzZcxWhf]I\F=Hjf=J\bzuhnRhE>vT<wgG
  52. 135 DATACcGgb`WPNP_O[;mKJ@mUhZNnqnYnGj]m@xOnAqykQryuHBUKPRiEouyEZFXhhB]?izhq`qyuDgYC;?yrURVvLry?NGyujE^GjrWVJHg@>AZwlJWLJ\>;fF=J
  53. 136 DATA\B<HjriCu?YCLNYqHnItu_NsbMgngv>KmCnv\;OsH>]VHvFTHBGvHZwNekNstB]uhF]J\B=;;C=worgKipGUJpwXUxeGYoZnNOYnf^YnGjykEsiviyt^ZpiW
  54. 137 DATAdURiaEOMvEjURY`QtEpnxsnlOEp_mfMWvdMuqhqQhqlXUhEzuTP?dGRLfFRimP_QbvcBrePERjOdDhCm=XidM\W=]]]xNLe;[=cM\QC]rjCt_dh=uPFBzPiN
  55. 138 DATAMtPvnxuhgS>mDL;XOLPeMPeMPeMPeMPeMPeMPeMPAAvQydCi?`akdt[cndUEZFzIWuptleGaJfhdwIW`FmELTXuSanl_RqqWYvWEIItN=fKLEV@NeonTbFBQ
  56. 139 DATAiXdEPdEPDPtPdEPdEib^K<pE_SiOlycodo`FL`rf`EUb_IeN`dXOuQYeD`wh^ChRDi>emNk
  57.