Path: utzoo!mnetor!uunet!husc6!rutgers!iuvax!pur-ee!j.cc.purdue.edu!ahh From: ahh@j.cc.purdue.edu (Brent L. Woods) Newsgroups: comp.sources.amiga Subject: paint - A basic screen painting program (part 2 of 2) Message-ID: <6057@j.cc.purdue.edu> Date: 29 Dec 87 03:51:30 GMT Organization: Co-Moderators Unlimited. Lines: 601 Keywords: tested, uuencoded, web needed. Approved: ahh@j.cc.purdue.edu (Brent Woods) Program Name: paint Submitted By: lee@uhccux.UUCP (Greg Lee) Summary: A basic sort of graphics painting program. Poster Boy: Brent Woods (ahh@j.cc.purdue.edu) Tested, part 2 of 2, uuencoded, web needed. NOTES: The first time I tested this program, I had most of my memory taken up by one task or another, and the machine guru-ed when I exited paint. On subsequent tests, with more memory avail- able, there were no troubles. So, I suggest that when you use this program, you have at least 200K of memory available (I had about 160K available when my A1000 guru-ed). Brent Woods, Co-Moderator, comp.{sources,binaries}.amiga USENET: ...!j.cc.purdue.edu!ahh ARPANET: ahh@j.cc.purdue.edu BITNET: PODUM@PURCCVM PHONE: +1 (317) 743-8421 USNAIL: 320 Brown St., #406 / West Lafayette, IN 47906 ---------------------------------------- Here is part 2 of the source file for "paint", a simple screen painting program. The file is uuencoded because it has characters with the 8th bit set. After unpacking both parts, concatenate the two resulting files and uudecode. # This is a shell archive. Remove anything before this line # then unpack it by saving it in a file and typing "sh file" # (Files unpacked will be owned by you and have default permissions). # This archive contains the following files: # psrcab # if `test ! -s psrcab` then echo "writing psrcab" sed 's/^X//' > psrcab << '\Rogue\Monster\' XM;" @/2 @9#8*(" @9W)A<&AI8W,@06QL;V-287-T97(*(" @8FTN,7!L86YE XM+FP@/2!D, H@("!D,"YL(" ]("!D-0H@("!D,2YL(" ]("!D-@H@("!G;F5W+G-C XM)#)#*&%D" @($9R965-96T*"B @(&$Q+FP@(" @(#T@('1E;7!A"B @(&0P XM+FP@(" @(#T@(#$R. H@("!C86QL97@@("!&71EF4* XM"FEN9FYA;64@(" @(&1S+F(@(#,P"@H*"B @('-E8W1I;VX@='=O+&1A=&$* XM"FQI8FYA;64@(&1C+F(@("=D;W,N;&EB22P@,3DX-B G XM+# *(" @(" @(" @(" @8VYO<" @(" @,"PR"@JW(#T]/3T]/3T]/3T]/3T] XM/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T] XM/3T]/3T]/3T]/3T]/0JW(#T]/2!.97=38W)E96X@/3T]/3T]/3T]/3T]/3T] XM/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/0JW XM(#T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T] XM/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/0JW(%-44E5#5%5212!.97=3 XM8W)E96XL, JW"K<@(" @5T]21"!N7!E('-P96-I9FEE XM<@JW"K<@(" @05!44B!N2!H879E(&$@0FET36%P"K<@(" @.R!T:&%T XM('EO=2!W86YT('5S960@9F]R('EO=7(@4V-R965N+"!Y;W4@7!E6]U('-E="!T:&ES('9A6]U6]U(&UA>2!D:7-C87)D('EO=7(@;W=N($)I=$UA<"!I XM9B!Y;W4@=V%N= JW(" @($%05%(@;G-?0W5S=&]M0FET36%P.PJW"K<@3$%" XM14P@(" @;G-?4TE:14]&"K<*"FYE=RYS8W)E96X*(" @9&,N=R @(" @,"PP XM+'=I;G=I9'1H+'=I;FAE:6=H= H@("!D8RYW(" @(" V(" @(" @(" @(" @ XM(+<@(" @9&5P=&@*(" @9&,N8B @(" @,"PS"B @(&1C+G<@(" @("0T.# P XM(" @(" @(" @MR @("!M;V1EBYF;VYT)RPP"@H*:6QI8FYA XM;64@(" @(" @9&,N8B @)VEN='5I=&EO;BYL:6)R87)Y)RPP"F=L:6)N86UE XM(" @(" @(&1C+F(@("=GF4@("!E<74@(" R,# *"K8*"BTM36%C"!M86-R;PH@ XM(" @(" @838N;" @/2 @7#$*(" @(" @4VAO=R!S XM=')I;F<*(" @(" @96YD;0H*<')I;G1E4US9RPU.0H@("!L'0L-@H@("!L&5L+#4P"B"W(&QR968@($9L;V]D+#4Q"B @ XM(&QR968@(%-E=$%096XL-3,*(" @;')E9B @4V5T0E!E;BPU- H@("!L