[comp.binaries.ibm.pc] Pushdir and popdir

creps@silver (Steve Creps) (03/27/88)

   Following a discussion in comp.sys.ibm.pc I said I would post the pushdir
and popdir programs here. Here they are. These programs allow you to save
the current directory, move to another directory, and then return to the
original directory easily.

begin 600 pushpop.arc
M&@A03U!$25(N0T]-``3?^@```&,,O''==)("```,Z6X(&/(&3AXY:<Z@H0,B
M1@X<-D!H26/&3`LB8>RDF0,"2ATQ;#:B2>/F#`B"+C1`J3(%"9$D4D!8*2)E
M2I(G3AJZ@`$`$H$B`7K^ZSFI29TY#.74<=.1I4N8+H8\:0)"3!DS;^24Z?@$
MRDLI4:>"N).&#1L09-Z`".,F#YV1)5TT4*"`1!$Y<K*"@%,0#DF3;[>.J8.W
MC!N&9-)H'4,G:YZY=??A0G1G5Z([OE@$:&8AT#[*=0[TN%Q'P+H$NJX)H)6@
M68AF(!9%#3"HW9!`/H8$`%IG0"]*`A95H[7#M9P(B6;[4&0%`"!U06@Y<`W;
MP0==$P:PI@X"&@A055-(1$E2+D-/30#?0P$``&,,HE@'VM0"```,Z6@(&/(&
M3AXY:<Z@H0,B1@X<-D!H26/&3`LB8>RDF0,"2ATQ;#:B2>/F#`B"+C1`J3(%
M"9$D4D!8*2)E2I(G3AJZ@`$`$H$B`7K^ZSF)4P]$=^@8Z.3BGXL?`0+M2W2G
M#CT#5Z+\8A$@UP0`\TQE^7*@#CD''R9U>A:@B!PY;^2`D%,F#!F2)NF@*0-B
M3)VW9=PPO$MW#)VX>5R06-GR94R2<^B$8<.F#!G%^W`AW475%]=F%J0BK;.@
M!]4Z!EP8,^!/`(!%-H8$&&1L@"P`M(XT"R$'!JT,NPD$042DGS$B_G0<_\<E
MD`_9E`30.3#(@.PAZPP<L]XV@`M`/EH'H+.@&0A=_P302K#;/%H#N"S4V)W(
M`U1&!H($.*#KFH#X)>RF"PD#K+=;*"P`X`@PM"0A8&N#"/-`+`1,HPXN`,2P
M&QH(4%532$1)4BY$3T,`WPL$``!I#P2)UZCG"0``#`T4@("D`$J5*4B())$"
M`D48-V1`0'D"1:&4%`,O*'F#Q@T((W+2E($8<*""(6_:M'E(9LY`%$[>N``A
M8T;`D@2_0+)Q4R!!*'7DP'DSIXP.$!+EO+&3ADP9EV%`W`F3!P2=-R#DE*$3
MU&.8.E=7TDDS)@P;-E6OXJ20YTU0$&.":G5#!P29-%K'7)53-8P9.F7D9*WC
MQDT:-V=`P%%Z1DZ8-G/6TD$3IJ[6.'7PEK&K6>\;OG`I(SY\QD5/DT8^BST*
M:8!!A!;7;AE"!`27(&SH$,'+!0IC)X_+=%D[L>+"TP2EE%DI9\V<HR"NH$G#
M9O/KA`M!L)1(T2+<AR#$;!X)6"N9M7?STD$+PHS2-E;1;";R9(KB]W#HL(A?
M!N_]-,SEL588<,#!!EF5I?&&1VFX=%AXE8V!1GO4/3731Y^!4`8>CQE8!@MK
MS5%'@41MUE8=<&E5V691F5$A"&X$%U$,,K@@1!!4Q%?96F,L.$>#=+CTAAG\
MM??&66_<09J1;QWHQE,Z()?!=;'YE`%M7##Q!!4'X90!C39965R5:TTQXE!%
M:<?&'%A-5AD(--J(XWY4+N3"$$\TL1]+Q'5G)YY-:*>5AFE,%A@(#YXHF%)O
MU)5>&9[QM5:&#T8EHAB/1EK5@D5"@2,2(,P!!Z1IN%A&1(>MI2@(051!Q1-%
M8%'$$'+FZ&)U%P8QAXAM?$AAC&?E`:)/%+A9UXF";A:7''.M5U6B;@EVQV?G
M$;O8&V,\]2-BH=:!:6=[584"%U=`D<)^8H`%8QFGAII2&6L=9H9J"7+J7DK:
MP=F"#"W,$.IB9831DGQ;79@$D2>NY4:2&M(5F)0T\C"$%#X@1\&]\!D*`GWV
M7=M&?G0>A!U#<^SU5)'D0K$6"JLNVRQGZGV6!T:<%NI2R6&,L89V$&U<'X^B
MG7'R52AKR:5]EV8:+L\1R4%89,3&L&^_%THW$@C(;EAH>^_IR^\,^R$[;1UL
M5#L0!0O+L5*PX6U6W5^(>J1QEEL>U.VW,?-E&K%!^&P?;7"EM%+/#\9Y8XY^
ME5<DF"`X"2^Q/9+=]%9=8>V655A9.NH8I8H4D=(RKU6&'8&E!:")EY?7QF$K
MSC@UV"`,&7A01>U]MA#JCIF=5ES)X89+R!)]!V6`D2Y'B-Z"#IK8@6WVX/!7
M(WN8'6^LT:[4:WW=0@L/3M;@=T7M1_2J*=^M?!Y[$R>R=V5Y-4:/*KU!QHH@
MC(AYJ&G@T?CH9:P9NQGH`==G1"(D!@4I5'3(V1KV,RJU%6HLB.&1CYH2F#"(
MH3KW>4-C'K,Z;IFA.GA(@QBH4ZAGN4&"OZ.#T_2R)#%$:$*WLI#%8@*8YU@L
@!C-I39T8LAW=,>0RF1D4QVCB`AC$[GA68L.*Y+`W&@!$
`
end


-      -       -       -       -       -       -       -       -	-
Steve Creps on the 8650 runnin' Ultrix at Indiana University.
creps@silver.bacs.indiana.edu (192.12.206.2), ...iuvax!silver!creps,
creps@iubacs.bitnet "Hey fellas, it's a four-legged V-8!"