[comp.binaries.apple2] CarpetBag2.0

wogg0743@uxa.cso.uiuc.edu (01/09/90)

This is a version of Carpet Bag (a CDA/NDA loader) that will work with the current operating system.

Note that I have already had a bug report concerning the routines to remove NDAs by closing them with the command/open-apple key held down.  Updates will follow, correcting this.

william gulstad



FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
JCARPET.SHK     AMBEAAAACA(4LIAg0iCAoQAAEAAtAMBEAgpu
GVvTlzW6Co4SAAAAEAAAAcgWAAAAaRAAAAwBAEAAAAA4AKAAQAAAAAwEAAAAAAAA
GVvTVgP2AAAQAEAABAAAA8CAAAw4AYLAAAAAAAAAAAgAZRQNAswFUAAACoFBAAAA
EAAAAcgWAAAAAAAAMAAABNEAFBlUT5CVVRVRAIAUAAgAAAAAAIB5McKA7BAAbDg1
B4AmsRC5gD1ABO4hQQhAAAAEGCIQuYAEQCDCAsAAMAAQFISCqEhS8ZqLxjN3Pi8Y
2wg8kRLXG2bFBwC9AXFEGiYgC4V4pdKob2sZCLHATTO9d6kJVQE90pSBlm6pqG2R
UohgquSqJneTUrowXZtFhvBOKCvaGhbY0qhugXteW5cEaqdsGWbXGGIwC4hbXQK(
A4tmIHADmwDCAXKMMQQxtDLjBe43MwzAAGD69A4yNQzAAUDy7B42Rg0AAUEchFwF
RgJBAYEs1FAHUwEBAOFICgrJwxgHJDaMDYDAgyA5OD8MDwDAgzA9PD8MDAIAELAg
uAiCBQAwUTARKBWEFXDw04FAQDNGYGwEEEw5wj)bR873ED2IDGDkb0gRkD3Nf)Ek
97nPCMO5UVRCFAIAABg8Z0TJohmCAYPO(8Ac7qu)9)7Lwvq5FwwPACBJUCRJ40TJ
gSgGlgAOD9Cjk6y)AUEkwi(YQUDQ9UC58o0V3XsDPzOV9hhQADD3MtQAjFEBnOm0
2ROxFDHnMEzHYUssQwUiSjWQ5E8UrZJANcksSQ5pBkhRBZAODJdbmv8YRQHvFejS
DJNpkAxcT1zJoDEDicoLOHB5cEMMFp8sDEN9QSTDLgkaigebBCIYpBmCaQTFAAWS
YchSAkCQAiDQcEBAVCaBoFJTkIVxUKJ6xskUhSZ1N8jTBQdd10jSWZZ1RSbv5UET
QZ1D1uZyvplVSRbn1lXXZdl7VWTSUVD2VZbPgDRUgNF1W3WRxhmVXZXlwWRTgZtN
20Xt)alWBUYFVEbcUll1WUTud4VXZdJYl(tWXF6qGAgwAQBnaCQAgDMDA(11A4QB
OTDDAYXRYLBQB0gBAVgEUW0GNACwQAphIEQ54qKmc4RlBgP6SjpDet5RgiAPIIQk
XWKUpqxhGexqDGmGaQFglZlwoHgnAcBRgSCcGIQlhSO6IxgV9FimhEveF4IgpAIi
JT9Zt9tFhUwN4KgAUWFCO87Vex7mb1SOVXGbatrPWE8r4y1Op5ZzFrbXvfhrwEwR
HJFQAGC3IgXEeQEahJpAMoBCF1uNgDwGZASUBD(9HvJwgmZACW2FVyrfJ01wCXBn
d2QsJENgwZBK3kQwFHHHIfWGlgccyx9pnXDzPPBvdeRQNBF9131RvcAwEDP)8bWB
jkNvfy)nH8iyNPPI1exO)N9949yJndowXjf3FfxkrZeO25)fvOX6RPv)X(Bf7aP6
159LneB5yDgFecYn3p(d955tvlL7Lm6ekr(1YzzdcJSidNL(naK9979OlW3DB8xg
6edivZ4A0sQXTPwX1)71CCXCfzIAXFcBtp3vo)HUE8x48gwQtYtCSGqholXI6CIC
PBWpAh09Bz(QADwQ9xFI8hgaGAhhhCcOAQHDCDRgyYAcdsURUA6CIa6OgDhBtGwI
yoFyNWgqhCTAohQAWkTBxpCUUEFmAhpDSDGyh6FkUeCDUcsMOG4GRDZBA1Kjcc8Y
QSI0esYhVqe44qtDw4xEleFoOROATADKyQhAZtjKJIiQjiMsDINBkx4jyAWVepkh
tiiMpOGuxgN6AymAQSfkg5EwFMoEpwAVlAoLwaJTcFFAMFAIZMeyAg(0SzeCYDtl
qiMgpoCWUskwBA2AxBwU2ejDxqpMUAABGIBkHpLWQHBFbwRpEIQYdoAUEgWCAJxO
MWXKm3x00QBRAi5tTmoUgphayMiS74UARMrmFyG6hGaPCfXCt258CIMaPAvUDQCA
rA5FAOBADNc8cKatVCRhhsgOoABA9GwIAcAcKGAViwthB9Aa7gkRtBZwAMEIHDmr
Rzf)OKZ0nQKtKleTAe(7CgKAgAgpmBdaWKlqnygsE1mOALxLCM5U(GBoNhBiSrVW
U4(BtXTGEuQhGSrGZMAIABMmwAQGIIV0N0AIEhWsAAaAUI4j4nCAS(xw4BSIZAAc
IAHwBCONxKaNChGFyk8mGJRm1SGBbnBruAAGRdVgTMbfrviUaHcWMhSCBRRrUL8c
0EL6snpkbGSAYhKgOilOGwWeJTthmrEyGgTsuXRJvEQEXjPeEFtu5jzsGO(aD8oB
dMAoACI4hjOw6yLiu)6ZYoByAKvBhyaNYZSFgRDAd2MMWOOumBuDFiCUVqkR7dZk
SUO9aLKmzh3foBWAaIDSmUk8BMENBLgkAixIkg3ROMGQKIcQ4aGgjIdcIkaAagCA
aJQgNOtSFjmAAF5fAIwjjJ2o442oRBD0AswBQiEroIBL6IYpBAmsqg0pCWHfwMwS
w2QB8AAKCALLjDtuUEtAkBQR3r1mAfJ3vRoeg4yxC)OAn8LOjfljbrJospQ34CiH
aNgBb)dkAIn4HR5uXKiAEkp4vRGApCXy1wkLytYK4Bfu5bHgFYMqTUIMLX6yg4AQ
kzFAMNgIYMEeCCAyhA6OksEDmnxQQYAsMEGhzj6Yg4NH8zzhiCCYAIAcHwP3kzgB
w0oBgE9KGD4BA0G8iAjDIXpECeCRuYAQFEMgCAggZstOmr3zz)5s2IAAOnJsAgtc
QasCEDhA6fAIYEYAF2HTBCLNIkWDAtxQ6QIcOEGszjGdQB0A8ODhURQAaMEksDK4
hSLNwDCDuEAMBJOEUAwCYE02gyANK5vR2ERzjAIaAEtSiSqRZhUAHIyRJxEABgve
myeqAphI0YUKrzAAbcjbKIZc1TiHowQHGAgLtAHABIAlBDowa4wKmivDPylIAgDE
GALUhAZESJJKQFAMW54GUtL4l7T95uDv0c0kukJQTkozIZDKlJDSQB6UXrMIOdo(
3yDoGCIiyAJPYbgipMxtVA0JJuoRisZo0jq5cQgLBiA0EI0rKiAaDFSxA2WgAoD4
4mHaZMgtiysL4CQAIcQjGX4xaBCC3B7qBr1ISzsdiMAxAsAGxEsU5G2kIpRwqjrR
IvlWiBetF0(ZQHJZao8CmKL(KDcfgBW0W4nzTYCA07ULePW8YMuQ7PoIpbXytKl9
N4VHbcUuAIAKgTVAIQBA2tQgqQIgNEOiEDSfHAQIb75j6)xA)cI4AkCNAghAgpQA
gMAgKEAIDAAWACuGgA0BYKhAqUAAmGMYDAUZAB(GIwzBkkAhOEAYEAOjBjaMgRoD
QhCBhtQQbMMKHAp5CDBQALZEGdCxbdZAYIE(GCIzRobN4Vnjgr3hA0wBoABgDfdg
Q9igQvjo4A0AomEBQwEhwaVBQBWBwrmBATnBw33hIdxhAnAgw3AggABgwVRgIvRA
44RAwiiggzigQ8igjy1AsYwAgeEhQvEhA4EhQNVhomVBYwVBQamhArmhY0mho8GC
AS3Bwm3hIYxBAWAgwmAgAwAgwNxPgiRgI9RgIeiA4qiAjUvATS1A44zg4ZEBkiAB
QF1PAaVho0VhoVmBYimBD4vhwpwB4mRAQ0RAIJigwEjADh2AgHFBQNWBQ9mBQj3B
L59hArAAg9BAYiiAs8iggSzggzzAg8zggREBwvEhAFFhAUVhgEmhoVnQ4v3Bo0wB
oVAAomAAoYBgwRiAoziAQNjgAazgYuzgAlUPA1VBQfmBYAnBIz3hwPAgozgvwWBg
A4RA4ZiAgoigIJ0gYeEBgvVB4qWRgAnh4j3BZd0B7s2I4ZFAAnVBgiWBEMiB4RHA
w3AAIZBAQfigoBjAIA0gIJmhYWnBwv3hIFwBArRAgoXgoh2DwHLgAAwRBMgDMrBs
vAla1wDARATDliHNFiaw0IF8wREeAAAAx4dDPgAK1N4GW3wGRjr(FwroCL0fAD6I
6JY3lsnFAADIbBgJlgXCDgL4XiZQdstBUIAWDkr3upoLgbw2iyIQM6QuplfUCpMq
Ui3BhDABFwAAckhNTfLsDIoICo89gAHIbGQxQ7QAPnNtLyFwWze(PhFt418r22if
gwwCyFeHRMLh4Sk3PE(CVMMhgtAu9SO1cpMAilnt1V8sHiCB534CbmmGb5UzaYKH
W7KQXq1rm2raB4bNhPLlrxqxN18ty3ivg6QCfE3CQ8Dx8A0LmComYWAqzAmMyBQm
WwGBOA2EBgyMbhK)AQC5AgXjoRAmR62yjBokI8Nm(dHwVAQjI885eYMgBgBwMHMU
oHwBH8UOpgdAbYCwmCDBEkxPzSASASgBEw75FBHBKsYQXCIEQIg)M3AQAmAuwOfn
OCQCgGQDZBgJmMo(wUCgAUyW74MdZAQJlwBW6TFAAQy(TDjFyBwIjMrz6rHAAMyk
zp)TGA4IFMLMs1OgAUgkyx29B8TxFIFbthAAAWgMS0GEZAQBEIfbtFCAAQg0y2WK
32KZjLGD4AgJAIg(SmTLvAgACoSO5EDAAEgwalzM1AQAAIfO5cDAAAgiikTOLBAA
nqPmB800URD8tUEUTRdlAgeA17EAUhtRAAE9BAAAAAAAvAQAAMOAEAAAAAAAAAAA
AIAADcDAAcgWAAAAaNwNAAwBAAAAHoFBAAAAAAAAAAAADBwCQJVQuQVRD9ERAIwU
AAgAAAAAAgA(FIIALBAAbDw(BgApM6NRCPQm5sBzEaIInOQkQ0BDcKsQDHSAGwYB
BabDlDEOxgQDk6cZiPQc6ohTAiFaQMOYysJRgrMImMcgQgEz8MMKGmJRy0Jokauc
yPUeEmZj(sxCxiDjiiwJAKPbmOPGdyRDERcYSkXLjgYD841UiKQmXUkhAGUFwKPS
piRT84tbnMCHvyBz8qdaGNJJtm5Z(ElJUkQRg(MxM39QmmSU6MszOjlbnjZIV2ZT
AbdanJFlS(lczyiUnOEp5oMjPuQpQnbYNaUBg66BCmX0ysJoKg7djjgrro9hom9f
QiINeyEKo6sbynFPCqB4S0bg7EnB8w590uMq2EaC5sJC)Y5bGOMD7sZzj3ClHhC9
fu5(QwJIwIUCKP85Df2leP9hODtzvIjtKLDD3MEIiRxrmWCqthnQOTyIME4ADA)j
YOToNIvTsLChFMsyQJZty7AjKBE2cpTQhKMmAAuO8bS4CoJEaL9uFHHSi1gFEC0g
DDnwEbPwuOEe7M(DeU6TjIapqg5LNMAH4ceIY2gDKQlEinoII9(mrDFEFyYkjQDD
kYZD8uM7qwUiwQ4DohG4WVfoCnqaakFKpc6YPgZQvrAhhEP6orMF5DjqKgngmHSo
IF4Sgoc2xIUqpxSfUvvtNM96qSlOsEkcRxy0ZOAQNJ38dDkMpPayJQK2cfpp1OMq
M6Bj9IMcwNS16hJNIIDzdVTDRusCDrB(wr)rgQJJ6iq534IVItvvcgjK5KzUMscN
i2woLRHD(UjjoMkKaGnAQYksOq5jJcBUOMqG7qdO3sKdjLnGcQDNhG)cYA9OnY6E
pxRdvngo6kGIttBeWWVIKBqX1E1LcD586EGc4m61YJiHifq3EcRtamvfBCmFjwX8
BRIjIhJa0IyJn(0VuBjzniUzal(e6SaOxAE0OLGpKYPjOCBtTG2V1caTYM42OZzs
xmi0VgXO1pqYjV62YlzqgMOhCigO82IjNriTLQEQxSX)Fq(jcoiS30EdWB5VAnpE
(N3miTCCaQMMkw6phZ16oyMmFx7oZTwpandqsRHbtrj5WwotMIy6IxZo(mgEjfqC
3w7iSogJnKyDmsIy1xWqSeFCDXqzf90oKtmleDYO3gAK9KFpR2KsJFlHWhpovtwK
P15MocTbEah797q91BUyU1W2Bdoa84A8VyYln0ANpbYiX4504nigUik93CsauzZ4
azuuzUB0gYO1sTsMrxlB1liqKKpIl8IfhRCC(y2L5LTTNOsIExzECK1PUQZSPyxc
otK5cFM)CQfXNIGFx1Qbj3YyNILYgiQFqsMI2gxXMwixmwQgWg1ZggMZoo7v3aip
LM0cdAjWNXE5M9AMKPFzTfShztUMRExa14ci9)WIO717TIVISIPpByLlZSADIpPk
pSqg0UM2KIX4gx8X0AqBEwgafLJfTYgbhWa5huVPnrwAYUJco5smdK2FA4wgMzdo
XJkqGOYyTCmmh0oECIMjklQAQMAADCKoel8d2p4nKmSRGoYItqgIBXu1GD62iE5e
6wLUGFhNk4iVTMIPnYqvxpfH0hSyBQCKHYTlrmXM5iQkmHYT1LIkCgOOTjxV1zq1
19bFwyQi2AsuACiYh71PwM1QO3RXTbAgEQWkBTpfgsqL6S0hJNYoIIAYDABbgAMH
z1qBow6oF6BpmQc0IGURSCG5ITNL25Qo8NgSSKH6kSvno9SDaTEz5UzYD1EYZKoK
HKMu8y6pke1Bk9saTUBDJz4tSgbJOnh4bMIAGAG0DgKQgLsH8Gog1VQw6MISgAVX
xV7Vi3jfOMq1uokoq1eVTtwLUqQGwFDyTby6qpQuQcHOEXhmsmJpI5cS)DksRKLW
ip5BULq1BWzNjywxr5JzAGgtVgzfN(kqnWlKDUtaAMAAAAAAAAAAAAAAAAAAAAAA
AoDy