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 1 of 2) Message-ID: <6056@j.cc.purdue.edu> Date: 29 Dec 87 03:45:00 GMT Organization: Co-Moderators Unlimited. Lines: 666 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 1 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 1 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. "Paint" is written in web, which requires an assembly language pre-processing program "web" to be run on it before it can be assembled. (Web was posted to comp.binaries.amiga a short while ago.) This program is in the public domain. * * Greg Lee, July, 1987. * U.S. mail: 562 Moore Hall, Dept. of Linguistics * University of Hawaii, Honolulu, HI 96822 * UUCP: {ihnp4,ucbvax,dcdwest}!sdcsvax!nosc!uhccux!lee * INTERNET: lee@uhccux.uhcc.hawaii.edu * BITNET: lee@uhccux * # 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: # psrcaa # if `test ! -s psrcaa` then echo "writing psrcaa" sed 's/^X//' > psrcaa << '\Rogue\Monster\' Xbegin 644 paint.w XM"B @(&ED;G0@(%!A:6YT"@H@("!S96-T:6]N("!O;F4*"C$N(%!A:6YT(&$@ XM<&EC='5R92X*(" @5&\@87-S96UB;&4Z('=E8B!P86EN= H@(" @(" @(" @ XM(" @(" @87-S96T@<&%I;G0N82 M;R!P86EN="YO"B @(" @(" @(" @(" @ XM("!A;&EN:R!P86EN="YO('1O('!A:6YT"B @(" @(" @(" @(" @("!D96QE XM=&4@<&%I;G0N80H@(" @(" @(" @(" @(" @9&5L971E('!A:6YT+F\*(" @ XM(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @+2TM($=R96<@3&5E XM+"!*=6QY(#(R+" Q.3@V"@H@(" M+4UA8W)O(&1E9FEN:71I;VYS(&9O2!R969EF4@=&AE('-C" @5V%I=%!O" @1V5T37-G"B @('=B7VUE" @1F]R8FED"B @(&$Q+FP@(#T@('=B7VUE4US9PH*"BTM06YS=V5R(&ET"B @('1S="YL(" @(')T XM;@H@(" ]('L@='-T+F(@(&%C=&EV95]S8W)O;&P*(" @(" @("$]('L@+2U3 XM8W)O;&P@=&AE('-C" @(%)E<&QY37-G XM"B @(&QN9R @(#T@<&]P"B @(&0Q+FP@(#T@<&]P(" @(+<@8VQAR M+5!R;V-E2!M97-S86=E"B @(&-HR!TR!TR!-86ME(&$@8F]X"B @(" @(" @(" @(" @('T*(" @(" @(" @(" @(" @ XM+3X@(*<*(" @(" @(" @("!]"B @(" @("!]"B @('T*"B @(" @(&)Y=&4@ XM(&%C=&EV95]DR!3 XM96QE8W0@=&AE('!A;&5T=&4@8V]L;W(*(" @(" @(" @(" @+3X@(*<*(" @ XM(" @('T*"B @(" @("!TR!T XMR!T87)E87!O:6YT71E('5P=V%R9',*(" @(" @8GET92!A8W)OR @ XM86-T:79E7W-C71E("!R71E("!C=')L7V9L86<*(" @(" @(" @(" @(" @(" @8VAR(" _(" C XM)#8S.R ](*L@8W1R;%]F;&%G(#T@9&]W;E]U<""["@H@8GET92 @71E("!S96Q?8V]L;W(*(" @(" @8GET92 @71E("!S96QO7V-O;&]R"@H@("!D,2YB(" ]("!S96Q?8V]L;W(* XM(" @='-T+G<@(" @9# [(#T@JR @R!C=7)R7W1O;VP@(#\@(#(*(" @(" @(" ]('L@='-T+F(@(&%L='1O;VP* XM(" @(" @(" @(" @8FYE(" N;&5T961G90H@(" @(" @('T*(" @(" @("!T XMR!D,"YL(" ](",D,#,S"B @(" @(" @+3X@("YD968N961G XM90H@("!]"B N;W1H+F5D9V4Z"B @(&-HR!D,2 @ XM/2 @8V%N=F%S.R!D,BYL(#T@9#$[(&0S+FP@/2!D,0H@(" @(" @(&-HR @9#$@(#T@(# [("!D,B @/2 @,#L@ XM(&0S(" ](" P"B @(" @(&0Q+F(@(#T@("AA,BDK"B @(" @(&0R+F(@(#T@ XM("AA,BDK"B @(" @(&0S+F(@(#T@("AA,BDK"B @(" @('!UR!D,2YW(" _ XM("!T;W1?:&5I9VAT("T@,PH@(" @(" @(" @(#X]("!;"B @(" @("!]"B @ XM(" @(" @(" @83<@("L](" X"B @(" @(" @(" @+3X@(*<*(" @(" @(" @ XM("!="@H@(" @(" @9W)A<&AI8W,@5W)I=&50:7AE; H@(" @(" @9# N;" @ XM/2 @*'-P*0H@(" @(" @9#$N;" @/2 T*'-P*0H@(" @(" @9# @(" M/2 @ XM,0H@(" @(" @*R"K(&=R87!H:6-S(%=R:71E4&EX96P@NPH@(" @(" @9# N XM;" @/2 @*'-P*0H@(" @(" @9#$N;" @/2 T*'-P*0H@(" @(" @9# @(" K XM/2 @,0H@(" @(" @9W)A<&AI8W,@5W)I=&50:7AE; H@(" @(" @9# N;" @ XM/2 @*'-P*0H@(" @(" @9#$N;" @/2 T*'-P*0H@(" @(" @9#$@(" K/2 @ XM,0H@(" @(" @9W)A<&AI8W,@5W)I=&50:7AE; H@("!]"B @(&0P+FP@(#T@ XM('!O< H@("!D,2YL(" ]("!P;W *(" @9#$@(" M/2 @,0H@("!G&5L"@H*1')A=R!A(')E86P@;&EN92!T;R!H97)E"B @($1R XM87<@97!H96UE"!O&-H XM86YG92!C;W)N97)S"B @(" @("!D," K/2 Q.R!D,B M/2 Q"B @(" @("!D XM,2 K/2 Q.R!D,R M/2 Q"B @(" @("!M;W9E;2YL("!D,"UD,RQS879E"!OR!G"!O%]T;V]L"B @(" @(&)Y=&4@(&%L='1O;VP*(" @(" @ XM8GET92 @'1O;VP@(#(*"B @(&%L='1O;VP@(" @/2 @86QT:V5Y7V9L XM86<*(" @R!C:'(@ XM(#T@(&)O>%]T;V]L(""W(&AE"!T;V]L XMR!C:'(@*ST@ XM,0H@(" @(" @(&-U;&EN92YS<')I=&4*(" @ XM(" @("!T;&EN93(N8FQI;F4R+G-P&5S"B @(&-L2XR9FEL;" M XM('-Q=6%R92YS<')I=&4*(" @83$N;" @/2 @7F)R=7-H+G-P8FQT+C)P870@ XMNPH@(" @(" @('1S="YB("!S<'1O;VP*(" @(" @(" A/2"K(&%DR!D,2YW XM(" ]("AA9'(I*PH@(" @(" @(" @9#(N=R @/2 H83$I*PH@(" @(" @(" @ XM='-T+F(@8F]X7W1O;VP*(" @(" @(" @(#T@JR!D,B ](# @NPH@(" @(" @ XM(" @8VAR(#\@,3L@/2"K(&0Q(#T@+3$@NPH@(" @(" @(" @9#(N=R F/2!D XM,0H@(" @(" @(" @*&$R*2LN=R ](&0R"B @(" @(" @("!D,BYW(" ]("AA XM,2DK"B @(" @(" @("!T2!O9F9S XM970*(" @:6YT=6ET(%-E=%!O:6YT97(*"DUA:V4@=&AE('!O:6YT97(@82!B XM87(@<&%T=&5R;@H@("!T86AB87(N879B XM87(NR!H7W!OF]N=&%L('-C2!T:&4@;&%S="!S<75A;&%S XM="YS<75A H@("!D XM,2YL(" ](" H861R*2 @(""W('-O=7)C92!Y"@H@("!A9'(@(" ]("!SF4@> H@("!D-2YL(" ](" Q-2 @(" @(""W('-I>F4@>0H@("!# XM:&]O8FQT+G!A= H@ XM("!S:&EF='1O;VP@(#\@(#(*(" @/2"K(&%D'0*(" @9# @ XM(" @(" @/2 @, H@("!G2!M96UOR M+4)L XM:70@<&EC='5R92!T;R!S879E(&%R96$*(" @(" @(" M+4]P96X@82!F:6QE XM(&9O2!F;W(@<&QA;F5S"B @('1S XM="YL("!D,@H@(" A/2![("TM4F5A9"!F:6QE('1O(')A2!M96UOR @;6]V96TN;" @9# O9#$O83 L+2AS<"D*(" @ XM(" @9W)A<&@@($%L;&]C4F%S=&5R"B @(" @(&0R+FP@(#T@(')T;@H@(" @ XM("!M;W9E;2YL(" H2!F;W(@<&QA;F5S"B @(&UO XM=F5M+FP@('-A=F5R96-T+&0P+60S"B @(&0R+FP@(" @+3T@(&0P"B @(&0S XM+FP@(" @+3T@(&0Q"B @(&0P+FP@(" @(#T@(&0R"B @(&0Q+FP@(" @(#T@ XM(&0S"B @(&%DR M+4=E="!F:6QE(&YA;64@9G)O;2!M97-S86=E"B @(" @ XM(" @+3X@(*<*(" @?0H*(" @:6YP=71?;F%M92 @(" @/2 @7FEN9FYA;64* XM(" @<'5S:" @/2 @:6YP=71?;F%M90H*(" @+3X@(" @(" @;F5X=%]F;F%M XM95]C:&%R"B @('L@(&9N7V-H87(@(#T@("AC;VUM86YD7W1A:6PI*PH@(" @ XM("!F;E]C:&%R(" _(" G("<@*R Q.R @(&)L=" @(+8*(" @(" @*&EN<'5T XM7VYA;64I*RYB(" ]("!F;E]C:&%R"B @(" @('1A:6Q?;&5N9W1H("T](#$* XM("!N97AT7V9N86UE7V-H87(Z"B @(" @('1S="YL(" @('1A:6Q?;&5N9W1H XM"B @(" @(&)N92 @('T*(" @8VQR+F(@(" @*&EN<'5T7VYA;64I"@H@("!I XM;G!U=%]N86UE(" ]("!P;W *(" @='-T+F(@("AI;G!U=%]N86UE*3L@8F5Q XM(""G"B @('!I8W1UR @861R(" ]("!D, H@(" @(" @("!A('!I8W1U0H@("!D;W-B87-E(" ]("!R=&X*(" @='-T+FP@('=B7VUE" @($]P96Y,:6)R87)Y XM"B @(&EN='5I=&EO;F)A" @($]P96Y,:6)R87)Y XM"B @(&=R87!H:6-S8F%S92 ](')T;@H*(&QO;F<@(" @=&5M<&$*(" @9# N XM;" @(" @/2 @,3(X"B @(&0Q(" @(" @(#T@(" R(" @(" @(+<@8VAI<"!M XM96UO