5 'PakDOS v1.2 [1-7-91] for M100 6 '(C)1990 by James Yi [73327,1653] 7 'Disk file manager/compressor 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 DATAPAKDOSCOKlxuL;@r>JGs>FGskk=Gk;>Gkc^i;*z*z*z*z*[^RXlpRYChNls`RHIGoYoDJYp@RZt\gPr>^Or<^rkiNlsPRWx`BmUXJGMXBwkiNLn;phEklHZZ 101 DATAor@RWl@azKneqxtxTyBHfUrbZFZZogeXv>Cbf]WW>MnUrAfNxtXYwbvNFDrGKXrGcT?=EtrGyXZPnsrxazlgjDaCmlXCi_ZnsrxPyhmEBWkn`X`rg;YrWIjt^QHF^VHF^Vu;LrmqgGixoY\RykgsxNy 103 DATAHMnmsQ[XCZEYzMnmsQs>n>X`rGRqpgZhXpNHvRVZXokJtxX^?sNHvRV@CZNYNkFtqGJo@ikOM\YQFYv[IHnlOuSszBxodCB=_Wrg;YrgZhXrC@CGiYJGJo@MNlC=_WV[;HNhryokkmsQCKmXn=shZ^ogGi 105 DATAP[kUvxkwKbILoxdCB=\zrgyYB]`JogyYB=`JC]_WBM;;C=_WB<H^btyKOnHXIqIK;=HnVrL;BrAKkkoUY?NmZCKmhmryKPnH 107 DATAXiJ;FxcZfNEXVhKJwk>A>cEdmHN@@YnLRiqQxXn;phIpoxdo^lt\ONryTyZyYBq^KNnxTImsrwMb>xfwCNHXbwHH>OrHbvrSR^Va;KnsiOn=YYnLYICA`AV` 108 DATAHZmH>PruONrb]ZnlErFaBKCpohhr\wHDBMHXvbx;YRnHxXxWbkrHbnrlbWn;pX?PoXv^_xAVoyX^_xAUk^?kV<QreWLr?pO?PoXvC 109 DATAW>mDGMqVgLvVcLJmv@sPvn;Hbarv@XJMG\Z^_xdDrGKX^RgCj[ZH^OrHR;sZUg;m;DrL?K;H 110 DATAz=sbxaCPoXmH>Or[`aCRohJ>Gga[f^?XZElg;iJ=GWUYVzH`^^;fF=SWBioR?Y?MTZv`BmZ]bXnIYI>K@qU?xoO[SRGiC>CV@NFroMIloXnIYi=K@qU?xoOu 111 DATAqWKAXhmS>Ytyj>EzTkZGbAHGFU?G^vM\B;w[RW?@UZpPldz_b_>KnIYIOy?qSf[E[lxEfgmEtjrhCrg^bR_WmxaW[gXCNmZnwVYnLYYRu;UCvBiZbYpuEFstfJmiEfttyHmdm>fs>JesHfftH 116 DATAZQuUngsHNutSrWVdJwj]rgzbrg[brW_b>]KtLRTn<]TmPQtDrgiarWNZfHx]rGdb^XnQxxkbFiEfmhD;?<[;oWDrog[bv>GbJgo]>PKFLoNNHoN\[ksHj^tH 117 DATA>QuOBOu\g^vH^XI\_yyAOK?SlXn=PMCQlX?@UZpHJWT\JWy;pgtYrwTd^XtPRgJBosRssHrorSRZnAfYsSFgg^RYntwXnd=iEqiZnoZtsGxqX`DBCC`ON@p?;Rt>QH 119 DATArotudxvcrgv\vJcEFysHzIuHzEC>BMQLjYv?p_EoRzEC?mi^FX_R@mcRPyuH>@Hs@FmPjYvNGlsfJwqfpgtYrWNZ^XnYKYnLxxkHKYnCXIqHR;s\cLrpoWIZ 120 DATAvN<>barHZQuSrWKdrWVdJWF_rWNZ^XntwXnd=Yn]COnu;YnNLio?LYnLxxkuKio\LiJKpGYbjBpkLlHDrGLFXPCHckrCf`JKpWNbfBpkLlk_YYnb`IqfrW\_ 121 DATArWVdJgY_rgC=\RgF[gZ^WYn_YioCMYmZLPLH<@CKLOnavXnNiYCfohCyoxdHret\SDt]kNrHnMtHf>sUVStyv\krMYndUYnWgYnjzHpLRiqZNYnjyXnu;izZ 122 DATACGp_Jwh_v^BH^Lt\KArA?\Z^sJ?EfJtyv\muNizZCw;`RjJKoGA`Bjl;pGA`R[kdNYnu;YnSOizZCg=`Jwh_rGKXB^NtHFQtOR=t\ 123 DATA;;;]cNrHbPtUZ@OHbEsecNrfrwN`f]hvF=IXbgYn]wAHf>s>zOtesNrHvet>R;sekNr>nPteOLr]cNrHFQtHZDseSvy`NONe[NrCGYkHRAs>VFsH^QtHFQtU 124 DATAjWtuSNrbeWD_rwm`B]`_F]JXBmEXF=JXfN?XZemwQYnTPiEwoxuHjmrL_L>>narHnMtHf>sO^LtMzVtH^QtHbPt>R=troGKXBlCXrggav;=CoWZafzsN;=_GI=we?DJm?Hcgy`bbz=CGFaJwt`rGKXjYCN 126 DATAmjmy>]kPUYD 127 DATArwsarWZafgNK`Wn^Vixr?mAXvnHLGDzA[[q=PmkdLNnxTIwyc]GNmjGTmzkcUiZbY>m^sZCSZUmHbgtCFxoarWma^gqUVyEDrGKXZOC@UZnUVYOr@rgKbRJpsi_IuSZJ?v<;HnjtlBIqHFstu;BrazptL;;;SJwuCoGKXrGqt?=uvJgcLoGiFHYnUYysDrGiFtbtztvCbfgabbWnVJPr`f=SWBkRzbKkC_gEqiZlH 131 DATAJzt<>XC;;Km`rgzb^KsDrGKXRxuA>ApnR[ok[iJUCwEcrGOoGmCDsbj^CwEcjMkC[>Or`RGPX`KtH>Du\NwqfuHrGufJWicVyHPB<;yRGpVjquWjxUfBWoDB;K<[;oDKON\;;;s@FkG[H;gYnV]ykA@MCpohZq>sX\cVy] 135 DATAsCrjE>WWrwvZfxoZB\^WrY;F;[ZyzjmNzX=bEjZdVy>=vRuT^[Z^spCQHMnM[YnLRiqh`ykjyXnuUYnhfIqHf>sURVuNszB=bUufrgKbNh[brGdbNHzeJGed 136 DATArgtYrwTdfhWeFNTWRYp@RW?alxHHFft\F]VWB\;;wEJ=h?=UFZuD[\zHCGtdr^z[G_lxfmKBrbxaCPoXn]dYnwqhJY 137 DATAoGA[B=TWBK?;ogTf>rCk@Zk\nxSfRJpaiYweOBrxpWXfnRnphiJZoGA[NXDhrgC=pGMbNhWeBIp<`YndUYnh`ykFbYCrohZr=GHHJtuu^@<>BDs\WNrjuvX? 138 DATAVFsbaWnhfIpAfIq=JfubxaCplhEqiZt@f>TWvJGGRou?nNvHZpuZpwPfZ`EplxrDpk>Jfu@rgfarGSdBgq`fiz[ 139 DATAEgrev>QHrotMRiuHRvt;rWKdrw=cfhCzwUmHJtuM^@sUJxryv\k@gYnWgYnLRiqwfykjyhEPoXt\KArOnS;YwDvN;HjdtsBLawf\z[W>k\;@LTbwRHfvuOhbGslXntlYnhji>AGwngF=]WF=[WF]ZW>QU]cCr\C;;tC=^WvnGkkakiEylxu\jRjENzuUsvC=V=vNclAyEgDgJLt> 143 DATAF?vUsfk\kyCN_ri=r>vsdfkxkysfC][WJms`f=\WJ]C?mXsHzHv>CXJgBjE;mHLHd=\WjiE=mHD`cWggj;=dk]IrlxNHzGvfBL;;weKF\[qMmIAwGw\gbkNu 144 DATAoBr>NEvrwQrecCr?pO?AmXvCW>mD 145 DATAGMqxTyZGRMvL[CrhvrCTRYxeOBrgYaBC_]oNoIZi>lTxtYCjp\kBoiCplXw\bWnphiJ;YuwDrGiFd]\WrGpts^abfM@XrGptsN>bJZmHfvuH^]vG[E;mxETgiEylhArpGBiJlCF[Rg=zPv>vSvtXUCslhkwpYCvlhJCWRmugBrJpgthrbEylxX^oGBiF]ZWjiE;mxE?pouCgiEtlxrKRYCr 147 DATAlhIslhj=RVvesBr<^kC];CrDNNsdCMYWJgbhfnXWzOnarYt\`AEZWZ_IxlXmoBrsD>ZWbWn;pXnynY?AmXv^_HLHd]]W^;kekCrtbWnRhiP^MUrwY 149 DATAftPU`MdkqlErE`qKtCNYmaE@?RQTic]FhNGZLnuPyo]nkcOQq_xMFztqRumt`bWQP;;[WPfeFRycWE@K[VCWdWb[]]OU;kf;=KC@;\]rUChM\Z@Ydgrf=hiOanuptN_X]dnh_U@hfWEjDEPuPvQdcMtNj`UPEPQbE`ZhJXiW`VjUQ]WXEhyx`JjdPe?OTv=CE<[N 151 DATAm`n@pmSEj__dCkdcGThLM_]NEfWA`MNEV`mtE^\XqmmQQanGndWqIV`__`Xm`HVTIFbNQ?v^Rf^m`r@=V`pGIDNY@LtKYcXFD@DDD\qQtrz