[comp.sys.ibm.pc] Waiting for astrotit 2

vg55611@ihuxy.ATT.COM (gopal) (09/08/87)

My email bin is overflowing with requests - hence I'm posting this.

This is the rotor program posted a little while ago hacked for the
6300 6400x400 hi-res mode.

Warning: You may find this program obscene and or offensive - if so, do 
not try it.

Venu P. Gopal
ihnp4!ihuxy!vg55611


rotor part 1 of 2 - source and executable files
============= cut here, uudecode, then unarc ================
begin 666 rotratt1.arc
M&@A23U1/4D%45"Y#  2^K@D  "0/2GBR>&06   ,+U0DN((F#9LR(/*\J0,B
MC!R$8=BP 7$G3!HZ:=R< 5$&#YPR8^B$<4.'31X09M[( 4$'#4(W'>F >&@'
MI9PW;1K.H7,3(QT6#10DX'FR99HY(-[ = $BB<RC#4&T,4C&9%(Q<\:4@=G0
M39HV83 J1:F2I<NF0IJ @#*$J9$T<G8"%3KF#9RB!9'.62A'*\LW9A&R[4H&
M1-TV< PBO BBCALR958.H7@136 0;!R>*1,T09LWD-DP!4'%I1N68=8@;/DR
M)MDZ*\THGL.B<1W(=2$';E-[9&&>(^>8B=R9=4XZ@%FOG9P1A)B,#D]^ALRT
M-$(X-\_("9.S39V=SA'*<0RBN?(YW#D+)0,7)'(Y)\,@5:["Q=>-L@_.&:WB
M1="@(V0T!ANW(<0#&6_LAX8/  I(H&X\[,3>&RXL&-08:#C4$!UTQ+ %#5UL
M@4,,.<C0!0MAT2'#AR&.6.*)*<[ HH@DFH@BAS3,Z**).P2UTW@A255&&SGM
M<6&&*[GAAHXU=M&C GV \*1C:8PE11%'3%&>&P^=05M2=?!4AI=/_J< 6!FA
MD$)01BI@1!),% &""F; \22&&N:W57HBPN!D4!D]Q8(:+*SQ)!M*;=136&6P
M(,>3/]819!M#YJ2"5'8>J>&EF2J YTJ<QG GDG." (<,92J 7:!FH"""$V_0
M@5!M=Y@& H(P]>;&2:J=E))$;]Q11F%BG,3#&'+X,%,9=,#FQGR (3@'%VZ(
MD,*3JY+4J@A(! M"$R.=)$6L857Y[ \@6 OI&"-M6P(;9(C @@F+RGJMF8B!
MT ,(*$0Z::5SI@ "#'B(@0,,D!B0*ASZ@F!"BA[ZN86?D/(TQETHZ.E&>BR(
M +%];9RA;E!U-IS21VYDK-C&E'8LAQ@C*Y!&JR7WL*\353#!Q)H*@-"FJ7*P
MZBJ[)"6%,DJ*@5#"M-6RH'%Z]_;<T44HP! U"'T VO ,,MQ@ PU/FO%0&&2@
M  <+:; 0@]-P1&W&@ F6D7';"S?\,(<K2DRQCQ9C_'3+'N,-LLAN,[SOR5NI
M?!#+C8KP<LPSSZWOS3GO')3/EV=+Q[9$RV375D@?I#33\OY=QM53TU'UU5G+
MO'777X<]=MEGI[UVG6[#/8?<N->][]UTR*CWGPK\>'$>BN\)>(R#QUPS62@G
MS[C+,$<=><V4Z\PSYCUKSOE(GA^MY^C4EKXRU$]RA ?55J??>AJO>PTVR;.;
MC;;:;.>.Z.YS1QV4X0Y+48Z&5[&^^.U\R\-1\PIGLL^ES'34@QS-#)<]R_7L
M9]X;&OB,!KKQ+:U\3D/@Z=*7NM6Y3VO[XIK\9%<&LMG/=OD+F^YX1S<S:2<,
M<$##=.06 _^IJF$H^%3 !E:P@R6L@,>3'L<"UZ$%A@V B'N@""-HO0E.#@0X
MT][E,!@T;6FP: X,'4(^V#33H6Y]JFO?Y=X7O]C1KX6TN]_M:JB M^V/ACZ$
MW[YD0 ,8P"!L*D&!''KP1SGPH%YEV($<5K""[6$0B$)4@<!,@ (5("8%+E#2
MQ$+4QQS8@'BFBH'=(+;)#\' DZ!,B1Q0H 9"[D -/$C#*QDI,!7 @9$-LV4,
M&)D^  :15))T6"4OF<DEQ8"3I_QD+T7Y.U(>TY2H3)\J6>E*6,I2#;2<TRU7
MD$LX['(%O80D,"<YS+85<PLF@J8R,\?, '+(0^GLY#I[-LU6_M&:LVRD-G&Y
M+UWR,G/BW!0Y+6E.3<X F=%DYRC?N86#JC.5@;3G*V.9SUINLYO?#.>^?BE0
M81(4DYJ4F#Q!Z<V%JJB4(Y5F1*M)46SJTY;\U&9& ;K12 Z4F)I\9DH5VDR\
M;4&GR83H*B6*3Y=:-*;^!"=-^653C^)T2?$,ZC)-NJ*H)I2>*[UG2[,)4V[V
MTYO_[%Y 0773@B[)H3OM7CN!MR*T2O5R]63I-;EZT:_.5*PU':=3S8K2MZK5
MI,)#Z#S),E2Y5G2?7I5I6$TUUB%2\J/G!.I50PG8GPI6J-34ZEQ?6E?%*A6O
M3-7K8Y^*SLM.M:?!*^U#55I8S1ZVJQA=K"^;.EJ^NG6R)46MC&X[V+BZUJB(
MC>UG&9O7CM86I$L2J5\IB]H!FA:N69WH9H^:V*1J-+3&+2=R+;M:GKJ3#CF2
M;&^C6U2Z(A6LPYVM:+5[3JL.-K??S9%[,4O4K7+VO'<E+G;)NM?M\I:D:Q5@
M0Y^+U=9*][6=M>X:S925=KEJ:>9;'/J"(BL\T&&':GI2Z\P4E!OF$,-PR Q,
M4I" @! 6!$&@@@FH (*O$:R/,) *:!#2'T 5+<0C260"2GRI-)S!#2H9UIS\
MHX V9:1+"G)!&"RS+X+Y\4E''E.2(]*P%__1QG3 @0VJAH<8P&!>4?;2O!8B
M)B]%;<,*J/"%9ZPF'J.E"2](\8HY0H<Q#)E--D9RA93,9"(^.<]2WC.5FXP'
M&,P RB31,I>]#&8N27G,84+RF<T4D YOY\-LQO&(=PP"E_2E#OH!@8<+,@:D
MB.$-#BF,IA$28RR;2L2)Q+/,6K7J*UJ->V2& Y=G8# 6.!D2 Y!!U'*]:S'0
MP->%A@0!K@4F.NB:8+RN ;+].(,:##M,S\8#KX_]ZP'T< ?-SG:TIPT#&9#A
MVLXN-K>3'6QF$QO:8I"VD\L]PJ"\6]O&GC:P9^!N;!=;WNR^ ;K%G>]NTZ#?
MZ88WP/U8 S$,7-WZ'H"UP7WO<7=;V$^J>,'9;0.$$WSA,*B!P#/N;WBO&V$#
M&'FX_TUND3_<Y!''@<=9?O&7X_ODP,[!S!4><7Z3/.$WCW@8=H[OA2O;YMN.
MN,,I7O*BZWO9/R<XS@<P!J);/-E0MW?3D][M<S,=Z%='6-85H'$<"'W2LS8;
MK*_80Y_MV--C '49D#+J-)3:.:B6@ZK7'@.M@[W7-8\ZQ.=],*O'F]S51OK&
M4?[ME?-\WN96_-0Q[GBG0[[>9-_ZXO=M>*.G7/(1/_C7/][RI?M=ZA&?>.7#
M#FR,GW[P'.]\RT?^>IAW6^4:![G+!6][=LM\]#1GM^LS__>IZQSXCV>WSVL?
M]&X/'?F6QSKHN[WTU1_^UV/7^-2K#GW69U_S4_>Z]8W^_;^;G?#/#TKK6E=C
M!02ETFF."89)G "XRWT.L@Y4>095*-[C^_R%5FYJ1'RHAWVR-V\V\&W,QW7L
MUGBYUW(#J'T11WD/.&\U,'P2V&T^-WX19P;3QVZBQX'S1B(?B'*J5X&QYW\,
MB'(=UWW7%X DJ(*;]WDN"'(QN( S^'LB*'PEF','R&Y>AX-3]WP[B'*F1X"P
M9X0_B'+<)X01QWU%>'0R&'Y+*(4X"(!^) ._IWY!T7X:"%)/5$]20514+D58
M10 \.   ) _-?3829D8"  Q-M)@!0"( @P!@ *0"\._?"Q( $' 1X . '0 >
M $ :$ # I0$  &@!": #26X"0CI+": 52U$L#;&DPQ(+2R8L?;#LP%("2WL=
M 9 +6BTHLJ"Z@F8*ZBBHG*!@@D8)2B2HC: 5@BH(ZD[C &Y>FWD%YE66UTA>
M#7E5XQ6+UR1>97@%X76"UP1>[1D(Z6XO %A^Y_BUX3=?@9"\#@/XHUB(X@**
MD1$(N6@R ">6(UBF!A(2 7HCR!P(F64T@"BF=YAN85J$:0VF"<0.H&I$$XL 
MKN#&@SL8;F2XQ5X4AQL=[GBX]>&.%N!B2M#3!%PT)AV K.J@JO^I[J:ZD.H5
M!ERT5[U+@8LTS@.X1^"BJ?8 ML"W '^8> !X[N.X/\3 15'^:01 @'4$J$: 
MR 083("3@58  A?Q<L!%4DSX%VTCJ(*A! /4E@:$$0$ VEZ@U9# 10Z(. (#
M*BJ@HAL+7*1%C  P0>,/-+9 HP4T D C*@I<Y$B0 %1!Y!%$3D"D-2<", V-
M$*C(" ,72:#B$A"@ER4 YSQP42Y> A!*F&>$V428)X29C@-?L@D !PU<E R5
M (Q P47C3'"1,GH"L$J?'?1IC@07-4,H (T<:L:A7QPJQ*$]'%K H<I$<-$F
MEA:9J1.9.I I.5LVLB4>6V9AP45'G/JFJA:H.H"JTE1P42^R F!)K9  4*L=
MM7)1:Q"U1E K/G<" $^QOQ3K2K&/%#M'L6L4RT.Q*Q1KB:J]J%K'!1>EPBT 
M^VAPT2SBEE2N ^7>D\%%YJP+@#;N;N)N-AA<)$N] &R"[S3?_N+!17K\*Y+ 
M( @L@<#^=' 1-PH#X$O#E#3,1<-(-(Q#PRDTG 8',G(,@#D;7!1-R #T$,)%
MMX!P42DJ V!(RWVT_$;+6K2,1,LRM$Q"RQ*T[,\'%\4#- #B#,W+T(T,K<;0
M-PS]CL 4J(C!""@",,\(&*AH@8HOE'#1-"2,&S8 C(RMQMA7C/W014UXC:C;
MIKC]C]N_H'"1!BIVL\)%'*A(1PL700$X /$,?H(+%]F . #%+ [)/QK14L4B
M[. B!P":X'T1+C9@!(4F6P0X"#$$X!*'YZ"+3GHC1K!C 12XJ.7!YZ^HCL Q
M1O 3$N[^ ( +[OCL;H0^ITR BR*>L^[(ZYHX8SLNDR1OQ/*?MU/=Z @D8@0\
MB5@ASP+"U-&!\J_C8@GJH5^$_0K ?+Y*<P",+@#NZO#SQS]VR(,_/+AT!+O]
M4,"?/O"'#TV,X#ZC8P#^]&<'>&B" ]<C'?    C<$<]X"YD=^3[G//41 P&X
M,(L&I\<\ZWDP>]OKWO?"-SX2PJX6Z+,=^]P'/_G1SWX+W%__ /"_/P30#@.T
M0P$/Z$$%YF]_#XP@ 8"7(@N680"X ,X(J=>\YT5#>E0T8?P^J#WN>0]\XML@
M+J@1PQ/.4!/O\^#\C%"_^QVQ@3OLX0^#.$0$$L.(#'0@!#VX1",$#P 6-,,"
M<'$.+#*O@UL$(3P,6;T(HM"+*PRC"W$QCS(F\HQIW.(:VYA#./H/%P 4( $-
M:$<\(G&/6RR=_S3!#[_8T(_"4PXN<&&  $SQD,][@"VAL$%-:!%[750A&%M(
M/5Q(8)>I,V/[T%A#8FP2AV_DWR=#"<11$G&+IFQ@$OE(/S D@'W:LX?VZ+&(
MUBW""N[(@17LX8<!I*,< ^ # G)@!'K(P9W;&$ Y^7%.?P""&!#0'CZZIP_<
MF0, $, =.HJ'.W*$9!T5((87S/$/(YC#!(HX@$3Q45%\F  1!Z@H.<JI#GJ2
M@P_CV&<__PD#@1+4H " @4(9:@2' @"B$J6H13&J42]PU(\?#6E-26I2E*K4
M"OXD!A1<:H6"6I2',YU 0Q\:T8E6]*(9W6A'@RI2HM;4J+E;*3'@P%2G'A0.
M49WJ3:NJ4ZSV]*<>!6E7V5C4E(85J?\,J!]?^M1<I;6F5,WI57FJ5:#*=:AT
M_:I=^8E78K1TKTV%*2S^:E.<6G6G6?7I5@\[TL2>=+%B72IDS0H :% VL)=U
M:V'C*M3.EE2Q1TTJ64<+4WB<=JV"Q>Q;-]M:KWXVMGDMJT$=D% CH..):K5L
M6PFK6</VUK-@96Q2'SO0R%K4 3(U+G(!B]O4,A>N7$7L:W][UZ2*MKIF=0 4
M%+K=RK)UL)D%+V=]&UVQSA:]PT6K=@>0W/?J=K7A=6U=@0M0X3ZUN.@09']S
MJ]KFLG:NXZUO8ZG+UX-F-\$+6+!WX\M;" ^XO/\\;X6A:EP%<U>Y\-VM<ST,
M6Q"/U<!G5:B)W<O@[W98O'4=1#T#,(AU B =#>"'&$N S-J=4!,S,,TBRM&%
M94R.'3, 1N9PXP@#0(, )C!&+0D!@"SOA1! P$5(=/%$*< . (30A2#-C(LH
M?>X9ZEERDY\<Y2D+R<I8UG( N.QE-$-QS&4^<YK7##LW:P+.%Y'S,C0"@2QH
M81'<6 $VY+" '7B !0&00P$6,0XI1&$9H4!! (!0AP)$.1TP]/0_7"!J6L"@
M&2'@@0#F  %<3.9S;_B6)&B1 %@W P2_.,4(%F&#E*S@'H'H'03NZ0N$ZL,1
MUP@$,?R @'W,H0%1_MPGOH6+?S !UH$@AS_^88-$F$ & 2BW"6 0@$48(Q8$
MF 8XD&"#4;@@  .X1R**3;9AK, ;]]@&+90 :QLPP@.B"( %#L"/7]BC +D 
M! )6\(PHST,5%O@ *W&3<4VDX628 X,(+C*#=GB W,*P);E]$0!R\R( FM (
M 6BX.9!HF]N0^US*+^)J6(^"% '