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

  1. 5 'XPTERM.100 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=64711TO65004: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<>42415THENGOSUB85:END
  7. 30 RESTORE100:CALL64711,,HIMEM:GOSUB80
  8. 32 CLEAR256,HIMEM-PEEK(64208)-PEEK(64209)*256
  9. 70 FORW=1TO500:NEXT:MENU
  10. 80 IFPEEK(64704)=0THENPRINT" Loaded":RETURN
  11. 85 PRINT" Cksm Error!":BEEP:RETURN
  12. 90 DATAofcbjdpmagaimnhhpnohhhcdafmcmnpmmnomcaofcbmapmagahmnakepcbmopkaoagmnmnpncknapkofciagecelcklcplmngnglnkccdpofbblaplonainj
  13. 91 DATAobbbmopkagagofmngjdenbmbmfmnmnpnoboddokamndjccmbobaimnilpnlhmecopncbmapmeomnilpnjbhhmjofonodnjbdbdmbaieeenonbdbdofonajnj
  14. 92 DATAobbjofbdbdnfmfabapaagagiciabmdfipnmnnjpnncfhpnbjbimnnjpnnkfapnblbjaimkgipnajnmfhdembnbbjolobninpniofonajnjmdecpnofcklipl
  15. 93 DATAhocdcclipllhcdcdcdcdcdmkhlpnobmjofnfcbmbpmboaihocddfpmklpnbpclhhhkbpfhbnmcjcpncligilahhhhknbobmjdgafofcbmepmhodnpcmdpnmn
  16. 94 DATAhhpnpockmcmhpnmnhhpnngdjhhdkmdpmclhhngdlobmjmnilpnhhcdalhilbmcmnpnmjofcbmfpmhocddfpcoipndgahmnilpnclbphhobmj
  17. 100 DATAXPTERMCO_@iPHKQs>Fav;*I>Gu;>G;*CB;KK?DpO[;=LJ<;*Mz>;*?`W`TJLjXbv[O@w;EOSpLI[@LQUoR?YdLjLplAvCXQXkLOU\lqsPRWx`BMvOGYtP^>>
  18. 101 DATAhBXm^RXlpRYC_BykLBYksHgvOGYp@RZt\KZs>BXs<JgvOgxga>]kOMlkWTRtH^ZsHbnVycPnmsQnmsaIu@igHF^VJhRs`JgC]z_Z^ogGi@SBmz\sjogGi@yk
  19. 102 DATAwKRtHn`XHvRVRxOnypqRBHWL]ZrC<yOnypQ<mJ_s?wMiHn>X\FG`OcbpM[gpa_wPY;KCFWZn=CYnmCIky]gR>r@<HVfsHrcsHjesL;kLHfcstDnY\ZEkL;k<
  20. 103 DATAHF[sIcNnWG`IAyzLJXEm\gkxH^ZsHvRVrHM<=zds>n>X\oOG]gkxACKnvEiJHGgGi@m=rrGy\vrCHF^V@CWk]JGJodnY\ZEm\KszHBis\St>HBis\Kt>]okx
  21. 104 DATA\?;;]gkxLKKG>FasLGDz\gkxASKndL^HiGMn[d`<Js>C>jkNy?KnpGiqiGYCbWZtLgkxyWKn]dPv]omx\Bl_wv;=HraQyC[kEGYnDBIrkFyfbt]L]GmxLc<;
  22. 105 DATAHFasytZ;DrWn]rG=^vN<Oz`sO^ksuSmxmkRs\;;;]oRsy?K;yG[GFWZ?<?kk]DiEm@YtH>vs<rR_MrrsAnNDjlB_MRssAnnT<CU?@B<W\bXCt@YnRIyEqc^A
  23. 106 DATANgmEqw=HQf[oXIiluGmXf_WnkIiCm@YmH>UA\GMyH>wsZpGk^ZpuDvoCyHm<BXk<;ASmeSvy`fMbvRMkCoWy_>X;;;KmHzECr[wubqWm\RitkvJ[E>;ty>em
  24. 107 DATABKiz;fw>_bKkC[><TbWnnRkC>fzsH>@H^GmktJiJUsvC=B<t>fzsfvbtkZR?A@Mpy>cmR;]z[eWqZGwjZOYxLcTyy>cmbLY?`ajz;fGT_f]gvvJcEjAtlBIE
  25. 108 DATAAgY=frw[_RW;ASknEw?=^bks<v>c>z=tDS^AhJMqfgYng>Mw^rGt^rgz_ByuHbWsfrWI]GgL\oWm\rwb_zHpRMioQMyuHZDtC[K=HbWs=hOnsNYnDBIYl]w=
  26. 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
  27. 110 DATA\rw[_jykDNIfbt<=dCHA`nbvKWQZiBmVXCG>`bWnsiosHFU?^GYmHjx??jg?SZUmywntHZMtEJNty>=p?hOxHF]KlbWpvDN`\rggcrWB`R_OMx_O[;KsbpGp
  28. 111 DATAtc]c\biIVTjzH<WnjvamgPyHZAMb\vFmrDx[`zdGGAYnXpYCDQykLYPnXOiNj<mK\DbWdPaWHc;;DfnQqvZN=FUtukSsa>Cmjq^G=xjGHyjFYcnQqVHGbtj=
  29. 112 DATA>VeV<sg;HzdWSrWVhhFkF[Rg=fVtPCwh`ZNmQc[B;OWnrQYkMvRVDrwn`FHr`bWnFJI<@cgCzCM^\b[CJAYnxRYqe?Ts]GTsDfM^\NONL?TshJGy_rWm\rGH
  30. 113 DATAafgCzWbITmjz?DGDavbzU[wdCvzZCJMqDrWu\rGHaZ>myHMqbaW?LAYv?p_EJAyksNYnqRYlHN^t\^;qCfn`\z\q<^ykD^iENAiCLAYmHrxsOb<tHnIC>JYt
  31. 114 DATAHrxsUZ@O>jYtuWTsZ[XnmRImu_DzQFo>Jw[l;Y`z;fw^afN`\ZEkuHwF_rGHajiEHAyus@FlVjqu]?Ts>N^tH>ftHRos>bptHrrtHJYt>FbsH>ftH^ksUZ@O
  32. 115 DATAHFqsewSs]?Ts>BhtHrrtHJdt@JY;;=;=^fhxaB<;>og;]rgG]Fwua^pYK`lduRhtwC>b\Fm^\rgw`BwkTXY;TXYlHrrtHFZt@JY;;=;=MVltDo?UGo[mkNls
  33. 116 DATA@b`@?OiEx@I=MZntukRsbewKbr^Gw@Y;;OK=]oRs\rWT]BW=>jktHJptY?qkXL[IRAyBSrG<bB<;=og]]B=gbrghbrG``Bk=iPwd\;ozLwmxAcKnrXYCAxj<
  34. 117 DATA;dhK`GWUoogwbZNnbXyfmCoz\cutHVvt\sL=rSKdnrWXi\rouiHqxTyBN^XntwQJmGozDNQUnhq<;oqV_PQV;cnQqvZNCRYnEEosH>MtV_pD[GPTgPqSo<=;
  35. 118 DATAHFU?H>Mtg;mM``BCwG_Oys]F;owmMsZ>=Jyt\rGZ=HGe=d^KzZEmHv\VY;[@<owh`z`owZYmHbYsHVOCHrLtM@ONu;=;Hjws[`QnObNnsiOnuwLnXOiLdlQT
  36. 119 DATA;ogJA\xp=j>ub]wCpB;]OOWtHfZCHj;N\NMDpvbzicG]OGmd=V?u\KoN]_DzlbgB<?[B=og<c^Wp<kCu@B=b\V>;mSTsbAMocfg\cvJyEVCuyfNCV^imA]YC
  37. 120 DATA`^iCSAykF^yfmOTsLjbx;En`\bWnDBYxHN^tGbGulJG>arWu\rGHanWkcJgEaBm`\vbv;ezDIXbB;Gwmcf>b\ZEkYGK;YK[ESAykklYWa^atWTIq\^XsFXYi
  38. 121 DATAaZetIVI;brLuj^Yzc>Puu_iB<oW<dfm^\FM_\JwOdv\;HRKu>RMuHvMuRPXn^RYo\W;;y?KnMo_EGmjCUAYmHvNuy?KnsoOC;;[CGmzkFsQnDBiEUAiCGmzk
  39. 122 DATAmZY;`_YlHvMuHFZts@v=yH=l?h_k?`YmHvMuHJdtHfbNUNQurHm=s@fkQ`iCJAybmkTsHFZt>RMuHrQVCBKWdRWnypqLHzcuuWTsyFCksHGacrWWdrwD`^Hl
  40. 123 DATAWaykEayfm;ozDZOnZEbqRaiI;xzd=rTuspgGid>QqZEksXizHs^=GNoMbagJ<CN`\rg]dvZyCBkkdRgzsfwCPtzyEvNPDvrNwSy<r@=ZrV;;D_gEb@yC]WQs
  41. 124 DATADBMYrVk;HfkNuCuza>\k<cyfm_rxH>`uHN]uMRZuu_rxbEWxdrGiFpGC`R_WmHbI[;[Eb@ykOb^ItXjzC[Wna]Iqyf<myr[kwcYnWayka]izEcGbdBMYrNnC
  42. 125 DATA^OZnSbYwrHGbdrwD`FhRevjyEjIvHrWuHrQVCrgZhX`zHcg^evj=Evcu\_rxyXemIeYH^oGqdvbi?RYuEvcuHbaKHvcu>vaKutzzEVduazrtDB]MgF]c\BMU
  43. 126 DATA\VK<HfkNmCozwWrCrpgN=pWB`^`TmLaID_;;HN\u>rhuJdnU\ZUY=^Kt?YQm\sQsoowueBLU\rY=TrGKavn<e_Qsmc^xHNXI>n`XuwQsx?;[;[W;;KKmHR`t
  44. 127 DATAHRYuyWlk]fYnSeixrkxxeBMV\vBHyf[mEli@PSH<E>muMJmuQG_Gf@Y;AgYlHv>vupgGiT<JHBXtSFnV\vZ;EjpuyF[mVhiz?cWPfvJA=nXtHzWtSvJA;JgM
  45. 128 DATAgBgJAGgGipwn`^xLHzWtSz=iprwueB=;;OWnJRiqjNLnDSYn<fYkF[Rg=rquHzWtU>J@BdnU\ZElJRiqkNlNCCGwO?Jk\sQsQewdfn^mjiykElYnHfiJ@CNV
  46. 129 DATA\V\<<JwCfrGaeB;ifRg@zrWo`fhMgRZnykYwyV[m`kizPcgsfvzKEvxuy^<k>joumgQsqZ>rrfiIg@yd=z<vrOjJ<ogGid^V\rgGixMnmsQwA;SC;;;rbSio
  47. 130 DATAFkyfHF^VHBgurO[k?kIZHF^VugQsbqBlmsqktwaIg@yd=>J@HrguHZ]tMvyuyK[Gg@yd>z<vnvnZNbvqcjzFaV;mHnXty[LnmsQnmsqkfniwhFUvFpYXhvNP
  48. 131 DATAxmifgJMPy^Jqj?=Qgz`@;_LAfrYuyai;frYupiYnXOIOmxAXjHqVg\=Gx?oW^`QUg?NJSpqV_PQVd;KnkOiqLuipksj;MrDvmwRsDrwZgrGRcBlXgBM;;GWm
  49. 132 DATAgrwZgrWQcBlYgB=;<[Wp]CgyHvdQHbus\;;;]WQs\gIv]CUs\BkygRgIz@ykjliJ<CN`\rWB`B_SjDBX`LA;HrLtO`QV`d>C;oWV^fnZ\vJ;=NLvuGgybMWE
  50. 133 DATA=LWE=pggcJW_irGiFd][\j]I]yzBzkhJAdxUhrWB`NOU\lQUiXAC;WHlhG@p_F@rfpyksiOCGAiZi>sXpnJChBJxfpYnOQiIGAit;ALqrBMk\JwUPxeGGAYn
  51. 134 DATAFvqkvEPnXOIEkoMId;KnkOIqQ>^zEChZhZekJqiJXSGGmg`x>NTt\KSsLGDzA[kkrXiI]yzBWZTv?Kh<c^WCCriCMgZnJCMty;Wn_JiE;AI=DChTZHWUZ@mw
  52. 135 DATAzD]?vf^czz\qbriEbXZtHbjU]CSs<^[C;AYnRqYk<B]SiFMTrJwS[d^czz\qUsiEYAiCMTjE[AYyfrIZpewcR@[U`[[m^YPmPHPLM<=C>xOCMsyHHfTvHzEC
  53. 136 DATAEb]KHr]v>rbvfrGOoOXteKZxfwhoWtYCtuyrUn_vfbku\KQsZfHRiBXvNGlsfzeGKTZnIDokVjQwlBzkdC?I;giC[AY?MTZv]sTs\KOtTrwR`fNb\ZElfpiJ
  54. 137 DATA;D>OqB=d\rGZUpGLPpWRhrGe=d=c\bZCLuiC]AYC;;[C=fZnYePnDDOnsiofmcuzHNTtHfSuH^Av>BfvnvubJiMhFReq`fd=`oimfq`RdPiMxWJyWG`MHdwe
  55. 138 DATA?rYe_iXfhPfXwjQfmjYQ@LEnPoum`fW@dptUulhJf?ErlpDPUMF]gKbVeOCb[ccSzO_E;c;eOc@]sxFMITUf[YpmlXvEptID`RhJrfrm]HCb?<oL@PdEPdEP
  56. 139 DATAdEPdEPdEPdEPdEPTSgVtb]sMOU=ba>LbNpOyQyXsOeotleGaJfhdwIW`FmELTXuSanl_RqqWYvWEIItN=fKLEV@NeonTbFBQiXdEPdEPDPtPdEPdEib^K<pE
  57. 140 DATA_SiOlycoLREhKvwYhOLv_oLXeGv^MrmNHd_jX?dxElXKPqx
  58.