* <<<<< PARROT <> ANDY/JIM/GREG >>>>W52,55:54,55:56,55:1300:1340:882:8}65298,192:65299,((65299)3)56(NO(50):XX(TI)20,1:4,1:1,8,5:<520:840FSC0:HI0P1030Z100d3,8,4,6nA14:CA:C:1,C,4:960 xPO0; >>>>>>>>>>> MAIN LOOP <<<<<<<<<<<MN((1)4)1YPOPO1fNO(PO)N1200:X1:Y21:510:"MY TURN"B1PO1140T11000:B11200:X1:Y21:510:"YOUR TURN"1230$LE1A4:1,800,10:1,6,5:1000:T1500::310YRI1A2:1,400,10:1,8,5:1000:T1500::310UP1A1:1,200,10:1,3,5:1000:T1500::310"DN1A3:1,600,10:1,4,5:1000:T1500::310,2506960@NO(B)A330:360$JBPO1200:X1:Y21:510:"WELL DONE,"PO" SO FAR."ETBPOT11500::1200:150T^BB1:250^h1200rX1:Y21:510:"WRONG SEQUENCE"|Y22:510:"AFTER "PO1" MOVEMENTS."T12000:1200Y21:510:"SEQUENCE WAS"T11000:B1PO 11401200<X1:Y21:510:"TRY AGAIN."LT12000:V1200_130x208,X:209,Y:828:530:T0239:A:14848T,A::2,2,2,2,0,7,15,310,0,3,7,7,206,254,255&0,0,224,248,248,124,124,252031,25,16,0,1,2,4,0%:255,63,143,135,7,7,15,31JD252,248,240,240,240,248,252,254gN30,29,61,59,59,59,61,30X255,255,255,255,255,255,255,63b0,128,192,224,240,248,252,254l15,7,0,0,0,28,63,0v199,248,255,63,48,96,248,0255,63,255,255,31,3,0,0$0,128,192,224,240,248,124,3>2,2,2,2,0,30,127,127U0,0,0,0,0,0,0,192j0,0,0,0,0,0,0,70,0,0,0,0,15,127,2550,0,1,31,255,255,255,25428,120,240,224,192,128,0,0255,255,231,231,255,127,31,15240,255,255,255,255,255,143,7,255,255,255,255,255,255,127,28P255,255,255,254,253,243,207,63r252,216,176,96,192,192,128,015,30,30,30,31,30,15,7 3,1,16,96,128,3,7,0227,255,255,31,6,12,255,0 254,252,248,224,0,0,0,0*2,2,2,2,2,2,2,24255,66,36,24,24,36,66,255<> >>>>>>>> INITIALIZE <<<<<<<<<<cHPX(1)20:PX(2)30:PX(3)14:PX(4)6RPY(1)4:PY(2)13:PY(3)15:PY(4)8\U1$(96)(97)(98)" "fU2$(99)(100)(101)" "pU3$(32)(102)(103)(104)" "%zU4$(32)(105)(106)(107)(108)" "GD1$(124)" ": 5 SPACESyD2$(109)(110)(111)(112)(113)(114)D3$(115)(116)(117)(118)(119)(32)D4$(120)(121)(122)(123)" " >>>> PRINT UPRIGHT PARROT <<<<0XPX(A):YPY(A):510:U1$:YPY(A)1:510:U2$\YPY(A)2:510:U3$:YPY(A)3:510:U4$b >>>>> PRINT PARROT DOWN <<<<<<XPX(A):YPY(A):510:D1$:YPY(A)1:510:D2$YPY(A)2:510:D3$:YPY(A)3:510:D4$:  >>>>>>>> DRAW SCREEN <<<<<<<<<31,2,3:Y0:X039:510:(125);:]1,3,5:T13:X20:YT:510:(124):1,8,5:T112:X30:YT:510:(124):$1,4,5:T17:X6:YT:510:(124):.1,7,6:T114:X14:YT:510:(124):8PL$"":T15:PL$PL$(125)::1,2,31BX20:Y8:510:PL$:X30:Y17:510:PL$\LX6:Y12:510:PL$:X14:Y19:510:PL$}VY20:X039:510:(125);:`1,9,4:X17:Y23:510:"PARROT":j >>>>>>>>> MAKE SOUND <<<<<<<<<tNO(B)1A1:1,3,5:1000:1,200,10:T1500:.~NO(B)2A2:1,8,5:1000:1,400,10:T1500:aNO(B)3A3:1,4,5:1000:1,600,10:T1500:NO(B)4A4:1,6,5:1000:1,800,10:T1500:960X0:Y21:510:Z030:" ";:Y22:510:Z130:" ";::KS49DN1LE0:RI0:UP0:DN0:KS(198)'KS10LE17KS13RI1GKS43UP1WKS49DN1]y 65298,196:65299,209:1310:N053:A:828N,A::24,166,209,164,208,32,240,255,96,169,0,133,210,169,12,133,211,32,60,32(164,209,240,8,169,40,32,102,3,136,208,248,165,208,32,102,3,177,210,133j2215,96,24,101,210,133,210,165,211,105,0,133,211,96<1350:N030:A:882N,A::F160,0,132,212,132,214,169,208,133,213,169,56,133,215,162,3 P177,212,145,214,200,208,249,230,213,230,215,202,16,242,96