/
NPL.200
71 lines (71 loc) · 8.04 KB
/
NPL.200
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
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]<V^[CAgXm`f]<Vb[CAgXsDrWZVrwOV^Kme[kq@NONff]<V^KkKB=;;_WnFhhqxk_ECgX=][kqC_Wte[kqCC==
102 DATAVBYm>Fiq;;[C;iXmyH]z\kNJDrg\VfhfVvJFEBvqyF]kciXnAihmrihz]CWbVrg\VFx_Vj=m^og\VfhfVjMmHJ=rscKvyHMqe;sq@ZOnlihqvjhzhCgqVJMn
103 DATAAiHiEjzqHrsq>fwqe;sq@ZOnlihqvjhzhcWxVZU<ujzqHrsq>^yq<bg>zn[AbY>m`rw@WBImfrg\VFx=Wjy?NGwzVf\j;Jm?Azxb=Z<rDJgsUrwXUHYnGBls
104 DATADrwIWrw>B@maqJGnLGwnU>;*z*XoGSYZU?ykh<GChi<HwdmoGSYZnkHmXn^tXnvhsFa>\lzbWn^tX?FlXn[rxuHJarLg?rroG_WrwSYBmMWB\JWf\z[SK;?Z
105 DATAKrZYFks]WnrdPCFlXnXsXnwxOnenXxHvnNlbgJ[WiJzWYnNsHqHR[QHN<?yb@myJ?myv_kenxhDR[AyB]oNohZyBmJDJ\zecwHXvZJEVNryz^mmoxdmzMraz
106 DATAbjr[wkmohjr;wC>^Kr?OYpH^KrLBIoytZCSJmkroXn^tXCykhZyBmbw[h<GO;yyH]ze[gzz[gzx[wdmRPrjaWn[tXnrpXtLSoxHbVr\bW?ykhZyF=ncA_>GS
107 DATA;;ypWcXFHgXJ]zyDg`XV;[>NSrHN<?kEl?HCg[Xbgzj[gzu[gzg[gz]sZCz_gJ[Cl?HCggXbWCykXn[tX;AC[Z^sJCERXryv]mPrh?No[k=rxCGo;lkqxkbE
108 DATAN?ykXn[tX;A;[Zy>]mnrxCMGL>=VYrDsbz[s^<EZ[rys]?NS[;HZeGyGK[JHGgXrG<O[WnrFLnrFldEJ\ry>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\kEwXwLbWn<wXxx
111 DATAHx[wHx[lbWn<wxq>yqq>YqdD>;*MHBhsyH]z\cxNZvzF=>or>rnrjY@@r[Wn\wXZbeZTZNlHCrGDZJwPZrGXZrGp]^hkLxxdDrWCZrPCiwX;E;[YPrWqZRiE
112 DATAqwxs<BhJ<C>q[jbtkzPmH^gsjYpo<ix[beBmVJC@=^trYwnkL=yVHBtrRT=;HRlrgD]HZRX?iwXnXFyu<c;;Hv<sLJWWZrWl]rW;Zzuo>qWCZjikFzXmL;;;
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?suHfmB<yq>ilkF<iZ^Gx[F[Rg=n>s<^RgCRYlucnrHBAs\JwD[rGm]ZPn\wXnLyxTHRlrfB=C;GW@ZzuPZHX[VJsd=FCsWgx[PCwY[B;;?_Wm]gnr
115 DATADzeEvwXuHRgsy?[GS>Yt<c;;u@]FZrWqZBXnUFyuckkuAKKn<rP?qwh<?Ggi<pWl]vN;m[Hsu@\FZrwp]jY;C;kkY;iJIxVm;c>q[Z`Iqvh[PE>q[F]xYbWn
116 DATACFYnT>IE<oy?NKONh^kJSbkCTJl?NoIZyN;p]?YnJ?yCTJwyYB;q[fkdCze;BxoAUGluHnxrfbwAPflPHBmr=>NsupWS[Bh?NBsfm[Hsbxq?DrWl]Z_ZyjEk
117 DATA@rWq[RIE<oy?NKONh^K=^OJZpeg<Q?Zq=FQsVgLq\^]<hnbz?KhC\rw>\JMqlJGyYrwm]^RgCjKnd>IqMGlks@Yn@FIYl]w=UGLnw?ykCAYnIFYxHV`slRZt
118 DATARsNPRWRtP^]=\bxuHBrr\JMW^;BE>we?K`Ps<NK<uBWsRx@JHRgsJtbtyvje;F]xYnK>=h?E<oYtNGLvubZs=NZsDCht\BYt<^K=UB[sEB[s[`qk<CISdHgt
119 DATA\BJ=MB[s\;;;TJl?PB[=;_Ktf^M<hB;;?gYsCcxB]RYn\whkLCYsDweGS>yLJdRoN_xAfZrkWzXnIFY?RAYpprWJZBG<@[byCDIoYKnkL=iqLDy>B[XnCzht
120 DATAkJGeZB]lYv><i=jfP^=>fBXJ=j`sYGnkL=Yn@FYCAvhJ?S>;ckkuxCGX]bWn@FiJ<C>q[vbtyvje;F]xYvuXCRIE@clPHBmr`V=;HRlrLNL@?^wr\RIEFcLs
121 DATAcGkuL[;;<C;;>B=s`^m;>Bgs`^]=hjYsDJwnUJgvUJgsUJWyUJGUXJweWJGjXJGsXJWiX>;*z*z*][FI;;gxnrEJfPGGcJQYn_HYn`YcJUpwKAqwKAe^S^FV
122 DATAn>TsNv@Yt>rssJtrCHJ_\<q\wEIyFHJ_\\JgTHQYn[ySnTOsPJpWA@ypL>>vsrHM[JpWA@Q[wiII<j_fJD;Ns=nU@uTh?CVhDDZ`B;c=S^rWV^rWb^>gjCvp
123 DATAkCMKn?WyfbxaC@xiGmnZJmkJz\sO=rGgrAqWr^rG<brGK_rW@_rwG_B<;Bpg?_bbG^Hyd;B<;BoWV^v[IHf\SuOJzBxodCf=S^rGT^rWA@YrC@CwD_JgTHe=
124 DATAS^jYCH@NqACKn@LiJHGwKAe=S^rGT^vrCHJ_\@CwM_JgTHqG<bfnS^ZEm\KszHvAt\St>HvAt\Kt>`f=S^jYC<;KqNGLsTB<<lGWn^>;*boGx^rwP_zeG\My
125 DATATjDmb_jYC\MyfyeGj_ZRBu;EtRllfumnOMjGtRt^;PrwQ`BxbmkDtSR\kDNY@PjiCZMyucwLp`V[<HZeG^S[;HZeG\^m<Uow]`^MAhnOL[`aCAMYsLrG<bB<
126 DATA]_Bmz]rwBbjIEG?=x]V;<HZeGeSCtTjyC^S[;>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[DrG<bvN;m?Etu;EtbY@n<NYnDPiJ@Ggm^B<;;_gIvFy
128 DATARQ;K;;OKmDFMb_rWr^jxnr]Zn]WILm`aX`<]NjLBCMPQS_`r<;_wfeoDtdrG<bB<]_V;@>fVKHNktDRjZaBk>JC^S^BZmuCqsBW[lkWYmy;pjDrG<bB<\_ry
129 DATACTjlAhZrCTj\AwC<wQKkRHrwsL?CtjEl?TbWnBWY?AMYvVg<LHpI=r[W=^_xAVoyAUo^wNTYpyGKnEJyYLr^?NsrCTZUmHNktbEJZanLB=Fet>NdtHNktHNz
130 DATAsHZ@tbej]arWD`fh>ZpWM`B=;;C=\_vn;>^etZcxbarWD`Nxc`ZnbmkDtHbOt>RetHRMtHbOtZUg;e;qsrxeG[MY?<?kk_SYn?WiI<Myd?B]tyCkkEJYteKC
131 DATAtfBYm`fmb_jYsDrg=b^RgCjKnjSi?NGgparG<b^RgCj[ANoW>aJWtarG<bZekgQ\Yn=wAHz]tSJGyabwkJfxkifxk]fxktfxkcpxkfmxkkqxkDmxkwqxk[rx
132 DATAkakH;*<HJmuHzouSfG]brWvh^XpHvXvPRjJ=oWyhNxqhB]>crguhzeGU[YwHJruLRyfHFsu^rW]erg^bRYnekYCI[Yn`jyHHvstHBzuLBYnfYYnIiyuHjsuL
133 DATArWshrGzhNAp\hYnShykjWYnSrY?U[YC`Wi<?cxdmGgi<pw;gjIpMkyuMzttDrGIfJwbbrg<gjIpJkyuMBvtD>;*z*z*r??CUgyL[WwuQ<mTeN?CsfyLB<=lf
134 DATAV`P[Kau?L?CpfyK[kmt>H?CdWI;\o?uHJZvbJmCyXekt\YmHzZvu[lumWlum_lujENghrWyhrGhcfxTeB]>crguhBLNcrg;ifX@drYty?KntrYnRsYt`vrCy
135 DATAB]qD^izjCWicBzks]Ys<RI=@rbzWchpcv>BJ@<DcByd?R@JfF]CcBYnVrYnRsiE][YnerIEGwe?\K=uDrGqhjYC_[i>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@?PC<kfHFsuHf^uSRYpHFPv\RYnGBLnywOsuWlup
139 DATArW\cBjGRgiGTgYsHbq]Mv[uPBxkIiY?xYi>KPXn;kiqqcI>HcgNeFl?HSX>=>_uVCLn;kydLbWn;kyRH>;vR`Wn^gYn_rYCFgIrVrYnb^YnJhiq>fYnwrIVH
140 DATAbcuH>ZvO^pu>VbuH^XvpB]>crGufV[=HVgDl^hE[[yues<uy>h<AKgSgBMjenglaogB;?\Acf\tZKgxhJgJJ<=J?`_OyowXUpgUfRXC;;;PXHIZpewrejmsD
141 DATACxneJlkJfYsAWKn]lYn@sIC=`BX`HBCaDRT`<KmHJmuHzouSfW<frWvhNXSfNHQfJwyef=;\gkuHNYvKJwqh>;;;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;HbZv<COvMvNvHFPv\;rvHv[vUFOv<WKv@JW\crWphbjEmqiCowYngiykjiYnrdPnywOn@sINZ<KnfpiJ
148 DATAhWYnfpiJyWYmH>xubv^IbrwcfJwCfvNN<s>L<s^N<s^LyzUCBoYtBHFm@B]>crguhrwXUpwwhB=ehrGnL?zPfZut;Jw=Bd>C@DbWjDBC;*<Gwg`JG>aJw=aJ
149 DATAG>aJG>aJGeZJwp[Jgp[Jwp[Jwp[JGAVJG>VJwnUJGUXJgDYJGLYJwLXJWhWJW]WJwbWJG>YJWBYJgAiJGsVJWiVJg[VJWzVJWEWJGTVJwMVJWZYJGaWJG@VJ
150 DATAWyUrWeiry?NkrBxXl@RW\tJowOiZYZazLnNtytrmrBHJ`vy;mth><?KkbtZowOiv^IbrrBZSyJHJ`vDvkFQf;>MR`vAfNxtXYwbvNFDRXn>gLCYCZnZuyPHz
151 DATAdvBWk<Bw@AHzdvnAYnUuYt\W\wHzdvRpwbiZk<Z\<ASowbiz[tZGVsrH]W^_gZBwo<B?sEAiMm>zgq@XumItWFtc_NETTqdMD`gXlA^]xa`[T^J@`FdNbvFt
152 DATAMo\CcXLtqPYRqMvOiKpanedgEzDegMdsXYxep\DOSW\RvPm<ReEZPU`IZvGhPKQUdpihOMW=`WEjrDhEdOEjrEPY]CbFbqmUMbq]NFNwBNhboIjywLldsLim
153 DATAPEPeDHVfULd>vOOaU^FTjF`mPEP;seEreXtMpioBeoBc_qHjM`aRLfWixP_`hrTfobE>`Qbn;TL_IbKjNbTqt]nX]Q`xlRoObmbGCE`@AOQ\gWEbtl`?;sCq
154 DATA<D`C?N];i_?MevMMqQQo==;Bj`F`RkDdwW;qLmByHOvC=oYPk^KD<=ROu_sG@fhMA[;L`WwEruOMLJ<aOqqqtd;*EWhxHjoYRMUioMCB<@<C>@]OwE`nLja]
155 DATAi<;*<rIbJRYZDjXmfJPTM