ƒ„¬†MODÅSEÌCNTÒCOUNTEÒTEMPX¨TEMPY¨LOOÐSTPSX¨STPSY¨NUÍLOOP²X¨Y¨LASÔDELAÙLO×X±XTOÐY±YTOÐÃFLAÇCOLOUÒXOLÄYOLÄTØTÙDONÅWORËTMÐÁTM¨DEBUÇÂXÌNÎØ@@@@ @ @ @ !"#$ POLYMOVE›BY ROBERT GEDDINGS› (c) 1987, ANTIC PUBLISHING›( A@2PLAYBACK›<+€AF@APCONTINOUS LOOP›Z6‚-@d*ƒ-@@*# OF TWEEN STEPS›n T:,@AxA,„8@<‚,…8@<‚,ASTARTING POINT FOR EACH POLYGON›‚†-@@Œ$/„8†<‚,…8†<‚,$FINISH POLYGON›– † TWEEN PART›ª†-@@´16„8†<‚,-„8†<‚,%‡8†<‚,16…8†<‚,-…8†<‚,%ˆ8†<‚,¾ †È(@}Ò ƒÜ6‚-‚%@‚‰Aæ†-@‰ðŠ-@@ú6„8Š<†,-‹8Š<†,6…8Š<†,-Œ8Š<†, Š † @SINGLE LOOP›"‚-@‰&@,ƒ-@@6,„8@<‚,…8@<‚,@+†-@@'/„8†<‚,…8†<‚,+ †J†-@@T16„8†<‚,-„8†<‚,%‡8†<‚,16…8†<‚,-…8†<‚,%ˆ8†<‚,^ †h(@}r  ƒ ‚|,‹8@<‰,Œ8@<‰,†-@@/‹8<‰,Œ8<‰,š ¤Ž-@A Ž® A¸ A ÂE6-(6-P:‘'@%?P,96’-P:“'@,E6”-@Ì6•-Ö›à‚-@‰ê+€A”ô 1’–,’6—-6˜-’þ"T:,@" A0•A A@(+™)š,A&– ,—˜”0 6-%™!‘6-‘:  6-D 6’-’%š’!“6’-“N ’ 6’-X Ab96-P:‘'@%?P,-6’-P:“'@,96”-@l6•-6ƒ-vb ›-@6?<2A@›@ ›b2€ ‚ŠCALC STEPS›”%‚-@‰%†-@@ž#6œ-‚%@œ!‰#6œ-@¨$$6‡8†<‚,-+‹8†<œ,&‹8†<‚,,'@²$$6ˆ8†<‚,-+Œ8†<œ,&Œ8†<‚,,'@¼  † ‚Æ A`ÐPOINT ARRAY LOADER›Úb Ž-@6?u<2@`@Ž@ Žb2ä6ƒ-ƒ%@î6‹8ƒ<‚,-6Œ8ƒ<‚,-’ø6„8ƒ<‚,-6…8ƒ<‚,-’3,‹8@<‚,Œ8@<‚,3ƒ"@A -@ƒ/‹8<‚,Œ8<‚,  *#ƒ%@!@#6•-@4$>JOYSTICK ROUTINE›H6ž-R:,RGG6™-+ž"@)ž"@)ž"@,&+ž"@ )ž"@)ž"@,\GG6š-+ž"@)ž"@ )ž"@,&+ž"@)ž"@)ž"@,f F:B2y,@A p$+€%@$(}X = —Y = ˜z@£-@06£-+F:B2y,@,4 £@+€%@2„$ŽINIT AND OPENING SCREEN›˜dd‹9@<@,Œ9@<@,„9@<@,…9@<@,Ÿ9@<@,¢++‡9@<@,ˆ9@<@,¬#6¢-@ A#+@¶ +AR@À&-@&( Ê&-@@&( | ÐÏÌÙÍÏÖÅ |Ô&-@@&( Þ,-@@,(by Robert Geddingsè( ( ((òT+(#Each Polygon that you create shouldT($have 8 points, which you select withü( the joystick.*(*(You can have up to 10 polygons.#(How many do you want: #‰2-@@2(Graphics mode? (3/5/7/8$¢(/15.() €8XF(+€"@)€"@)€"@)€"@)+¢"@*€"@,,N(œýX APB'€"@6‘-@9'6“-@#L'€"@6‘-@y'6“-@GV'€"@6‘-AY'6“-@•`'€"@6‘-A'6“-A‘j'€"@6‘-AY'6“-A‘t6€-€%@$~LOOP/SINGLE PLAYBACK›ˆ +AR@’$-@@$( œ$-@@$( | ÓÅÌÅÃÔ |¦$-@@$( °( ( ((º( 1) CONTINOUS LOOPÄ(Î( 2) SINGLE LOOPØ ( ( (â($(Enter Number of selection: (ì?"@!-@@"?(ÐÒÅÓÓ ÂÕÔÔÏΠÔÏ ÅØÉÔ ÌÏÏÐöŽ-@A Ž @` AGAIN AND IF SO, HOW SO› +AR@$-@@$( ($-@@$( | ÓÅÌÅÃÔ |2$-@@$( <( ( ((F*'( 1) Do again, Same polygons*(P/,($ 2) Do again, Different polygons/(Z( 3) Quitd.( (*(Enter Number of selection: .nAApA€x A‚†-@‰ŒŠ-@@–#6„8Š<†,-‹8Š<†,#6…8Š<†,-Œ8Š<†,  Šª †´ A`¾%ÈARÒ#6¢- B# A P€D1:POLYMOVE.BAS