🚀 go-pugleaf

After several requests, here is the speed adjustment program I mentioned
in a previous article. I have no idea who wrote it; there are no obvious
markings  and  it came off a BBS here in the UK. If the author is around
and recognises it I hope they don't mind!

I  have  not  used  this  program much but it seems to work OK. It isn't
fooled by a faster processor such as a NEC V20, although I haven't tried
any others.

The program is given below; I dont have any source so it is a  uuencoded
.EXE file.

------------CUT HERE------------CUT HERE-----------CUT HERE---------------
begin 644 diskoray.exe
M35H   T    @    __]L 4 !,MT     '                           
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                       SP 90C,B.V([ L#;F0[@+Z>9 BL3F0+I8!+0)
MZ&(#NNL&M GH6@/H(@.[80"Y% "0.@=T#4O@^;K\!K0)Z$$#Z]V[8@!) ]D#
MV8L?_^-!0D-$24]+3%%(86)C9&EO:VQQ:(H 3 %= 6X!?P&  9L!G $: P\#
MB@!, 5T!;@&W ;@!TP'4 1H##P/&!K82 )"Z2 >T">CI KMX$KD9 )"P (@'
M0^+[M &Y "#-$,8&MQ(4Q@:X$@#'!GD2>Q+HC *ZR ZT">BY KHK#[0)Z+$"
MZ+,"<P/K))#H( .+'HT2HXT2DRO#!0  /0#@>0.X . ]_Q]X [C_'^L$D+C_
M'^@B K$!T_A0) \\"G(%!#?K Y $,**S$EBQ!-/X!2  )3\ N_T/N4X Q@<@
M0^+Z!0@ B]B!P_P/L"&(![K\#[0)Z#\"Z T"<P/I'0+KA,8&MA(!D+KN![0)
MZ"<"Z3O_Q@:V$@*0NI0(M GH%@+I*O_&!K82 Y"Z.@FT">@% ND9_Y#&!K82
M )"ZX FT">CS <8&#0-)Q@8. T_K59"0Q@:V$@&0NAH+M GHUP'&!@T#2\8&
M#@-,ZSF0D,8&MA("D+I4#+0)Z+L!Q@8- VG&!@X#;^L=D)#&!K82 Y"ZC@VT
M">B? <8&#0-KQ@8. VSK 9"T ;D (,T0Q@:U$B?&!K<2 ,8&N!( M #-$[K!
M$+0)Z' !Z'(!<PBZI!"T">AC :"W$K$$TL@D#SP*<@4$-^L#D 0PHHD0H+<2
M) \\"G(%!#?K Y $,***$+I,$+0)Z#$!Z/\ <P/K Y#KMSQ&=0/K!9 \9G4'
MQ@:U$B?KI3Q%=0/K!9 \974'Q@:U$DSKDSQ2=0/K!9 \<G4&M #-$^N".@8-
M W4Z_@:W$H ^N!(!=!^@M1(Z!K<2>1;&!K<2 ,8&N!(!H: 0HVX0H:(0HW 0
MH+42.@:W$GD$_@ZW$NE"_SH&#@-U-8 ^MQ( =2& /K@2 74:Q@:X$@"@M1*B
MMQ*AG!"C;A"AGA"C<!#K"Y#^#K<2>03^!K<2Z0?_ZUN0  "Z6 2T">AJ .D%
M_;H*$;0)Z%\ RU%3L0;3^(L>>1*!^XL2> .[>Q(!!H\2AP<I!H\20T.)'GD2
MH8\26UG#Z , <_O#4E%3M OH)P *P'0%M '-(?E;65K#NB,2M GH$@"Z9A*T
M">@* +0!N0<&S1#IGOP&S2$'PU!345*[N1*P ;0"L0&*+K<2BA:V$HHVN!+-
M$UI96UC#4E%34+JW [0)Z,__6%M96L,(" @()%%0L0C3R.@( %A0Z , 6%G#
M45"Q!-+(Z @ 6%#H P!86<-245-0) \\"G(%!#?K Y $,(K0M +HB_]86UE:
MPU&P!N9#L4#3R.1 BLCD0(K@BL%9PP%-4T)/3U0@($Q/1               
M                                       *#49U;F-T:6]N($-O;7!L
M971E) T*"@H*"@H*"@H)"0D@(" @("!$25-+3U)!60T*"2 @(" @4$524T].
M04P@0T]-4%5415(@1$E32R!415-424Y'(%5424Q)5%DL(%8@,2XP#0H)(D1)
M4TM/4D%9(B!(05,@,30@0D%324,@0T]-34%.1%,Z#0H*"0E!"41)4U!,05E3
M(%1(12!23U1!5$E/3B!34$5%1"!/1B!$4DE612!!.@T*"0E""41)4U!,05E3
M(%1(12!23U1!5$E/3B!34$5%1"!/1B!$4DE612!".@T*"0E#"41)4U!,05E3
M(%1(12!23U1!5$E/3B!34$5%1"!/1B!$4DE612!#.@T*"0E$"41)4U!,05E3
M(%1(12!23U1!5$E/3B!34$5%1"!/1B!$4DE612!$.@T*"@D)20E35$504R!$
M4DE612!!.B!)3B!/3D4@5%)!0TL-"@D)3PE35$504R!$4DE612!!.B!/550@
M3TY%(%1204-+#0H*"0E+"5-415!3($12259%($(Z($E.($].12!44D%#2PT*
M"0E,"5-415!3($12259%($(Z($]55"!/3D4@5%)!0TL-"@H)"6D)4U1%4%,@
M1%))5D4@0SH@24X@3TY%(%1204-+#0H)"6\)4U1%4%,@1%))5D4@0SH@3U54
M($].12!44D%#2PT*"@D):PE35$504R!$4DE612!$.B!)3B!/3D4@5%)!0TL-
M"@D); E35$504R!$4DE612!$.B!/550@3TY%(%1204-+#0H*"0E("4A%3%!3
M(&)Y(')E+7!R:6YT:6YG('1H92!E;G1R>2!)3E-44E5#5$E/3E,-"@D)40E1
M=6ET<R!A;F0@4D5455).4R!T;R!T:&4@4UE35$5-#0HD#0I.97AT($-O;6UA
M;F0_!R0-"B @(" @*BHJ*BH@15)23U(@*BHJ*BH@("!4<GD@86=A:6XA"B0-
M"B @(" @*BHJ*BH@3D]4($E-4$Q%345.5$5$(2 J*BHJ*@HD#0H)(" @(" @
M(" @(" @(" @(" @(" @($1)4TM424U%(&9O<B!$4DE612!!.@T*"@T*"B @
M(" @(" @(" @(" @(" @(" @(" @($EN<V5R="!A($9O<FUA='1E9"!D:7-K
M971T92!I;B!!#0H*(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @5&AE
M;B!S=')I:V4@86YY(&ME>2X-"@H*) T*"2 @(" @(" @(" @(" @(" @(" @
M("!$25-+5$E-12!F;W(@1%))5D4@0CH-"@H-"@H@(" @(" @(" @(" @(" @
M(" @(" @("!);G-E<G0@82!&;W)M871T960@9&ES:V5T=&4@:6X@0@T*"B @
M(" @(" @(" @(" @(" @(" @(" @(" @(" @(%1H96X@<W1R:6ME(&%N>2!K
M97DN#0H*"B0-"@D@(" @(" @(" @(" @(" @(" @(" @1$E32U1)344@9F]R
M($12259%($,Z#0H*#0H*(" @(" @(" @(" @(" @(" @(" @(" @26YS97)T
M(&$@1F]R;6%T=&5D(&1I<VME='1E(&EN($,-"@H@(" @(" @(" @(" @(" @
M(" @(" @(" @(" @("!4:&5N('-T<FEK92!A;GD@:V5Y+@T*"@HD#0H)(" @
M(" @(" @(" @(" @(" @(" @($1)4TM424U%(&9O<B!$4DE612!$.@T*"@T*
M"B @(" @(" @(" @(" @(" @(" @(" @($EN<V5R="!A($9O<FUA='1E9"!D
M:7-K971T92!I;B!$#0H*(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
M5&AE;B!S=')I:V4@86YY(&ME>2X-"@H*) T*"@H*"@H)(" @(" @(" @(" @
M(" @(" @(" @(%-415!015(@9F]R($12259%($$Z#0H*#0H*(" @(" @(" @
M(" @(" @(" @(" @(" @57-E($D@:V5Y('1O(%-415 @24X@;VYE(%1R86-K
M#0H*(" @(" @(" @(" @(" @(" @(" @(" @57-E($\@:V5Y('1O(%-415 @
M3U54(&]N92!4<F%C:PT*"B @(" @(" @(" @("!5<V4@4B!K97D@=&\@4D53
M5$]212!$<FEV92!I9B!R97%U:7)E9"!A9G1E<B!$:7-K($5R<F]R#0H*(" @
M(" @(" @(" @("!5<V4@12]&($ME>7,@=&\@4V5T($5I9VAT+T9I=F4@:6YC
M:"!$<FEV92!087)A;65T97)S#0H*"@HD#0H*"@H*"@D@(" @(" @(" @(" @
M(" @(" @(" @4U1%4%!%4B!F;W(@1%))5D4@0CH-"@H-"@H@(" @(" @(" @
M(" @(" @(" @(" @("!5<V4@2R!K97D@=&\@4U1%4"!)3B!O;F4@5')A8VL-
M"@H@(" @(" @(" @(" @(" @(" @(" @("!5<V4@3"!K97D@=&\@4U1%4"!/
M550@;VYE(%1R86-K#0H*(" @(" @(" @(" @(%5S92!2(&ME>2!T;R!215-4
M3U)%($1R:79E(&EF(')E<75I<F5D(&%F=&5R($1I<VL@17)R;W(-"@H@(" @
M(" @(" @(" @(%5S92!%+T8@2V5Y<R!T;R!3970@16EG:'0O1FEV92!I;F-H
M($1R:79E(%!A<F%M971E<G,-"@H*"B0-"@H*"@H*"2 @(" @(" @(" @(" @
M(" @(" @("!35$504$52(&9O<B!$4DE612!#.@T*"@T*"B @(" @(" @(" @
M(" @(" @(" @(" @(%5S92!I(&ME>2!T;R!35$50($E.(&]N92!4<F%C:PT*
M"B @(" @(" @(" @(" @(" @(" @(" @(%5S92!O(&ME>2!T;R!35$50($]5
M5"!O;F4@5')A8VL-"@H@(" @(" @(" @(" @57-E('(@:V5Y('1O(%)%4U1/
M4D4@1')I=F4@:68@<F5Q=6ER960@869T97(@1&ES:R!%<G)O<@T*"B @(" @
M(" @(" @(" @57-E(&4O9B!+97ES('1O(%-E="!%:6=H="]&:79E(&EN8V@@
M1')I=F4@4&%R86UE=&5R<PT*"@H*) T*"@H*"@H)(" @(" @(" @(" @(" @
M(" @(" @(%-415!015(@9F]R($12259%($0Z#0H*#0H*(" @(" @(" @(" @
M(" @(" @(" @(" @57-E(&L@:V5Y('1O(%-415 @24X@;VYE(%1R86-K#0H*
M(" @(" @(" @(" @(" @(" @(" @(" @57-E(&P@:V5Y('1O(%-415 @3U54
M(&]N92!4<F%C:PT*"B @(" @(" @(" @("!5<V4@<B!K97D@=&\@4D535$]2
M12!$<FEV92!I9B!R97%U:7)E9"!A9G1E<B!$:7-K($5R<F]R#0H*(" @(" @
M(" @(" @("!5<V4@92]F($ME>7,@=&\@4V5T($5I9VAT+T9I=F4@:6YC:"!$
M<FEV92!087)A;65T97)S#0H*"@HD#0H*"0D)(" @4U1224M%($%.62!+15D@
M5$\@14Y$(%1%4U0-"@H*#0H@(" @(" @(" @(" @(" @(" @(" @($1)4TL@
M4D]4051)3TX@5$E-12!)3B!-24Q,25-%0T].1%,D#0H*"@T*(" @(" @(" @
M(" @(" @(" @(" @(" @(" @("!$($D@4R!+("T@3R M($T@12!4($4@4@T*
M"@T*(" @(" @(" Q.3<@(" @(" @,3DX(" @(" @(#$Y.2 @(" @(" R,# @
M(" @(" @,C Q(" @(" @(#(P,B @(" @(" R,#,-"B @(" @(" @('PN+BXN
M.BXN+BY\+BXN+CHN+BXN?"XN+BXZ+BXN+B$N+BXN.BXN+BY\+BXN+CHN+BXN
M?"XN+BXZ+BXN+GP-"B0-34U-34U-34U-34U-34U-34U-34U-34U-34U-34U-
M34U-34U-34U-34U-34U-34U-34U-34U-34U-34U-34U-34U-34U-34U-34U-
M34U-) T@(" @(" @("!$<FEV92!/<&5R871I;F<@;VX@4VED92!/;F4@870@
M5')A8VL@3G5M8F5R("A(15@I.B J*B @(" @(" @(" @(" @(" D3VYE(%1W
M;R (" @(" @(" @(" @("" @(&1I<VL@97)R;W(A) T*"@D@(" @4U1224M%
M($%.62!/5$A%4B!+15D@5$\@14Y$(%1%4U0@04Y$(%)%5%523B!43R!-04E.
M($U%3E4-"@H*"@H*"B0-"@D@(" @(" @(" @(" J*BHJ*B!154E45$E.1R!3
M15%514Y#12!"62!/4$52051/4B J*BHJ*@T*"@H*"B0-"@D@(" @(" @(" @
M(" J*BHJ*B!315%514Y#12!!0D]25$5$($)9($]015)!5$]2("HJ*BHJ) T*
M"@H)"2XN+B!$3TY%(0HD0T]065))1TA4(#$Y.#,@0ED@4D%9($A!3$Q-04X@
M+2!!3$P@4DE'2%13(%)%4T525D5$#0H*"@H*"@H*"@H*"@H*"@D)"41)4TM4
M24U%#0H*#0H*"2 @(" @("!);G-E<G0@82!D:7-K971T92!I;B!!#0H*"0E4
M:&5N('-T<FEK92!A;F0@:V5Y+@T*"@H*) T*"@DJ*BHJ*B!397%U96YC92!!
M8F]R=&5D(&)Y($]P97)A=&]R("HJ*BHJ) T*"0D)9&ES:R!R96%D(&5R<F]R
M(20-"@H@(" @( D)"41O;F4A("0                                 
M(0%#0T-#0T-#0T-#0T-#0T-#0T-#0T-#0T-#0T-#0T-#0P       $)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)4
M0E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)4
M0E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)4
M0E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)4
M0E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)4
M0E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)4
M0E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)4
M0E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)4
M0E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)4
M0E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)4
M0E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)4
M0E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E1"
M5$)40E1"5$)40E1"5$)40E1"5$)40E1"5$)40E0         <W1A8VMS=&%C
M:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C
M:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C
M:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C
M:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C
M:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C
M:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C
I:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS=&%C:W-T86-K<W1A8VMS
 
end
------------CUT HERE------------CUT HERE-----------CUT HERE---------------

-- 
           Bob Eager

           rde@ukc.UUCP
           rde@ukc
           ...!mcvax!ukc!rde

           Phone: +44 227 66822 ext 7589