mende@aramis.UUCP (04/29/87)
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
``
endfnf@mcdsun.UUCP (Fred Fish) (05/01/87)
> These programs are uuencoded using the program from Fish disk 53.
Yes, and it worked like a champ. I got "checksum error line 1439"
when I uudecoded the concatenation of parts 2 and 3 (after chucking
headers). The offending lines were:
M``"Q:@``L7X``+&N``"Q\@``L?H``+(8``"R9@``M0@``+4V``"U/@``M6P`5
M`+5T``"UK```M?(``+8L``"V1```MEP``+:R``"VQ@``MN(``+;V``"W'```:
MMSX``+=.``"W?```MXH``+>2``"WUpuoK
M`,/:``##^```Q!```,0B``#$.@``Q%(``,1B``#&&```QKH``,>V``#(6```'
MR=(``,IT``#+<```S!(``,PR``#,2```S&X``,R6``#,I@``S-0``,TL``#-X
Anyone got the fix?
-Fred
--
= Drug tests; just say *NO*! (Moto just announced new drug testing program) =
= Fred Fish Motorola Computer Division, 3013 S 52nd St, Tempe, Az 85282 USA =
= seismo!noao!mcdsun!fnf (602) 438-5976 =mende@aramis.RUTGERS.EDU (Bob Mende) (05/01/87)
> These programs are uuencoded using the program from Fish disk 53.
Yes, and it worked like a champ. I got "checksum error line 1439"
when I uudecoded the concatenation of parts 2 and 3 (after chucking
headers). The offending lines were:
M``"Q:@``L7X``+&N``"Q\@``L?H``+(8``"R9@``M0@``+4V``"U/@``M6P`5
M`+5T``"UK```M?(``+8L``"V1```MEP``+:R``"VQ@``MN(``+;V``"W'```:
MMSX``+=.``"W?```MXH``+>2``"WUpuoK
M`,/:``##^```Q!```,0B``#$.@``Q%(``,1B``#&&```QKH``,>V``#(6```'
MR=(``,IT``#+<```S!(``,PR``#,2```S&X``,R6``#,I@``S-0``,TL``#-X
Anyone got the fix?
-Fred
yes...
Replace:
MMSX``+=.``"W?```MXH``+>2``"WUpuoK
With:
MMSX``+=.``"W?```MXH``+>2``"WU@``M]X``+?L``"W]```N'@``+C0``"X7
MV```N.8``+CN``"Y=@``N9P``+G^``"Z!@``NA0``+H<``"ZG@``NKX``+K@E
M``"[&```NS8``+M$``"[5```NVH``+N&``"[E@``NYX``+NF``"[N```N]@`)
M`+O@``"\.@``O%0``+QP``"\T```O2P``+UN``"]A@``O9(``+VF``"]V```W
MO>P``+X*``"^-```OE0``+Z.``"^M@``OQP``+^H``"_N```O\P``+_>``"_5
M]@``P`X``,`H``#`;@``P)```,"N``#`Q@``P0H``,$L``#!3```P6P``,&$5
M``#!F@``P;(``,'&``#!W@``P?X``,)J``#"F@``PN@``,,B``##5@``PZ8`,
There seems to have been a majorly big screwup somewhere between
rutgers and you....
Bob
--
ARPA: mende@rutgers.edu UUCP: {anywhere}!rutgers!mende
BITNET: mende@zodiac.bitnet CHAOS: mende@borax-chaos
Home: (201) 545-8193 Work: (201) 932-2443
USnail: RPO 4888 CN 5063 [CR] New Brunswick NJ 08903 [EOT]