5 'NPL.200 v1.0 (9-25-92) 6 '(c) 1992 by James Yi [73327,1653] 7 'Node Datapac <-> PDD Link 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 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 DATANPL COJfXrN_Hv^RXlprwqUBZkLBYm`RHIGoYoDJYp@RZnVfXksHwpUJYp@RZnVfXk>Zhq^RXlprwqUBZkLJnGD>;*>c]=VbgEAgXme[kqD^^;fF]=VrGE 101 DATAVfMUqF==VbgEEgX?[xZA]SkqDrwMVfXJGd]Fiq;;[C;iXmyH]z\kNJDrg\VfhfVvJFEBvqyF]kciXnAihmrihz]CWbVrg\VFx_Vj=m^og\VfhfVjMmHJ=rscKvyHMqe;sq@ZOnlihqvjhzhCgqVJMn 103 DATAAiHiEjzqHrsq>fwqe;sq@ZOnlihqvjhzhcWxVZU^yqzn[AbY>m`rw@WBImfrg\VFx=Wjy?NGwzVf\j;Jm?Azxb=ZB@maqJGnLGwnU>;*z*XoGSYZU?ykh\lzbWn^tX?FlXn[rxuHJarLg?rroG_WrwSYBmMWB\JWf\z[SK;?Z 105 DATAKrZYFks]WnrdPCFlXnXsXnwxOnenXxHvnNlbgJ[WiJzWYnNsHqHR[QHN^Kr?OYpH^KrLBIoytZCSJmkroXn^tXCykhZyBmbw[hGS 107 DATA;;ypWcXFHgXJ]zyDg`XV;[>NSrHN]mnrxCMGL>=VYrDsbz[s^MmyH]z\[xt>r\rH>ar\[@rosRnPtXnDmxH\g 109 DATA?rW^DrObCrLSox>nVrH>ar\[@ryPNnPtXnSmxkpsht>GMJs^=>fJGQYJwnUJgsUJYpQH=@PcGYYffR^SpC=^arfBxsD>;;]gbr<;;;LGcrPfmYYbKnrFLnat 110 DATAH=euX>suxA=vH;y>=qyzBmGcGeYZrtDrKmGo;mHs>=bv>Cbv>=bbwdLRJWCogJJ@ZmrGWiY>;*yNJSmVJSmNBSmPRzfNBC@>vkrVJsq>Q\kEwXwLbWnyqq>YqdD>;*MHBhsyH]z\cxNZvzF=>or>rnrjY@@r[Wn\wXZbeZTZNlHCrGDZJwPZrGXZrGp]^hkLxxdDrWCZrPCiwX;E;[YPrWqZRiE 112 DATAqwxsq[jbtkzPmH^gsjYpoqWCZjikFzXmL;;; 113 DATAHRgs@JYAmcnrNBS;;K;=MJzrDOYU\@ws>R;suHvq>eg;[jlk?;yX^g;YlEwxZBGYl]Wt@RhIuwxPHBmrw@Xs>FyrL;;;HRgs@JYAmcnrNBS;;K;=M^>sDOYU 114 DATA\@ws>n?suHfmBilkFs<^RgCRYlucnrHBAs\JwD[rGm]ZPn\wXnLyxTHRlrfB=C;GW@ZzuPZHX[VJsd=FCsWgx[PCwY[B;;?_Wm]gnr 115 DATADzeEvwXuHRgsy?[GS>Ytq[Z`Iqvh[PE>q[F]xYbWn 116 DATACFYnT>IENsupWS[Bh?NBsfm[Hsbxq?DrWl]Z_ZyjEk 117 DATA@rWq[RIE\JMqlJGyYrwm]^RgCjKnd>IqMGlks@Yn@FIYl]w=UGLnw?ykCAYnIFYxHV`slRZt 118 DATARsNPRWRtP^]=\bxuHBrr\JMW^;BE>we?K`Ps=h?EyLJdRoN_xAfZrkWzXnIFY?RAYpprWJZBG<@[byCDIoYKnkL=iqLDy>B[XnCzht 120 DATAkJGeZB]lYv>fBXJ=j`sYGnkL=Yn@FYCAvhJ?S>;ckkuxCGX]bWn@FiJq[vbtyvje;F]xYvuXCRIE@clPHBmr`V=;HRlrLNL@?^wr\RIEFcLs 121 DATAcGkuL[;;B=s`^m;>Bgs`^]=hjYsDJwnUJgvUJgsUJWyUJGUXJweWJGjXJGsXJWiX>;*z*z*][FI;;gxnrEJfPGGcJQYn_HYn`YcJUpwKAqwKAe^S^FV 122 DATAn>TsNv@Yt>rssJtrCHJ_\>vsrHM[JpWA@Q[wiIIgjCvp 123 DATAkCMKn?WyfbxaC@xiGmnZJmkJz\sO=rGgrAqWr^rGHvAt\Kt>`f=S^jYC<;KqNGLsTB<;*boGx^rwP_zeG\My 125 DATATjDmb_jYC\MyfyeGj_ZRBu;EtRllfumnOMjGtRt^;PrwQ`BxbmkDtSR\kDNY@PjiCZMyucwLp`V[BWRH>ltyH]z\cxH`vzF=^Mt>RMtHFEt>>OtHFFtOJltSFWJ`ZUmHNktjE>c_f>b_ZEliPYn=Oyfe;qsc[l 127 DATATiSOqLc<;HrwsytZ;Df=S^jYCCMYnTWYnWWyucSKvys]?N_x?Nsk>>VltQF_z>cX``v>gDzk>JSG[DrGfVKHNktDRjZaBk>JC^S^BZmuCqsBW[lkWYmy;pjDrGNdtHNktHNz 130 DATAsHZ@tbej]arWD`fh>ZpWM`B=;;C=\_vn;>^etZcxbarWD`Nxc`ZnbmkDtHbOt>RetHRMtHbOtZUg;e;qsrxeG[MY?aJWtarGcrguhzeGU[YwHJruLRyfHFsu^rW]erg^bRYnekYCI[Yn`jyHHvstHBzuLBYnfYYnIiyuHjsuL 133 DATArWshrGzhNAp\hYnShykjWYnSrY?U[YC`Wi;*z*z*r??CUgyL[WwuQH?CdWI;\o?uHJZvbJmCyXekt\YmHzZvu[lumWlum_lujENghrWyhrGhcfxTeB]>crguhBLNcrg;ifX@drYty?KntrYnRsYt`vrCy 135 DATAB]qD^izjCWicBzks]YsBJ@Wo[mI_iANWrCyB]o<_iC][yEqwMmH 136 DATAvXvHBYvHvXvHRSuUnWuHZIuEZwuy>gmEciz[=wfHFsuHj`uPrwQeRXnVdYkfJyu`f=hijmrM^RvHj[vU^Rv\JiCzNzu]gJx[`aCxNZnCsyu\rw`frg^frwff 137 DATArWphbjEzNZt\gJxHBUKHN\vCGg@>qwtcrwNf>X?AbYnWaIoHBYvHvXvL_Wu\s;uHfYvIc[Zy>]mpaiziW>m^o[k_ayHDVk;HfVK\s;uHB\vHZIu>zouiGoNi 138 DATAKoN\G[uHzouUVBujqg[frgIefhXcRyu`rwNfBiqtbyH=bZuH^JuHBYvHvXvHRSu\fXqdrg^fJGDdz]FK@?PCKPXn;kiqqcI>HcgNeFl?HSX>=>_uVCLn;kydLbWn;kyRH>;vR`Wn^gYn_rYCFgIrVrYnb^YnJhiq>fYnwrIVH 140 DATAbcuH>ZvO^pu>VbuH^XvpB]>crGufV[=HVgDl^hE[[yuesh;;;c>Afvy;m[luDRjIRgiv>Cn@fBZxu_lui 142 DATAJ[GTgYwDJYxu_lu@yAZI>kTuWlum_lulJYmHrmuH^nu>rnr>RMtH^nu>Bpr>rNtH^nu>^wr>jTtH^nu>VBs>ZVtHrmuH^nu>>^s>batHrmuH^nu>NTs>f`tH 143 DATArmuH^nu>vbs>VftH^nu>RRs>JhtHrmuH^nu>ZHs>>[tHrmuH^nu>nCs>BWtHrmuH^nu>nas>JktHrmuH^nu>ZHs>RZtH^nu>NHs>b[tHrmuH^nu>rCs>FWtH 144 DATArmuH^nu>VDs>VYtHrmuH^nu>vFs>BZtHrmuH^nu>bIs>z]tHrmuH^nu>nNs>r[tHrmuH^nu>FWs>BjtH^nu>zor>ZNtHrmuH^nu>vfs>ngtH^nu>RSs>FitH 145 DATArmuH^nu>^fs>Rgt;*UKnSrYl`BmMgVK@HBWRq?kCqCKsuxlPvxlRwxlTxxlV`RHrzmYnnmYo\frgoQfkplYk\k?vI_[Z^WekcmYYsmhB;o[kSmiZGSGGbvrC 146 DATAHCWegbW?\lYpHFGv\ZEmo_W?QlYC\liNbimAUsczEchogVh=MwN>=ZGvDrgohzeGSgiGRgiGTgIJm?VvLKnvhF]ghB=\hbXC@qYnWjYC@qYnTjYCkxYnzrYn 147 DATAPrYyHFXvu[lumWlum_luHjvuH^vuu?VvbewFhvN;HbZvxubv^IbrwcfJwCfvNNLcrguhrwXUpwwhB=ehrGnL?zPfZut;Jw=Bd>C@DbWjDBC;*aJw=aJ 149 DATAG>aJG>aJGeZJwp[Jgp[Jwp[Jwp[JGAVJG>VJwnUJGUXJgDYJGLYJwLXJWhWJW]WJwbWJG>YJWBYJgAiJGsVJWiVJg[VJWzVJWEWJGTVJwMVJWZYJGaWJG@VJ 150 DATAWyUrWeiry?NkrBxXl@RW\tJowOiZYZazLnNtytrmrBHJ`vy;mth>MR`vAfNxtXYwbvNFDRXn>gLCYCZnZuyPHz 151 DATAdvBWkzgq@XumItWFtc_NETTqdMD`gXlA^]xa`[T^J@`FdNbvFt 152 DATAMo\CcXLtqPYRqMvOiKpanedgEzDegMdsXYxep\DOSW\RvPmvOOaU^FTjF`mPEP;seEreXtMpioBeoBc_qHjM`aRLfWixP_`hrTfobE>`Qbn;TL_IbKjNbTqt]nX]Q`xlRoObmbGCE`@AOQ\gWEbtl`?;sCq 154 DATA@]OwE`nLja] 155 DATAi<;*