Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!aramis!mende
From: mende@aramis.UUCP
Newsgroups: comp.sys.amiga
Subject: Gravity Wars [part 0 of 3]
Message-ID: <545@aramis.RUTGERS.EDU>
Date: Wed, 29-Apr-87 13:54:47 EDT
Article-I.D.: aramis.545
Posted: Wed Apr 29 13:54:47 1987
Date-Received: Fri, 1-May-87 01:08:47 EDT
Organization: Rutgers Univ., New Brunswick, N.J.
Lines: 84
Keywords: Space war game in TDI Modula-2


I am posting this Source to Ed Bartz since I have better net access
than he does.   Please direct all comments, praise, flames to him.

------- Heeeeeeerrrrs Ed -------

        On the coatails Of Jeff's (I think it was Jeff) comments about
more public pd/shareware programs written in Modula2 I offer a game
called GravityWars. It is based on a game called space. This four part 
shareware posting consists of 3 files :
         Gravitywars.doc
         Title
         Gravitywars
    	These programs are uuencoded using the program from Fish disk 53.
Parts 2 and 3 contain the main program Gravitywars. The program is spilt
in half. You must concat part 3 on the end of part 2 and then uudecode it.
        The sources will be made availible if enough people request them.
This program started out as a simple execise in programming on the amiga
and just sort of mushroomed thanks to suggestions from Bob Mende and others.
For this reason I would have liked to send the sources but I felt they were
 to long to post the net. Fred- If you want the sources, send me mail at the 
following addresses and I'll email the sources to you.

ARPA:   bartz@ruthep.rutgers.edu
uucp:   {...}!rutgers!elbereth!bartz
Bitnet: bartz@ruthep

	Have fun! and beware of black holes.......
######################cut here###############################
begin 777 GravityWars.doc
M1W)A=FET>5=A<G,N+BXN+BX*"51H92!O8FIE8W0@;V8@=&AE(&=A;64@:7,@.
M9F]R(&]N92!P;&%Y97(@=&\@:&ET('1H92!O=&AE<B!W:71H(&$@"FUI<W-L0
M92!B969O<F4@8F5I;F<@:&ET('EO=7)S96QF+B!3:6YC92!T:&4@<VAI<',@C
M9&]N)W0@;6]V92!A;F0@=&AE('!L86YE=',*9&]N)W0@;6]V92!T:&4@9V%MQ
M92!S;W5N9',@96%S>2!R:6=H="XN+E=R;VYG+B!!;&P@=&AE('!L86YE=',@'
M:&%V92!G<F%V:71Y+"`*<V\@=&AE(&UI<W-L97,@8F5N9"!A;B!T=VES="P@2
M979E;B!R979E<G-E+B!)="=S('9E<GD@96%S>2!T;R!H:70@>6]U<G-E;&8N6
M"@E4:&4@='=O('!L87EE<G,@=&%K92!T=7)N<R!F:7)I;F<@;6ES<VQE<R!BP
M>2!E;G1E<FEN9R!F:7)I;F<@86YG;&5S"F%N9"!V96QO8VET:65S+B!4:&4@1
M=VEN;F5R(&ES('1H92!S:&EP(&QE9G0@86QI=F4N"@H*("!-96YU<RX*"B`@6
M($%B;W5T.B`*("`@("`@("`@(%1H92!A8F]U="!M96YU(&=I=F5S('1H92!A0
M=71H;W(L('9E<G-I;VXL(&%N9"!R96UI;F1S('1H92!P;&%Y97(@"B`@("`@M
M('1H870@=&AI<R!G86UE(&ES('-H87)E=V%R92X*"B`@($AE;'`Z("`*("`@0
M("`@("`@(%1H:7,@;65N=2!G:79E<R!S;VUE('-I;7!L92!H96QP+B!':79IO
M;F<@=F5L;V-I='D@<F%N9V5S+"!A;F=L90H@("`@("!T96UP;&5T92P@86YD`
M('!L86YE="!D96YS:71Y+@H*("`@1V%M92!#;VYT<F]L.B`*("`@("`*("`@/
M("`@4F%N9&]M('-E='5P.@H@("`@("`@("`@("!3971U<"!A(')A;F1O;2!P9
M;W-I=&EO;FEN9R!O9B!R86YD;VT@<&QA;F5T<RP@86YD(')A;F1O;2!S:&EPD
M"B`@("`@("`@4VAI<"!P;W-I=&EO;G,N"@H@("`@("!0;&%Y($=A;64Z"B`@<
M("`@("`@("`@($%C8V5P="!T:&4@<&QA;F5T('-E='5P(&%N9"!P;&%Y('1H+
M92!G86UE+@H*("`@("`@4W1O<"!'86UE.B`*("`@("`@("`@("`@4W1O<"!GR
M86UE('!L87D@=VET:&]U="!E>&ET:6YG('1H92!P<F]G<F%M+B!4:&4@9V%M2
M92!C86X@8F4@"B`@("`@("`@;6]D:69I960@86YD+V]R(')E<W1A<G1E9"!A;
M="!A;GD@=&EM92X*"B`@("`@(%%U:70Z"B`@(`D@("`@4W1O<"!A;F0@97AI<
M="!T:&4@<')O9W)A;2X*"@H@("!/<'1I;VYS.@H@("`@("`*("`@("`@36%XY
M:6UU;2!N=6UB97(@;V8@<&QA;F5T.@H)("`@(%-E="!T:&4@;6%X:6UU;2!N`
M=6UB97(@;V8@<F%N9&]M('!L86YE=',N"B`@("`@"B`@("`@($5R87-E+TQEZ
M879E(&UI<W-L92!T<F%I;',Z"B`@("`@("`@("`@(%)E;6]V92!M:7-S;&4@7
M=')A:6QS(&%F=&5R('1H97D@97AP;&]D92X*"B`@("`@(%)E9')A=R!38W)E`
M96XZ"B`@"2`@("!2961R87<@<V-R965N('=I=&AO=70@=&AE(&5X:7-T:6YG%
M(&UI<W-L92!T<F%I;',N"@H@("`@("!&86YC>2]0;&%I;B!0;&%N971S.@H@-
M("`@("`@("`@("!&86YC>2!P;&%N971S(&]N(&%T=')A8W1I=F4@8G5T('1A<
M:V4@;&]N9R!T;R!D<F%W+@H@("`@("`@("!0;&%I;B!P;&%N971S(&-A;B!BH
M92!D<F%W;B!Q=6EC:VQY+"!B=70@87)E(&1U;&PN"B`@("`*("`@("`@4')AH
M8W1I8V4O0V]M<&5T93H*("`@("`@("`@("`@4V5L96-T('!R86-T:6-E(&UO/
M9&4@=&\@<')A8W1I8V4@87,@96ET:&5R('!L87EE<C$@;W(*("`@("`@("`@5
M<&QA>65R,BX@4V5L96-T(&-O;7!E=&4@=&\@<&QA>65R(&%G86EN<W0@86YO/
M=&AE<B!P;&%Y97(N"@H@("!-;V1I9GD@4V5T=7`Z"@H@("`@("!-;W9E4VAID
M<#H*("`@("`@("`@("`@0VQI8VL@;VX@=&AE('-H:7`@>6]U('=I<V@@=&\@'
M;6]V92P@=&AE(&-L:6-K('=E<F4@:6X@=&AE"B`@(`D@<V-R965N('EO=2!W\
M:7-H('1H92!S:&EP('1O(&)E+B!.;R!O=F5R;&%P<&EN9R!I<R!P97)M:71T6
M960N"@H@("`@("!-;W9E4&QA;F5T.@H)("`@(%1H:7,@=V]R:W,@:6X@=&AE9
M('-A;64@=V%Y(&%S(&UO=F5S:&EP+@H*("`@("`@36%K95!L86YE=#H*("`@^
M("`)("`@($-L:6-K('=H97)E('EO=2!W86YT('1H92!C96YT97(@;V8@=&AE9
M('!L86YE="!T;R!B92P@=&AE;@H)('=H97)E('EO=2!W:&%T('1H92!E9&=E^
M('1O(&)E+B!4:&4@9&5N<VET>2AC;VQO<BD@:7,@<F%N9&]M+@H*("`@("`@(
M0VAA;F=E4&QA;F5T.@H@("`@("`@("`@("!#>6-L92!P;&%N970@9&5N<VETI
M>2X@4F5D(&AA<R!A(&1E;G-I='D@;V8@,2X@1W)E96X@82!D96YS:71Y"B`@/
M(`D@;V8@,2XU+B!";'5E(&AA<R!A(&1E;G-I='D@;V8@,BX*"B`@("`@($1E7
M;&5T92!P;&%N970Z"@D@("`@0VQI8VL@;VX@=&AE('!L86YE="!Y;W4@=VESS
M:"!T;R!D96QE=&4N"@H*"4AA=F4@9G5N('=I=&@@=&AI<R!G86UE+B!"=70@'
>0D5705)%($]&($),04-+($A/3$53(2$A(2$A(2$*5
``
end