0 Members and 3 Guests are viewing this topic.
:ClrDraw:28->D:12->O:0->K:Text(-1,D,O,"(pi):While K != 23:4+0i:Asm(prgmPICARC:Text(-1,D,O,"(pi):Repeat K:getkey->K:End:If K=24 or K=25 or K=26 or K=34:Then:Text(-1,D,O," :O-6(K=24 and not(pxl-Test(D+4,O-1))+6(not(pxl-Test(D,O+6)) and not(pxl-Test(D+7,O+6)) and K=26->O:D-7(K=25 and not(pxl-Test(D-1,O)+7(K=34 and not(pxl-Test(D+8,O+1->D:Text(-1,D,O,"(pi):End:End:ClrHome:Output(1,1,"
:ClrDraw:28->D:12->O:0->K:Text(-1,D,O,"(pi):While K != 23:4+0i:Asm(prgmPICARC:Text(-1,D,O,"(pi):Repeat K:getkey->K:End:If K=24 or K=25 or K=26 or K=34:Then:Text(-1,D,O," :O-6(K=24)not(pxl-Test(D+4,O-1))+6not(pxl-Test(D,O+6))not(pxl-Test(D+7,O+6))(K=26->O:D-7(K=25)not(pxl-Test(D-1,O))+7(K=34)not(pxl-Test(D+8,O+1->D:Text(-1,D,O,"(pi):End:End:ClrHome:Output(1,1,"