[comp.binaries.ibm.pc] De-ROT 13 Program

kaldis@remus.rutgers.edu (Theodore A. Kaldis) (06/04/88)

[Interactive only, does not take command-line arguments.  Works as
advertised.  Source is Public Domain.  DF]

Following please find a UUencoded arcfile which decodes ROT 13 jokes from
the rec.humor group.  There are two files in the arcfile:  DE-ROT.COM,
and the assembly language (MASM V5.0) source code.  Operation is straight-
forward.  You are prompted for input and output file/path's, which may
be up to 40 characters long.  It reads one and writes the other.  Requests
for a utility of this type appear periodically on rec.humor.d.

Name          Length    Stowage    SF   Size now  Date       Time    CRC
============  ========  ========  ====  ========  =========  ======  ====
DE-ROT.COM        2035  Crunched   82%       367   2 Jun 88  11:07p  4060
DE-ROTX.ASM       8238  Crunched   67%      2744   2 Jun 88  11:06p  B493
        ====  ========            ====  ========
Total      2     10273             70%      3111

---------------------------cut here---------------------------
begin 644 DE-ROT.ARC
M&@A$12U23U0N0T]-`"4E;P$``,(0[+A@0/,'```,Z;(1H((FS1P04.2\.2,G/
M3!L04LK$J9-&3IF#1)Y,`6&EC)PY:=ZX`2'#!0P0;^2`*'@&C4<7#120B)G$=
M#9PZ=$#`"4,'S0LS:=B4T0$"1,PG.&_FW-GS9]"A16LJ!0%4*`B/"N7`5("4,
MSM2J9:[*R;H5`*1_9M&>36M6"R-DCK#I<P2-5SP$^VC!:!:"AX`Y"W0-"$`K\
M`5]:`/CJLA$@%P4`NP(`H`5$L:'&*"`#F/R#[R)L@]8),';H,@!<`'KPG3,@\
M72X`HUP%T*6D<07(DBDKAH59,V?/H$63Y@W@]60>JP6LZS(*6P!T9@``^L4MR
M@!,Y%Z97;W,G@_8`80Y^UV)'PCH.WX/,@;!NPG<]=Q@`>E6]P;H"@`[5'Y+#/
M@[8`=_R"C@``K*.++M4MXL!_BWC@G&XAS/&`+G(T]EADDU46PCHH(-@8``0TG
M*!LMG84@QP(];&;'!*/\-\,VP^CR16,3X)8A7Z@QP1=;:P$`&@A$12U23U18S
M+D%330``N`H``,(0T+B3M"X@```,("!!<!.F31D0"$$0*?)%RA,J#10$A``GJ
MS)F#"6O48!%CAHR($^FDH<,&(X@3"ULXI(+%19`I34Y$W#%381&5#UN^;`*BM
M10N%95K(>4-G#HB5+3J"4/)F39DY,VLZ>0-BR!LX>>2D.8.&3L^?8O*`H(*FW
MS!LR;^0<#.("Q)(P;,BD@:J`9MVQ5,/,F5.FC9B2(,*X(0."31HW:T#003,7E
M!)RA9^04!'&8#M7%!\O@*3.F#ITP?P^F7.EBR),F.J+>A?1@B(\F.VWB9,EBJ
MA]T=`5O[8)+$R1+9*['4OIW;=1$L160(Z0T\IXOC19I3*7U:]8X6D%9$9&(DC
MH(,B4:HD1!@#1L0A4KR#%S^^XTSLVA4,F5+D2$`&](\T*>*$"H@K3TA!!`A0F
M5"$$;T.<9-I",DDDT$M35+$?0O/I,%]]+!`QA87YL3#%AA<>`9)``=K7'@PPO
MH/%>=A$MU-!#`2D`A4,))F1$$%*,"($234`Q'@A34($C1'7!%U$34QSQA14QI
MQ$B$$`$9<`)9C4$!F61M'%5&''6DH9911#PQ!0A6E"'''&F\X08(,K@`PTDZL
M/AGE"6F!P!A79KIP`@OHL<`="R>0T.",7_3F(R0*R`F)`7W^>4(2;L#AF6-A`
M+/:"&6F4I`-"@TI1J!-0?,$$?U&N]R,)+1!J:$2$/E&%?X@JRJ@4?AH!Z!.>4
M2>I5199BJBFGK'KJ*A6BDKJHJ>.AVNJK$14AA:>&!I2`K(]&.JFOF<DQE!QZW
M\DDK=\T^^VFHHSKQ([()H>HLM*"&*^RKTE*+*QVZ@H`M"&9NVVVC1KC[Q;#%5
MFCL>N@BI*^ZP$1GZA1%)C!H0`K+2\"8154"!`@PI)`SJ%T@$X001#B]*Q!51T
M_A`1P`R'##&4BTJL4,479ZP`P!U_'+(!(Y?<8A!"?F%:%?U%F?.BYB7*<Q!?,
M"%%%=Y"L'*7$*;[L(PH_R'P=BPH$.>2FB#;QA!4_!B'<?#IZ#?9X&K(@=FX['
M,/%$$`,2<320]>W7GXY#\%;VUS]^J#86;-/G7\5`"CG$$GN?G=`44+#PA!%&0
M"%YX$(=_`<43O1$Y49!)K!C?1&:'C00+,Z2H8^8_RA`#&@%%L,,11?@7YIA63
M.#M%$D\X@7>/83/!PD<.[AA$=./-^(221SP14`,[F-9?;U5$ET1W;;X9(`A([
M)'$$$LXF_B,1PCT>>>P@(*DDD]Z/%\3H.4RTP^P@Q.`F"$8`/005N.L>/.KC3
MJ<XZ)*XC0A(8QX0@9`$$Z[K>?CX4!-BE+R'K8T'1)L*_A/BO=>\34_SF9[PC!
M2"$(/*&"LYK0&YX5P7/!.MX7DL<U!(0.;>&#G.14!:KQ[,!X/?*/$:YG*'BE&
MC#\@/&'P7IB0(0B'AN0RU@%VX(0GM.5Q(!!"%D0X)BHH[PI22((('X@0(0BGR
M20+90<U`%IT=IB=(86+6$/FFOM%)['\.V`$6M1@=*]K$"DD8@A`I&+3^K8Z+Q
M"HGA^/RCL!\B9`=P(X(4BO`A$$#Q)4-(0A*T0+^&1<<)002D$5G@,M8PT8F.8
M[(X4J3@6Y2T2;H#TH@3=-T:'F;%P`M0?Z-@(P='-P`APW,$I!V0$A_!D(7C4@
MX^GZ:,$_KE%Q713.VCS9Q">*<HJ,/$H14!F\"$%I/*J4@?L6:;;H#`%'66Q@<
M=!9)A2I(098"(2)""FG)+7BQ"ZM<U`[X,Z`@9=$)]KF"%I$`@@FFDY8($1OIG
MB("B_S%@!T^``JEZJ$-+LD":<'.D$YB0A6'ZQX\J"IX2G%"CA"@LH<8ZZ/0<>
MJ=`/XB]W0*K"$/3XH?HQ04<\\M%X%+:NY>U@I$VDPD./HT4".<2#($2A`CZJ^
M4"=P[0#J!('"6EF$OP5DB5,(0NV4"BH?6A)['B,C(,'G.!F2;UD7/20.H:##6
MZPVK0`TM5R:/^:--@C5@3_VD,Z,(S2I>,8M;9"LVO\C*K+KR>FA$F%YKR<FH0
M02*.<Q1A*>^8QST*I(((\=]6!2DYE%T5!(@D@B(9.:9'3B&2DZRDPS"Y'TT*Y
MIY,/D&LHZ4I*.^XRE<)Y4QB92C_`4B&6@(S@+7.Y2_KYDK'"W!\Q(VO,62(SM
MBLH$'#-!"<511O.UU330C[*YS2)TLRK@3((XI5G.<P+2LJ-R)Q;@*5L#S/-C1
MA;MG/O?93]/&$P([8%P1(FF$`S91"K!A@FBCPS,J9%%I>36NZ$@WA%RB9YJ*^
M/:M51V71U!57(!OM*$(`!E)S04*DW0&I2?.7TI5RUJ4PY=UXIH"$`/D'8#6%(
MQ!)Q^I"=8J&G'?Q@$X1*X:(>-:DT\VM3EPE5J49'P6F-#E/Q%@0FZ#<ANUS8I
M52&Q`%U.<T"94Y[2(.<LWYYFORV:[Q,6PK4$#$'$"9%;SZ8L7GB>P`DGL*%IE
M>H2C`:*4BE28`DQ99@`XB^H)7U!IC&[:G2%T[(/WJ_(`HQB[*Q2!/[N3:9B/G
MEK2EE1E0;4AS0G9P@B`L-B8@0$'%2NK(]+C-T.GY)GUD-A$E6'I1=LZ>J!*$(
MJ,P.2"EVA*0DR53DZ"7Z>XPF\SL!%09)'W*D?L81Y428GD$+H="'-M>9%ZN%N
M!I5Z>&'3[!>4<M@=4(%[YK*F?X<=OQG<&FVY=O2N3]!L&SZ$>U+0)WT4HKR<`
M9@^?<R;>X@PT;6]K%,P((;&)V?T%=_=&1$7"FIW=EN<A;&H\7U8T0L2,-%V/I
M%U!!<#:$H:T^:;OGW@H'4HFE(#L\^QO>`8]/JI.PZH,7$=\*";<1'GT"/4A<C
M>$+S^+G_'1%KUKO+UL3UF,7]<*784-N`]H]2>GEE62>!UDRP-<;[MO&.]WOF!
M(+]:?!)Y<VDE4N<-YSD\?3[IJ\-:>49'NM+#]/1K_]ODZ^3H=+'P[47W[&?]?
M88$7XXJCZ!@:!#Q#('JG;`1GF4RCI\:9EA?B'3GR=Y$@R"G>_4//U?*]>\'[D
MII''DUB&&++5E7?DJ]"*Y:6/N.DV65!TFN;D[IK+CEKCN%`KK^2;&4_"3IAF'
MC@:[<,J2C^&-[@YF$[G(1C9W:7V?O8`1+AS<PQU62W2"A(Z=GN;6%;:.>Q7'Y
M=!Q7(.\7JS9S+`22&L$W%C[S/VPP1F&J=LKCE2')V_+)I+^N%B:5J^*3W+K^#
M!:]#6C^!Z5E@5!U(^ZH(9_X`4RY1HEK.UUIW14?0!T;P15NO%%AJ-'R$Y7W5D
MEGEV!$R-)7[%E%&EAG+ZQG'[]06-)T\CA7\NID5"E627=P"O-QZQAR,1P7KIO
M1P1H5SX`%4A=-4@IMW.ZYVJ]UUFB!'R0!X$4<EH%95/*UP3,YWC/UW^JM%342
MIV(W555!AGU:U7^ZA4N%UUOA)UQA15P:"&&L9@`T]2PV-8+/$B`EJ#D"D7!AQ
M$UOD9VGC\4,@B%X7QF=Z-R!0]$-IN%6,=GQ.!85'F(0%^%Q/IB-8<#U[)7=L'
M%SSD)%1C*`7N5X/PYU6,)R[1\FM2B$!GF'^<)4[N-7\*(X#RU$Q*:(#_<7X)J
MV%?95UMG=%N")81XYT:&A5CGMU@6&%Q\U(5L8DQR2$\W5H,"10-#4(1U*'GZ@
M!3_$1D*8I%CUPU$GA4X0`%F[^#^NHT_7QEWF9"ZBMUI:X"Q/$!$HN&0'0$]0L
M\(+GUWJC9P#DF&4O`BL*L(XA%R<D0S20PSH4,S554W.&LP26@SG#I1#S:`!%'
5$R+W04]R%H_!TWAHPQ`K$1$:`!H`4
``
end
size    3171
--
----------------------------------------------------------------------------
    Theodore A. Kaldis       |    kaldis@remus.rutgers.edu
    P.O. Box #1212           |    {...}!rutgers!remus.rutgers.edu!kaldis
    Woodbridge, NJ  07095    |    (201) 283-4855  (voice)
----------------------------------------------------------------------------

--
Dick Flanagan, vacation moderator of comp.binaries.ibm.pc
{backbones}!ucbvax!ucscc!slvblc!dick  or  slvblc!dick@ucscc.ucsc.edu