Megalextoria
Retro computing and gaming, sci-fi books, tv and movies and other geeky stuff.

Home » Archive » net.micro.atari16 » rtxdemo as promised
Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend 
Switch to threaded view of this topic Create a new topic Submit Reply
rtxdemo as promised [message #268884] Tue, 04 March 1986 00:13
turner is currently offline  turner
Messages: 73
Registered: May 2013
Karma: 0
Member
<pre>
Article-I.D.: imagen.292
Posted: Tue Mar 4 00:13:30 1986
Date-Received: Fri, 7-Mar-86 03:55:19 EST
Distribution: net
Organization: The Houses of the Holy
Lines: 648

~~~~~~~~~~~~~~~~~~~~~\ lineater, \~~~~~~~~~~~~~~~~~~~~~~~~~~~

here it is rtxdemo.uue (uudecode it to rtxdemo.tos) and a c program
to demonstrate how to use mult-tasking, the c program will not
compile and is meant as an example only. i wish i had the package
program for shar so i could bundle this properly, perhaps some kind
soul could point me in the right direction.

============================================================ ==============
begin 664 rtxdemo.tos
M8!H #D. *# IW "I/*FT !"/- !#&B M S0
MK0 4T*T '-"\ % "( THW"O/____XN02\ +PU"9S\\ $I.0=_\ #"!Y
M !#&B)H !C3Z <(\D $,>1>@ @! : H #_/P O"IW.3KD "-\3OD
M "Z(B\ !# \ ,A.0DYU(&\ !" (0>@! +_(9 1P_TYU(\ $,>0H!.=4Y6
M P+P ((B\ "DY"O_D $,>9!0P/ )0?D #IJ(@A.0C \ !.0DY>3G4@
M;P $,B\ "# O I(P%. ;P80P5'(__Q"@$YU(&\ !# O A*$&8$0H!.=; 8
M9O0@"%. 3G5.5O^B3KD ?H0E="ITZY *[EB/T'S_G#U _Z@P+O^H1$ ^
M@$*G3KD KN6(\NO .MY.N0 %$HNO .QE.N0 %$HNO .T%.N0
M%$HNO .WQ.N0 %$HNO .[A.N0 %$HNO .^Q.N0 %$HNO /"E.
MN0 %$HNO /&).N0 %$HNO /(%.N0 %$HNO /)A.N0 %$HNO
M/*Q.N0 %$HNO /+XO#@:7____L&$ P!8CQ N_[!(@& 6XNO /,$O
M#@:7____L&$ N)8CRZ\ \SB\\ \S2\.!I?___^P0F<_/ !+3KD !.B
MW_P ,8 !1BZ\ \SR\\ #&RF$ J98CT*70F<O/ VX_/ 4/SP
M9$ZY +9M_\ "F 1)"ET)G+SP 1&/SP %#\\ &1.N0 "V;?_
M I@ #P+KP #S6+SP ,;*80 "4%B/0I="9R\\ $4#\\ !0_/ !D3KD
M MFW_P *8 O"Z\ \W4ZY 42DZY %V& *8NO //4O#@:7
M____L&$ @18CRZ.!I?___^P80 !%& ()@ !^+KP #S\3KD !1*+KP
M #T=3KD !1*+KP #T\3KD !1*+KP #UB3KD !1*+KP #U\3KD !1*
M+KP #V73KD !1*+KP #VK3KD !1*8"8NO /;5.N0 %$I@&& 62, @
M? .HYR";"85\G__"!H "1.T PN 'C_L&8 _EA.N0 "9HNO /=E.N0
M%$I.7DYU3E;_]BZ\ ]Y"\\ #&RDZY C,EB/+4#_^F=,8"P0+O_^2( ^
M@#\\ 1.N0 $Z)4CPPN K__F80/KP #3\\ 1.N0 $Z)4CRZN__I.N0
M)!0=0/_^L'S__V; +J[_^DZY LADY>3G5.5O_V+KP #WF+RX "$ZY C
M,EB/+4#_^F<X8!8NO 04P0+O_^2( _ $ZY OOE2/+J[_^DZY D%!U
M__ZP?/__9M8NKO_Z3KD "R&8!(NK@ (+SP #WH3KD !1*6(].7DYU3E;_
M_&#^3EY.=4Y6__8NO /?LO/ QLI.N0 (S)8CRU __IG3& L$"[__DB
M/H _/ %3KD !.B5(\,+@ *__YF$#Z\ T_/ %3KD !.B5(\NKO_Z3KD
M "04'4#__K!\__]FP"ZN__I.N0 +(9.7DYU3E;__"ZN P_/ )3KD !.B
M5(\@;@ ($+P 3BZN @_/ *3KD !.B5(\@;@ ($"@ 4B 2,#0K@ (($!"
M* "+KP $%,/SP "DZY OOE2/+JX "%27+RX "$ZY ?<EB/3EY.=4Y6
M_ZPNK@ (+PX&E____[!AA%B/+HX&E____[!.N0 '\).7DYU3E;__$CG 00J
M? 0WI@%"!5,"@ 7")N @R*0!<L$%M!BI52I5FZ"!N @@E6<,(&X ""!0
M(6X " $*JX ""!N @A30 $(&X " )H__L 5B!N @ : " %9*GTS?( !.
M7DYU3E;__$CG 00J>0 0WI@!BZ-868J52 -9O9*GTS?( !.7DYU3E;__$CG
M 01"ES\\ "!.N0 $Z)4CRU __PNO /@9.N0 %$HNO /D!.N0 %$HN
MN0 /?YA'&&@+J[__#\\ "!.N0 $Z)4CTJ?3-\@ $Y>3G5.5O_\(&X ""ZH
M % @;@ (/R@ 6"!N @_* !<+RX ""\\ ^BDZY 42M_\ #"!N @(
M* " %=G#"Z\ ^MTZY 42B!N @(* ! %=G#"Z\ ^P$ZY 42BZ\
M !!3#\\ I.N0 +[Y4CTY>3G5.5@ 2.<!!"IY !#>F XN^X "&8P(&X
M""!H 0B;@ (()$@;@ (2I!G$"!N @@4")N @A:0 $ 0@;@ ( FC__0!6
M*E4@#6;$2I],WR 3EY.=4Y6 !(YP$$*GD $-Z(]4 $-Z2I5G""!5(6T
M! $ FW__0!6+HUA .@( U*GTS?( !.7DYU3E;__$CG 00J>0 0XX@#6=P
M(^T " 0XX[? #_ %Q";0!80FT 5CM\ #( 6D)M %8@>0 /?XM: !N__P^
MO O3KD !.B*T M#Z\ !E.N0 $Z([0 !R0E<O#0:7 =#\\ $=.N0
M$Z)<CR!Y ]_B%N__P ;CM\ $ N" -2I],WR 3EY.=4Y6__P@;@ ((7D
M $.. @C[@ ( !#CB!N @Q? ! %9.7DYU3E;_ZD*7/SP ($ZY 3HE2/
M+4#_[BU\ !#AO_X0F[_]BU\ !#RO_\8$ @;O_\0F@ 6"!N__PQ? R %H@
M;O_\0F@ 7"!N__@@+O_\(4 ""U __@&K@ (,#__"!N__PQ? ! +A2;O_V
M#&X !/_V;;@@;O_X(7P A"N0 0WHC_ 0WH $-^80#^NB/ ^
M BZY ^ F$ CP]? "__9@3BZ\_____S\N__8_/ %3KD !-R6(\O #!N
M__;1R-'(T?P $.2()\P+O_V<ACC8$C @+P R>+H _+O_V/SP !4ZY 3
M<EB/4F[_]@QN G_]F^J+KP UX/SP )#\\ 5.N0 $W)8CRZ\ ,QC\\
M $4_/ %3KD !-R6(\CP 0\(NO/____\_/ $"/SP !4ZY 3<EB/(\
M $/&+KD $/&/SP! C\\ 5.N0 $W)8CRZ\ -?C\\ "T_/ %3KD !-R
M6(\CP 0[HNO #<H_/ A/SP !4ZY 3<EB/(\ $.^+J[_[C\\ "!.
MN0 $Z)4CTY>3G5.5O_T3KD U4/4#__BZY !#NC\\ "T_/ %3KD !-R
M6(\NN0 0[X_/ A/SP !4ZY 3<EB/+KD $/&/SP! C\\ 5.N0 $W)8
MCRZY !#PC\\ $4_/ %3KD !-R6(\]? "__Q@)C!N__S1R-'((GP $.2
M+K"8 #\N__P_/ %3KD !-R6(]2;O_\#&X "?_\;](^KO_^3KD UB3EY.
M=4Y6__H@>0 /?XQ;@ ( %P@>0 /?XQ;@ * %HNK@ 2/RX $"\N Q.N0
M#&9<CTY>3G5.5O_\+KD #W^80#]/DY>3G5.5O_X('D #W^+6@ 9O_\8 9.
MN0 # @^K@ (/SP 4ZY 3<E2/2H!GYB!Y ]_B%N__P 9DY>3G5.5O_\
M2.<!!"IN @CS0 /?X ;0 $ %8";?_^ +A*GTS?( !.7DYU3E;_]D*7/SP
M($ZY 3HE2/+4#__$JN AF""UY ]_@ ((&X "#UH %S_^C N PB;@ (
MT6D 7"!N A*: !<;0P@;@ (#&@ _P!<;PH@;@ (,6[_^@!<+J[__#\\ "!.
MN0 $Z)4CTZY ,"# N__I.7DYU+PY.N0 #50L>0 /?X]0 !42.X__P 0
M+5\ #"U? % J3TY$3F@M2 !(+4\ 3"\.3KD 5.6(].N0 !S0M0 02H!G
M-BQ 0>X0N$Y@3^X@N"\ 3KD K&+JT "C\M @O+0 $/RT C\53KD I$
M3^\ #DZY *>$ZY &_"Q +FX 3"!N $A.8"\N % _+@!43.X__P 0+&X
M#$YS+PY.N0 #50L>0 /?X]0 !42.X__P 0+5\ #"U? %!.1$YH+4@ 2"U/
M $PO#DZY %3EB/3D1.N0 !OPL0"!N $A.8"YN $PO+@!0/RX 5$SN/_\
M$"QN Q.<TY6 @;@ .0H P+@ ,3FF3P)/ 3F%*@&<&,MA30&#V1OP# &$
M_WP@;@ (3I!.1$;\)P!.7DYU3KD F:80).<4*!$A?2@=*!(!_ O/\ !!
M^0 0Y* L! ($!.T$;\)P O#DAY ,W$#G+'D $/"3M9&_"< +'D #W^
M4FX 6%*N %X(+P % 1F6DCN/_\ $"U? Q.:"U( $@]7P!4+5\ 4"U/ $PP
M+@!8L&X 6FT@0FX 6"\.3KD 5.6(].N0 !OPL0"!N $A.8"YN $PO+@!0
M/RX 5$SN/_\ $"QN Q.<RQ?3G- P#( @GP' $Y$1L%.=2!?,!= P0)!( "
M0-__@$%.1$; 3M 5R 3G,(%P %9CY.:$# D ' Q P!F,# 0#$ F8.
M/R@ DZY *BE2/8!H@>0 /?XP* !8L&@ 6FT*0F@ 6$ZY ,""!Y !#
MND[0"!< !68:('D #W^,"@ 6+!H %IM"D)H %A.N0 # A.: @7 5G!$'O
M 9"@# 0#$ 5VXB2&@ B!\ ^R-" T( @< @ 3I!8CTI 9P@@.0 0W9.
M<R!Y !#OD[03E;__$) 3EY.=4Y6__@@>0 /?XM: !N__Q@!DZY ,"#Z\
M M.N0 $Z)*@&?L('D #W^(6[__ !N0D!.7DYU3E;_^"!Y ]_BUH &[_
M_& &3KD P(/KP $TZY 3HDJ 9^P@>0 /?XA;O_\ &Y"0$Y>3G5.5O_X
M('D #W^+6@ ;O_\8 9.N0 # @^O 13KD !.B2H!G["!Y ]_B%N__P
M;D) 3EY.=4Y6__@@>0 /?XM: !N__Q@!DZY ,"#Z\ !).N0 $Z)*@&?L
M('D #W^(6[__ !N0D!.7DYU3E;__"!N @,4 #_9@1A /\00D!.7DYU3E;_
M^$CG P0@>0 /?XM: !N__@@;@ (*E!"1Q 52( ]0/_^5(T^O (3KD !.B
M'4#__ PN /__&8:+KP $ D/SP "4ZY 3HE2/0E=.N0 $Z(,+@ )__QG
M #\#"X (/_\;0H,+@!___QM #J#"X "/_\9P@,+@!___QF/DI'9P !!E.-
M4T<,%0 @;!@,%0 )9Q(NO 0"D_/ )3KD !.B5(\NO 0"T_/ )3KD
M !.B5(]@ #.#"X #?_\9P R PN !C__&<(#"X %?_\9CY@-%.-4T<,%0 @
M;!@,%0 )9Q(NO 0#$_/ )3KD !.B5(\NO 0#4_/ )3KD !.B5(]*
M1V;(8 =KYN__YF$CZ\ <_/ "3KD !.B5(]@7#Z\ %X_/ "3KD !.B
M5(\0+O_\2( ^@ 97 $ _/ "3KD !.B5(]@++YN__YF$CZ\ <_/ "3KD
M !.B5(]@&A N__Q(@#Z /SP DZY 3HE2/&N[__%)'8 #^F# '(FX "")1
M$T 1 N__Q(@#Z /SP DZY 3HE2/('D #W^(6[_^ !N0KD $-V< %*
MGTS?((!.7DYU3E;_]B!Y ]_@@H N68 )8@>0 /?XM: !N__HNN0
M0[X_/ A/SP !4ZY 3<EB/('D #W^+J@ M#\\ !I.N0 $Z)4CR!Y ]
M_CZH '(_/ .3KD !.B5(\NN0 /?X&EP '0_/ [3KD !.B5(\@>0
M/?X : ! +@NO #<H_/ A/SP !4ZY 3<EB/('D #W^(6[_^@!N0D!.
M7DYU3E;_^"!Y ]_BUH &[__&$ _T NN0 0[X_/ A/SP !4ZY 3<EB/
M(&X ""Z0/SP &DZY 3HE2/(\ $-V/KP +TZY 3HB\ ('D #W^(5\
MM"Z\ -RC\\ "$_/ %3KD !-R6(\@>0 /?XA;O_\ &YP 4Y>3G5.5O_X
M('D #W^+6@ ;O_\80#^P"ZY !#OC\\ "$_/ %3KD !-R6(\@;@ (/I _
M/ .3KD !.B5(\CP 0W8O.0 /?X_/ 93KD !.B5(\@7S% '(NO
M#<H_/ A/SP !4ZY 3<EB/('D #W^(6[__ !N< %.7DYU3E;_^"!Y ]
M_BUH &[__&$ _CXNN0 0[X_/ A/SP !4ZY 3<EB/(&X ""Z0/SP .TZY
M 3HE2/(\ $-V0E<O.0 /?X&EP '0_/ !'3KD !.B7(\NO #<H_
M/ A/SP !4ZY 3<EB/('D #W^(6[__ !N< %.7DYU3E;__&$ _<8@>0
M/?XP* "Z(GD #W^4FD ND) 3EY.=4Y6__QA /VD('D #W^,"@ NB)Y ]
M_E-I +I"0$Y>3G4@>0 /?XA7P!F3DT@>0 /?XO* !F3G4@>0 /?XA7P!J
M3DX@>0 /?XO* !J3G4@>0 /?XA7P!N3D$@>0 /?XO* !N3G5.5O_^2.<#
M $)'8"HNK@ .3KD "04'4#__F\@$"[__DB ,D?3[@ ($H"P? *0,!21T3
M9P:^;@ ,;= P1]'N A"$$HN__YO!B N A@ D) 2I],WP" 3EY.=4Y6 !(
MYP$$*FX "& "4HTNO 03Y.N0 )!0:@+!\ IFZD(5("X "$J?3-\@ $Y>
M3G5.5O[\+HX&EP PO+@ (+PX&E____P!A&E"/+KP $%,+PX&E____P!A
M +N6(].7DYU3E;_^$CG 0PJ;@ (*&X #& 4@,+@ E__IG"!KN__I@ $X
M'5S_^@PN ##_^F8$<#!@ G @$\ $-20GD $-08" P.0 0U#!_ *$B[_
M^DB!T$'0?/_0,\ $-0'5S_^@PN ##_^FT(#"X .?_Z;] ,+@!L__IG!$)
M8 )P 3U __AG!!U<__H0+O_Z2(!@ "P&N[_^F +Y@ #$/KP 2\.!I<
M 080 OEB/+H O#6$ #$!8CRI 8 F#ZN__@O#@:7 $&$ )Q8CTB
M&L!@ !^/KP "C\N__@O#@:7 $&$ 'Y<CR\ +PUA "P4(\J0&!8/KP
M"#\N__@O#@:7 $&%:7(\O "\-80 CE"/*D!@-CZ\ ! _+O_X+PX&EP
M !!A.%R/+P O#6%L4(\J0& 62, @? 0#IR!K"85\G__"!H !A.T!U<__IF
M /ZT0A5*GTS?, !.7DYU3E;_^$*N__Q*;@ ,9Q(@;@ ((% M4/_\(&X "%B0
M8!0@;@ ((% P$$C +4#__"!N A4D" N__Q.7DYU3E;_NDCG!P1+[O_ 0F[_
MOD)N_[P\+@ 02,9*K@ ,9@P:_ P4F[_OF '9*K@ ,;!B\O IF$#U\
M '_O" N Q$@"U PN+@ ,8$PO!B\'3KD #AP4(\O "\&3KD #@<4(\O
M " 'D)\=0/^Z#"X "?^Z;@1P,& "<%<2+O^Z2('001K 4F[_OB\&+P=.N0
M.'!0CRX 2H=FL$IN_[QG"!K\ "U2;O^^8 H:^0 0U)2;O^^,"[_OK!Y !#
M4&WJ8 H@;@ ($*52K@ (,"[_OE-N_[Y*0&;J("X "$J?3-\@P$Y>3G5.5OW\
M+HX&EP ! O+@ ,+PX&E____@!A /U04(\NK@ (+PX&E____@!A)%B/3EY.
M=4Y6__PNC@:7 $"\N PO+@ (80#](E"/3EY.=4Y6 !(YP,$*FX "& 2
M+JX #! '2( _ $ZY OOE2/'AUFZDJ?3-\@@$Y>3G5.5@ 2.<#!"IN A@
M%"Z\ !!3! '2( _ $ZY OOE2/'AUFZ"Z\ !!3#\\ I.N0 +[Y4CTJ?
M3-\@@$Y>3G5.5O_\+HX&EP PO+@ (+SP $$^8090CTY>3G5.5O_R2.<#
M!$)'*FX #& = ,+@ E__IF '&$!U(@& :@@;@ 0+5#_]EBN ! 0'4B
M8!I3C3U\ K_\F D/7P $/_R8!P]? (__)@%+!\ &1GXK!\ &]G[+!\ 'AG
MWF#2/J[_\B\.!I?____T+RX "&$ 7Y0CQU __IG' PN____^F8*$"[_^DB
M8 !6E)'(&[_]C"N__1@ %"/7P "O_R8 X]? 0__)@!CU\ C_\CZN__(@
M;@ 0+Q O+@ (80 !+E"/'4#_^EBN !!*0&<4#"[____Z9@H0+O_Z2(!@ $$
M4D=@ #T(&X $"U0__Q8K@ 0+JX "$ZY D%!U __JP?/__9Q9*+O_Z9Q ,
M+@ @__IOW@PN '__^FS68!H@;O_\$*[_^E*N__PNK@ (3KD "04'4#_^@PN
M____^F<62B[_^F?8#"X (/_Z;P@,+@!___IMR"!N__Q"$%)'#"[____Z9@H0
M+O_Z2(!@ !T#"X "O_Z9Q0NK@ ($"[_^DB /P!.N0 )UI4CV!*(&X $"U0
M__Q8K@ 0+JX "$ZY D%!U __JP?/__9@@0+O_Z2(!@+"!N__P0KO_Z8!A@
M%DC ('P $!R<@:PF%?)__P@: 83M =7?_Z9@#^+# '2I],WR" 3EY.=4Y6
M__Q(YP, ?@$=?/____P@;@ ,0E NK@ (3KD "04'4#__K!\__]G%DHN__YG
M$ PN "#__F_>#"X ?__^;-8,+@ K__YG" PN "W__F8T#"X +?_^9@)^_RZN
M A.N0 )!0=0/_^L'S__V<62B[__F<0#"X (/_^;]X,+@!___YLU@PN ##_
M_F940B[__"ZN A.N0 )!0=0/_^L'P 6&<(#"X >/_^9BX]? 0 ! NK@ (
M3KD "04'4#__F<62B[__F<0#"X (/_^;^(,+@!___YLVF &/7P " 08
MG PN ##__FT8#"X .?_^;A 0+O_^2(#0?/_0'4#__&!.#&X $ 09D0,+@!A
M__YM& PN &;__FX0$"[__DB T'S_J1U __Q@(@PN $'__FT8#"X 1O_^;A 0
M+O_^2(#0?/_)'4#__& "8$I@ F!&(&X ## 0P>X $!(N__Q(@=!!(FX ##*
M+JX "$ZY D%!U __ZP?/__9QH,+@!,__YG$@PN &S__F<*#"[____^9@#_
M3B!N PP$,'',( ,+O____YF!'#_8"@,+@ *__YG%"ZN @0+O_^2( _ $ZY
M G6E2/2B[__&T$< %@ D) 2I],WP" 3EY.=4Y6__PNC@:7 $"\N PO
M+@ (80#\%E"/3EY.=4Y6__PNC@:7 $"\N PO+@ (8090CTY>3G5.5O_R
M2.<##$)'*FX ""AN Q@ %:#"X )?_Z9@ !4! <2(!@ $R(&X $"U0__98
MK@ 0$!Q(@& :4XP]? *__)@)#U\ !#_\F </7P "/_R8!2P? !D9^*P? !O
M9^RP? !X9]Y@TCZN__(O#@:7____]"\-80 !"E"/*D @#6<*4D<@;O_V,*[_
M]& . ]? *__)@#CU\ !#_\F &/7P "/_R/J[_\B!N ! O$"\-80 SE"/
M*D @#5BN !!*@&<"4D=@ "F(&X $"U0__Q8K@ 0'5W_^F<62B[_^F<0#"X
M(/_Z;^P,+@!___ILY& 0(&[__!"N__I2KO_\'5W_^DHN__IG%DHN__IGY PN
M "#_^F\(#"X ?__Z;=0@;O_\0A!21THN__IF!'#_8$93C6 X(&X $"U0__Q8
MK@ 0'5W_^F8$</]@+"!N__P0KO_Z8!A@%DC ('P $"J<@:PF%?)__P@: 8
M3M =7/_Z9@#^HC '2I],WS" 3EY.=4Y6__Q(YP,$?@$=?/____PJ;@ ((&X
M#$)0'5W__F<62B[__F<0#"X (/_^;^P,+@!___YLY PN "O__F<(#"X +?_^
M9B8,+@ M__YF G[_'5W__F<62B[__F<0#"X (/_^;^P,+@!___YLY PN ##_
M_F9$0B[__! =2( =0/_^L'P 6&<(#"X >/_^9B0]? 0 ! =7?_^9Q9*+O_^
M9Q ,+@ @__YO[ PN '___FSD8 8]? ( !!@ ".#"X ,/_^;1@,+@ Y__YN
M$! N__Y(@-!\_] =0/_\8$X,;@ 0 !!F1 PN &'__FT8#"X 9O_^;A 0+O_^
M2(#0?/^I'4#__& B#"X 0?_^;1@,+@!&__YN$! N__Y(@-!\_\D=0/_\8 )@
M.F "8#8@;@ ,,!#![@ 0$B[__$B!T$$B;@ ,,H =7?_^9Q@,+@!,__YG$ PN
M &S__F<(2B[__F8 _UX@;@ ,,!#!QS" 4XU*+O_\;00@#6 "0D!*GTS?((!.
M7DYU3E8 $CG 00J;@ (8 )2C4H59OH@;@ ,$!!(@!K 4JX #$I 9NX@+@ (
M2I],WR 3EY.=4Y6 !(YP$,*FX ""AN Q@#$H59@1"0& 64HU2C! 52("P
M%&?L$!5(@!(42(&004J?3-\P $Y>3G5.5@ 2.<!!"IN @@;@ ,$!!(@!K
M4JX #$I 9NX@+@ (2I],WR 3EY.=4Y6 !(YP$$*FX "& "4HU*%6;Z( V0
MK@ (2I],WR 3EY.=4Y6__9";O_^8 12;O_^(&X "#)N__[1R0P0 "!G["!N
M @R;O_^T<D,$ *9]P@;@ (,F[__M')#! "6?,/7P ?_Z(&X "#)N__[1
MR0P0 "MG$"!N @R;O_^T<D,$ M9B P;O_^T>X " P0 "M P%)N__Y$P&8$
M< %@ G#_/4#_^D)N__Q@)# N__S!_ *(FX "#1N__[3RA(12('00=!\_] ]
M0/_\4F[__B!N @R;O_^T<D,$ P;1 @;@ (,F[__M')#! .6^\,"[_^L'N
M__Q.7DYU3E;_]D)N__HNK@ (80#^]%- /4#__&! ,&[_^B)N @0,)@ 2( ]
M0/_^(&X "#)N__K1R2)N @T;O_\T\H0D3 N__XB;@ (-&[__-/*$H!2;O_Z
M4V[__# N__JP;O_\;;9.7DYU3E;_^#UN C__&P*,"X "$1 /4 "$)N__XP
M+@ (2,"!_ *2$#0? P,F[__M/N H2@%)N__XP+@ (2,"!_ */4 "&[2
M2F[__&P0,&[__M'N H0O M4F[__B!N HR;O_^T<E"$"ZN IA /\J3EY.
M=4Y6 !(YP, +JX #&$ _A@^ & 0(&X "!"Y !#4E*N A21[YY !#4&WH
M8!(@;@ ((FX #!"14JX #%*N @@;@ ,2A!FYB N A*GTS? (!.7DYU3E8
M $CG P P+@ (4D!(P"X SKS____^+H<_/ !(3KD !.B5(]*GTS? (!.7DYU
M3E;__"ZN @_/ !)3KD !.B5(].7DYU3E8 $CG!QPJ;@ (*&X #$)'8 B^
M? 0;!I21S 'P?P #B9 U_P $$^,"L L!\ -FX+Y\ !!M!D* 8 U P4
M '=G!@P4 %=F&#ZN ! _/ !+PU.N0 *SQ<CSP 8 < P4 &%G!@P4 $%F
M/CZN ! _/ !+PU.N0 +@A<CSP ;!8^K@ 0/SP 2\-3KD "L\7(\\ & 0
M/KP D*G/P9.N0 +TQ<CV D#!0 <F<&#!0 4F84/JX $$)G+PU.N0 +@A<
MCSP 8 1"@&! 2D9L!$* 8#A":P ,-H9"@"= @G0 $#!0 <F<&#!0 4F8(
M-WP 0 "8 8W? " )*;@ 09@8 :P$ (@"TJ?3-\XP$Y>3G5.5O_\0E<O
M+@ ,+RX "&$ _M10CTY>3G5.5O_\0E<O+@ ,+RX "&$ _KQ0CTY>3G5.5O_\
M/KP 2\N PO+@ (80#^HE"/3EY.=4Y6 !(YP$$3KD #,<0E<O/ .H-.
MN0 +P)8CSZ\ $O/ .H-.N0 +P)8CSZ\ $O/ .H-.N0 +P)8CR!N
M @R;@ ,T<E"$"IN A@)A 52(!(P-"\ !"2"! "! V<*$!5(@-!\ "!@
M!! 52( :@%*-2A5FUCZN PO+@ (3KD ">L6(]*GTS?( !.7DYU3E8 $CG
M 00J;@ (4VT #&T4(&T "! 02(# ? #_4JT "& *8 @NC4ZY D3$J?3-\@
M $Y>3G5.5@ 2.<!!"IN @(+0 -F!G#_8 U @M < V<, &T ( "
M</]@ # 2JT !&8F""T P #9A ^O ( 3KD "'.*T !&8( &T " "8 8
M;0 $ ((+0 # -G#C 52,#0O 0U0K0 $N_P $$^9A8(.0 & !!3V<,
M+KP $%,3KD "UN""T P #9P8^O !8 0^O ( +RT !#\53KD "5"7(\[
M0 ,2FT #&X:#&W__P ,9@@ ;0 P )@!@!M " G#_8!I3;0 ,*VT ! (
M(&T "! 02(# ? #_4JT "$J?3-\@ $Y>3G5.5@ 2.<!!#ZN A.N0 ,ZPJ
M0" -9@1P_V!B""T !0 !9P1"0&!6""T @ !9Q8S_ ) !"1#/Y !#(@
M0D9P_V X""T ! !9QI"@# N XN@"\N HO#4ZY ERE"/8!A@%D* ,"X
M#BZ +RX "B\-3KD ";L4(]*GTS?( !.7DYU3E;_^$CG PPJ;@ (*&X #"XN
M ! M1__\8 ECZ\ $@!S\ +PPO+0 &+PT&EP !).N0 -Y3?_ X]
M0/_Z0F[_^& 4($R3R3)N__C1R0P0 !IG$%)N__A"0# N__BP;O_Z9>!*;O_Z
M9Q @3)/),F[_^-')#! &F8*/6[_^/_Z %4 (#ZN__HO#&%06(\]0/_X0H P
M+O_ZT:T !D* ,"[_^-G 0H P+O_XGH!*AV\*""T !0 !9P#_8)^N__P@+0 &
ML*T #F\&*VT !@ .("[__$J?3-\P@$Y>3G5.5O_X2.<!#"IN @M3?_\( U"
M@3(N S0@2U __@H36 *#!0 #6<"&M12C+GN__AE\" -D*[__$J?3-\P $Y>
M3G5.5O_^2.<##"IN @H;@ ,+BX $#Z\ $@!S\ +PPO+0 &+PT&EP !).
MN0 -Y3?_ X]0/_^2F[__F8$ %4 ($* ,"[__M&M 8@+0 &L*T #F\&
M*VT !@ .0D P+O_^2I],WS" 3EY.=4Y6 !(YP,$/BX ""IN J^?/__9@1P
M_V N""T #9R1*K0 $9QX@+0 (L*T !&,44ZT "# '(FT "!* 4FT ## '
M8 )P_TJ?3-\@@$Y>3G5.5O_>2.<'#$)73KD #'.(\ $-F(\ $-J0GD
M $-D+KP #IY80 #%BIN A@ ).8 )2C4H59Q00%4B 2,#0O 0D@@0 @0
M 5FYDH59P ",@P5 ")G!@P5 "=F1AP5$ 9(@#Z +PU2ETZY X%B/*$ @
M#&8.+KP $#B+PUA )66(\@#$C D(T^ "!-,D?1R4(04D<NC5*780 "GF
M =A"1V "4D<@33)'T<E*$&<6$#5P $B 2,#0O 0D@@0 @0 5GWDHU< !G
M"B!-,D?1R4(04D<0%4B 8 !AD)73KD "S>0E<O#5*73KD "\:6(]*0&<0
M+HU2ER\\ ! ]&$ =!8CV 6P^O !3KD "S>#"T /@ !9D ^O !+PU4
METZY O&EB/L'P 688/KP D*G/SP 4ZY O3%R/L'S__V80+HU2ER\\
M !! 6$ 7Q8CV D0E<O#5*73KD "P*6(^P? !9Q NC5*7+SP $$080 !
M5EB/8 \CZ\ #\O#4ZY X%B/2H!F%#Z\ "HO#4ZY X%B/2H!G "P
M+7P ,VR__PNKO_\!I< X/SP &DZY EE2//KP $2\-/SP TZY U
MF%R/' "\/ #_9@XNO 01\O#6$ .98CV!>+HX&E____]X0!DB /P O+O_\
M80 !6ER/+HX&E____]Y.N0 'YX^@%)73KD #=6*$ NC@:7____WB\,3KD
M !]R6(\NC&$ /P^O 2+PT_/ #3KD #687(\< +P\ /]FG& &+HUA #:
M8!2P? \9P#^=K!\ #YG /Z<8 #_$MK'2A5F /VP0I=A "V4WD $-D+KD
M $-J3KD !ZL'S__V80+KP $$Y+SP $$J82I8CT*7+SD $-F/SD $-D
M3KD #Z7(\^@$ZY L/$J?3-\PP$Y>3G5.5O]\+JX ""\.!I?___^ 3KD
M !]R6(\NK@ ,+PX&E____X!.N0 'P18CRZ\ !!.B\.!I?___^ 3KD !\$
M6(\NC@:7____@#\\ E.N0 )94CSZ\__].N0 +#Q.7DYU3E8 $CG 00J
M;@ (('D $-J((U8N0 0VI2>0 0V1*GTS?( !.7DYU3E8 $CG QPJ;@ (
M'BX #2AN Y'[0!6&-MF_$J?3-\X@$Y>3G5.5@ 2.<#!$ZY RMCX OGS_
M_V8&</]@ "2/H=.N0 ,SXP!\'\ C@J0-O\ #'"DIN YF! !5 ! NO
M.H,O+@ (3KD #;D6(]*0&8* %4 S '8%)@'BZ\ ZB"\N A.N0 -N18
MCTI 9@@ 50 %, =@,CZ\ !8O+@ (/P=.N0 -9A<CTI 9Q8S_ C !"1#/Y
M !#(@ 0D9P_V & %4 3 '2I],WR" 3EY.=4Y6__Q"5S\N PO+@ (80#_
M.ER/3EY.=4Y6__Q"5S\N PO+@ (80#_(ER/3EY.=4Y6__P^O !/RX #"\N
M AA /\(7(].7DYU3E;__$ZY L5#ZN A.N0 +I.7DYU3E8 $CG P!"
M1V 6, ?!_ .T+P $$^+H!.N0 +(921[Y\ !!MY$J?3-\ @$Y>3G5.5@
M2.<!!"IN @P+0 "P'P V<J+HU.N0 +6X(+0 " -G"BZM 1.N0 (?Y"
M0$C *T ""M 1";0 , FW_@ "/I5.N0 +-Y*GTS?( !.7DYU3E8 $CG
M#P0^+@ (/H=.N0 ,ZPJ0" -9A8S_ ) !"1#/Y !#(@ 0D9P_V!.0D8P
M%<!\ 9F%CZM 0_/ ^3KD #@,5(\\ &P"?/\^ATZY S/CZ'3KD #,
M2D9F!C &8!9@%#/\ 4 $)$,_D $,B !"1G#_2I],WR#@3EY.=4Y6__Q.
M7DYU3E8 $CG!P0J;@ (,"T L!\ JP? "9BP@+0 (D*T !#P ;R ^AB\M
M 0_%4ZY R.%R//@"\1V<* &T $ "</]@2@@M $ V<>2JT !&<6""T
M P #9P@[? ! Q@!CM\ ?\ #& </KP 3 M Q$0$C +P _%4ZY O3%R/
M0FT #"MM 0 "$) 2I],WR# 3EY.=4Y6 !(YP,$3KD #*V/@"^?/__9@9P
M_V -8^ATZY S/C 'P?P"."I V_P ,<*2FX #&8$ %4 "$IN YF! !5
M ! NO .H,O+@ (3KD #;D6(]*0&82 %4 SMN P !# '8 AF >+KP
M #J(+RX "$ZY VY%B/2D!F" !5 4P!V!D/KP #R\N @_!TZY UF%R/
M2D!G'CZ'3KD #, ,_P @ 0D0S^0 0R( $)&</]@, !5 $^O "0J<0
M+0 #2( _ $ZY O3%R/0E="IQ M -(@#\ 3KD "],7(\P!TJ?3-\@@$Y>
M3G5.5O_\0E<_+@ ,+RX "&$ _O9<CTY>3G5.5O_\0E<_+@ ,+RX "&$ _MY<
MCTY>3G5.5O_\/KP 3\N PO+@ (80#^Q%R/3EY.=4Y6 !(YP$$/JX "$ZY
M SK"I ( UF%C/\ D $)$,_D $,B !"1G#_8"0^K@ ./RT !"\N H_
M/ !"3KD #@,4(\K0 & E7_WR M 9*GTS?( !.7DYU3E;__#Z\ %"IS\N
M AAE%R/3EY.=4Y6 !(YP,$'BX "2IN I3;0 ,;180!TB (FT "!* P'P
M_U*M A@$F 0+HT0!TB /P!.N0 , 14CTJ?3-\@@$Y>3G5.5O_^2.</!!XN
M DJ;@ *0D8Z!@@M $ V8&</]@ $D2JT !&96""T P #9DX^O ( 3KD
M "'.*T !"M AF" !M @ F R &T ! "/I5.N0 ,5)*0&<( &T 0 "
M8!@[? '^ P0!TB (FT "!* 4JT "& ,@(+0 # -G#D'N__XK2 $( @K
M0 ((&T "!"'4JT " @M , V<:>@$^A2\M 0_%4ZY R.%R// !";0 ,
M8&X(+0 & -G/KX\ IG$" M 30O @"PK0 (8B(@+0 (D*T !#H /H4O
M+0 $/Q5.N0 ,CA<CSP *VT ! (0FT #& H("T ")"M 0Z #Z%+RT !#\5
M3KD #(X7(\\ #M\ ?\ #"MM 0 "+I&9PH ;0 0 )P_V ($ =(@,!\ /]*
MGTS?(.!.7DYU3E8 $CG 00^K@ (3KD #.L*D @#68$0D!@#@@M $ 68$
M0D!@ G !2I],WR 3EY.=4Y6 !(YP$$/JX "$ZY SK"I ( UF!$) 8 8P
M%<!\ 09*GTS?( !.7DYU3E;__#ZN AAEDI 9P@@/ .H-@ D* 3EY.=4Y6
M !(YP,,/BX "$C'SKP /__" < &<"4H<J>0 0QXH1]GY !#'BZ,3KD
M !ZL'S__V86,_P # 0D0S^0 0R( $)&</]@$CZN A"9R\-3KD #$
M7(\@#4J?3-\P@$Y>3G5.5@ 2.<!!#ZN A.N0 ,ZPJ0" -9@1P_V!82FX
M#F8$0D!@3@@M , 6<6,_P "0 0D0S^0 0R( $)&</]@, @M 0 6<6
M/JX #B\N HO#4ZY T#E"/8!1@$CZN XO+@ *+PU.N0 -1Y0CTJ?3-\@
M $Y>3G5.5@ 2.<' 'P!0D=@&" &P+D $(>9@J-N0 0AXP!V >XX921[Y\
M !!MXC/\ !@ $)$,_D $,B !"1G#_2I],WP# 3EY.=4Y6__QP 3(N CC
M8$9 2,#!N0 0AY"0$Y>3G5.5@ 2.<# $)'8 8^AV$24D>^? 0;?1*GTS?
M (!.7DYU3E8 $CG 0PP+@ (P?P"."I V_P ,<*,"X "!M -"54(M (K
M?/____\ "D*M 9"K0 ./KP ($)G+PT&EP !).N0 ,1<CSZ\ L_/ @
M+PT&EP !-.N0 ,1<CTJ?3-\P $Y>3G5.5@ 2.<#!#XN B^? 0918S
M_ ) !"1#/Y !#(@ 0D9"@& P0D P!\#\ C@J0-O\ #'"@@M 686
M,_P "0 0D0S^0 0R( $)&0H!@ B -2I],WR" 3EY.=4Y6__I(YP,,*FX
M""AN P^+@ 00D ]0/_Z/4#__& ,A@!%)N__J^;O_Z8Q @3)/),F[_^M')
M#! "F;F0D P+O_ZD&[__&-F/KP 3\N__I"0# N__R15R ,0H$R+O_\T($O
M "\M 8O#0:7 $DZY WT-_\ #CU __Y"@# N__[1K0 &2F[__F86
M,_P !0 0D0S^0 0R( $)&</]@7CUN__K__& X4F[_^CZ\ $_/ !+SP
M $(B+RT !B\-!I< 23KD #?0W_P ./4#__D* ,"[__M&M :^;O_\
M8@#_-" M :PK0 .;P8K;0 & Y"0# N__Q*GTS?,(!.7DYU3E;__DCG 00J
M;@ (/KP 3\N ! O+@ ,+RT !B\-!I< 23KD #?0W_P ./4#__DIN
M__YF%C/\ 4 $)$,_D $,B !"1G#_8"!"@# N__[1K0 &("T !K"M YO
M!BMM 8 #D) ,"[__DJ?3-\@ $Y>3G5.5O_Z2.<#'"IN HP+@ (P?P".-"\
M #'"BU __Q^_RZ-80 ["9-8 )2BTH39P8,$P Z9O1*$V<<'6/_^@PN $'_
M^FT,#"X 3__Z;@0J2V $2^L C N Y@ "00E<O#3\\ #Q.N0 . Q<CSX
M;PH@;O_\,4< !$)'8 AD)7+PT_/ !.3KD #@,7(]*@&<$0D!@!# \ /\^
M &!D/KP 3TZY X#$J 9P1"0& $,#P _SX 8$HNC3\\ #U.N0 . Q4CSX
M;PH@;O_\,4< !$)'8"PNC3\\ $%.N0 . Q4CSX 8!I@&)!\ ^P? '8@[E
M0#! T?P $(D(%!.T# '2I],WSB 3EY.=4Y6__P@;@ (#! 86T2(&X " P0
M 'IN""!N @$$ @(&X "! 02(!2K@ (2@!FU$Y>3G5.5O_\3EY.=4Y6 !(
MYP<,*FX ""AN Q@)! =2( ^@&$P'@ 0'$B /H!A)AP O@9O!' !8!*^!FP$
M</]@"DH59MA*%&;40D!*GTS?,,!.7DYU3E8 $CG P ^+@ (OGP 86T*OGP
M>FX$WGS_X# '2I],WP" 3EY.=2!?0H P'UJ "( ")Y !#'D/I 0!#\0@
MO\EB!D[Y K)_ 0^\ !" )3M!*A6<*+KS_____B_P $YU3E;_^B!N @]
M:/_R__XNK@ 0,&X %B\(,&X %"\(3KD #@<4(\O #\N__X_/ _3KD #@,
M4(].7DYU3E;_^B!N @]:/_R__XNK@ 0,&X %B\(,&X %"\(3KD #@<4(\O
M #\N__X_/ ! 3KD #@,4(].7DYU(]\ $-N3D$O.0 0VY.=4Y6__Q"0DJN
M AL!D2N A20DJN QL!D2N Q20C N K [@ .+4#__# N C [@ .,BX
M#,+N K00=!N__P]0/_\("[__ @" !G D2 3EY.=4Y6__Y(YS\ 0D-"A2XN
M @L+@ ,9A@C_( $-R(#R @?P & &AL!$2&4D-*AVP$1(=2
M0[R';CAF!GH!0H=@,+Z\ $ &P*CL8Z!TA'2,=@'G@!OH9E!N.&XX1@]DJ$
M9PZ^AF4$BH2>AN*,XHY@[K9\ %F#D2'(\< $-R( 5$@& ((\< $-R( 5*
MGTS? /A.7DYU $ @$! @$! $! @$! 0$! $ $ P4
M!04 $! @$ $ <! @$ 0$! @$! @$! @$! 0$" 0$!
M @$! 0$!!@$!! $! 0,! @$!! (!" $! 0$!"0$!
M 0$! 0$ 4!
M ! , " , !@$ " $ " $ ! $! P$! 4 0$! 4 $! $!
M ("
M !0$ !0$ 0$ 0$ @4 !@$ @$ 0$ !@4 $! $
M @$ @$! 0$! $" P$" 0$! 0$! $! $"4W1A
M8VL@3W9E<F9L;W<D0R!R=6YT:6UE $-/3CH 3%-4.@ : #\ !E
M : &P !M < ', !X LX +2 !S CX
M *J ""@ F *4 "S@ RA-24-23R!25%@@+2!!=&%R:2!35"!-
M=6QT:71A<VMI;F<@3W!E<F%T:6YG(%-Y<W1E;2!+97)N96P* "AC*2!#;W!Y
M<FEG:'0@,3DX-B M($1A=FED($)E8VME;65Y97(*"@!4:&ES('!R;V=R86T@
M:7,@1G)E92$@($ET(&ES(&$@<VEM<&QE(&%P<&QI8V%T:6]N('!R;V=R86T*
M '1H870@=7-E<R!T:&4@34E#4D\@4E18(&UU;'1I=&%S:VEN9R!K97)N96P@
M=&\@9&5M;VYS=')A=&4* &$@9F5W(&]F('1H92!M=6QT:71A<VMI;F<@8V%P
M86)I;&ET:65S(&]F('1H92!35"X*"@!)="!M87D@8F4@9G)E96QY(&1I <W1R
M:6)U=&5D+"!P<F]V:61E9"!A;&P@=&AE(&EN=')O9'5C=&]R >0H ;65S<V%G
M97,@<F5M86EN(&EN=&%C="X@("!-24-23R!25%@@:7,@879A:6QA8FQE(&9R
M;VTZ"@H "4)E8VME;65Y97(@1&5V96QO<&UE;G0@5&]O;',* DU.3(@2F5A
M;B!3=')E970@(S,P- H "4]A:VQA;F0L($-!(#DT-C$P"@ )*#0Q-2D@-C4X
M+34S,3@*"@ J( !%>&5C(&9I;&4Z( $9I;&4Z( !&:6QE.B 4')O8V5S
M<V5S.@HM+2TM+2TM+2TM"@H 1FEL93H@ &4@+2!E>&5C(&$@<')O9W)A;2 H
M9F]R96=R;W5N9"D* &@@+2!C<F5A=&4@8F%C:V=R;W5N9"!#4%4@:&]G"@!L
M("T@9'5M<"!F:6QE('1O('-C<F5E;B H9F]R96=R;W5N9"D* &T@+2!S<&]O
M;"!F:6QE('1O(%)3+3(S,@H <" M('-P;V]L(&9I;&4@=&\@<')I;G1E<@H
M<R M('-H;W<@<')O8V5S<V5S"@!X("T@97AI= H 56YK;F]W;B!C;VUM86YD
M("T@/R!L:7-T<R!C;VUM86YD<PH "D)Y92!">71E"@!R '( )7,@9&]E<R!N
M;W0@97AI<W0* '( 0\H #W^(" @4$E$(" @(" @(" @(" @4')I;W)I
M='D@(" @4VQI8V4@(" @("!00R @(" @(" @4W1A=&4* "TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2T M
M+2TM+2TM+2TM+2TM+2TM+0H ("4P.&QX(" @(" @(" @(" C)3-D(" @(" C
M)31D(" @("4P.&QX(" @(" 4G5N;FEN9R 4F5A9'D@ !-0 .-
M#BH [< .; #J0 \4 .- #C0 XJ /+ #BH XJ 0
M^@ $B@ !#Z .*@ #BH XJ .*@ $/H !#Z 0^@ $/H XJ
M 0^@ $:@ !#Z 0^@ #BH XJ .*@ $/H !#Z 0^@ $/H
M XJ .*@ $/H !#Z .*@ #BH XJ .*@ #BH !#Z 0^@
M$/H !-0 .*@ #BH XJ .*@ $/H XJ .*@ $/H !#Z 2
MJ@ $/H !#Z 0^@ $/H !#Z 0^@ $/H !#Z 0^@ $/H !#Z
M 0^@ #BH XJ .*@ $RX !-0 .*@ $/H !#Z .*@ #BH
M XJ .*@ #BH XJ 0^@ $/I>0PT* @@" (( @ "" ( @@"
M &, !D ;P ', !X %1P !5" 57 %8
M !4@ 5H@ %10 !C 9 &@ !O <P '@ 9B
M&)( !@6 8H@ &. !B: 9N &, !D : &\ !S
M> !TV <D '"@ !R@ <R@ ')@ !U4.B!U;FUA=&-H960@
M<75O=&4 0V%N;F]T(&]P96X@ $-A;FYO="!A<'!E;F0@ $-A;FYO="!C<F5A
M=&4@ #H@3F\@;6%T8V@ 4W1A8VL@3W9E<F9L;W< T*) !
M ! H ( "@ P
M $ 4 !@ '
M @ "0 *
M L # -
M X #P - -E(
M #:< V& -C@ #9P VG -IP #7V $! 0$! 0$! 2$A 2$A
M 0$! 0$! 0$! 0$! 0$! 0$!(@(" @(" @(" @(" @(" @0$! 0$! 0$! 0"
M @(" @("" @(" @(" @(" @(" @(" @(" @(" @(" @" @(" @(0$! 0$! 0
M$! 0$! 0$! 0$! 0$! 0$! 0$ (" @(!0U O32TV.$LH=&TI+"!697)S:6]N
M(#$N,BP@0V]P>7)I9VAT("AC*2 Q.3@S+"!$:6=I=&%L(%)E<V5A<F-H(%A8
M6%@M,# P,"TV-30S,C$ @V#A@&)!@,3@H:" 8&!@8&!@8&!@8&!@8&
M!@8&!@8&!@8>% 84$ 80#A0.$ 80#A &!@HH!@8&!@8&!@8&!@8&!@@&#!X&
M!@X&!AP8#!0."A .#!0,!AH&!AP8#!06&!X*$B@29BH,!@8&!A(R!A@&$@8 &
M"A16!C(,'A .& @F"AX,#%X&! H&(!(2$!0." X(% @&#@@." 8." X0"@X(
M#@@." X8$A@.#!@0$@X.#!PF$D8($ 8H"!P8"@8H!B8*7AH4" Q""'0*% 8.
M%" 6"!8."@H6#@H*%@X*"A8."@HR(A(*"D@*" HX"@@*'A(8&!8J" P6$ P.
M" X(#@@0" P."!80#A(("@@*#@@6$ X2" 8*#@X(%A .$@@($ @."!H*& H0
M# P,# P<7 8Z3@8(%NRX##(>#I8D# P*(@$..%8:)D)$-B*X5 &T 0$! 3X,
M4!XP,B06%!ZL" 8,!@P&("PZ4"8*"@@&'EPF!@0@&D0!'* &!@8&("P.1"@,
M$!06&!(4$A82#A82$# *$A@\!@8,!@P&!@H@% @.% P6" 8^%@X0"A8*'@X&
M!&@*' @P$AX>#@8$'! ($@8$2$XF%@X:"AX*'@X(!@0<%&H.!@0::$8@7$ H
M0C0N*@@(#@8$$B D!@0<%B((%@8$(D R&"8&!!00!@2((@8$'A)F& 8$2%(B
M'!P>'- 2/A(J$@P(=F8, ;H$! 0$! 0$! 0! 0$J!,8$! 0$! 0$! 0$! 0$
M! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$
M! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$!#8$! 0$! 0@! 0$! 0$( 0$
M! 0$! %(! 0$! 0$! :&AH:&AH:&AH:&AH:&AH:&AH:&AH:&am p;AH:&AH:&AH:
M&AH:&AH:&AH:&@
M
M
#

end

============================================================ =============
/*********************************************************** *************/
/* */
/* RRRRRRRRR TTTTTTTTTTTTTTT XXX XXX */
/* RRR RRR TTT XXX XXX */
/* RRR RRR TTT XXX XXX */
/* RRRRRRRRR TTT XXX */
/* RRR RRR TTT XXX XXX */
/* RRR RRR TTT XXX XXX */
/* RRR RRR TTT XXX XXX */
/* */
/* MICRO RTX - Atari ST Multitasking Operating System Kernel */
/* */
/* (c) Copyright 1986 by David Beckemeyer */
/* */
/* */
/* This short demonstaration program demonstates some of the */
/* multitasking capabilities of the Atari ST computer. */
/* */
/* This is a sample of a MICRO RTX multitasking application. */
/* As you can see, MICRO RTX applications can be as simple as you */
/* want. The standard GEMDOS functions operate as usual, with */
/* automatic multitasking. */
/* */
/* This MICRO RTX application is a simple "shell" that shows */
/* how to use the kernel to get automatic multitasking. */
/* */
/* When run, the shell will prompt with a "*". It accepts the */
/* following one letter commands: */
/* */
/* e - execute a program file */
/* h - create background CPU hog */
/* l - list a file on the screen */
/* m - spool a file to the modem (RS-232) */
/* p - spool a file to the printer */
/* s - show processes */
/* x - exit demo program */
/* */
/* The e, l, m, and p commands prompt for a file name. In each */
/* case the complete path of the file (including the extension) */
/* must be given. */
/* */
/* The e command will attept to execute the given program file. */
/* This must not be a GEM program with this demo because the */
/* mouse and screen are not set up for GEM. */
/* */
/* The l, m, and p commands cannot be used concurrently. */
/* This is because the demo uses the Unix style standard I/O */
/* library for opening the files (from GEMLIB) and since this */
/* code from DRI is not reentrant, the sharing of the GEMLIB */
/* code doesn't work. This could be fixed by either re-writing */
/* the standard I/O routines, or by using the GEMDOS style */
/* calls (from osbind.h) Fopen, Fread, etc. We are working on */
/* our improved version of the Unix standard I/O library. */
/* */
/* Keep in mind that standard "fopen", "fclose" calls work */
/* normally for progams that always used them. The problem */
/* only comes about when you are actually sharing the data */
/* & code segments, like this demo does. The sub-processes */
/* created here all share one copy of code from "GEMLIB" made */
/* at link time. When individual programs are run as a */
/* single process, they each have their own copy of GEMLIB */
/* so everything works fine. Got it? */
/* */
/* The h command just soaks up CPU time to demonstrate the */
/* fantastic CPU horsepower of the ST. */
/* */
/* With this MICRO RTX demo, you can run up to three background */
/* processes. This is a configuration limitation only. You */
/* can configure MICRO RTX for however many processes you want. */
/* */
/*********************************************************** *************/

#include <stdio.h>
#include <osbind.h>

char filename[64];

main()
{
char buf[80];
char *p;
int i, delta;
char c;
int modem(), hog(), print();

rtx_install();
delta = p_priority(0L, 0) - 100;
p_priority(0L, -delta);
printf("MICRO RTX - Atari ST Multitasking Operating System Kernel\n");
printf("(c) Copyright 1986 - David Beckemeyer\n\n");
printf("This program is Free! It is a simple application program\n");
printf("that uses the MICRO RTX multitasking kernel to demonstrate\n");
printf("a few of the multitasking capabilities of the ST.\n\n");
printf("It may be freely distributed, provided all the introductory\n");
printf("messages remain intact. MICRO RTX is available from:\n\n");
printf("\tBeckemeyer Development Tools\n");
printf("\t592 Jean Street #304\n");
printf("\tOakland, CA 94610\n");
printf("\t(415) 658-5318\n\n");

do {
getline(buf, "* ");
switch (buf[0]) {
case 'e':
getline(buf, "Exec file: ");
Pexec(0, buf, "", "");
break;
case 'm':
getline(filename, "File: ");
p_create(100, 20, modem, 0, 0L);
break;
case 'h':
p_create(100, 20, hog, 0, 0L);
break;
case 'p':
getline(filename, "File: ");
p_create(100, 20, print, 0, 0L);
break;
case 's':
printf("Processes:\n----------\n\n");
showpall();
break;
case 'l':
getline(buf, "File: ");
list(buf);
break;
case '\0':
case 'x':
break;
case '?':
printf("e - exec a program (foreground)\n");
printf("h - create background CPU hog\n");
printf("l - dump file to screen (foreground)\n");
printf("m - spool file to RS-232\n");
printf("p - spool file to printer\n");
printf("s - show processes\n");
printf("x - exit\n");
break;
default:
printf("Unknown command - ? lists commands\n");
break;
}
} while (buf[0] != 'x');
rtx_remove();
printf("\nBye Byte\n");
}



modem()
{
char c;
FILE *fd;

if ((fd = fopen(filename, "r")) != 0) {
while ((c = fgetc(fd)) != EOF) {
Cauxout(c);
if (c == '\n')
Cauxout('\015');
}
fclose(fd);
}
}


list(file)
char *file;
{
char c;
FILE *fd;

if ((fd = fopen(file, "r")) != 0) {
while ((c = fgetc(fd)) != EOF) {
putchar(c);
}
fclose(fd);
}
else
printf("%s does not exist\n", file);
}






hog()
{
for (;;)
;
}


print()
{
char c;
FILE *fd;

if ((fd = fopen(filename, "r")) != 0) {
while ((c = fgetc(fd)) != EOF) {
Cprnout(c);
if (c == '\n')
Cprnout('\015');
}
fclose(fd);
}
}



getline(buf, p)
char *buf;
char *p;
{
Cconws(p);
buf[0] = 78;
Cconrs(buf);
buf[2+buf[1]] = '\0';
putchar('\n');
strcpy(buf, buf+2);
}
--
----
The master is not yet married, nor do I think he ever will be.
-Rocky Horror Picture Show

Name: James Turner
Mail: Imagen Corp. 2650 San Tomas Expressway, P.O. Box 58101
Santa Clara, CA 95052-8101
AT&T: (408) 986-9400
UUCP: ...{decvax,ucbvax}!decwrl!imagen!turner
CompuServe: 76327,1575
</pre>
  Switch to threaded view of this topic Create a new topic Submit Reply
Previous Topic: TOS->CP/M file transfer program
Next Topic: Hard and Floppy Drives for ST?????
Goto Forum:
  

-=] Back to Top [=-
[ Syndicate this forum (XML) ] [ RSS ] [ PDF ]

Current Time: Tue Apr 16 16:56:30 EDT 2024

Total time taken to generate the page: 0.05043 seconds