AMOS Basic v134 RR"Filled Polygon and Freehand Shape RRichard Wheeldon 1996 RR(Draw a shape with the left mouse button.R>25@@et_ymaxt>\> |\Aet_xlowt>\> |\ Aet_xinct>\> | @@mett>| @@aett>|P T\2 ox t| $oy 8t$|*rxoxT0ry$oy~P6mk2 *6mk> ~> <x t| By 8t$|\<xfoxLByf$oyRIf MK=2 R Exit R Else If MK=1t<x\Byox\$oy )By$oy @et_ymaxtBy\@mettBy||$oy Aet_xlowtBy\@mettBy||<x9 Aet_xinctBy\@mettBy||tFAtox<x||t$oyBy|D@mettBy| %*By$oy @et_ymaxt$oy\@mett$oy||By Aet_xlowt$oy\@mett$oy||ox9 Aet_xinct$oy\@mett$oy||tFAt<xox||tBy$oy|D@mett$oy|ox<xT$oyByREnd If RWhile Mouse Key : Wend R )By0ry @et_ymaxtBy\@mettBy||0ry Aet_xlowtBy\@mettBy||<x9 Aet_xinctBy\@mettBy||tFAt*rx<x||t0ryBy|D@mettBy| %*By0ry @et_ymaxt0ry\@mett0ry||By Aet_xlowt0ry\@mett0ry||*rx9 Aet_xinct0ry\@mett0ry||tFAt<x*rx||tBy0ry|D@mett0ry|R RDraw Polygon <^Hc1>>8@mettHc1|<Nc2>@mettHc1|>m tAet_xlowtHc1\Nc2|\Hc1Aet_xlowtHc1\Nc2| Aet_xinctHc1\Nc2|tHc1@et_ymaxtHc1\Nc2||\@et_ymaxtHc1\Nc2|FF R Wait Key RRStage 1 By>P*TDByT\@mettBy|RRStage2@TAaet_xt>d|@Z@aet_ymaxt>d|@`Aaet_xinct>d|R faetmx>PR3.1 @mettBy|><"Hc1>@mettBy|># TAaet_xtfaetmx|Aet_xlowtBy\Hc1|$ `Aaet_xinctfaetmx| Aet_xinctBy\Hc1|$ Z@aet_ymaxtfaetmx|@et_ymaxtBy\Hc1| DfaetmxF<Nc2faetmx>>V> lflg> <FHc1>Nc2! TAaet_xtHc1|TAaet_xtHc1>| TAaet_xtHc1|\TAaet_xtHc1>|"`Aaet_xinctHc1|\`Aaet_xinctHc1>|"Z@aet_ymaxtHc1|\Z@aet_ymaxtHc1>| lflgH  F lflgFRRPrint At(0,0);AETMX Dfaetmx>Hc1>TrfHP Z@aet_ymaxtHc1|By \rftox\ByTAaet_xtHc1|\ByrfH @rf>oxTAaet_xtHc1|   DHc1\Hc1faetmxR3.2 faetmx> Hc1>P dByZ@aet_ymaxtHc1|  faetmx>Hc1<Nc2Hc1faetmx>TAaet_xtNc2|TAaet_xtNc2>|!`Aaet_xinctNc2|`Aaet_xinctNc2>|!Z@aet_ymaxtNc2|Z@aet_ymaxtNc2>|F  Nfaetmx  DHc1\Hc1faetmx><Hc1>faetmx>)TAaet_xtHc1|TAaet_xtHc1|`Aaet_xinctHc1|FR R If AETMX>0R For C1=0 To AETMX-2 Step 2 R* Draw AET_X#(C1),Y To AET_X#(C1+1),Y R Next REnd If RDBy R Wait Key \By>AmBs