[comp.binaries.apple2] PFS:File-to-ProDOS TXT converter

dlyons@Apple.COM (David A. Lyons) (02/15/90)

AUTHOR:        James M. Luther
EQUIP:         a 5.25" drive, a 2nd disk drive or RAM disk (128K system)
NEEDS:         Applesoft BASIC
OS:            ProDOS

PFS.FILE.CONVERT is a utility program that will move data from the Apple Pascal
version of PFS: File to a ProDOS text file.  The resulting ProDOS file may be
read by AppleWorks, a BASIC program, or any other program that can read text 
files.

The format of the resulting text file has one database field (category) per 
line.  Blank fields in the datebase will leave blank lines in the text file
(a carriage return only), so every record in the text file will have an equal
number of fields.

Another program included, DBFILE.SPLITTER, will allow you to split the 
resulting text file into smaller pieces if the text file is too large to
load into AppleWorks.

PFS.FILE.CONVERT and DBFILE.SPLITTER are copyright (c) 1986 by James M. Luther.
This is Freeware software.  You may distribute these programs freely, but you
can't sell them without written permission from the author.  If you distribute
these programs, you must include the documentation file README.FILE.T which is
included in this download.
----------
FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
HFILE.SHK       AwRfAAAACA(4QIAg06EAOFhIRMCtAwRfAojU
GVvTlzW6Fk6SAAAARICAB0gWAAAAaFhIAEQDAAAAAAAAAAAAAAAAAAAAAAAAAAAA
GVvTtnE2AAAQAEAABAAAA8CAAAw4AwPABAAAAAACAAgAWpgOAEgEmAAAMoFDAAQA
RICAB0gWAAAAAAAAPAAAGBFAG5yUuwUSO90QSVkVAIAVAAgAAAAAA8guLUIAPDAA
bDQMB8guoABDrAAAtxoRAQAMACI4ABoAFDaSDYCCdAQosAggBAeQnMJAEDH0DFCy
ZAxhM3mEDFEwRwyhQM4HkGSAjEhiASaRkJOCb2sZAUWOAVIWmAIBdD6USFOsgMJR
0IJWEIdqqQBx4IpUCKQOtGZSsDJVxLPZfGhSCZXW1LegpMhyAa6SEKBIhAhSUYaQ
iFQca(ECIDURDEFqoONxas6UivQecidS0AwUCAzQmABw0AG0luU1qM57zojTYqR0
QMhy(InWOAbAAkQAwVxLFElBRHuiEAKIVLVkvChrkUxAAFAQl(2N0AnNk6RNqERS
4HUOgog9hKgRDZUTE49MXOdGKlsfk39PQMRBLFqWkJRMAEBSwLRUzBJAu7((mv5I
4LMlq81oCjnkWAQCIAcSZaAAcUYgBAGbhcgBGAHfcASGWYQKBApYVgwBGGAlk9SD
aMEEJyhLFVQBAGAhAKBVIGq4GuAuyT2OKQ8OJJXHbUogmo0MgpSgBG0EYr4yhoaz
ijCp615q)2oygCqJtBqYgEgtAsSgHQESiSCidVCqgKAMwSAnHgCILh1iAsAQAHgL
ITgnggOIAYAGFMAIShg0mhZg6ok0bpdKYQgABjGQGKiqn0EMiZAGA0A1islfk1xM
aKgkoQ3jq0MCDBMFeOyzJG8Agpo5ZmcgpgMrSPSCtKuGdMBJF8ACiIoMfuEtHaAQ
AS070no4BPgx8SCiUVpERZEAAEBgMBMnsRBHFKSpQLGZtrdIxOqQA)aKJsuE1x4I
lBoDEALFINCAEYEgUZbEqslA2yMZQ3RWdZQhB5MZlkV4hgkUWkATAQA2RUHM5mQI
BgNRE1R3J6AkVyFwObtA21ih(dOVhFCAJzXHSkgwFjGdiKxYEaUeoRELSSuZDhcR
yJGBDGHUZgTB4TGelDgFHB10czAaLjXxQhQLpJe5T)lJ048iQOZYhpi4ip23W8CI
4WKUC9zWAYghAil8OKulZbOgANFasxuZBh0YsFcmQCMA5yXBcpgmgUQdQWAlKQRg
NEaszyerRBaqBYbbBaGg8RfZlooACM6PooiiwYjJt)workObOLosIeCsgKGKoZRf
8BuZBhUaXWMBIKEJgtoiSfxV8ccTV1cCo09ZQihF(8kRCp3usppJnmkwXY2Kcj4K
QgMQyq5B3yP0YZ4JsAqYGAOGkYiUFYQnYBaIKRnpUDbinz0vlgOvS8n3AYgPAHmM
xlLHGJYHZXZDkpoHefOt)W7eIkyfmQeqJuDN6MNn52684VO1es4zBrKAAUHg8tCA
3Z5i3at)g1NwgXDcwyW1wyqEEwAHLrHsAxJTkHSFVAAB8AAapUGmIENwkahB0EEo
QFMynEUOaO0SmfJAgJChjMToRIAlGCFADiuBYKUWkpNIZMIYDGjNgv9aoAnZxDGh
nKH0QEW(fIeaQ0RQZIHhlEhYCAQ0JAOBhFaSS6VSmEQxHk27cNKJXIG6iCPAI5QA
eHxYa8bNzELVJn5XocRAmyCqNsBMAAEwUCJnGz2kwIlLSjLIAQxFBMK5AhQHy6Kb
up0GtUlLH1N4QeDFAhzEAGABs0QRmQp0VFCPLSLCE4JsIBKPBbQIUQqsGIAhgC7B
xlUkQJDJiQI8NOEJWvaZjb2SYrNSiimBnJmAekIDw3PcBcGLcUCAAMIYYIMtCAhT
xaVM82sEknAxgtUeFgEulp8QBcqCcwu4ShpFYgiuCBgDFICAN2eDg)3c0)xEKfOy
On)8LH8JCofylAA8aBOBfkp)3ouDhyvTlCKI)b0U)CPRLQkqqMsjm9MovAcqBcuw
kjGVYGmEaeSozLY7bLykqmiAw7(Kc3zV9WjIw0DCMukgUQkIAHQC4dQhr1YIA0AD
AAv1RDPNqmxjYAQA5AQ8VAGBZioM0ppfKiFQPRpkAwBUAEPXSBnPQQESICGUeb5F
rQUylGOXibADYcAj3KqIzQmgSXxQVEdp4tPASLCw)uhKWGOOBMpwYTH1eszUD)0z
TIgKFCDiBQSgIApAcGBgoEUdt5iBKQ2UQiaE1UnrRSVB3axKWBvjm2syAQCtgoQA
gJ4mJAZmDgEABQDB0NmT1wpt6EAiIDTRRIpkYACBIRgCO7cAGMuRFgGxXsEDVWeD
3Ywkq6OKTgMv22UQ6ZqsnKGTkQIsHaG2qFWWgDCMwBgi0IYigfFiMupOgDQGYGhA
fiTBUQYlYQISbB(QXTgEN4iryeQQsZYhwEdkiGsdCTnIi4AiSCuUGIIrugSNFwFa
NRSp)6SQV5a(eOOdgwKyIgrAbIIw))Cn(so9GARERdMOmO9WIlB4MaQIfVmsh4C)
IcsAobEQmFAEGjP1BhEJMZHN8TRXZkx9L6mkvsYT5EUfIuox0XDgKcjOHYldGH4l
EjWZAiQz6CwIA0CkBEhOVSWdQBjBigTU18A4E40wSgkRhQ0uonxgZIBwBHk0Cujk
FGGhJYVYmpqQ8or4254ycO5qRwdUIEQg5wJIOYAJAwg5AgUAgLQAyRjHMbGKraEa
ALgHAQCB8GgglWgDlF8E6gN1AxNAAqiAT6ZdAHLdy5E12iALQy1VAsMsSsAosGAo
C2SCqj4x5ENhtgHYrI4CjVE52B0OgTiI)g1AMF2(2axKon84ky(suMpjZGr9jBDw
AA8AHBzEWswssGPBPeY9pXrlkCJohHWYqxeBISRhDCTQLsSgNG6nyZmXVBEPHgQh
ST9EEWOXS2EVT4aBcKZQUQw0dCn6dRms8bPssZChQoNHEv8nBKZjjxZCI4LAihsA
hsWPWHOZAg5MQYgO9TymLppzAR9qBEDBgwQeSNzFWWKUlOVUZcw3UpKFWYsMYnR9
PlDcgJEWTSC)hUB8FWCxTJGrJwIepPC8Bo6MlLyCCpCdadTn2vzat6gqgcNqc726
TcteT00aFyjfAiZ4AjQAkwOiAlSo0mwnAmQDAA1L4RgAY6kcYwA)UMEEJiWMAXHo
kTGiKbAoOQUsv2JCsJDDZx4PNxFvzLnyQvpGJ5Sgdwfw(Ej9SpwpSzOSWKJsv0fo
JyYsiCrQZXIU27Wu5kpmBZFyouBXUwAqBAA0AEgYAClPnOJBiqbunJAIE8FcZjXc
gKnNQNEEEUAwOUIcikKzgDVUIOBEffcjwahk)YoBNPCkBJLQYSUAAeCASXjBYYSA
LjOMz3AlQ0BEqMGwsMAwCaVCUUQg6dEQwiGQQaaArVFwQqAgInAhIuRhBxQGMDBw
RvQgkOBDAXKkUFREopBEkORCYYRAgZJjUHBBruODgrQg0ABBwZBQyxoA7drgCHto
kOQEAYRE0LCKDu(FApggQGRg52YBJdogxCmkTzIOruuoYkBAT3cAr4MjxTLmLvIj
y2SCo)oiZaAjQy6iwkRJoOlC47BATEkwQGxQKvdgEPjwY5vIwm7KzAYPo(mioOCA
x9yww3rNhSkiohRrUzTgj3WALoJGgSRGQgWuQgRgwRRgkskBBOZAASxwYiRGBURA
AugAoFhgTDfhTOIRRLYvY2rChfCJ6VDHxHUPJB)kkdjgII0FxWytLFbPQriEKRcv
0qEG77XuATytDGmgLa)wC0emwCDgoqCgAY6QM81EMYGRQrilMh0iAjCGgftgQvwA
IFhgZ5lxQziREEnNZtUGwG0HYcDAbseAAuQBIOBg78XDphSuwwNrKpjgcsFowqGi
4oDAwtUgkjltTX4Q4ARP5YdATedACNPOST8jKmVRjiXAwvwBwPxgyJfRDstkY4RA
0Lmxj2WAQDQOQuwBwOBh42hPQxHAkXYAYmokrIdgYXBGQGEGkuZvToNCc7ZAYGWg
bQdAxbnSMDaSjcWSBAjyQsQhQXBgRoGvpqGtMCYvbLJRJc6QIdCETEkPDwpSgUSA
olbFg5rAxisARYnQzd2SIjSF4wqgoTiAYQBDastgh1ViUC6FIvIs4mFipFFATuRB
bzRrZcXMIDgAQtQhIeSABpShOBgAYbU9AlO4AAAAAAQAAEAAjDwLAAAAAAA)IEAA
CAAA6AAASYlCAAQAMYCABwgWAAAAaFhIAEQDAAAAAAAAA8AAGJERFxUSQNlLUlET
SVEVCAgAAAAAMAAAAAwAAIQxTNNAvsNAREwAAQBEEQIE6IItYHNYAMkBI4AAoAAF
GoWtcd4QAAFEKUEQwoBtSgMdKRa4FFyE4BIpESgYDJClhgknEVgMUdiEYConJVoA
goiEhRCjmRqUDBxCBgjgpIRgHVqEBAhiBiAQio6BxgIiNZ4kcBRGgKYvEbw8shDH
5Dt0IKYAEFKEYjYXEQY4IwEgoBAUF5QR1RROIS6Uuwq9wkRsQKi9ICcAvxawRaxh
uw6iIAGAwBAev1uAG2BYAAJpAJAnGRQNagOAKQkgpohCByDRJTsUAcMXAGivKAmA
InCtADgYLC0hvOn6u(8YEvZfyFhDBw0dBACQBCQGIYMPAHh1uRwhKCMAkEVcvEBC
BAxglQcETlJTATSiG51IXFZ(swPpoPhY2xZznmu6DQCoEkIYAFABAkCEBMCKL5oR
hQoTihHmaKii66yeIpd6AIBwhEsVSkUsAeGQIRRk237bppoXkCqpJIKeAy5mgqgo
CpC4SMlIAcGkDCZXi0bDOsG1SgFgAeG4AaIQnsjZgsEVYIAAGEcugBAHDEgJNABC
SFShdYEgipAFSbYIAkEpSIgABYC5AgQDAkjMAmExiJABiASAA5Aa9)bMPPH2AUfx
GJOfUG3GRICTmDNFFmDAKMJ)wdHD5OMTBtmpOIXAJLNYEDKY3FQQSUvH8BATfCAU
EJxABEgQ0CIEUcCNBCAYQFNPFcJAQTKUq6vQ9IIgLa9JfqooDpNJWEWACXHkU8iC
AdQQEBJAeAVAmEPQgFERaSY4WhPdAERABUEcI4RVolAJhQMrRaHmGEUkx6QHcdoQ
BDmkJQg3WCIWJawBZYQwBCIWIkRhGGijQi1GZYYoBTLznRI4MFMwwomGMa4EBDYZ
zFIYijPKYPGjPGGu54wI1wYYKhtzgpmFYYIWABgZ8VQgWCSe4DQbfe2hZ5)eJCK6
ortB(GYoOBwBYbU9ABh8AAAAAAQAAEAAjDwLAAAAAAABAAAACAAAcAAAUg1CAAwC
McCABwgWAAAAaFhIAEQDAAAAAAAAA0AABVkUF1ERJZkLuUETAIAVAAgAAAAAAwQz
HwIAmCAAbDgpBwwvwIpRiJQKnMByIpoViIQopMZiURKVlIUGpEcy1abDgCNwjQRA
Ew1UCLOZFKEI4OMDCOQIRCJiMxVRkIcgqURCEGkCGMVk3gJxILPcGMXSQ0RDkaMK
jEBAb4wBkTcDkEaAysJT0A0cCGQc60RSIrMaCqQ40opCCGdWzKMMdWJz8eePnPUM
yylDU7dWmEdAG4JTSDNZmrSGw(0aCvHWmPfkryBj02cWHOZZCjYBoP)Ryna95ENx
widZ4GYA7MYTqDcanpXP60BKAydZ2OCg5odDI7damyvlwmeDi(rOWMTezMERXTDI
YySAfHOszcWiZzgd(KnscYedmNeT6sJDf6AZ4PQn6gZzQ39VnMUC04(94qMbxgP6
SyMJuMxB2EKBviIDttE4aUsq3w8eDgNsRXTADrH(I7pjM(CY7gnBggLEjAI4gChP
OOGCYIcM5EU7NMNc4kLhHmEB7Aetd2A7MSGOmeCiM0KIgiOPyWEsJqOzqnzp9MKY
I68NZ0Y8jSza87bRHzsugJsMQoSSQTNMWLeLFOImTwvBpgoIChhktKgu4wosYydn
E3g6TiB5TsgO2EFB0KqndcUEjt546ZgvMEMB6ov4EXkCxgPQLGCyH1AhEe5Psu64
QNId8EjQHPELKhF0y0riuAizoV6jNM5azQu72ggTDqFVTzUUQ3okjeNCTTLFtsB4
eAjvVxAvdQ1Ns2Q1VMH(PWEODJnUDwPFh6YUjjjwqrTSNOMkjSnBLXALhKA5nGBj
nku4ahVO0QDcJ1Ocj3WJENCqAxNExywTORkT3bVSsIERCk3cysbQBhG42bhqYNSh
oSe72z4YsvId4yOz4QxSU)tAYMaoiKJuqntDgk0Ea5E)kwKihgD6rO3quOHzEw7o
Iy0U2TcDAxYj6COE7IrNZDmqT5gUgwipJIqKkmkRZ80YCrEukDdDQrIO0Yl(YlkY
stQ)5WlDFP(oYhdKbQwEiNCLpwFqbim7I8KmnogQipDHeJTRrPEdioH7ujijP0q1
vjKBNumRD4lMfXotZJI0c)JgEFLG2iV2yRgC3o3s3vhNyMcJD4PzwIb7jilxyijD
mNqU21aww8tUvCJzKmxosolPDGYpaYkQa458evDBq4O(CmFNCFUjtf)E4BrjF1vA
vn1RRAfiJPWYWJD2rpFx6vlrZciuzwmTc9PdGJ5PrcRw8k0QCoKyhKyN778k4APN
E6QEXMRZygPh4z(2XVQ172krS6cpVdBt)rimPk0uhpSKEDZCvhBEO0UWcLxnAbcj
k98rQjS7AM0IcaWKPFuPTFrQ02cFyg6U7UI9cKRwYTy8erQtNoVLs91KvOp2IHZ(
xQWPYEnAreAiFlGWODUSiyedlJvnMm0DoDl2SOsYI1ZzQ(iNaChQUgDI11OLiLWN
3J)zIjeLxTjBIgRODACRogSESJMLMQHzPgDJ39e6Or09YxnZJMCP4mXc2K6wvMA1
xySE4ISi7ux4x0799FWtBI6eUr)VVXwOyeiSo70ukcKCpDcOclRj(D(jCZxpBuQf
Mz7GwYOVQSNHAH5jI)ZyVUG2N140kvDAya3zinkg)JDaenuliILHAyig6GZsdIVG
aIoeHBEs8ADcS5J3xUQe3Qk(hsFyVTG1pV(kt5W67q90qIIdBaJSAlWJEImDi3y5
dRKsXgXb1SfiATjhjfUgYwVWbShMRhKrhctNC76Vs97ADGvnJK23GYZiW0gkBZ2M
8uAo4klXOyRshH5PCrlD2kjIEEu1nKKDoZYu6SVqsQZ49lccicm0RE8(zSrdB(Sn
RMx1MGA4LywlJRM4tinzk1gimqIypONYFAWo6DPV2jrJiOIV)ccIkyNVCIbX2e4t
iHUwy4ZMNd5VP5(iUX5Jg99Gnc6s98MrYrw6WTCHUtBAUJG78BlylAorkXXPhxlB
qvhwkPMBqVbQZryLgSelB)wPWgFiNEWnUn5UnHHfkB5TSu3jsiLCfxEBJgeZqlOS
SurV8U5JP1RKTOturQrvVFAR38QJ0E1QHtQafm3jErobQEYUy9KRs1BJMDC5tZip
7jdhrMzZUfcN3gEKtFinqQeneeMObqT1Utc66uhPIgWOdc6tAvAigH0dDFMmOGNs
ywO4xCdlKAb7wQSRHMX)J7Ic8UbgOK4EXdjAHhi3mTYqwK9(aF7tuqQ6ZtQEzAFl
3XSf8JXjW01VBb0ODqcopI58lOCTOA)TPyHsaAHFTVAMq3vQtIpT)4zw9mt1tdNZ
sm)RLF8dKHPIkrXxcqoOueEBxBRl1mOWSWGqc5Mw7cccqmH4Jxzf9RJHczUKZO2K
SIvWEqM1BbjJsQRiE51U5igMKrzoQtocWHsSf8yTbU6adthduzU7Mz6KDRWL4yN8
3gFUVFPLgwM3HYCu3YSuhkcy6SS5YzZMjnbW8kxHuF85JLlpjUJugRvbw8oOxzgR
cMcacAmfFGwrVXxLE9EcWQIWMECNYnP8108ic9phQ6AjYYpmGQo1HaM(ZxdCguwQ
TAFgwESFjvJ7grYEvbghi6aipWl5iA7iyaw(FW6KaFQmmrW)DVcUKAvLiqzm4TDh
AjthAgwyNGr)b)jZQCQ2OBQAYbU9ABX3AAAAAAQAAEAAjDwLAAAAAAABAAAACAAA
sAAAMoFDAAQAMwCABwgWAAAAaFhIAEQDAAAAAAAAA4AAMlkRD5SRUZlTOlkLC8kR
AIAAAAAAGQAA5AAAAAABAAG)GAw2qPVAjGFiIQwAmaEKSSDFZ0kheTHEzTJHTish
oCSKDFMlDRwBAt9hBCMIMU0ok1SGRAAyOa4oeFTGRBg3VqAZoYkBIkitRgoIUCiJ
TnGpDfGANyjMSFGJQWMxs60JCFJFKQQBwBDHhAAzd(gJSNnMCACNQ7MlOhyhBDow
dwUNKkiMxCg8a0ks(W3N7nhzb4o5C)mNxEAkd0k5KQ3NRhrzVgENeikKRENSSCo8
A3GMijmgTSgAKjGvQlGyVqEJoAFJDwwiLYooEVTGjACgd24JAxiMhbJsZCjZWPHN
95KzbQ8GkCSOykGBwj7GwJDtxEALc(8JE32rSliOCjIhCiAkjHIwb4McF2xMSmJB
DiEZXo6ioFKQOrQcyUUpSFoZBWDRoQ(3Iy4YDgM5OODBKqmsrT3iKKabrKhLmSYA
pEEcCyppqqiSOBAQyDxNNgiaEygOzI6gMAM5CTjIOiO6Agth30YojOiiMbdRFnG0
jQ8hoEy7jhpwiBDjO2Ev4JdOj3wwogDzSUYoDjOjEDS(OuC6qyjDCx4sAHyAgpeO
3wywwinzdwivMEjk4V8ABDEKwKDuue4RN6GOjJXO23TTBDghQdDx3yCx0ox460A8
uPkQbD0zFFLWYJswB3s8IwurcJfwKqIK40sLH1orRv9zCD7SMPLH8FtS5UMijPHj
pvRIMOECC9BI2wAshNkBO)KyP6COUwPF2QQDjpi7YHyS4QFilF3WR5S9j1SYekj1
NGpeK0BGxgzoDVnkdJGOJZXdC9BR0KV9StBWCrtjNPMOoiuMl44QjTWlMz91ME6A
M0wI5ADsWunB2gIXBRjskN2aIhbsj2Y9BJiDNuKwLEpNykVl0is5cDSgRRDOM90P
7GdsjDmxILTrI0Iys5SIoogaCiEmmqiCh1gyt7a38Q4CINIDInjoUH1G9u0LCS96
Q0(U)8ZsYZVvQINO0MLUYzhm9QA3iiEjwVOZhd(14twAG7Z6OP9oiuIj8LE0qxoM
ioqqlzWH41llZaeOtI9peLMQPOCgA5s2dNyoh0YgsxxBoMDijTDzQPDzytNR98wU
MmKzI4uMz)2Y8sM0z2CwTlP67(3AxYjr3oi8BpGNkRlB8OnVc7N3I(OUgoz5EOed
9iqjGdsdUT0XrdBMrO(oQEeJ54azyTFkH0BQ4tkdMZbObnso9MzmVpdjhu(BP)VR
2sfDOhr6PJZ6NavhIreMWELDyz1kKSO3IKICiqpJ7o6ujhE00RDDozFSKPwIiYLl
hG5DJ83Lga52W3CkNEewUuo5GwRgoMrFEWVibwkKHcE3qlsVkdAeUhfFByL5hkez
CjUSQh8gZHwhGQkZzzgyQUv2GQQMqDCYGAbjjToZE8AtfhiQHgZs57VKLtkaeMEK
cAn7kQhMQCFCaFlQhKA0zoONDLJ5wDgN(5yjgtY0YMKHGjxyD4OM17EAFgtRAAkC
BAAAAAAAvAQAAcOAJDAAAAAAAAAAAEAANoAABwgWAAAAa1gCAEADiAAANoVEAAQA
AAAAAAAAGBwCE5USuIVRUFERAIQQAAAAAAAAAAgaAoGABAAAAQCAvBABBcKAAAAA
AAAA8AfAAINAJZkDuUETW50QJ5CVPZkTwHgUoBAFS1QAEFURuUUTMlkRU5SRBIVR
AQB8PAg0GJERFxUSQNlLUlETSVEVUAfAAwDAGB1DG5yUuwUSO90QSVkVAAAVAAAA
AMk9
-- 
David A. Lyons, Apple Computer, Inc.      |   DAL Systems
Apple II Developer Technical Support      |   P.O. Box 875
America Online: Dave Lyons                |   Cupertino, CA 95015-0875
GEnie: D.LYONS2 or DAVE.LYONS         CompuServe: 72177,3233
Internet/BITNET:  dlyons@apple.com    UUCP:  ...!ames!apple!dlyons
   
My opinions are my own, not Apple's.