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