Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!apple!bionet!agate!saturn!koreth@ssyx.ucsc.edu
From: koreth@ssyx.ucsc.edu (Steven Grimm)
Newsgroups: comp.binaries.atari.st
Subject: v05i056: flu -- Virus simulator
Keywords: arc, uuencode
Message-ID: <8071@saturn.ucsc.edu>
Date: 22 Jun 89 01:30:25 GMT
Sender: usenet@saturn.ucsc.edu
Lines: 278
Approved: koreth@ssyx.ucsc.edu
Submitted-by: woodside@ttidca.tti.com (George Woodside)
Posting-number: Volume 5, Issue 56
Archive-name: flu
A GEM based demo program which will display the symptoms
of known ST viruses (which have visible characteristics).
This program does not contain any viruses, will not spawn
any, and is completely harmless. It contains only the routines
from viruses which generate sounds or alter the screen display.
ARC'ed and uu encoded.
0.5M, any resolution.
table
!"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 flu.arc
M&@A&3%4N1$]# #_9@4 ,H2&S?,8K(( ,3<+D80$B1@X<.1HH4&@Dz
M3)LT;-*$D9.&3AX0=RJB 4$'31D08># *3,QC)LQ']^8X>@1)!TZ8<:LF0-"y
M)8@U;M[<<0/"3AHY=>:4H7GG31TV9$"(^:C0(QLX9HZ"2,-33IDQ;\ZX2:.'x
MZAF,'GF^,Q#4TX5H6ZH>,"A)$W.3w
M3!DR"CL*EI-5CD,0(HPPJ2*B;1*Z9D&",-QF[!PZCNFD&5N7\1G';2S3)?-Fv
M*(B<=+&N#4,5I)N+*A.WQ&JX]- R:Z?R-'G1)U":9N"R+.OF-"V5_YB7MV:IFR8M3-;S^FFA>'/0,>(#NP2t
MIDP0"O&6TDI"!>88&]<=-U1;5'@D5'\QS02252"4H5$9<8511WAOU!273W/4s
M\1Q!1W/Y%Z9-!=2ZD5344PPA11%%.'$U=AC7j
M'*%P"E5+UD3"3F786E(^!T(;)I$E![+# @M'3<,%23=T=<'E-'6@CF$5<.B%i
MU=U(ATE;Q]Y=4NSN14H_7"K&BEWT%W_6A31222<-N)EC&7T:$5ES&,Q8&S)Vh
MN3? 8KSQTL!)MS2'X64@#@(2.K6((4%U\M3Y2V?[F:A+RRV>>U)S@26NC%B#g
M8-5S;;\Q4FA#0=V2V?\5=13S(I$45V<41K3&HPI4.\??'K,A.TCA3R0>:4KCf
M#ER9H1=^.$_>(^478!_IS&= 8+Y@Y4$A2['32B%1Ie
M<*51%NN60H=HV2EZW)L)K19BM)9$YFM%T$(1QG8<70U")KFW4$N)HTF,$,d
M4CH*72+5$OK8AU7YV0_ZL.::R)FL4V7 'XPF)I^6T/!.8J!#ME3#D3"TOS! X 2)T&\\0/ @),S)[D&&C C%(""s
M'P"0#MQ A"< )D!'Z&B18@=7'%S+Z. "1\Z;,W+*S)G#Q0R;.FW?NBA[ADN,r
M'#AR<+'!Y087&3'VCD#1 @?A'81U !#!!\ _04 41#EP!T3C?X@ @.!5 $ q
MS;P4 ( F@$ 4* / -@'NH%#. 3D](N2[)^_*,C^X9-,V4D=.?] Y!E(P,D0p
M?0!(P(B !0@#(#X 8:PH!(@,0"$"#50 Y!^_(.CZ ,@^T+=W).=L"R?N1 02o
M:?PZ-Q'IV0N< 220F$@BYP 3:0#P@80U 3(Q38#O%4B@@ ?R0 /-4*!(@B%N_S"#A!X 8&%5 D!Q\0@3W_SQCV\&(;%!%CC80 4:98# 1!ITm
MT,%&C4>D588;(!SQAAALI.'&'"!,08<<::Q18Q!GA&&D9L-5Y 0,//#Q#Q38l
M<,B/;TY8\0\VZ!$## PN (! &-NA., (3GCAFP" .'1 $,CA @%$ . )@ '0k
M .,$-.M9J0,/'_R@ ";_0$) %,WHYAN6 /Q0:'&'^O#'.5U&R@^'[OC&)@ "j
M7-H>$M,,!4!TF?[Q 00?1 #!-Q)\ ^D_]HBJ2AB^A&'-I#U-$(8G7H;!#*66i
MA*%"&,2PF,-HC@D2 *7(A(&! ,^^$VT OGT(@ E6@>"$$R;Z)L.S%?$B#1"Rh
M5$D +VS@PZ(%,%#1EAR*'. / @]H1X!CE?8DPKA4/ (-+PY!$ PB+T#@K08Og
M]'00MTY\,]1!#"CP[&>DZN-; (X"9^IQR2W7W'/134= ==>1YU1WWX4WGG91f
MU>%=F /!@*XH'DA1)<\0F>% 3#Q])A4 $M#!Q1-Q@FG%0%/\[('01/,0 +=)e
M(:TTTW+6$:9M.@\4"C]4 #'#2>.1,P-](9 S$ D.P!% #]WYPX ;3MG&A@9Hd
MVH8$,.,@$@1]<$<#C-PP "*%&[:!X0T< IS]MGM5DI!?E:%H@T3E#AQ-@3A-c
M,="TUV+BTP/>".AV>M[ZH$D4-*C3[9WK#L#NE.S^(,$X/G)#]0.ZF1]=@1A0b
M<.WT0+^+K4[R (@" _.BX "]##0=/0$K32D@.0"A@#(ZSI4"O_S.S^\L_E"(y
M-.^<4$T]2"$%_J&/%R(@A@"P@&YT5T(>RH.']."A/3AXM B@08 /+&$2Y9%$x
M>B31'DG$1Q+UD41^)-$?UR<(8U9*$.\<%#>/@0B$)$XT",B$07*-&03#2D$PT)14-*v
MT9!4-*05#>F/^T"EB%PU$P?Ms
ME,'^ )#%@0!0@$<;@!P4**ZL$4 *1T. *7 G0C.0(*#]',@#O#&3,U!P:T<[r
M !("*@;U^6\@$X $ *II4>NA@Z/ TX;G/%'-(KH FMG4P!F!QPD%NF)I#!C.q
M&,2FCS,,!!8I7>G;%.#2I>'NBB] %PEXFC4#$&!I(KR"SZCWUFC0'DX"L:Y@H!OLHI:P[ !U^I (# @6DN#0F L(#BCN Xm
M)E@6$)ST9&<9\%DV*$,i
M&)XQA0,??< 8<%!'G $VX!YCA13'Y<" !(h
M: $2JBQ,HO15F7*(0&-Z 8 %Q)148N.'0:4L-BKS0YG\Z#(Q[2$ 5S1J (ZQg
M!YQ#P#A[$*4Z)/18U@9PTJQ! &([TX "&#=2V<8,((@)'$" W:6UH#N"=H@Ce
M#DC#6=?Z":T>P*OE.EDQT>,% SC:!@QQ:TD-NM #.;2IFX>"13>PR=BM)@@ d
M< 8$5SV 6 &&YC D088A$,&F+5EPV(08P"'K&D-c
M;EO#3"H'<0:O^>'K?C\!#+10L;H;/9 !4,$$NBSV/^0A!,95UM5[NWL^UVMH?[y
M"?O^=;._E)2#&%"2!2_1W;_=]GQ2(>[/GOO.$EH11N/][WKWN[C5H7G GR+Qx
M0?#WS;(6 &@,'/3Z9?S?'1]HN1L:YLUC@=T=#VE1R'[2%\S@/W#7\DQOVAR=w
MSOK;MOZV46NZU#N[?:I7#:%61\ V9V!!X W>;//:A@!,!?)]!Q( <523U_I v
M/;#Q]GQ_F,$Q;&!]L;'+S$L?S1,<_MO2]\W)U7O].\4_'1-]SETF9Uu
M(C5S#41[9S!M(3" J49IEK9[F!8 )/9[P0=JHD9JMH& "H@TS < %-!J O!Jt
M1#40 L ,.<
#]M=VXU9NS89N?+=M[?9NNA%O\U9N]Y9Or
MTZ=X@_>"A^<=XH=P/MAP#Q=Q^Q=$UY X24 XG. #B ($#T8P3Z "0-!R,' q
M4W $$'$&!( "W0 &].!XMI4X)*2&B;,$;@B''R"' C!-U80"=_AL>;B'??B'p
M@3B(CE:(N"5Q^C #P"0VSH- V.<4L30 ?V, =4(0+%!]J,U*2SO!"1%>2k
MA((W&$"28B,-_TB.T;B0"-"0"QF1H< *"VD:W.,*"^D 8@,+"TD:W",+"^E,j
MW$,+"TD!8F,+"VD!8H,+"XD!8J,+<# #'XF1":F1.2F1/]F0<) ^VW>1)960i
M<- $7:EMJ".3W'.2>#.2*HF2D/-0F-7[F:<. &P'D\"IF8]&@&TWF8U;F1K[F3C\F8DQF;e
MEWF4N0D'9)"=X".W4F-.2d
M8I.7,5F2?+F/?LF=L$F?/0F>E(E,MQF9Y5D&V2D"+U 1U.($0D"=<% &VR,*c
M I!9/+8R/X, ZBD*G?,_R# ZWNBA(^$*(M 3->8*(" Q S '&$J=8#D2LJ"1b
M2/D!N@ ":0(!JN@06F 2(^$+YMFA'_HS!-!D'8H (CD#T,!C)VI/R""2<&FBa
M\*@-.NJ-(,"E-:8+WB@"VUACON"-(5"F'V +JDD4(R&:3C$2VC #0T$S'@HYz
M'=JD ?"D)5JE'(@,:*JF;-HU(D 14$H1! "" !V6 &7T(Z_R _C -\/% Gy
M@@0 &J ([C.7/&0.PF,/!C:I-*%,\J)12T-"E( $:P@(+3"7588"4( %=L8/x
M$, !L.4#1,%4)7 &?', -C4 4,!!J65#($!'3F"J!_=B(" [\ '#O@/[."Lw
MLN,.M7JKG@4 +2 TK]@=\E"M@("K8+ RC",/O 4 ,& ',,"LWHJKY:H"v
M9F "<$8%L]H#4 "M; !VSIQ?<,.1 $LL,.[0H 8* "_<<.Y0H#;0 "Y9H#u
M;L WAL0..P<-1U"*Z]H= FNKWTJPVE"N+F &2C"P[VH&%#"O]7JOU*JQX&JPt
MC.,.";NP#?NP?>,.$UNQ3'6Q_Y"RU@H&'7M+;!"O(GM+9' &$E"N9\$ Y5H's
M+5BN>& &")"'&/0/WX"K(. !% G!P$&S48/=KBOZ)"'EL%>B" #/>$ 8" r
M6( $L( %5U ;-715T,!?-&"RWF&O_P .?0,.;. >?NOLI-B+: !AW-D200.q
M+W$T&6 'Q6.'=@4 !'=D=&M%A95B" &3%98Z@!G+7"OX""K+F1(>IM,H$L$p
MK-H=@"NX]0@ O&:X#8"XH$-U696Z<-8PAYLU&?"Z3F&'GLL/C>L(9.0X(\>So
M+Y%$[C!PJ74T&B %H6.'4#"K8& &_8<.FGNO^."T+= 8-68#NK&[0*H;6VN'n
M$- !1#NS;:!G#:!1=H8/L-"R;Z .4] (8( "T1NY,'!HP &%C"[$'"I%0"Jm
M!^<80*)(%=JO?Q,-EP "'Z!1C2 [ZL &XOH/ZM W\F &3- WZ' &,-!J,%!"l
M9H "RD0/#$ :V>H!'/3!P/@/])! .:RP$16:N!U"A$B0Z6<,!6E \S>8.g
M9W#*>:C*$'0T'" *Q3,XBVPX&0 !K9JS1 $&Q""2B@P ?_S+$$ !?J@!W &f
M^ "#>#%:LD$(5VL8* (% %4E )KK.H@"#1%)W.c
M("W2)(U $'#2$VW.+Y'."" %&?T&&]W1_\#0(3W2PP@!*)V0RN8%#S1!]68&b
MX@P^T5C4" 'U@QN!9B0(( #!* +T3@_&Z '< N44$NAODUIG(8 >';E:O(98%X1r
M5[/EG]$93([FW/<989X! B !K$!:8[F?%[HI-(9<&[D-VX /)[F?$[C-+[Cq
M!@$!.;[E.O[B-Y[C $ $ W$!Y?@$ T%* % %H3X06!#J) ,Y41A 9-#Ip
M(%(&H;Y*YY<1JV13M@X % $ %R , " 'H6X) # 'H6X$ *#AO"X+ ( 'G1[Bo
MG)Y#( #,2 #,T #-6 #-Y 702 $0T $16#L8KX%,] %6U $4 $.#B!, !%& CC+(0GH0"* #B#W!: 3XFY_Z"*#ZK+_ZKK_Y*H +M#W".#B%M#W#.#;0]7W'@ "g
M&, !&J <9_X R $EM_W>2\">7\0-* !RS\ S?_\M:_VN8\Q!J "'O#\)E#Zf
M=F_[N$_Z'*#]$$#\O?_[%$ !$F !Z'_^(, !D6^U1A7_!"#_1N7X\R\!%'#We
M$J &7,0:L_Y^G_W $ &7,0:L_Y%!@H@#3 0$"B0@@(10(20#"1$R,)@Pd
M(B0"%14J$$C0X$*,'@P80 "1@ $+" Z.5 #1@,F7+@]"*B"2@ H) 0@9@8(!c
M!0@F 1Q((((!@041&R%X(*& CP(<'$0R0& "@0=V!" I"$#& "0' :"$9,b
M52Y24T, /\F$@ RA*Y-D\Q6"0 P $C@%(%>P8( ( T@@1 "1( a
M=@%@ ,! 0@0DJ%!!4P:$E31RZLP!,25/&SATWK0!0:1,FS=NYM"1$X9.&I@)z
M!U@I(V?.33<@8KB0 0,$I )*ZK@IPR)H#APY<@YY R>/G#1GT- !@6),"J=0y
M60 P\T8.""-RRG2$4D<,FS1C6*:1>55,'9LPQ8K) ^!(F;)G.DIQ >+*FS=Dx
M?)(ID[.&C!@Y2(8!:J3,VS%I)K]A>=4.8X6&$;.93 8$DC1LV,QI.B0(B!PQw
M9MB@ 0)$E2E!84:;3A8WBFp
MH@K=1AVU^6:<(KDXTF(^G;%4:2D!X-L;YRT&0EHMA#'''(].-D89 MKXEALBo
M J#D'*/ZZ:$;I8FA%AQ-<@04EG48^\8=/(%0!QP+FI56E%NA:Q9[,KD$)*XNn
M+D8A;^35! *Z-AZI4D< 2BAFE&6LV&+ =#1%VI:HL='<R6O[$())W/k
M>>0J /RZE7;5#>8G!QTC46A3&^TZZ>>56?:V;KOO!OUH@WGDVT:U=X2!HY5*j
MV61Q&&;4;):]A!N.\MCB[AV2&V[L3%Z?* N-88Q S3RWE?FJO#-,#6Z86F\Ti
MPR=?C !PVZ<;U8X!DTUNU"$>C)N5Z+589'3F[5X>-ECG'3#&RE-3C:,FN!Q$h
M4N&KW^RF55I\9A"VVT@^R3H:7J5N/I*L8Z !@AG.2M[4<8*/*>.*X@$@[L[%g
MAV%?4TZB%J;46UN2G+3#'#C<922!HY 9RL \.*0!#Y:IVU8@E+X)T2$_8UA#f
MM7BS%/U\+ V+6=48PF"Q8FVK6T"I6E/LLA7S*>]O<@ 2%.95-Q3-IPS,$9.?e
MB"6UZ)CI.S0A'Y#P5(:N\6H.:_J> &56!KHE[V[/^U9IP@ W34NBGH[E] Jd
M5[/A6 D.,+39@H#"H'DUD3!7,!>,R@-%L^QP=%*SHIO:Q1L K&A4>)LC&20&c
MKC5V9 K6XPU'E,:S%U&H3E19'X.49 <2^FY!LRN/'"5'F"",)XY9FJ-9@K.Nb
MU?1,1H>!%YC*0*X7,BUL2@)D=-;EAJ:\)"U2!,$KJ04"?O6N#>*B'L$8-D8_a
M-@B%!5M>[6(UJYI=LB,K@U19-N2&:4'2C]7ST#&7.)XP@.E\9>D(:0 PR^;Az
MC3 S%$\-F0.F'&YFAY\LDW?0)$0 P" GB2K-$9.(!M[ 34@x
M(+"!+,/ G!$"*'D((S;PY>&+FG7=Z$KYB:^?,GAn
M?9O9)9FN5;_[A2U_ZNW?C'P9P*H]S0T?,Z 3$[@^!O;F@1'TT 0K*]"A:K!2m
M6^$@A.3PP1 ZEX3 2Z?;MJ)"&]UE64H929DIN2D:?HN<. 0>"'8(S>Z<"3SMl
MY!.I0 H00&%K?Q2M;=:?2UJ;JDLV:HKDCZ&O$GB+T3X+6J4)'LG!O$VQ-X:k
MJK!O&DF''@8Z44)2640[LM\Y!VQGT*Z?Q,*ZA3;H@36;KOJ4+4YJF^$MY)J0j
MW^;VDQ]++>I=B[,M*CX+K:"'CKC5_)[+ B2D&,L"!_9X])FF;A=S/VJ^+i
M1HN5F-R98C!=7'/"\$TVA=@L)T2P[N00$I3LK#J\^^FO?LA.F\EXXGC+Z;,Xh
MQ!BFO4Y<&9H+'$:3!YN!T],?NB%?Q"2N,[R(M21']4]<>Z+G<,0LY11U6NCPg
M**"(24D;6A$W_52'?4F-"<6Q3()%LF 0C(:CMB;.M8^^I7I6<)*_ C;"AZW(f
M@\/H*F>@3GQU"R-Q!UN7Q]1 K,G08ZF9&"$=A[,M+-/EX'3:=B3J0,ECU1?5J$?)d
M!];U'(F#?6PWYTEX;P3+LH6GQT5](5ILB_,PE7W9QE&/AEP*)UW?'43SD4B1:(C@2YCP/@"CEQ##F!# (9$ 1IC^B8 ?J8$\F0$^>0$^CPD 0r
MD0-PCQY0D0!P $8XDFT0$ =0*N)(CX 0$/ !V*9EAU0D09 EEIY )8@$/,(D^MX &19o
ME)!@ !(@%EYY '*YC@APEU")!",) @ !A0D0D@F'DI 1)2 "0 "PENNHn
M &YIENE0D0L "&YC@MPF7D9 (>YCA0Q A7) *!I $@%NO8 @ A79 *D9m
M $]0D0[PFK8YF]0SD^E8D0\PFY-0D3@)F^L( &2I 0!P @E! %@"V4I 889l
MD^C8FC^I$#BIDZ'2DS\I +.9"Q6IE$PYF]E0D3!IFNMXE4Z)G) IE '0#Q4)k
MF>6XCF.9GFDIE (PFH49GQ5QG/5) +@FNLHF?IIE_2YGOYIDYY)CA49F 6Zj
MG ) G #@FOJYF UJGSYID_!9D999H?[9BS;IE_KYF1PJ %IEDP)ZFOQIH (Pi
M!#^YF?HIFR-:FS8IH2+)GR7@H%;PD] 9GS() +=ID]:9DQ&0G05PH4#IE%IIh
M *P!=\) $NYCDTYE.KIH'RUCCMJE2GJH*%BDU]8EYQ)I]%*c
M (&PH-T:H,L*"HJ9K(&:K00P#!J:K(JJKN:@FL(GE"*L!^9F@8 F3 )F7D*z
MK8MJ *8)DQ91E75)LS_0I[T)F#0+!G)ZF'E*H3O[!W(JF7F:KDEJ )X@IY>Jy
MF33+"W*ZF:K-B:I(=)M,W*H(N* &QJJ$ZJv
MF*F) +GQJ!&JH5DJE A0F[!($?CYKE.JNU$ #3INRC*H0@P!65IO*V9NP2 u
M %4@CS2)GVDKI?V) %= O-J+GW!KO0:* %E0EM,KG,Z+ $P*B]")GQ%0OEV@t
MO>E;H_1YH[K[!<\9G83+FX<;LK@ZLK,K(2<;NRF+O'OPE0I*$<6*O(+PE.5Hs
MP,H:K0AP")+;LJ&+NJ8@IVO:IK/KD#=KL(8YN^I0NJ?*M-F: !0!DW[9K%)Kr
ME G0 DD[MN^:I G@!$\[MEX+PR9BJ6.[KS ,"0'1J0#LHZF9 + @MJ?:O2,Lq
M#6>;I\:9JLN9 /$@I[>9F/?KL=59J_JKG39)LHNJ %[YOXX;K0H@Q?(($0>\p
MQ3U@E<*o
MH2F:H!!:PT:Y (2)K_JZR&KPKZ=:O=FZ (Q0L$6\R K)n
MF\UJMXNZ ,\ L6*\Q&]:L0NPD1GKH]()L?F+G?NKN*5\#[T:GM'* )L)I659m
MQMG* "B QG^JQDG* $SPGAG(EJG) "=)Q]?:S)W,K1"ZQ\?\"N)*QGJZR]0Pl
MR+B[R_+0KA#ZPD;9 "$ZKZG9 '_JFNN:T@;P /'8TMZZJ \PQ]$)H2(LU:3@S96YU5J;H']*g
MSGGY .!PF@#0R!.1FA F?"LUSILE!!@ ?:LU_(LV%SURDI,L/:f
MHT0=I$:=JUG,UUZ0RTR=K1"0+KY\JE$MV)> QMILU7D) 7&=EB(-QZ>]#6SIe
M$!@68QZ?ZTGD9 6K=LFMME!'0U5ZIS85\E"R=J+#MF:D9 >%ZF*YY <>[d
MJ!'0CX=YF\S=O++=JH=)D],-Q+)]D:^LS3S=FT(9 :XLE]X]$ %! ?E(E&P0c
F$!;0S8BYW@"@ 4,) !M "P'1 5S%F06=CA*2K_WQFEK[FL &@!!b
a
end