Date: Wed, 14 Jun 1995 21:54:04 +0200 From: zjd107@rsphy1.anu.edu.au (Tom Barbalet) Subject: Polar Bear v1.0 Functional description: polymorphic polar program. Practical description: rotating shapes, mate and mutate. Syst: Tested on 7.02. Used generic code that ran on 6.07. Col : Run in 512x342 up B&W currently (will still run under color) Maybe a bit flashy - I wrote it on a PB 100 (low screen refresh) (This file must be converted with BinHex 4.0) :&9"[E'&b)%*PBA)JGM%Z-#$%,R0TG!"6594%8dP8)3#3""00!*!%JaY6593K!!% !!"00FNaKG3)!N!3@!!!J)"&3EfaKFL"#C@&b)(Ba,M!Ja!#3$R"k!*!0"3#3$iB !!!%!rj!%"3#X"1VrV!8#'`#3"Kl4!*!'%XF!N!Te-Jd!"8PMEfi0!*!Dd4m!N"% @!!!#E`#3!aB!N!a!!+`%kqHX"1[R!!!#MJ#3"J&j!*!%ee`!N!Kdk"%!#!!ml4c 1%0USXj*24Kj2i3kMHZk*8S[ZL(bHAT[e$5#mGeTRe,G`VacY8cL,mcK4686)B2Y 3@8Fb(hI$(TUQI12[D+kU*@B'APIjU#,*h3(D2H8T8++KEkY#6Adl&Dl-)2GpR8F Kj#NF469KedX,4f0U3Z'DqC*2,P4r@dql+fV'&Qjh9FfFJCL0Rkd+[UBG#b&!Y@* I5a[`-1V4XP#U$fhUX(V8YeHKI'dLU(rq!i[8p)'66MbecbV8Yk#[riNSfV*)hjb i+8#el2erp&a6!A,R"LJB#i#GfDp5D[SSClSNNSQH84lXi#(2U*LqRZd1Qq6C[Qp "c`i6FhZf(a,Vf@kRlEBG"50DMB*F$MSFj"hGc)iS0H1lrYR6!-T-"fMK*'&rc$b p!,+DeGPY9d!r8$0'S9&SQdZhZI555bmZHmJESaU0+UR8,2mZammb8mrqMm$3+cB [80"4U+14pUf6bcZD&%R*e0ahbIQc'J&NDm5jVhHN@3!!$3!+8'pXBA)J3Q9KFJ# 3&3C!!*!4KJ!!$k3!N!-@!*!%39"36%+h[9)J!+`%qQqX"3![!!!Bh!#3"Jc&!*! %D[i!N!L1h`c!q*+Yb9a@*XI6bq4Q4T@[h'edHfSbbIEbA@XGG(CfI!hIpAB0#)p Th2-c3XpZVf`pPTYYZSeb1m)fjCHaXqd46MMK19Jhkb+FiMPK(H'%lEFMkcDf+CI `20SQM2!S2h+E%FSPM,$0#0XXNl#6dmdfLpE4cD+H3!"pA@HE,'ajmmJQ[jm-&V+ 3!$&Ib'6Kj*HMC1-2q,bm2SNi)VSk3T52b'fN1,H6-ML&KHmqPS4*Ti$V+8"CJDk 1jSMJEQQ14"JVd"b*ePF&VeI,XHm+ir+h*r1QK5Ubm-L$I6R"VNl"h4bjZlQM*5S XZrhf@d"Ni[@2%'8JdRPDAQ$-hJYN-CdN3e@CH!-+h&(M%4Z3!0HjaA)IZ"[G2rj C(I,0&A@H#[#fPI[mPFLI++m+qT!!lk9H@BDb@e9EC9QB-N3e9d'ic85jfaJL&#A cfr5#8qbAaX8%pkUBS1UP0I@GmY(P2D56MlJlj82Z&j2jL)X3#a!YlXjN(@)`m%' b%A&Pl3I*9BLVEIE-B@KS&3)hHj1jBQcecQ,l'NqGhpdQaB@V@r@VGSUa*8l'+RF &A3TVT4#`E*PVA&)AbLiCDFdU@465Z9IA(T!!*hpkS(9-HPCk9UP@jr'TeH+I%`, (R8[QK3`P#hrp)jjUKq3*k9NajYe+[-01R(4'`3bKFr"fAQ4K+$Zb+*39+3JC)K6 54Bb#@@LbV#bQiVQ@%FY)bBL$NdC4X92qj8"i)#AP5MET)1S[PViQq#fGbGaGEmH ,d"(l)R2MYc*Aa*JdVLL4a8Cjh"Z@ak(kDZQ-`aiLldV9JD$I05CrC!Q68AKAH0H fUpCE0NDQjK9Jkj8DedTRpT[E&NI)f%qCEITF1r9#me*[`'(R56Tc2pqFUbQl"Rk Z&CT@qF9KEm"Ekl!AmXaK"maPIH'V$`J13Pmd#8Ba*XBX6B)jlV2fGX2ICB-k3Ba e8qLMkLfk(4Y[%VC`YV)*,Nm`pZq+QPlHeT*[UEeqL-Zcp,Tc,&Yd,eMkK'e[5f3 5Br&eUT,[&9Mla![b+h$k,6Mke[9KbUEFC@%b8EklN!!@)9lV(U$&F@*HP`c3`P) Rj6+rMNj5PMLFVSZ+4PSBjm$1BZcJ6R'ipV@3!#l`fN9P4K*3KkH&d'+k[TD@Z$I 38ULc9R1YqVJZT)YR-(@-E4QJ3R'Y49Aj0M5m$!d[3d1ZiJk[ZK-h9MYEmk"LFGa 8GSS%baJC,5q4+6i21[+eqYP+rE4,*VL8!hBfma-U&l-UGqd8hijb3T0$9fammA4 8KiiB&a[4IhiT&[6Ec0l"QjfbEl@rq`[&*#C53cFhTFDRd!63L5Pd$p"*FDdBUkM bq5SpIJ(D$a9RZLYAqp([*dSVjH2)MlXZd0Ub-AR%@k[0+,ZJPmk!15)QNYC9rY) H+T%2!@Iaa"6l"0JEECR$cU$Ii%`pYr`CSVT+8b9p[LYZ0DG9eeH*JQ-br[Th[rr EqSpr"Ihl[HqEb9k8fZepipZ6T,[05LC$14@-9(KIIh#5#VhP)q@Z$e,2h@CcdKe @bMlFL8Urq"CMHJjl'2-1@i"@J'QST)+MM2hQ6XDZ2&TTJjEK#ZrJI3ah$MYCY4* E0c&hhSN4H9ql(iTAF1L2N[j+Z$SN(i'24dUGmQ(N,!l$h@c&ABBBT$1S`XP[!@H 4F6!['9*D,Kp%cZ,qUCT!#$8C)LBQaD#rY%Nq08Z!@XrIeAjb6&&l%[eNr'XrCIf PRl,qSjq-rp92QdXHZq4`fH`%rA3K&I6IDTiYSCXZI%ITTZ2Gkr[,()3-8p*"!im Sb#Q0F4+-AElId!6E-3,BQ"Tp9D*(%0L829@FL4e[rm"63QGU[$3JRlTA&l)cc*C Clhc2kE"4DJBP&Eh%9(QB)`IV+YX0qk#lDjm0Fl21ZGb*,Zf8%l-%U!Y2Ue1RGTd rk!T@q8@iH0VlIJE0q(Mk-k9k6HRTVRd0rS&QYXPJXXce1UZG'hAPcU"6UGHE9YV $KFS[eX%%8ZX`ISRK2GHbAMle0cl99E3EAQ@+AjRTPmpFr'6&Y)[Sr8(@-D*R*9Z Z@0r2-Y!a&pkCeXUBTJ"PG13acqeQGA[b9P4A`2-+M6fh+rrIf90mhGT"$FRkmQZ $A&[fj@U+HRjBcC8qY22rhi'c"r6G(pkidRFe$8'2ZY8QRm5X,j!!4j&GN!$(X-m QbXC5Spd'b`MHDbD"am['NU0XZl@-&&[P8@miKCJFG6q2E,HBQ1M[eKFjNdp@@j1 lfeSEX"dRpcLXbB&L1h[m8M08-5a[5ZkSlNcZD(92ed!H&a-IqkDi0cEi`BZ$pb6 cX0J)pRE'9RP!9c'819M[D[4J5rBB'm,4pQK(brV(VkP[hY`LV)Y&)LhKU,#qDef XN`(0Qql!G(R!qhiQAA*k+eI8`lb4$bZZEXhSFcr[Q-2f)HDXh!qYJp9@ZEq0D"Y c6(l#BC8I3lj$6(cda*4MkjNcmJl`qP!a0-AcQ9l#`mq3!0`AYNjAJ+F6c012ATU UXd4PJh-[ii3`Sc3mc("X9KR5%#E"AQ856'!52+"0JSQC56#0XNN!p")c23NqIP@ E"!qS8p(5QCVXaZXDkr55%6!Q0Ah`I'S56mlSR%DC6U#AQ&-kJe11r8reI,KN9&` LHD[E`0K`DX,'[ecETH[KUJeY(FaAF-C,qLpfKCKfQrPDN[QHb`CY`erKPAR)F$C erkd'SBBb2l8DH)YT*iSS$Z`*EG$dUeV6(H+E98#VfT%[6AIFa5lrY(r1(jVTm[q E'HIlTYA-E#4T6CpZ*1Hr1+d*'mNaC50aXBe%&2!Uf5K[Cl[JT@RG`meXKY[r9r[ i6c6Yfl[fAGi!D!mf!-1P$H$$IArH!-iprUF0i-1erpJ!P+hQh*iV'm#jRXXE`,Q 1k3dJ[EIj!ak4E6e+Pi`@Qb6EDVr$cT(dmm+QBK0lI@qXNfU+6AL"[i8aU9GP-Pc k8Q'6XMPjJJd"A#T!`6[&*VKbFL#+@RM(FMrI,4H6e--U$Qb#ZJ9+*ia+ZdaK[!H 0YTi&jhjdbmQ"68b,p4Na9ZEbqFUVA$ka-AA+qrj9G"0H[TE1m9DXQ&0Gf8A8Ec0 JQqM"fbEAbPlpld2Na)6m!&K-0I1ZbT(*YNUTJR8CmPGZ-hYI"cpSb`cGL%eSEmL ,pp,6)6Gff8$)MZhH&VS9Hm,"N!$Y@Va6*D1K`RTRfb(%%F6$$Fkf)mL2)Mm@bMB ijGkf9j5-E40YdQhSTE1UGi%kIjQR[Vj'6)cY&41rfi#iQle!$33'kY&rf@kmkBQ *hqpc&b@MH"2HiHe-GLLpJVkkdLY`bLMp%020MJkfbc+Uh5Ye9jXa2hEELT,h`Y' qQcZ6[FNea8A*0DL*6,))RFNehJh%$cbVi$H`[PKDP1c9EFIdN!"4pf'GNk0U*e6 F"H8'D3@FH$3N0[K4V`mDedK,9jLKUbqj'IfbD,A#NdT4*4`UC"iSZRi3@SbH1)i i'XT&0SMZH"ca8@!NEkb'`mMG5RmA`H90Q"5*$rVC[!MiIDikYmF&2pKp#UDSEJ` jcr#F9FSGaGPd$NiZ85mZCB$SDHlm2Zf+K99,Id-dK!UA6hLfd%0kRIp1"Fr#IbI YlV01Rr8)QjGCEI2QU34NAqhXLR4[D&mRe$5(flYM(Fh4,P`+iF2l$)AS2dpiD!% 9J(q5hVPi6D4B`BKikVKbCT6T#J6B+3q$P'XHKEa%1qcKY--HTS+Mql3c)!e&[NC 9acjCPV[d&HdG,4PLbcdN%XhaGlH%$j!!(`KlZ$K!pG"6a%V0U@Q1!UmK-Y6%SX# S)8h9emEDSe5V5V*U4Y%#'p4pSK2bFPahGm@LV%'d[MR!k'TTlB5*'BPSK$&CL&H ab(S1H5kLK88R85AL3h(LXK$Rp92f2IfdS$G!9e-Kj4aE50N&fC!!Fak&Vd2-334 Z4'T#r!EXP`FT8ck'(#2"2)&DNaTCdkrS[ULIj@C%"iZ$d)#Se&FeA)9S9Z+%%V2 0+@M#l45CYIMIqMR8Rm3i-L$13G4M"pFl%3@HHr-XVa0iAKIRqBaML)-UTNFdXYM 2mcR$2'mCi(NhBYPkI[j6*rJ&S6aq`@!@RlI&`-rrj[hp2(dp`&-QSKia!cMak@L @jE0-[eP1)FSXpL)1)Kj6ZE-K4$D0VrVMD2hALl[PjLAUH4[A52r#,X#!hFeZZpM FCRGLb,H@qFXp+,bGh6B"IeSlDhY"1h2EVdh(`pUd2+HGaDA8-cNZ5jfAR)904pD mk8N*c(!4bdS2,r[8(L(,KC6lQ$*-KQ8jMh)6kLaRjh5j`qPc1Q!RTRRcF3Q8jXh (DMV&kk2PecfXm4i"&Q8c'*f`&PL(9Z0T(2bPX6G81aL@Yf4D4eiMk[@UCh`,eJ$ ESUpTEJpRqqm*Yd5%5-ZQVPKNAFXr!3#3"!d48'pXBA)J3Q9KFL"5C@&NE@8!N!k Ki!#3%!*[!!!4p3#3!aB!N!4849K8G(4iG!!!V!6rZ+`&!H!!N!B$A`#3"J(K!!! 4e3#3"JdQ83iBG#23bNGHaUR*+8*KDS184UND681Kd!@c3#Xh5RF(I9MSX)0@X"p )9DDSK*fJeaF#1Vd,+"ZP0")+qrIaTUBdESR#,*-G$[Z5h5%ZfHIPNYdFNHMl`i" &-"1jXd$86@kMB0$R"4KQqM$M3m!I!QlJJ4`Ep!'B!EcZl$!3mac-MX+F1bJK,2$ k`KlN6rH"X$q,*jhlB*B2)lm(X$N&iYY&&N3XX4dNJacTX3q&rC!!f0Ni$)L3!!9 D'9dk2Zb#S"X6[C6!3G3I$*)Ll#$Rp4&15+La1q3PrEYH2iBS@5M8V4+e3G#IMY` S1aH2hD3'$YpTd`2)R+U%6,lC!'+)L6Pe`Ah)6`lBq"$k3k3KDJUiN!!I!c)M&rP Lj*!!bdSR99ebF$FT"$cZ%'rZ)G*9P4p+*3@3!1DSJ@6T#2"N-c"-CLZ,$E*Pr#B `4M+T@J!pEXc6,Kh6)[a3a"rfTj2YTHV)PR8k-K#'1F#ahaFPCH'b1BN-#-2aZIR ZjT+FGA[mlL$)J#L,U"hlSN!12-LAXiZ3!&a[PX(X,+QY"#$rqL4XZL-q%ZEN&Ge ZdLeLKHRE@EcGlC`Dh(lq-2D(-PF[F1,($0QJjmrp%Q8+)ljM)5%ZU2&%mef1c,B %JVkF&N6CF["X2`#3"3e6G(*KD@GSG#"-D@jPB@4YC3#3$QTT!*!3$k3!!"*T!*! $&J#3"%+h[9*#Yle5!!#X"1M5V!6SdJ#3"`3!N!F%!!!)i!#3"NMZ!!)!(`!!"e4 [F("XCA*d)%aTEQ9KC'eP!*!1qBF!N"!4p3!!%Yd!N!-@!*!%3VHp8N+h[9)!!+` %k1kX"1MZ!*!("!#3"`3!!-P4!*!'%"S!"3!I)5%48'pXBA)J3Q9KFL"f-5i`)-3 !N"d"!!!5D3#3"aB!N!1'!!!"!2q3"!8!V!6Urk`&!KX!N!BHd3#3"K*A!*!+be[ 0(3!!: