Article View: comp.sys.atari.st
Article #24096(none)
From: Eric Terrell
Date: Fri, 19 Dec 1986 00:16
Date: Fri, 19 Dec 1986 00:16
192 lines
12316 bytes
12316 bytes
This file is a program that plays "Thus spake Zarathustra" -
written by Richard Strauss for the movie 2001 :-)
begin 644 zarathus.prg
M8!H ^, /L "UP "I/+GP ",\*FT !" M S0
MK0 4T*T '-"\ ! "\ +PT_ #\\ $I.0=_\ #$ZY >B\\ $Y!
M(B\ !# \ ,A.0DYU(]\ "- 3DXO.0 (T!.=2/? C0$Y-+SD "- 3G4C
MWP (T!.02\Y C0$YU3E;__$ZY ,E"Z\ F"B\\ F"B\\ F"B\\
M F"DZY -"-_\ ##/ F"#ZY F"$ZY -X$)Y F!& 8,'D
M "8$T<C1_ (W@PO !4GD "8$#'D "@ )@1MWC/\ ( ".,+KP "5X
M+SP "8(+SP "-X3KD X*4(\S^0 )7@ "HR,_D "5Z J:C/Y E
MO@ *BXP.0 *FI20$C @?P &3/ H#$)780 *;"Z\ =C#\\ 9.N0
M $I4CSZ\ !AA G00E=A C6/KP !S\Y J<#\\ !Q.N0 $I8CS/ J
M<# Y J<,!\ , SP )@(&>0 X F CZ\ (<_.0 )@(_/ <3KD !*
M6(\^O "*0F<_/ <3KD !*6(\^O "&/SP 3\\ !Q.N0 $I8CV%>4GD
M !\(8592>0 'PAA3DIY ?"F<,/KP &&$ "3AA B00E=A @Z/KP AS\Y
M J<#\\ !Q.N0 $I8CSZY F"$ZY -2DZY ,]CZ\ %A F 3EY.
M=4Y6_^I*>0 'PIG0CZ\ (@_/ ./SP '$ZY 2EB//KP B3\\ X_/ <
M3KD !*6(]"5S\\!WIA =25(\^O "/SP'@6$ !T14CT) /4#__#U __XP
M.0 'PA@+#U\ +_\#U\ '_[F N/7P __P/7P ?_N8" ]? #__ ]? "
M_^Y@$F 02D!GT+!\ %GV+!\ )GX#/\ $ !V*8 !)#!N__S1R")\ 0
MZ# PF !(P('\ (]0/_Z,&[__%)(T<@B? $.@P,)@ 2,"!_ "/4#_^#!N
M__[1R")\ 5)# PF !(P('\ 4]0/_T/4#_]CZN__0_+O_Z/R[_]C\N__I7
M5S\N__!A 644(\^KO_T/R[_^#\N__8_+O_Z/R[_[F$ !7I0CU1N__Q2;O_^
M2GD !\*9Q)";O_R8 12;O_R#&XG$/_R;?0,;@!1__YF(CZ\ (H_/ //SP
M'$ZY 2EB//KP !#\\ [UA 845(\,;@"6__YF#CZ\ 0_/ )_80 %_E2/
M#&X UO_^9@X^O $/SP!WF$ !>A4CSZ\ (_/ !3KD !:5(]*@&<,0GD
M !\*0E=A 8\,&[__M'((GP !4D2G"8 &8 _LQ"5S\Y F"$ZY //%2/
M/J[_\#\Y F"$ZY / E2/+KP !\,,#D "@,Z4 _ #\\ A(_.0 )@A.
MN0 #71<CT)Y =BD)N__PP.0 'PA@&CU\ /_\& B/7P O_P8!H]? !
M__!@$F 02D!GXK!\ %GY+!\ )GYF (PP;O_\T<@B? %T0P,)@ 2,"!
M_ "/4#_^C!N__Q22-'((GP !=$,#"8 $C @?P CU __@P;O_\T<@B?
M&*PP,)@ 2,"!_ %/4#_]C!N__Q22-'((GP !BL,#"8 $C @?P !3U __0^
MKO_T/R[_^#\N__8_+O_Z/R[_\&$ \10CU1N__PP;O_\T<@B? &*Q*<)@
M9@#_9# Y ?"& PP^O $/SP!?&$ !'I4CSZ\ )A 7:/KP BC\\ ! _
M/ <3KD !*6(\^O $/SP!DF$ !%!4CSZ\ ,AA 7J/KP 3\\ !!A +:
M5(]@ +0/KP !#\\ 9)A 0H5(\^O "80 %B#Z\ (H_/ 0/SP '$ZY
M2EB//KP !#\\ 7QA /^5(\^O #(80 %F$)7/SP $&$ HI4CT)7/SD "8(
M3KD \\5(\^O !/SD "8(3KD \"5(\^O "/SD "8(3KD \"5(\N
MO ':PP.0 * S!_ 4/P _/ \/SD "8(3KD UT7(\^O #/SD "8(
M3KD \"5(\NO 'A8P.0 * S!_ 6/P _/ 0/SD "8(3KD UT7(\N
MO 'F0P.0 * S!_ 7/P _/ 0/SD "8(3KD UT7(\NO 'K P.0
M* S!_ 8/P _/ 0/SD "8(3KD UT7(]@ &J/KP !#\\ 7QA ,"5(\^
MO "80 $8D)7/SP%FF$ NY4CSZ\ (_/ 6=80 "X%2//KP BC\\ ! _/ <
M3KD !*6(\^O $/SP!9F$ KY4CSZ\ ,AA 180F[__#U\ /_\& (PP
M;O_\T<@B? &A8P,)@ 2,"!_ "/4#_^C!N__Q22-'((GP !H6,#"8 $C
M@?P CU __@P;O_\T<@B? &Z(P,)@ 2,"!_ %/4#_]C!N__Q22-'((GP
M !NB,#"8 $C @?P !3U __0^KO_T/R[_^#\N__8_+O_Z/R[_\&$ 3Q0CU1N
M__PP;O_\T<@B? &Z)*<)@ 9@#_9$)7/SD "8(3KD \\5(\^O !/SD
M "8(3KD \"5(\NO '=0P.0 * S!_ 4/P _/ \/SD "8(3KD UT
M7(\^O "/SD "8(3KD \"5(\NO 'OHP.0 * S!_ 6/P P.0 * Q(
MP('\ *15S\\ 0D_.0 )@A.N0 #71<CV 62D!G /SRL'P 6< _3RP? "
M9P#^6DY>3G5.5O_Z,#D "@,P?P %#U __X^K@ (/SD "8(3KD \\5(\^
MK@ */SD "8(3KD \"5(]*;@ *9AXNO 'P\_+O_^/SP 1C\Y F"$ZY
M -=%R/8!PNO 'R4_+O_^/SP 1C\Y F"$ZY -=%R/3EY.=4Y6__Q*
M>0 *BYF%# N SC0#U PP+@ 0XT ]0 0,#D "IJD&X ##U PP.0
M*FJ0;@ 0/4 $$IY J+F8<#'D 0 'PAF$@QY $ !V*9@A2;@ ,4FX
M$# Y J:E) 2,"!_ *D6X ## Y J:E) 2,"!_ *D6X $# Y H#)%N
M PP.0 * R1;@ 0,^X "@ )@PS[@ , F#C/N X "80,^X $ )A(^
MK@ (/SD "8(3KD [(5(\NO )@P_/ "/SD "8(3KD Z*6(].7DYU
M3E;_^$IY ?"F=F,"X ",!\#P#@0!U __PP+@ (P'P _QU __X^K@ *!E<
M@! N__Y(@#\ /SP '$ZY 2EB//JX "@97 ($0+O_\2( _ #\\ !Q.N0
M $I8CSZ\ (T_/ )/SP '$ZY 2EB/3EY.=4Y6__P^O "($"X "4B /P _
M/ <3KD !*6(\^O ")$"X "4B /P _/ <3KD !*6(\^O "*$"X "4B
M/P _/ <3KD !*6(].7DYU3E;_]$)N__@^O #<80 T#Z\ !!AFC N__C!
M_ &T+P !TP($ ]4/_^,"[_^,'\ ;0O '3 @0#UH +__# N__C!_ &
MT+P !TP($ ]: $__I*;O_Z9T1"5S\N__YA /[65(\^O "/R[__%)780#^
MQE2//KP !#\N__QA /ZX5(\P+O_ZP?P #SZ 84P^KO_Z80Q2;O_X8 #_>$Y>
M3G5.5O_Z2GD !\*9RHP+@ (P?P 9#U A@%D)N__Y@!%)N__X,;@#(__YM
M]%-N A*;@ (9N1.7DYU3E;__#Z\ (T_/ )/SP '$ZY 2EB//KP BS\\
M D_/ <3KD !*6(\^O ",$"X "4B /P _/ <3KD !*6(].7DYU3E8
M $CG P ^O ;/SP C\\ -.N0 %I8CSZ\ $4_/ "/SP TZY 6EB/
M2FX "&<4+KP "-$/SP !DZY 2E2/8"Y^$& B,$?1R-'\ C1"\(/SS_
M_S\'/SP !TZY 2ER/(%\P@# '4T=*0&;62I],WP" 3EY.=4Y6__8S[@ (
M J-# N C0?/_VP?P TC T+P ^,+4#_^CU\ '__F >(&[_^A 02( R
M;O_^T\G3_ *C0R@%*N__I2;O_^#&X !/_^;=HNN0 *FQ.N0 #Y"0# Y
M J7$Y>3G5.5O_Z(_P "HT EZB/\ J$ )>XC_ *CP "7R(_P
M "I< E]B/\ JC )?HC_ *I0 "7^(_P "7J J;#Z\ IA /]&
M,_D "I< J<G !3EY.=4Y6__P^O 380#_*G !3EY.=4Y6__P^O !-3KD
M PJ(&X "#"Y J7B!N PPN0 *F @;@ 0,+D "IB(&X %#"Y J9$)
M,#D "I<3EY.=4Y6__PS_ !E J=$)Y J=D)Y J>C/N @ "J 3KD
M ]V3EY.=4Y6__HS[@ * F##/N P "8.0F[__B!N X0$$B P'P _S)N
M__[3R=/\ C>#* 4JX #E)N__Y*0&;:,_P " *G0S_ ! J=E-N__XS
M[O_^ J>C/N @ "J 3KD ]V3EY.=4Y6__PS_ ![ J=$)Y J=D)Y
M J>C/N @ "J 3KD ]V3EY.=4Y6__PC[@ ( C:"/N ! "-P("X
M$-"\ 6B/ C=#/\ &0 "IT0GD "IV,_P "P *GH@;@ ,,] "J
M3KD ]V(&X ##"Y J@"/\ C> (V@C_ )7@ "-P(_P "@. C
M="/\ F# (VQ.7DYU3E;__"/N P "-L,_P !@ *G0S[@ * J=D)Y
M J>C/N @ "J 3KD ]V(_P "8, C;$Y>3G5.5O_\,^X "@ (W@S
M_ 1 J=$)Y J=C/\ $ "IZ,^X " *H!.N0 #W8P.0 )7A.7DYU
M3E;__#/N H "-X,_P %@ *G1">0 *G8S_ ! J>C/N @ "J 3KD
M ]V,#D "5X3EY.=4Y6__PS[@ * C>#/\ &H "IT0GD "IV,_P 0
M*GHS[@ ( J@$ZY /=C Y E>$Y>3G4C_ *G0 "-D(CP "-D<'-.
M0DYU $ @$! @$! $! @$! 0$! $ $ P4 !04 $!
M @$ $ <! @$ 0$! @$! @$! @$! 0$" 0$!
M @$! 0$!!@$!! $! 0,! @$!! (!" $! 0$!"0$! 0$! 0$
M 4!
M ! , " , !@$ " $ " $ ! $! P$! 4 0$! 4 $! $!
M ("
M !0$ !0$ 0$ 0$ @4 !@$ @$ 0$ !@4 $! $ @$ @$!
M 0$! $" P$" 0$! 0$! $! $" +P!'P"Y 2(
MN0$E +D!* "\ 2H O@$L ,,!+P#& 3 R $R ,P!- #. 38 T@$X -4!.@#9
M 3P W $^ -\!00#C 4( Y@%$ .L!2 #O 4L \ %- /(!3P#V 5$ ^ %3 /P!
M50$ 58!!0%: 0@!70$, 5\!$ %A 10!9 $7 68!' %J 2,!<0$F 7,!*@%U
M 2X!> $T 7X!.@&# 4H!O0%3 ;8!6P&L 6(!I %M 9H!F@', :0!T@&N =8!
MN '8 ;X!W '$ >(!T0'H =@![ '= ? !X@'V ><!^P'L ?\!\ (! ?@"!P']
M @L" (/ @0"$P() A<"# (; A "'P(5 B("' (H B "*P(E BX"*P(R BX"
M-0(R CD"-@(_ CH"0 (_ D8"2 )0 E("7 )< F@"9@)X G "W )Z MP"A@+<
M I("W *> M8"J@+< JH"W *J MP"J@+< JH"W *J MP"JP+< JL"W *J MP"
MJ@+< JH"W *J MP"J@+< JH"W *J MP"J@+< JH"W *J MP"J@+< JH"W *J
M MP"J@+< JH"W *J MP"J@+< JH"WP*J M\"J@+D JH#%@*J Q$"J@,+ JH#
M P*J OL"J@+T K("Z0*W N "O +: P@#( ,2 R8#&P,L R(#,@,H S@#+ ,^
M S(#1 ,^ U4#1 -; TP#80-2 V8#6@-L V #<@-H W@#;P-_ WD#C@-_ Y0#
MA .; XL#H@.1 ZH#EP.Q YP#MP.B [T#J /% [($ .V! #O /^ \(#_ /(
M _@#S@/R ]0#[0/. _X#S@/^ \X#_@/, _X#S /^ \P#_@/* _X#R@/^ \H#
M_@/( _P#R /\ \8#^@/& _H#Q@/Z \0#^ /$ _@#Q /X \(#]@/" _8#P /T
M \ #] / _0#O@/R [X#\@.\ ^X#O /N [H#[ .Z ^P#N /J [@#Z@.V ^@#
MM /F [0#Y@.R ^0#L@/D [ #Y@.P ^8#K@/F ZX#Y@.L ^8#K /F ZP#Y@.G
M ^8#IP/F Z<#Y@.B ^8#H@/F Z(#Y@.= ^8#G0/F YT#Y@.: ^8#G0/F \ #
MY@0&! P$"@02! X$& 02!!X$' 0L!"0$LP0L!+ $/02L!$H$J01<!*0$= 2<
M!' $M@1^!+H$A 2\!(@$OP2*!+\$BP2_!(H$OP2*!+\$B 2_!(8$OP2!!+P$
M?@2Z!'H$N 1Y!+<$= 2R!' $K@1L!*H$:02F!&4$G@1@!)P$7 29!%8$E 10
M!(\$2@2*!$4$@@0Z!'0$-P1N!#($:00M!&($)@1;!"($4@00!$($!@0P _P$
M( /N!! #Z@0" N0# @+? PP"WP,1 M\#%@+@ QL"Y ,> N@#(@+L R8"\ ,J
M O4#+P+X S("_ ,V P$#.@,% SX#"0-# PP#1 ,5 T@#'@-( RH#0P* GL"
M=@)Q FP"9P)B ET"6 ). DD"1 (_ CH"-0(P BL")@(< A<"$@(- @@" P'^
M ?D![P'J >4!X '; =8!T0'" ;T!N &S :X!J0&5 9 !BP&& 8$!J0&N ;,!
MN &] <(!T0'6 =L!X 'E >H![P'Y ?X" P(( @T"$@(7 AP")@(K C "-0(Z
M C\"1 )) DX"6 )= F("9P)L G$"=@)[ H "9P)B ET"6 ). DD"1 (_ CH"
M-0(P BL")@(< A<"$@(- @@" P'^ ?D![P'J >4!X '; =8!T0'" ;T!N &S
M :X!J0&5 9 !BP'1 =8!VP'@ >4!Z@'O ?D!_@(# @@"#0(2 A<"' (F BL"
M, (U CH"/P)$ DD"3@)8 ET"8@)G FP"<0)V DX"20)$ C\".@(U C "*P(F
M AP"%P(2 @T"" (# ?X!^0'O >H!Y0'@ =L!U@'1 <(!O0&X ;,!K@&I 94!
MD &+ 88!@0%M 6@!8P%> 44!0 $[ 2(!'0$8 /\ ^@#U -P UP#2 +0 KP",
M C\"1 )) DX"6 )= F("9P)L G$"=@)8 DX"20)$ C\".@(U C "*P(F AP"
M%P(2 @T"" (# ?X!^0'O >H!Y0'@ =L!U@'1 <(!O0&X ;,!K@&I 94!D &+
M 88!@0+N O,"^ +] P(#!P,, Q$#%@,; R #)0,J R\#- ,Y SX#0P-( !
M8P&+ 78!=@&5 :X!E0&5 94!J0&5 :X!W@': =H!T@'2 <<!QP&^ ;X!N@&Z
M ;@!N &X ;@!N@&Z ;X!O@'' <<!T@'2 =H!V@'> >H!Z@'J A("$@(2 B$"
M(0(A DX"3@). H,"?P)_ G8"=@)L FP"8P)C E\"7P)= ET"70)= E\"7P)C
M F,"; )L G8"=@)_ G\"@P*# H4"A0*% H4"@P*9 ID"F0*H M@"U +4 LP"
MS +! L$"N *X K0"M *R K("L@*R K0"M *X K@"P0+! LP"S +4 M0"V +8
M MH"V@+: MH"V ,/ PL#"P,! P$"^ +X N\"[P+K NL"Z0+I ND"Z0+K NL"
M[P+O O@"^ ,# P,#"P,+ P\##P,1 Q$"_P,E R4#.0-2 SD#.0,Y TT#.0-2
M WH#= -T V8#9@-@ V #8 -@ V8#9@-T W0#>@-Z WH#>@-T W0#9@-F V !
M7@%> 5X!+ %> 5X!7@$L 44!10$L 2P!5 %9 5D!7@%> 5X!7@%9 5D!5 %4
M 4H!2@% 4 !-@$V 3$!,0$L 2P!+ $L 3$!,0$V 5X!+ %% 44!7@$L 5X!
M+ %> 2P!7@$L 50!60%9 5X!7@%> 5X!60%9 50!5 %* 4H!0 % 38!-@$Q
M 3$!+ $L 2P!+ $Q 3$!-@$V 4 !0 %* 4H!5 %> 2P!+ $L 50!60%9 5X!
M7@%> 5X!60%9 50!5 %* 4H!0 % 38!-@$Q 3$!+ $L 2P!+ $Q 3$!-@$V
M 4 !0 %* 4H!5 %4 5D!60%> 5X!7@%> 5D!60%4 50!2@%* 4 !0 $V 38!
M,0$Q 2P!+ $L 2P!,0$Q 38!-@% 4 !0 %> 2P!7@%> 5X!+ %% 44!+ $L
M 50!7@%> 5X!7@%4 50!2@%* 44!10%% 44!0 % 3$!,0$L 2P!+ $L 3$
M "P + L #2 -8 U@#: -H W #< -H V@#6 -8 T@"P .8 Y@#F 0H!"@$.
M 0X!$@$2 1(!$@$. 0X!"@$* /0 ] $. 3@!*@$J 2(!(@$> 1X!'@$> 2(!
M(@$J 2H!. $X 5 !4 %> 5X!9@%F 6H!:@%J 6H!9@%F 5X!7@%0 5 !. %W
M 9H!=P%W 7<!E0&I <P!J0&I :D!QP&I <P!X@'T ?0!^@'Z ?X!X@': =H!
MU@'6 =8!U@': =H!Y 'D ?0!] 'Z ?H!_@'^ ?X!_@'Z ?H!] 'T >(!X@':
M =H!U@(8 BH"*@(P C "- (8 A "$ (, @P"# (, A "$ (: AH"*@(J C "
M, (T C0"- (T C ", (J BH"& (8 A "$ (, D0"1 )L EX"7@)6 E8"4@)2
M E("4@)6 E8"7@)> FP"; *$ H0"D@*2 IH"F@*> IX"G@*> IH"F@*2 I("
MA *$ FP"K0*M JT"[@+N NX"_0,@ R #0P,, S(#30-- TT#=0#F (P Y@#F
M .$ X0#< -P UP#( ,, PP"^ +X N0"Y .8 C #F .8 Y@#A .$ UP#7 ,,
MPP"Y +D M "T +0 M ", .8 W #< -( T@## ,, KP"O * H "6 )8 C ",
M (P C "6 )8 H "@ *\ KP## ,, T@#2 -P W #F .8 Y@#F .8 Y@"0 +X
MO@#F .8 Y@"0 +X O@"0 ) Y@#F .8 W #< -< Y@#< -P UP#7 ,@ R ##
M ,, O@"^ +X O@"T +0 KP"O )L FP"6 )8 C ", (P C "6 )8 FP#F .8
MY@#< -P UP#F -P W #7 -< R #( ,, PP"^ +X O@"^ +0 M "O *\ FP";
M )8 E@", (P C ", )8 E@"; .8 D #F -P W #2 -( PP## *\ KP"@ *
ME@"6 (P C ", (P E@"6 * H "O *\ PP## -( T@#< -P Y@#F .8 D #F
M .8 D "0 .8 D #F .8 D "Q +$ Y@"0 ) D LT".0 # G\!^P # CD!
MW@ 8 EL!J@ , =X!? & :H!9@ & 7P!/P 8 =X!? # :H!9@ # 7P!/P 8
M 68!' , 3\ _0 , 7P [P P 8& <%0P
M $EN(&-O;W!E<F%T:6]N('=I=&@@=&AE(&9O
M;&QO=VEN9R N("X@+@!625 @4')O9F5S<VEO;F%L(+T@,3DX-2!B>2!625 @
M5&5C:&YO;&]G:65S+B @06QL(')I9VAT<R!R97-E<G9E9 !$;VX@0G)A9'D@
M(" @("!3=&5V92!)<W-A<FES(" @(" @(" @(" @(" @(" @(%1I;2!.96QS
M;VX@(" @("!$86QE($<N(%=E;&-H !3:6UO;B!#;W1T;VX@("!";V(@3&%N
M9" @(" @(" @0W)I<R!.96QS;VX@(" @($1A=F4@4&%U;'-E;B @("!497)R
M>2!7<FEG:'0 2F]E($-U<V%N;R @(" @4W1E=F4@3&ET=')E;&P@($1A;B!.
M96QS;VX@(" @("!+97)R>2!786YG(" @(" @4F%Y;6]N9"!9=0!!(%4@5"!(
M($\@4B!3 %430 @(" @(" @(" @(" @(" @(" @(" 4"!2($4@4R!%
M($X@5"!3("X@+B N $+AH(" @(" P&!@8&!@P&!@8(" H("@8&!@8(
M! 8$!@0&#@P*&@H(!@H("@H2% H("!X*" 8&%A04+$80'!I6+DH,$A &# 8(
M!@X&" H\'!H<. XL4BP&# 8,!@@&$ 8,!@@&$ 8(!A &" 80!D@R'!H<.! &
M# 8(!A &# 8(!@P2!B@2!@P&#@X&"@X&$!P.#@H*$!(2"@P(" @*!@@*!A V
M'!0@&!@J%!9@1A08(!0."A(2)!0@& 8(#@0&! 8$!@0&! 8$!@0.!"8*"@H*
M"! &!@@&$ @<%@@," 80!@8(!A ($ @&" H&"@8$!@0&! 8$$ @(!@@&!@00
H" 8(" 8&$ @&" @&!A (!@@(!@8*! 8 <'!P<'!P<'!P<'!P<'!P< @&
end
Technical Details
Message-ID:
<8612190016.AA08698@ohio-state.ARPA>Path:
arc1-ca.pugleaf.net!utzoo!mnetor!seismo!rutgers!ames!ucbcad!ucbvax!OHIO-STATE.ARPA!terrellShow Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: arc1-ca.pugleaf.net!utzoo!mnetor!seismo!rutgers!ames!ucbcad!ucbvax!OHIO-STATE.ARPA!terrell From: terrell@OHIO-STATE.ARPA (Eric Terrell) Newsgroups: comp.sys.atari.st Subject: (none) Message-ID: <8612190016.AA08698@ohio-state.ARPA> Date: Thu, 18-Dec-86 19:16:33 EST Article-I.D.: ohio-sta.8612190016.AA08698 Posted: Thu Dec 18 19:16:33 1986 Date-Received: Fri, 19-Dec-86 02:39:29 EST Sender: daemon@ucbvax.BERKELEY.EDU Organization: The ARPA Internet Lines: 192