Path: ns-mx!hobbes.physics.uiowa.edu!news.iastate.edu!ddkilzer
From: ddkilzer@iastate.edu (David D Kilzer)
Newsgroups: comp.binaries.apple2
Subject: ProDOS.40 (modifies ProDOS 8 v1.8,v1.9 for 40 tracks)
Keywords: 40 forty track tracks prodos
Message-ID: <1992Mar23.013456.1406@news.iastate.edu>
Date: 23 Mar 92 01:34:56 GMT
Sender: ddkilzer@iastate.edu
Organization: Iowa State University, Ames, IA
Lines: 97

Here's ProDOS.40, my little BASIC program that modifies ProDOS 8 v1.8 or
v1.9 to work with 40-track disks.

When you give it a path (or device) where PRODOS is located, it first
checks if it recognizes the version.  If not, you're told so and cannot
patch that copy of PRODOS.  If it recognizes the version of PRODOS, the
program then checks for normal, patched, or unrecognized code in the
area of the patch.  If the patch area is unrecognized, you're told so
and are not allowed to patch the file.

If the patch is NOT installed, you're made aware of this and asked if
you want to patch the file.  If the patch IS installed, you're told so
and asked if you want to remove the patch.  In either case, you can
answer affirmatively or negatively.

PRODOS.40 takes care of locked PRODOS files (and leaves them locked
after patching them!).  When specifying the location of the PRODOS file,
you can enter a slot and drive in which the program will ONLY look in the
main directory, or a prefix.  Hope the interface isn't too user-unfriendly.

If you think it might help, LIST the program.  If you think you have a good
modification, please let me know via e-mail.  Thanks.

If you have any problems/questions/suggestions, lemme know via e-mail!
Enjoy!

--Dave

------------------------^ cut me ^------------------------------
FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
IPRODOS.40      AowsAAAACA(4HIAg4SHA0ZhLW4CuAowsAw5X
GVvTlzW6Bo7eAAAAW4CACMBXAAAAcZhLAIwEAIAAAAAAAAAAzCAAAAgCAAAAAAAA
GVvT4VO2BAAPAMAABAAAA8CAAAQAAwPABAAAAAACAAgAapgGAcQEqAAARolCAAwB
W4CACMBXAAAAAAAAAAwAAAAAJAAAAAAAAAAIAAAABAAAAAAAAAAAAgMACAAAAIAA
AAAAMgGAvAAAAAQCPJFUT9ERwQjLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAn4HAwtNAIEADAAAEBsIII8AgEAhAKCRwEdDnxxknGMQQxsDCAgMXBOAUbLIA
wwAQOY08QcICALYJJAcALEggRa5LNfyMzdzGETGQjJS0AUgDgACzEOBEgwDmxSIi
MY4kpVCiZiO2QAQCLIggAT8bKJeA0lTmByEQNeyIiNzmAgb6BmAsFVYgpAJ2MZ(S
gYRGhRgkGPEW4oRDCZNghDGcllDEpAtwIRz4bRbHIbedAMQALAIthRZpxcoOQeMC
YacuoPADARQPACZiF4gd6QRjhRBh1Rmwpsx6G2NkIWabiUNlQosMBBaAAogAonuE
XNEpxkxaS)FYGpUkAoRjwTCPXCEAQFhaxQBpLTgk6I(CAAqE4UAgTgoyQr4KaVQY
w2BDWflrjBmkEh2emKGsC4mmkRQQNuvekhmP)8EwIhPA2fAgqsDgaWaqqqieYSeq
Z47rhyKHSMkMAKAMgaGXaUQglgPAogSA9APByiSiF7ACjDkxkO5q(IAe4hOE7Q4A
jplSoTDyDNMQIA2(8JTsiAtECHhRMGIAwYON5QiksBl2ufaMNIBQAqOEhg0ASJwK
GDjjOOGWoNWJR8DMBhVAmKTAmOKrgA0sik4jijGXBRQiICFKg5MxQwwoojHhjVQz
JFMoQJLAp0IwijUhqCBCOOJIMBJqrc8YBQ3scuhTGCNdQxtyC6A4BBAFBlVhIIKa
dqzJgWQVAEFsaCwDFGAI8AA6qgQKCCkhV9xRY9imIRGFqgdoiDInXSG2ZFd)QeWY
QQgVC3gkKOSiJuIEAg6JkSYwiiEp1NwN1aPeAvoY0loICiXqmCS0IIGSwHwABFwR
ugJAszCESZ0CApWUltgBkQrG1ZihEIUw8xwFYvgFhZNCmaUANKMLyxUx244opiJx
0PJUMQDX66RO1Q4AjgsyBBypRzE6AieMJZ48AjVzdkiknoi(jSjH54wohDP3YDBT
MMKHGqHOJdINAg1(tDGFJG(0pBqJcdoQBnokslhhFGIwZZlyAUBQGZEG(WmBiFk1
5VHEYvm9hENPFnr75urvAu5ZAMRrAmFjWCgFcYEg(oMFXf4GlhGdijWiYGIxLpSr
fFwZ6gPAa0BbsJ6XgAXGUYT3NColRPLbyurVAhRCLDgB485VWeWB62BWBgIFklwu
GikYQVmByvJA4KWVeITomDJGZ5t9HGwQvla3obYL7(ggOSGb(49T3hJ2vAgHmDOG
YJn9FGyJoB2Ze3vhmi4Un7uhH(1dLui8zFwgE8ITGiX01qr9UxROMEhBAcAgEGNa
HgVVIyiBqoI4aIowAQAVABmplAmPVp1KEpQA5aFOFSjZK4(DoJCAK4Dg)PopJACi
JlJOlhEWlADpqsVKKnVwGCNQJz1NiIKDkz5AX8JpscsADHmYyJ8GgKHIAGH4M4Rc
bApUFCeExWGCeK6wXXEG5BM4NGe0QqWfsyvqtAgCBAAadAjABghJ5WpGcMQQSBIE
GIGrDNh5QAzAQ(OACRAQQcFODDKiACbKIPlCDKiAZIIQCCEwBgJTQQ4CsxRK)jTh
IAIaKAtAxz3YTmmBgxglmNIEGINhlASOxzZDuGFO2ohEz0Ee8kuXqXUaAScNcXRY
xgJgMEOvDjkbCzJVYrZRF2AxhMsMqg5iGicXARiN6BoIxYQGppOKDJ6NQ5ljsdzB
gc0McKBQniDzxGqJDycSkCAJWAA4sJBely3p1UqK621y)c0pYMkQGIhcmAiNARGD
KrsSwxMoIio6RLAkTsZOoqdzx0pSmcKYDCGHoKDeAiilxvSJ9NSKLRgqBhjbKDBW
xgDGQjI9E1An)m70mZViA4gFyBgQWsUAyJLzBMJYqyWMymgyOsByfIMUEOyvhTQK
hFeXVIiFWgUySKBOBAWMqZ6EMCcS5jjhVAAcHlAPDAx(4ICkWCx1AwE0BEOhAjgX
0s5V(gRHz4QAywUUHa1cthUMwMnDY3xQGyM4aSlrgAnO4K)gCqmKjd0BYtgMokq)
nYdh8YuBXvkoGlRWNAAPhAYALQBF8TsAQuIkZMeLYB3aAJwyI(QFkBwQdtSE3Acg
CIZPUpHCkoSBlnQwQVh0AEvfASQOYmcESpeAhQ4Va5AOWgoMAoKA45TAQjr8HFIm
EAeRhFRIQm2MuhrGyYo4zwM8illiE2wEKhCDRyYMyICtUiJsxbXLc(FvtmiojkCC
hisim0JLVXxZlX0znxAKUQdWWgBmFtTAgn2iLljYao1eSAPZEBDELFJdSo(gGtUA
XJlwYKrykBqFdEeMfSU7pBd(mahVAMYAsoCJ2p(yXfoNRsYDNBv3XOuEGdiY8TBL
1kx2AXUIRSdT4zWSoJjANo2VKimbFme2CjGCDqZxeJRYi8KokwKwLtAUrvcgSRfx
u3bkXATVetYzRrIMNFpvD4XaTL12dSpSAgoh8wVK(Bbskp1hSteNfOT4n49rEx(j
cRwRgnVshkPYBnhJbU5lGLTL7TcySwaRWCWmaFTRD(ovQWvzRnesiBAp0XoprOPZ
AFFHAewRBAMALCHJW6r1oMlVmqrQq4CcIAIvXoX7wHwbgngA2CgI95iTDg6qbNRX
RHdvmORgb1AAIs5M1BN0gQCUicDDkQmV3F8AyYWZI0AlisFBWj1byYeR1lCLARw5
ATyLICAjSItIwF402AZcv22uwKSO0pbNmBKYfDw7FN)Ppe6szI4isn92shzKwHlW
U0k6(1Me8PhNm)uJZfaNAGpl5zTNgfO8sPnZEcIVxHOwODWK(1cGI2gxoFXMGI4r
BzcaBQNBnm3bichW7WL0vBuihIx6AZJ4I4QnMqprJ09H46l0uqhaZwN9TnOUFLol
0b0IBMxgYyEA80DAqrpr4VQ(M(qMgbSGn(6DPnOXUnK4)0bdGAlGY6HAydEgWwWU
stHNq2J9AHg0IlAiNBAQqworBArJWgbA1Gbh077F(RQJFuQ(FHLQggDBnOFgSXte
JAEmr9BEliYFwKkC15WLeJ8eCM2zAAhJhDqEkghGowxYV8IaDEylNnv4DZnCaPnQ
YN4oMAOABCIFtAFAguUKFduSBu6034tAFvYnoMkWpN(1AK4K6fwMmPAOSxMyHQ3B
nVH)av9SF4jiTyEK3fuFY6WHBr8VA(nrBJx3PJ(M1FGwwVxa20v)PCPA)sv))s()
NCQTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
Asec
--------------------------V cut me V----------------------------
-- 
[   >The Davemeister<   ][ ___The_Borg_on_College___ ][   __Star_Trek_IV__   ]
[ ddkilzer@iastate.edu  ][ "Homework is irrelevant." ][ Kirk:  "No, I'm from ]
[  David "Dave" Kilzer  ][ "Studying is irrelevant." ][ Iowa. I only WORK in ]
[  ~~~~~~~~~~~~~~~~~~~  ][ "Partying _IS_ relevant." ][ outer space."        ]