'=========================================================================== ' Subject: SIMPLE GRAPHICS IN WINDOWS Date: 06-27-98 (00:00) ' Author: PowerBASIC, Inc. Code: PBCC ' Origin: ftp.powerbasic.com Packet: PBCC.ABC '=========================================================================== 'For use with PowerBASIC Console Compiler DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PBGR32.ZIP",4^6:Z&=5192:?STRING$(50,177); U"%up()%9%%%R-%bE0LI5v1fy,(7%%8-%%%/%%%%lw%yjxy%SgfxK&z<>][]5wV-x U"x0)S=*ypNfIoi-JvvR5E^q[2n)ZEaM1X(&:x#]Rs.pcdHTBN;d?),l/o8MF5m6j U"CH[Vlg$nsVBJLdO4=r.i#2g+>C8<>nV>FD4':jX3)dFqfplU0m$&6%44GvtLD0L U"S&gC5#K20N;8Pt+&B1j&BO:?0]1]1>M=DMu.B['Wi+HQuK9,r$4]<&e+Tn U"0e::wX?g$Y-'BRt):h)lr^G5HG2]P48a5ttLO.\NYHeWB1Amy*UQAVQRY6oe#Il U"*fm2Z0iS,Gb^QUVmo)6ng-=SGx0Qm):0_/p)y=.f9d&ZC)I1X\a6]aH?;s%P,/k U"=1s,fb:fWMI&FXZrPF$YfqX=NMjpG0P3;&M]2X%Iu_C.VRky;lK;4c+A\byEYRl U"SI:mbZH1BscZF>I)8FKfW]?$.CQeHZQ(\TS;sY^eoxnlIn5CoX\ssf[#e*gC'QMk_)/1#l?INHO U"8qpF>l#2Ec3)yR=n'noKV+wV-A*ApRD<29gWn+/r&lstNG(jiWPTDy.NT4?\\[A2+AST$aws*Ciuq>THAt]U/-2Muk>ts\ZnXw^C1SKR U"_x)7V96C&hZA4.8AH%moR;.B\J=OAtrJqXHs5/Z9GDhjGHZ)it056r%,up(%)9% U"%%%-%Q,FLIL(W0H:%5%%%%G%%/%%%%u%glwX%WSiqFqf^NAGxze%\nxo+N-e(C1 U"qkvc4T:eT/nlzT-YF^KKDPUYu-^&LV_SuAunr-_o]E:W-2#7Pe,>vs U"*n2Br$:DHH>^[Y4^5FlMR:uPHZVkfW_Dpmjof^h60m,d:kFu285>_M^lpWBgQ2$ U"mBZg28-,e%qL%wgm/'BIAl^mQ-B+m7$jL%-kK^IZq4ul&4[O7T*FcfSzP]e2NZB U"$y[Giv9d+7R=Q5>C/_rXrHr%(>EPF%[n/Vr]^KGDb8dm(G$;K\u('CdJ%Ev4-c( U"%NrqE(gg*YQgL(at#k6Nn((rwQ0,mag^sd8+/.9DGbdUaRL.8f_7Da^v3gEYMPd U"5\(7%X??#FIJ'5b$Aw+s]p6J9Z0s'idP^0 U"9BSCxFsYX$CdvdXf=Uj]+C]\x U";[[>nEfSj*4YE38)lT-9Fi*[jpiCU]m\i1,X^X2gHW%*eh_Dzb2A?c<-i9TB2A? U"3<%PAZH+5GGwU/Iri(8SP+LNA*?Z>iEtdfTe=.2vgqp],LDcJ_YoJx1;poFNeHGoO U"=L#bRK^0YeAseRJv)AhUiS)IlnuVpTeK]S,Vb0Y9IE&DKW$*_P?H%i$5l%5JE(; U">[*[q4q.6VEoM&MUV8:4kEIG;]*ZgrdXEG0Ru:K8_Bf+#2e?*859d]SL0IdfkhO U"KG%IA,pI'u9.yyv641fTH5c):%6hd;)b\k.O&%hr+Q.qa;5_IHD2oLlSO3H*;/= U";:M?.L#\N/Xs53+d.$d/H]Vjnj\f;_vkbg\Z;;]YY8,=ks%BIGj?WR*_+NnbsAR U"lHGlxur88h)XBAJon=R%Lv)5VsA3mXp((h.Bbkw_a]S*?s:5DgJh1C+\n*.Wsh5 U";OmS.(fbF&iJf6wXaS-91qsbH>fl#V^o1c:6#k6V#xX&BU79vpk#]tMElP,bV9BjfqeUViK'Uu,7K U"pooX8$*NsX]vdLuz$THi%=\cuca3_^.11th]\k]=oF8s93N1k)r+Z][NB9ESKCf U".v)Uqu/V#05L:B0SH,hc=-8;^hT^>XSRYFm]J6j'V+7^fCmZ9hVjH_,?IMxa3Se U"hy:?Rl+V,^owVb7SWc?Fok=K8&-X(IkRk_HfhbVUsD,N:HMl?G8o9lOfxV\i2I- U"5MAe$:^=wivTgFUjd+b1O4[SYfwj0VPl$K?pOUG+O3pZ3::Q5P$/hnPg*cEW]a- U"[reu>1UpY\[?L%ln1a%c51lL5$skLGa8JuQ^#jAswBajp.Co]*2rFao#E<>k[bUX(ECqCpUUI+C=B4vT#)_q#+W:\>;G2xC U"4q&reb%];C;554Rz\\B&_:Tq8$jaNWrEP_Pxo(>ELu)7bd_/ymd>N[8^M]0UgYVs7+v9?t9,b$s$)()z58BKv19V=IZmh1w9iL%sI(NMmGSGLKj\;mO?]#U$D U"m1FsVUv8G6eb>=/Aa>&E?-4.XXJA$uzm)7#3.Pj0*Atc>+Yr;1r?T2bkPG(-J6+ U"sBHE2N2=n7:MJH.4nJwQ3Ee1_H?;8#\$WN?2cCVDKGxAXt-S7k[7m9V;E\?]9L>5'lDo8AaLcY-N$&._qG:o U")'o#1l[3MX-JHGNh(bRHzmtujNul:$gfhx,bCX<t+SC;]xsl9c(2Dq$NEI U"+xZNK+n)w,3eRkFsj/7#aJ&^Damn&Phi'5F3e+a*ZBW=q^*Bgc>(APA9-17>lE&L>=4j-19Hcio0 U"p^:\5brA'&9Dg2/Yc:4V]H'dc#G'jrUegfOgZpTU7Z,:rqqHef\To_W5g2\NrCe U"LTRWU%N7O$%JCKw8KmNIwn$v8t^THUTdqTNjFbFH\P#uG#s:$0llk&4'u U"94V]Tc,\]0wNmNK0UMotz7dl/XZ-:+ovs+5PEU3+l_,862PTZ U"Dm(g7^2mEHtCi-0/?%071-<>;o%XU0i$OXon2T'jvYR)K5\Z.SUo^r56bznL8^O U"o/TLRwus]u,?\=JLFtp4I&MB^rg+n2(^8-YA7$1ignL(5gs2De(%'u\&yyUI+u--gv,-6MwsI43m9=uEWj0,UW.Cm*G_D]*Z2EG\K]JA6Kn3?9V(%T%p+&O&)^&M/)+4Y5eaAY]9[L%hA(4Ay%1KO) U"%#<%*_(%GxAnr(Cva%VGw:^[pCcmv.ucxI*i8^%(%052?C0YpOy4]b6%9U&)%8o U"=9'7u0Y'7-'u98/T9f;OG2Efta[j&n%NES2S9.%'9&y+&M&Yj&-'xWeV*MXM,Mf U"TRPNy:aZF+W4p.EkxNe=q9;O+E^Dn;Q2<)jZ%I<6m+$*Z>N1;%:4\\H>+%'U<3ZMfJL=XxQ\#(,$i;K U"4NBo].:iTN5MFh=e*s\DIR&N,zTt^SwEUy(h4GT#/Y,+_rR(F]_1vOe/5=Ta'7I U"YF/tiglQOPSRgWOuXSG0Tt'dk]7WDwqnb=CDR=YmIQ U"&2ka#UK0T42)iFUN;ujQgDZg2Qyu5W.oA7?OM\uM-2v-Ng,*rROlgI)'^TQ;&2K U"Tbed,LZm3>-=J[U1OX286xE?,+jC]4+];F='GZG7+1^26'MXbmi2<=8.elb)r+O U"XAIg?Q-fCRy;*Hcd9ui2d5Pca(b8fWrM%W78U;dso;d&'f9K0_LQ=^OJ1mf\PZu$=^;>-e,+XQk+.H*8(_ U"q.]$L&Pc8'3;)DP1qiDL--Hf*>?WRz=Jr9;Ov#blYLI7QN>;t?3EZaE5[>Hakg/ U"F,Fc6.MIw2u7j4?6c\73n;7?^E86)l*w_4)SYQufSa[PWif3+CRZN^Xh\HBc(Bg*MTH/>%E2OIOKj%p1;/.Qsid+D2]] U"urmUME;du1J4dpqP3'%XZT%']*^U(?*NMgM8z+YXi4<)Olw.u+QqH+>k]D4f_dk U"xbzutl/>T7R>G/YgB:Az$M9x9j1OuIqNnFyv.yTw=TNNN;9nBcD/z