5 'PDFMT.100 V1.0 [3-14-91]
6 '(C)1991 by James Yi [73327,1653]
7 'PDD disk formatter
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 DATAPDFMT CO[di]=;au>>Bv;*;A`AV`HBC`\RUnLbF[woU[KrV[SqVmpQSo<KNjDRT;KOUnhACixAX[CRT\LQYg;MLMD@C^;=;KL_LHL@CQ@^Fk;mQnoMGooMIl
101 DATAo`=;GYp@RZt\oI@^RYpskKvLbwsPRWx`BMneJgieBGY>vI@^RXlpRYCXfykueYk>vI@;*z*z*`gxga>]kOMlkWTRtHJquHbnVycPnmsQnmsaI\higHF^VJhR
102 DATAs`JW^fz_Z^ogGi@SBmfsujogGi@ykwKRtHn`XHvRVRxOnypqRBHGgfZrC<yOnypQ<mvuu?wMiHn>X\FG`OcbpM[gpa_wPY;KC\fYnhhYnXiIky]gR>r@<HFf
103 DATAujE^Kzr^GHyZCY_kHHVeVHJ>vHf;vH^=vL;kLHZ;vtD^SfZEkL;k<HrquIcNnWG`IAyzLJXEm\?iuHJquHvRVrHM<=n<v>n>X\oOG]?iuACKnskiJHGgGi@M
104 DATAserwSfvrCHF^V@CgJgJGJopggef^SfZEm\KszHBAv\St>HBAv\Kt>]Giu\?;;]?iuLKKG>rwus;ku]Gau\kGv]C`x\kduHBtPjENTerWrfrgMgVM;iS_CtfY
105 DATA?U;KnHjiZbegegB]TerW_RpgkgFwfgv^<Hfwu\;cuHBtPHFGvEFCv\;;;]C`xDrgJAXXndz[zT`gE^dYy\Oauosbz=CgegRXC@eYnLYPsa;KnObnkjmYCuft
106 DATA^jiOvm`eXdJOtEOMvarVHj]QdOE@`>bmOG@ZDbodEsy