home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / drv / npl.100 < prev    next >
Text File  |  2006-10-19  |  8KB  |  72 lines
  1. 5 'NPL.100 v1.0 (9-25-92)
  2. 6 '(c) 1992 by James Yi [73327,1653]
  3. 7 'Node Datapac <-> PDD Link
  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. 70 FORW=1TO500:NEXT:MENU
  9. 80 IFPEEK(64704)=0THENPRINT" Loaded":RETURN
  10. 85 PRINT" Cksm Error!":BEEP:RETURN
  11. 90 DATAofcbjdpmagaimnhhpnohhhcdafmcmnpmmnomcaofcbmapmagahmnakepcbmopkaoagmnmnpncknapkofciagecelcklcplmngnglnkccdpofbblaplonainj
  12. 91 DATAobbbmopkagagofmngjdenbmbmfmnmnpnoboddokamndjccmbobaimnilpnlhmecopncbmapmeomnilpnjbhhmjofonodnjbdbdmbaieeenonbdbdofonajnj
  13. 92 DATAobbjofbdbdnfmfabapaagagiciabmdfipnmnnjpnncfhpnbjbimnnjpnnkfapnblbjaimkgipnajnmfhdembnbbjolobninpniofonajnjmdecpnofcklipl
  14. 93 DATAhocdcclipllhcdcdcdcdcdmkhlpnobmjofnfcbmbpmboaihocddfpmklpnbpclhhhkbpfhbnmcjcpncligilahhhhknbobmjdgafofcbmepmhodnpcmdpnmn
  15. 94 DATAhhpnpockmcmhpnmnhhpnngdjhhdkmdpmclhhngdlobmjmnilpnhhcdalhilbmcmnpnmjofcbmfpmhocddfpcoipndgahmnilpnclbphhobmj
  16. 100 DATANPL   COyxgqNCNp;*<oGZNrGeN^hm\zWnATHqPrwHQRXxyCKnMTHpoSXCb<Xn>TxfmGBolrGnNBXtjqwqNJYn]FXnbzWtHJCp\WAoHv>prowtJrgMOBXsHN
  17. 101 DATA;oHZyofrGtNBXnuSXnPTHTOfvoHBvo>^snHB^pLGBo\srnAK[q=PmkdLNnWLxuOjApfFHyJbWnLIxkszWnZLxuO^ApfFh=KbG;*z*z*rKK[GroB<=COV@C;F
  18. 102 DATAHL[?poBX?CXKhPQ<MjMN?L[soo><M\JJoK[Csn;?]dKrGNQZyC^srd=FHoDrGQQfNWNF>WNF^WNzeGESXnMTXnH?hq;FXCb<Xn>TX?a=XnVThqi@Xv`vN;HF
  19. 103 DATA`pH>bp`RiZ^sZCUFMoyz]kM?Xw>BLo\BWtCOWZyn\qj?hJWwO?x<XsbMWrigiCv<XsHN^pH>bpegBoHJ_pckkfM?MZKbWnlSxu\oBoIkL>EZQoUGlX^sZCMf
  20. 104 DATAPo]gBofSnFDrwHQrgIQrwHQrgrLfXDMrGKLfGCOvJkEJaoy>EkjqwqNrGhMRXnoEXpHNfo<jysfRiEoRzEZFXoPrGTQfXoPBys]ChyfF]nu>QU];hyHBapfB
  21. 105 DATAYnkJXnbJXnCKXniSXyeChy`B]nurGOooWVQ^kkVjQn;@XncIHoLw\oHRZoKrgIQrwHQB\CMBmTKrwKQv[=ytJCEv[oyvmHCJM>=rZor_g<>oWUo?mTKrgUQr
  22. 106 DATAGKLJGeNvmKJt=LJ@=RMrGeNfxnKzUnVJXnNEhqJ>XtfRYncIXsUF`orCgOMrWOLrgIQrwHQrgrLBiqmCXnbJxkx@xFi;PKO\?;jqwqNrw_M^XtPrwePBYtHF
  23. 107 DATAU?HF]K\f>WNRZnY>Xwm;romCro\rwbmDxTMRXo>ZyoLS<oI;PpHb@pUzcoGo[mbEh?No[pHCWaMj\?Hb@pbAXmHb@pZpWQOZPmHnroHr^p\KqoWN^pH>OoH^
  24. 108 DATAuoUnloHR`pgpgsMrWMQNXgNJwnMrWGQRZCb<Xn<Lh<EoGsV?Jqe_BoffmXKvJoAS;lvMXCQGHn[jLnY;K?n<hAaz<lJTxk]C?CwKOMMtNnsiOn>JXp\;;;Op
  25. 109 DATApswPfmsGxE^b[ocGx?>^mo\Vk<HjFpHv`p[COYoPqW[SaW`PA;DrGZNrGeN^hmYHXnATHpuIHplIxkOHhE;?=TNrWJQ>xkoSH;;;[IlHhv>CNWNbWxu;roiJ
  26. 110 DATA[GkHXwpf^WNvy;mCrolbwspf^WNRsVwtG;bd>WNF^WNBzsDrg\NrW_NJguQJgnWrW_NJgzQJgtWrW_NJWXRJGLXrW_NJwCSJGSXrg\NrW_NJWrTJw?Yrg\Nr
  27. 111 DATAW_NJWKTJG<Yrg\NrW_NJwEUJGSYrW_NJgCTJWZYrg\NrW_NJG\SJgeXrg\NrW_NJWISJgUXrg\NrW_NJWAUJWfYrg\NrW_NJG\SJwbXrW_NJW[SJwgXrg\Nr
  28. 112 DATAW_NJgISJwUXrg\NrW_NJwKSJG_Xrg\NrW_NJwUSJwaXrg\NrW_NJg`SJWqXrg\NrW_NJWuSJwhXrg\NrW_NJwVTJwaYrW_NJGzQJGsWrg\NrW_NJwUUJgXYr
  29. 113 DATAW_NJgGTJG^Yrg\NrW_NJWTUJwVY>;*UHB^p@RYC_Mh<Pog=JTN;^S^;\frBRhrBZlrBbprBjPYpW^LpHnKpLBiYnMVh=vGp<BMdOvK=yHmd=BKpt\FrY;K>=
  30. 114 DATABJpyl[lkWiZ^o[k=OXmLcFpPrwAPBydCNNmLwEp\cFpIXuEVc\^yf[qfOhpEClJHCGCPbWnfSxfm?rom;romCrowC^=QB\OqriCFSXCXRXq\sXpHR>p\sXpH
  31. 115 DATAF>p\OcxH^`pHv]ptrwEQfNWNF>WNF^WNrG@OrW?Of^=QZemCQhJ<ogOQBkaPFx`PrwePBM\qrwTQfxaPB;SPRwkY>XniSXyeg[p]C`xHR;p>^;pH^vMHF]KH
  32. 116 DATAv`pGx@;HNWpyomtHNWpysntDrWEOZiJuWYnwJxkwHhJH@[J?@[JI@[JAtzf\;Qp`ZogCRWCb<Xn>TXnsiOnGTXC<SXn]ALwRhydb>wkOb^I[O_WmxaW[;*<k
  33. 117 DATAkWpxkqqxkpqxkqqxkqqxkPXxk?]xk>]xk?]xk?]xkyBykmBykHyxki>ykgAykEBykH>ykv;ykJ;yk`;ykMAyk^AykAFykjwxkCwxkLvxkGxxksxxkEDyklCy
  34. 118 DATAkxDykY;ykuBykryH;*yGx[Djx[DJX[DRXxjIX[OGwiQjx[VJS@=ZfplBXmHvepprro>mro>AZmHvepVJsVVJsTbaG;*MogZUvrCyB]qwVhzjCWvQJguQzuPO
  35. 119 DATAW>mHvgpxXeyMWH@r[WnLVxk?WXn\WXn<eHq=vjpbaWnIVXR\ghp<c;;uPXnAYXteGip^BWoy?[G@]xYa>zRDrWXUzuPNBsq>YeYCjx[OCWLRvlJ>v>qjpgJR
  36. 120 DATAZ`D;ogkQnaC^VXpLghpHfcqfB[=;owmRBxkYWXnmdXniUxfNJSnIVxu=^rpDB<;;ogWURwsTCntQJX[<;;<CCHcRbKtd@Qk^JggRfrgVJcmjYxA>BvprHm=s
  37. 121 DATA@fk_YXks@Fm`RWpuWipRpgnQnRo\Jw^RB<;;ogWURwsTCntQJX[<;;<CCXtRbKtd@Qk^JWyRfrgENzpVJsA>^zpyHmo>i;YlEWuRBGYl]Wt@fntQrg>SBykO
  38. 122 DATAZXnpdxPHvgpHvnpbpgkQjYC[;kk=VxfRxpo<ix[bEwFSnlq>Q\kc[X;;KKmDF=uQbwfe[ipdrgWUvN;mOCq`B[=;cRCVVXnAYXoHZcqf^=>fV;<HfkNLGipA
  39. 123 DATAKkkdLNnmdhJ<CN\SfR?VVXn?exu<[;;>jwpysojD>[I@]xPuGep=QdG@]hC^UXmHRbqHVCqc?KvNG<LHpI=z[X=^_x?NGLvwtJ<OzGqHnFq^_xkcUX;@]h=b
  40. 124 DATA]wf=WoNVcl?frW]RjYmVOhARpgnQFWrSfRnI[XoMGX[jEN\SZqVN_WnmdxLytze;RWnA]Xtc?KvNG<LHpI=DGMxwPfmjNLwTFw>TjlATBIEAoIZyN;pJ^Xnw
  41. 125 DATA]xCTBzk`UXnsdHYl]w=HVDqSFl?>RMqHFbqs@FmFcl?HbIq>RNqHjbqprw;UBZx`Z\JPXlX`RHEE?YqfrgBRByClH=WcGkfM;PQ\BG<@cjVTZpRwogWUz_Za
  42. 126 DATAvjze=gC^UH>HCoMc?Kv`Jl?hfjdTFWcTb[oNaXs`BG=DchfTfgfT>QU>vUq[`qkNaXwCChfTB=;;_x?NOX;E;K=`jIE@oY;;Kku\^[qGbXtHvgp=vVq\bkfm
  43. 127 DATAOCqBx_YLJLqVgyX>bspHjbqLKOqPRZneVXk?O;YuRZqKv<H>v>qUvZqJW;qHRrpa>zkPXXCnThJ?sEwiQHEGgYoxCG=UvlG>v>qHFbq\GbpyK[H;[=>fr^k\
  44. 128 DATAcXmHFbqy?[G@]hZavjze=gC^Uhfr\WtcO[ARpgnQRiD;ogkQBH@PKWXRBYtcg[A\^m;fB<=;?[;;GgnRRIE>GgVURIEEoyu\bwkHyxkgyxk[yxkryxki>ykl
  45. 129 DATA;yk=@yka@ykz?I;*z*z*]ocq;;kqnUIC=ND@>n`X`rW?VrWIjt^QHF^VHF^VuwkqmqgGixoY\RykvgxNyHMnmsQ[XCJIVzMnmsQs>n>X`rGRqpgZhXpNHvRV
  46. 130 DATAZXokYhxX^?sNHvRV@CJRVNkFtuN=k?ikOM\YQF<mQVMmRt<;eokqHjlqHjoq;vFmYHWR?ogfYzeG=xZJmosz\sL=rGgdipw]VrgfYrWuVrgjVrGrVB<;Bpwi
  47. 131 DATAVbbGKgxd;B<;BowAVv[IHnlOuSszBxodCfM>VrW?VrgZhXrC@CGoVJGJodM>VjYCH@NqACKnijhJHGgGidM>VrW?VvrCHF^V@CGxVJGJopgfYf>?VZEm\Ksz
  48. 132 DATAHZ<r\St>HZ<r\Kt>`fM>VjYC<;KqNGLsTB<<lGwYV>;*boWbVrG;WzeGElxTjD=MWjYCElxfyeWTWZRBu_?rRllfumnOMNBrRt^;PrG<XBxbmO?rSR\kmlX@
  49. 133 DATAPjiCClxucwLp`V[<HFOD^S[;HFOD\^m<UoGHX^MAhnOL[`aCjkXsLrgfYBLGWB=fUrWmYjIEG?McUV;<HFODew=rTjyC^S[;>fkNHffryH]z\cHsWvzF=BHr
  50. 134 DATA>vGrHj?r>bIrHj@rOrfrSFgtWZUmHverjENMWfNLWZElRoXnfmxfeokqc[lTiSOqLc<;HjrqytZ;DfM>VjYClkXn>vXnAvxucSKvys]?N_x?Nsk>>>grQF_z
  51. 135 DATA>chJXv>gDzk>JSG[DrgfYvN;mc?ru_?rbY@nelXnmnhJ@GGYVB<;;_gIcexRQ;K;;OKmDF]LWrw]Vjxga>=mHngr?DRUqPACIxAX[CPT\LQYB;Kmje]LWbYn
  52. 136 DATAiuX?lkh<OGWUoogfYbWxyTY;Jw[GJgXwDfn>VZk<A>ntDv>OzaWniuX?hkXv^_xAVoyX^_xAUk^?kV<<ZpwYVB\EWze?N_XmHBfrLw=rhjlA?pOvCW>mDGMq
  53. 137 DATAVgLvVcLJmrZrPvn;H^rqv@XJMG\Z^_xdDrgfYZewasHBXCGNYJgJYrgfYrWbVrG;WZeyosXnInhqR<PnmnXC;;[ChkhJ>GgOYz\qDtXnInHpGpxHZENLWrgw
  54. 138 DATAWJwNYrgnWrgwWzdl=cM>VZrfm_?rL?K;>vWrHveruc=rbMwmXv^;>^rq`fMFWjYsDRiEClxu\bWnouHYl]w=HbXrMGlk;uXniuHYl]w=UGLnrqxkJuXniuxd
  55. 139 DATA=ND@uHFkVoWqX^xk]uXm>rsr>nur>>ur>Zvr>vIs>B>s>VNs>z;s>FOs>VQs>Rrr;;[CJvXmyH]z\kNJDrWpYfXzYvJFE>kryF]krvXnPvhmAwhz]CGvYrWp
  56. 140 DATAYFhsYj=m^oWpYfXzYjMmHFrrscKvyHMqewgr@ZOn;whqExhzhCWEZJMnPvHiEforHnhr>blrewgr@ZOn;whqExhzhcGLZZU<uforHnhr>Znr<bg>zn[AbY>m
  57. 141 DATA`rgTZBImfrWpYFhQZjy?NGgNZf\j;Jm?Azxb=VqrDJGcZrGiFHYn]AlsDrg]ZrGqt?=uvJgcLGW^ZJYp@RZnTyXw<BXsDRYpskKvLbwsPRWxHbtr<^rkPyxs
  58. 142 DATAPRWxHbtr<JW`ZJYp@RZnTyXw<BxGn_G;*z*XKnaBydLKwrAk[odLnk=PMnaByH>J<sHbYsHBfWjSI?AzZmHbYsL?xrHVQsfrWu\BLoZZNnQ;YndBYCLzX??z
  59. 143 DATAhAy>]<<KW^[zth;^FmH^vM\?xrHJUsHr`KH>BsprgC=@Zmy;mtywntHbTsSrGLFpWuJsZQCvzKCvjN=>BsraW<UsZCMbDsytZCz_w?yf]mx=izxcGj[vzJE^
  60. 144 DATAFsbEZh[VyZyY>m>^FsyY>k^Gg^[NKtPrg^[BXsKvbz\[xC>rFsHbYs\KwrytZCZm>qAkK<svrCyf=myz>myr>mbEzq[zUmHVYsHrJs`Bl_wrwJ\BYmLKwryt
  61. 145 DATAjCGZ@HIk[<;sRnb?ioq?yCyvbkW?i<;Ig=\rWuJ;f?No[kC?Ymyz=myf>myn=myF]z\wNmy;]?No[ks?Ym\KwrHVYs<S[;yH]z[cwQ\vjFEjPsMGL>=^Os^k
  62. 146 DATAK>?VNs>FODLKwrHVYs<S;;ytJCEbRs^Cl?HCGV\b[Zy>]JAcW^\v^FMG\<=ogK`sn;<yokq?YnVJ<mHjg?Hjg?beWa\vJCDvrCyB=qbJwc\rgt\B]rZN^ZHj
  63. 147 DATAXsHz;sr?MoZnhB[Nx>[Bl_wJgK\rgt\B]rZvRHHjXsHv<s>jVsaJkCx[JEGgykYBykHyxk[yH;*>[EkBYmekYsDf]v\bGI=giCkBYnICiEqijCiBYme;ZsL;
  64. 148 DATAqzTC=v\bWnlCiq]w^EgBI=]kYsDRiEgBY=]kYs\bWn^DYntCI=Df]v\RGLHhiEgBI=<>XC;;KmHB^sUFmJesYsDC]v\^Km`f]v\^[CiBYsDJGcZJYpQH=@Pc
  65. 149 DATAGY]ffR^SpC=^asfBxsD>;;]gbs<;;;LGcsPfmY]bKnFFLnaDI=eEY>sEyA=FI;y>=qyzBmGcGe]ZrtDrKmGo;mHs>=bv>Cbv>=bbwdLRJWCogC=@ZmrGWi]r
  66. 150 DATAWP^ry?NkrBxXl@RW\tJowz]ZYZazLnzFytrmrBHzjsy;mth><?KkbtZowz]v^IbrrBZSyJHzjsDvkFQf;>MBksAfNxtXYwbvNFDRXn[aLCi_ZnFHyPyhmEBW
  67. 151 DATAk<Bw@AHjosnAYnAHYt\[MyHjosRpwM^Zk<Z\<ASowM^z[tZGVsrH]W^_gZBwo<B?sEAiMm>rsr@X?v[_M?]DL;RM=DpXDDVFFU<<[^rm`mFs_OYI;vCt>zAe
  68. 152 DATAX?<UjEsLc_;\FEXMWa]pQD>K[cMIY`VXEdcb;NEVVvwO;*EiqyaRUjFDHRUD_^[];_\=LEY`mtcRNLr;*<kR`QdnrINV@_`QUhVF`?bKDbmvXMfME`mvhM`b
  69. 153 DATACmtmdhgaodhsom?zlOvDhnfJZOWEY_fW`M`UMnqeQOukI@`dqsMqvMdW`M@;ieMjURiOhFx\ER<EdXnfOdtPoEbVZ@TTvXqExdmKdptGKQ?dnDovoTaXicXb
  70. 154 DATAcPTZw@HpdwD>]MT\<`PCFbmTYWD<;q@VGEqVQ=aHyOOi_IXIXTbWyu_FLB][q@`VRtXTFhNt=PVIfamewbcmE`]rtpfQBaK\l@YDB`WMDFnIPEd_xUjMIsMP
  71. 155 DATAlhntn`rRygNYxdEjK
  72.