/
PAKDOS.200
68 lines (68 loc) · 7.65 KB
/
PAKDOS.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
5 'PakDOS v1.2 [1-7-91] for T200
6 '(C)1990 by James Yi [73327,1653]
7 'Disk file compression utility
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 DATAPAKDOSCOKlxvL;@r>ZGs>VGskk=Gk;>Gkc^i;*z*z*z*z*[^RXlpRYC?Sls`RHIGoYoDJYp@RZt\gPr>^Or<^rk@SlsPRWx`BmUXJGMXBwk@SLn;phEklHZZ
101 DATAor@RWl@azKneqxtxTyBHfUrbZFZZogeXv>Cbf]WW><?KkbtZogeXv^IbrrBZSyJHfUrDvkFQf;>MnUrAfNxtXYwbvNFDrGKXrw;V?m@mrGyXZPnsrx<Bw@AS
102 DATA[Lnsrx>azlgjDaCmlXCYCZnsrxPH^ZrBWk<Bw@AH^ZrnyaS];BrDvr<JXk<<i]\f_wqJZfwgQlk[yStHF[rHRu\ycPn>TSn>TcIKohgHJ_\JhRs`JwEYz_Z^
103 DATAowKAASBm^]rjowKAAykapStH>u^HbL\RxOnTOsRBHgNYZrC<yOnTOS<mn_r?wMiHVQ^\FGfPcbpM[gpa_wPY;KCKmXnFsXnvsHky]gR>^C<jYqV]OovmCJzx
104 DATAC>zwB]NDWNnYVSnNvXneuXnCvX?;WOnbuXYm?Lrb=W?;WKnFsh>uogA]dNxwZoNb]WCKmXn=sXnTOsX^O[kwuxkapSCH@^CKmh<=oGqYvN>>J_\\;DrHF[ry
105 DATAHMn>TS<=vhr>VQ^u?Lrb]WC?yZnyvXCQyKnyvXCOy[CMmXC<;[CKmX???nkftXn;pXngwh<JoGZav>LHBptSv;<CoGjXB<WWV;<>^ftLSox\;DrASKnuA_Hi
106 DATAGmk?sqfH>Prbt]L][ErLc<;HjarytZ;DzeGUohJzFNAXrwwZfxpZfMAXzUjgDGVZzaJ<kNnywhqRzXFmfqrgK]CToXC^oXtL;DryWKnAsQv]_Mr\KErroGDZ
107 DATAv>PHBpty;gobyhIdohp=xk>JSG[e_ErGPOsHRXtUfprH>OruONrbMJBbBMHXvbtztvXSJ=HHBctC^ZnJXIojm^GpoXmroGKXrWjZ^XHiT=;HZbQHVstHRtt[
108 DATASOUgPqwDrGOXfNHXZEyHjr]jSY;\ONrqYBmr_WCpohZq>sXHBprpnX>ZrWJZBZmH>OrLOLrhJMqVgLvrHMqVc<JM;j@?wPnftX?MoxfMGLqDrGSXfm@XNONL
109 DATAOLrh^kHCbkCTjlAhj\AxCjS[RhJ>oGUYjRoxCl?yHMqbaWn;pHYl]w=ypGB[Jmkg<Yn;pHYl]w=Hv>srHmkv<Yn;pXnD;iqV=iJ@oGUYrGKXrW=[zdl=C>_W
110 DATABL;<owG[ZqV]OLrDrGKX>QU]WLryGkkY=iIMoxd?>>syCkkcthxrOII=giC[lXsMjLsLKnvhRYC>EYqHFttG;PSfLoNN<]Xls]G[gPGhWNFt?NrHFttE;PSf
111 DATALoNNdVnnNppEnHs`vzIcwb<zlgi<lGnLkwXU@Y;o>YlL;rvPBkZzpwdm[KnPlNsHvhtHN<?pBmGXVK>HBWRwoWeaBW?X@YvNG\ANWfmKAiy<@Ii=FOs`rysd
112 DATArwYYv^;>betJphLxEyMiKiOvLYOhBiKOGyzvtHL`FINSIIPvKyOzGYLFKyzP@YP<eiPaaIODbyN]MI;HFttKtNS^hACPt^Vk@qSf<]Py_QTr<mNyoQUo<M>E
113 DATAK_JdDBCNtNSqPACGtnV\LAC@t^W\HRT[K`Jt<RT[o[=AtNUgPqW[g_JdlAV[C`J`@AT[C_JtPACLtNXdLZm\BiCowYn;pXCvwypO^UK>rLABoOThxaWt<]Tp
114 DATAlAvMKOUnhACDxmnQsoV[wAW`DRSiLIHIxAX[SqVptAtrCOS_<]TdlQT[sQShPYIM@QV[KQUm<]TplAvKX`WdLRT[;bWjLRT^LRT_>ALdHrU[KQUm<]TplAv\
115 DATALOUnhACaPBVg>BLdHrU[wQXoBBLdHrU[GAU\tqT`LI;e;ArfgmEf_zYr]WnMYYLmDrVm<mq\SoxH>ktHRttXd>c\wZsyXuPffg\bjyCvegbbvrCbEJh]Jwd]
116 DATArgjarwUdfHo]rGeb^Xnl`yk>FYn=[YnAYYnPYIC=`BX`HBCaDRT`bWnyUYnLxhqsFYncYIqHfpr>jisegEra;K?;=KntLOnAYiJkWykQFIO<h?LJHpKJ@=>^
117 DATArwJarGTdNXLdBmJirw>B@=bqVK<L[@rHZeG\S@rL;rvPrwht@ykOsOnevXnf`Iq`RXly?OngXIpP=iodHYnmUYnD;iqaHYntYiq@S\kMIYnB=Yk\v>MHBptU
118 DATAnrscSkuFgk=Fgk=HbAsHfFsHnot\NXLdrWfarWWdJWL^BWk<JW]^rWOZ^XxHfgu\^hkqIYtHrnrHrEse_axH^Bslrwm^rWfarWPZJwa^noVrPaW[[OMHPON;
119 DATAW`JSpWObfbqn^YnmBiz[egt^rwwcrGnfGgMg@xuhNONeKfvf[KCzIioYYQCkYQtfrWc<\RgCRxuhJl?^jykQGSnevXnLxHqHF=tHRpr>B<tHnotSrW=[B]AX
120 DATARNnxwhJ@GGUYrwUd^Xn@`Ynl`yklKYnLxHqHrnrHrEsHvnNHv>sHZ@tM^?tHRpr>v>tMRAty;PnwXyYO>T@r_Wn@cpP\o[=Z^gQy;PnLXiYO>T@>^utHjQuS
121 DATAjYnDMYnl`ykyLYnyw?Yli;myHmtH^utMnCtDz@P@p?O[;@LHfirHZtu\gMr]sNrbqWgaB]a_F=JXrGG`rgJ[fh]`vjB=jFtHretH>muHJzrORXtUJItHJvrH
122 DATAv>syz\kSNykvMiJYoGB`B=TWVK?yH]zKcgz_vjBEvJtyz\kBOYxy;LnWOYwA>OnWOY<=rItHv>sHnLtyz\kIOykvMYn;pX?soXvrHMqHNztKrGV`JGJ`rgT`
123 DATANXE_B=;;C]IXrWR`fh>ZpWf[f]IXjYnNPiEdTjCsoXmuHFmVogJ[JwO`f]JXrggaJW=[f=JXJGS`fM@XF]IXrgT`rwa[fMUqRILHd=IX^ks<rWU[Jgi[rGV`
124 DATArgT`fxn`f^HXZemdKYnJRYCUMiCyoXCfohCwohILoxdE>WtHrPtekNrfrwFZBLAHGwUYrGG`rgJ[NHB`Fxk`rGV`rWR`JWE_ZNn;pX?^oXnqUi>C[Kn<UiyF
125 DATASY?AXjAyf]mkSizzcGy`vFk^GL>=jYtHzotUj]tuONrbezEa^><hNON\GMrHZbQHnltHv<;<KNrHzwtEj]tKJ[J<CKmsCkfM_wCNo[myRYYyF[kkSykfRYn;
126 DATApxu\SoxA[KntTyuHrgtSvjFENatyf^mgTYnO;\?NO[kGTYmLkoxACkkGTiIAXjt<wk>m;Lr>F_tH>Ory;mk=rPnKpXCAXZ;CW[Z^sjECvzJCvJC=bdt@[Z>=
127 DATAfctG_WnbVYn<Uim@wPmHZitqZNCVohJr?\LrV;=UZeG>fVKHBctkv^EmSoxmkox>netyXuHCJ]z\[xdDrWna^goRVYnHVImUvhtf_Wn;pxL\;rvHvht@czJa
128 DATArwpavZFERjt>Bjt<S;=yH]p<tjAMvktA>]l<XY>ys=n@cP<=JktDrGKXRWnAXYxOZbQuWkvxKgB;oG;bBZsSrg\bf>WWVyB?v<;?zQrDv>QLs>NLsnKLsNNL
129 DATAsNMH>PrR@=Wjrwpa^gzhCGQbJ]ZHN<?uEGQbJMmH>PrHNptSrwJargca>zHDrGPbB<;;[xkQ_Kn;pXnJWOCVUzkGBLnrdpsHvtt^bWnrd`Zazbj^WimYYYmH
130 DATAN;@CrwxMowxMWemjYiz[_Wn[pXnrdPnWWYnMYiO`<BV\HQt<GNrEsZK?nxt=OZnywOwDvnJbrwfb^xtHN<?yB?myb@myv_kWZydDrGOXRiE[lX;ZxZ=<^Kme
131 DATA_ax@rwxbBGo\;;;DRYn=[I=\bWn;pXpfVGSOv\<MN>uyc\kj[Yn\AoC^_[ZyI]kj[yE<^;I?_XmH>Or@>PQHNDufgYAfNWC>AwCffmTjzhqi\Y=]WqvPf=SW
132 DATAjYvNGLl<SKEC?gkh\YvD_XoNcMSqzhqu\Y=]?axeGaxZfX\cb[C^TZ?`TjJ>oY=TJl?xCg]cbGLHdMUqRI=?pOsDrGKXRYlOpP=`rG`cBIlQGCSd@G=?pOs>
133 DATAr?uH>Or@JYn]^ysH>HufrwIcrWocjykx]itrOX?kcZlOVl[fnh@>iYkLbW;;E;=Kb;LH@=;;[Rg;BWkDRZty>em\_Y=y>gmb_Y?PEjp;eWFdj=EAOWn\GsCk
134 DATAH=W^gYsTv[<DGYklv>cpRiE`Tzkq_Y?[Ez=yclX^Wr;>oyCTjmu\rWicrW=g?Zngqmk]lMn;pxEQh]RfsRnQ[iz[ewQdFhQdJk;q;kuHzDu>FAF\ONryTJ[r
135 DATA@MhmF]^WzeGklXnnzhqRzX?ImXv<g;;ytzzEZxrDWew=aitJCg[dbH=yH]R^SpCHV<uHRXtUBRu>JvrHvftHBjuSrgJ[fXidJ\zZCWfdjYnAXIpAYYncYIp;
136 DATAgykgaYnevXnf`iqqdiG`lXtPRWlLSArroghaBiCilX?=;kfwCoMCchxdb;Ayr[kcbYJyB[n;OjJNpGZbfX=eBzYyBKxlRjJlsH;mKArjE>XWZqV]OLrHVauH
137 DATAnVrysLnW;YC_lX;L;KnehIW^;Rw<BIrbhYxOfuulfMXWrRnthIZHbruywLnW;IpdoYnywOnGXIpqdYsOROuHretHBRu>zWu\WNryXFkoow`ffz[?GW`[BmHX
138 DATAzejrLgi[ZUmHBjuOfguSFwheZqV]OBre_ax`RgI_lhzkkWMfNGKhrwQfzPnVhyPeOBrZBWs=rfuuOArHjwsH>ku>NcuHFtt=@AT[G_O>JwheRWnmUYn_`YkU
139 DATAbiuy>ek]fiJSpWObFXuerWib>Wn@`YnJ[iqxkofDrw`fFx[?oW=[fh>ZpWf[rWfarwwZfxpZrgJ[fxpZvjB=bkuH>muHRXtU>ku>JvreOLr`B=TWBK?;oWMf
140 DATAf>XWzOCkcZnDhYkeOLrCGmuesAr?pOC`lhZ^_Wn;pHYl]w=HjpurHMn=oykGhYny;izK;Wny;ip;`Wn;pHYl]w=ypWYfrg;hJmkehYxy>\mDiizYcW]fvzB=
141 DATAFtupv>?Hn<slVGKHn<slbgJ<owba^Z?GXjAy>mH;B=O?`XmZpgjfNpYm[BrHrBvHBzuISkkNniCCmhC;mhCylHSdD]]WB];;_^CGmhJBCnYWv>[moBrjE>ZW
142 DATAZqV]SCrwCnXWv];]_Brg`Wn^nIq>V;vulfkjkYlHfAv\jMnMqiEylxuhV=;]CCr`kaC?mhE;mhKFpwsgfhUgJk;>f=vesBrfByYxeGyff\j^CgEgJ\AVsfke
143 DATAky?`JgLgf\j=R=v^GLYvEWKg^bi=B?v^j]C=mxC^RiE?mxC]KCr\rwsgJ[o<lYwe;Cr?p_E?mxueCCr_O]mpmy=C_=FuWBrJpwogjY?<;kf=h?=UVDvSknkF
144 DATAmY=JdNZWJGegZnBWBMvKw<r\oY>mvDvry<r\oiGxlXma;KEugBry^[mMnYD=FHv`nAPWpWZgBIDy[[GvlxNuoBrKw<r\oY>mVHvmoBrDrGSXf]]WNONLSCrh
145 DATA^kHCbkCTrbtzlWEhB<]WriZ^_XtpfMXWnuTY[KEMZLvwtI?bpbv\wQB=jKv]OBrlBYmHbruy;sdnbWnrd`EAmXnFW_JUYiEPoXnFW_JHWywDrgjfrGFiB[Lh
146 DATARWnGsio=qYn=riYnewWhJk;e;Crf_luesBrUWRn[sy?^g;YlEwShJg_hbrd\[Br=>Sv\gBry[kXDfnYWzOnerYZesBrrHMn[siCylxue;CrfKONf^kue_BrZ
147 DATA>Xt\WBru[BryEWihf]ZWBG=^C=[WbGH\b]Ctlxk]qiIrlxNHfYv`BQUc?KpHn[vMJYvHn[vMnXvT[lsdGykJrYoV_<LH@Xm\;;;c?[IwlxLuoBr@kJIiz[oz
148 DATArYASo[kqriGxlHYmkBrDf>ZWZ_IxlX<w^^vJCNZW^bGwlXmH>OrHFKvLSCrhJMq?p_EEmH=;f=^WbZmHjpuAWkwDR=RP@ZWotWEjFjJjwY`wEzdq`FPvMZsY
149 DATAOMvarVHjMfOE@qIQtQdoAEBTmNqOd[smEn@PWdX]tFUQjmbQWAA`mmagRUtJryMRIjw_ne=;;_fUPXtmB`Nd;=W>\F`Fk`MHJ[]^I?Og@`[f?NRua[CNKO;f
150 DATAIB^Ju[;A[TYV`MSs?OO_M>;Y@K;=d;COwQ>dPEwfkF`xYPcp`mWQjIZ]gNGXi`OfcX`NtHLdMjUrE@PEZuhOfMdmuOdwfxdn`fWvPnM_fNdpjjwtHhM`[EVR
151 DATA;LD;WMiWicQANt`_G@<I@`DfHME[ELqCU`=S[OWMT`ncOUMTfOIRTGgnQQqmmWaTI`nqTf__ggNigTFnTtWm]SZwUXOiwiKSfgalDTmfCEBm>hVDdCDDDoqE
152 DATAnr