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>MnUrAfNxtXYwbvNFDrGKXrw;V?m@mrGyXZPnsrxazlgjDaCmlXCYCZnsrxPH^ZrBWkTSn>TcIKohgHJ_\JhRs`JwEYz_Z^ 103 DATAowKAASBm^]rjowKAAykapStH>u^HbL\RxOnTOsRBHgNYZrC^CzwB]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;pXngwhLHBptSv;^ftLSox\;DrASKnuA_Hi 106 DATAGmk?sqfH>Prbt]L][ErLc<;HjarytZ;DzeGUohJzFNAXrwwZfxpZfMAXzUjgDGVZzaJPHBpty;gobyhIdohp=xk>JSG[e_ErGPOsHRXtUfprH>OruONrbMJBbBMHXvbtztvXSJ=HHBctC^ZnJXIojm^GpoXmroGKXrWjZ^XHiT=;HZbQHVstHRtt[ 108 DATASOUgPqwDrGOXfNHXZEyHjr]jSY;\ONrqYBmr_WCpohZq>sXHBprpnX>ZrWJZBZmH>OrLOLrhJMqVgLvrHMqVcoGUYjRoxCl?yHMqbaWn;pHYl]w=ypGB[JmkgsrHmkv_W 110 DATABL;QU]WLryGkkY=iIMoxd?>>syCkkcthxrOII=giC[lXsMjLsLKnvhRYC>EYqHFttG;PSfLoNN<]Xls]G[gPGhWNFt?NrHFttE;PSf 111 DATALoNNdVnnNppEnHs`vzIcwbYlL;rvPBkZzpwdm[KnPlNsHvhtHNHBWRwoWeaBW?X@YvNG\ANWfmKAiy<@Ii=FOs`rysd 112 DATArwYYv^;>betJphLxEyMiKiOvLYOhBiKOGyzvtHL`FINSIIPvKyOzGYLFKyzP@YPE 113 DATAK_JdDBCNtNSqPACGtnV\LAC@t^W\HRT[K`JtrLABoOThxaWt<]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]WnMYYLmDrVmktHRttXd>c\wZsyXuPffg\bjyCvegbbvrCbEJh]Jwd] 116 DATArgjarwUdfHo]rGeb^Xnl`yk>FYn=[YnAYYnPYIC=`BX`HBCaDRT`bWnyUYnLxhqsFYncYIqHfpr>jisegEra;K?;=KntLOnAYiJkWykQFIO^ 117 DATArwJarGTdNXLdBmJirw>B@=bqVKMHBptU 118 DATAnrscSkuFgk=Fgk=HbAsHfFsHnot\NXLdrWfarWWdJWL^BWkBsHZ@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^ksWtHrPtekNrfrwFZBLAHGwUYrGG`rgJ[NHB`Fxk`rGV`rWR`JWE_ZNn;pX?^oXnqUi>C[Kn=jYtHzotUj]tuONrbezEa^>m;Lr>F_tH>Ory;mk=rPnKpXCAXZ;CW[Z^sjECvzJCvJC=bdt@[Z>= 127 DATAfctG_WnbVYnfVKHBctkv^EmSoxmkox>netyXuHCJ]z\[xdDrWna^goRVYnHVImUvhtf_Wn;pxL\;rvHvht@czJa 128 DATArwpavZFERjt>Bjt]lys=n@cP<=JktDrGKXRWnAXYxOZbQuWkvxKgB;oG;bBZsSrg\bf>WWVyB?v<;?zQrDv>QLs>NLsnKLsNNL 129 DATAsNMH>PrR@=Wjrwpa^gzhCGQbJ]ZHNPrHNptSrwJargca>zHDrGPbB<;;[xkQ_Kn;pXnJWOCVUzkGBLnrdpsHvtt^bWnrd`Zazbj^WimYYYmH 130 DATAN;@CrwxMowxMWemjYiz[_Wn[pXnrdPnWWYnMYiO`uyc\kj[Yn\AoC^_[ZyI]kj[yE<^;I?_XmH>Or@>PQHNDufgYAfNWC>AwCffmTjzhqi\Y=]WqvPf=SW 132 DATAjYvNGLloY=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[cpRiE`Tzkq_Y?[Ez=yclX^Wr;>oyCTjmu\rWicrW=g?Zngqmk]lMn;pxEQh]RfsRnQ[iz[ewQdFhQdJk;q;kuHzDu>FAF\ONryTJ[r 135 DATA@MhmF]^WzeGklXnnzhqRzX?ImXvJvrHvftHBjuSrgJ[fXidJ\zZCWfdjYnAXIpAYYncYIp; 136 DATAgykgaYnevXnf`iqqdiG`lXtPRWlLSArroghaBiCilX?=;kfwCoMCchxdb;Ayr[kcbYJyB[n;OjJNpGZbfX=eBzYyBKxlRjJlsH;mKArjE>XWZqV]OLrHVauH 137 DATAnVrysLnW;YC_lX;L;KnehIW^;RwzWu\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>?HnmH;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[omvDvrymVHvmoBrDrGSXf]]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_ZWZ_IxlXOrHFKvLSCrhJMq?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@hVDdCDDDoqE 152 DATAnr