DUPAGPAGDRACURSOFLIDIRSEDLSEMLSEKEYICOLOURSEPMSEDRASAREECOLOURSELECREDISPECTEMPIMGANSCOLINLENGTIOCANIFILPMBASMOVXYUPDOWNCDIRHDIRVAOOSCREENSSCREENSIZSIRSCREENSCSCDUCALLIOSCREENSCREENLMSSCSCDLISLMSA"A#A1A%AA&A0AA A A A AP AA!   'A(ALB 2@2@A@WA@BvHBS p''!@X"@R#,,$@A%*A&'(A)@W*+,A8A-./Bh0@11@2A3BRc45Bi`6B(d7Bge8A(9AD:Bg`;Bgd<d##**** INITIAL CONDITIONS *****iSUBROUTINE LINE NUMBERSk6-A"m6-A#n6-A1o6-A%p6-Aq6-A&r6-A0s6-At6-Av6-Ax6-Az6-A|6-AP~6-A6-A!##*** DIMENSION AND CONSTANTS *&&;@,;@,;@,&&;@,9@,9@,#6-B 2#RAM FOR 3 SCREENS6-@$@x6-@$68@,-@968@,-@N68@,-c68,-@x68@,-6-W68@,-@-68@,-@B68@,-W68,-@ ML ROUTINE SETUP CURSOR IMAGE% %SETUP STICK DIRECTION ARRAY$+@%@$CLEAR SCREEN   DISPLAY LIST CONSTANTS6-A 6-@F CLEAR OTHER SCREENS##**** CONTROLL MODE **********"B2H"CURSOR OUT6-6-'+@%@2'A,,(}()raw ()rase ()ave File''(()olors()lip ()ead File**("()opy Page =Fill =Menu ""( "@"AR@; 4D%+@%@%@2) - 1 ; A"' 4E+@%@' A, 4S  A6+ 4R+@%@! + A@ 4C  A^ 4K  Ah 4F  Ar;#(SORRY, I DON'T UNDERSTAND7-@A;  A ********* PMSET **********46-F:A,&@R&BBy46-AV$'AY@F'B2w@?%A?6-?:C:,<%A<%A<A(,6-&@G6-&@A#@006-?:C:,:@(, SETCOLOR ,8,,8, &-@@P 068,-8,%8R:,,:%%68,-8,%8R:,,$@D!8,!@!68,-N!8, !68,-@X!8,!@!68,-b!8, !68,-@lT:,A@v=%2@d@@9-@@P= %%2 $$$********COLOURSET*************##08,8,##0@8@,8@,##0@8@,8@,##0@8@,8@,$ $$*********** DRAW **************6-&@G6-&@/6-R:,4DT:,"$6-06-D@A >JT:,"$6-26-%@>!@J6-@HR3T:,"*R:,"@A@RRELOOP UNTIL BUTTON RELEASEDR9*A8&@,$@%@9CURSOR COLOR\T:,,aF:Ad,AU c>@!@)6-%@/;6->$f$F:B2y,"@$6-@pm* A*@)-%@5Ae]@@S:mFILL FUNCTIONz<F:B2y, @$<EXIT ,SELECT OR OPTION PRESSED **** MOTION ROUTINE ******2 6-6-%8,,!A&) @G26-0 6-6-%8,*!A) @06-**6-?:C:,@"@)6-%@/;6->$ A$$***SET UP DIRECTION ARRAYS ***9@,9@, #A-@@" 68,-" 68,-$ .$L771,1,1,-1,1,0,0,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0V##********* SAV ***************[((6-?:C:,""******** REDIN *************HA2%%@RA2%%@\A2%%@f00A2%%@&+P:'AV,$AV,p$$A2%%@ P:'AV,zA2%%@A2%%@A(6-?:C:,<,$!!********* DUPAGE **********6-?:C:,<<<,6-?:C:,<<<,$""********* PAGDRAW **********   4 F:B2y,"@A$@4OPIION EXITS MODE 8 F:B2y,@A#08RELOOP UNTIL RELEASED$ 6 @6POINT ANTIC & OS TO NEW SCREEN.  8 F:B2y,"@A$@B F:B2y,@A#pL  @V  ` F:B2y,"@A$@j F:B2y,@A$t  @~ A# $ !!********** FLIP *********** !+@%@%@2!    A%P ;F:B2y,@$;ANY CONSOLE SWITCH EXITS MODE -  A%P-ROTATE HIGH BYTE OF LMS   A%P A% )-@@ )SHORT DELAY $( !!******** DLSET ************2 +@%@2%@< %%6-F:A`,%AV$F:Aa,F 6-%@6-%@P  6-F:,6-F:,Z 6-&@6-&@d 36-AV$%#6-AV$%36-AV$%n 6-A8Ax $ ""********** MLSET *********** #A0 :;@9,$-@@9("667<,.>:,:  %%104,104,133,215,104,133,214,104 %%133,217,104,133,216,104,133,218 ##104,170,160,0,177,214,145,216 ##200,208,4,230,215,230,217,202 208,242,198,218,16,238,96 00UPDOWN$ IS MOSTLY MOV$ WITH A LITTLE ADDED ;@D, #A0P 6. --@9@D")67<,.>:,-  104,104,141,0,208,96 #A0 :;@,$-@@("667<,.>:,:  $ 104,104,104,170,76,86,228! *** SETUP CURSOR IMAGE ***& #A100 --@@")67<,.>:,- : ))0,7,7,14,14,28,28,56,56,112,96,64,0D $ D:ANIMATOR