0 Members and 3 Guests are viewing this topic.
.MOVEDEMO1->A1->BPt-On(1,1,[FF818181999999FF]):DispGraphLbl 1Getkey->CIf C=4ThenA+1->A:Pt-On(A,B,[FF999999818181FF]):DispGraphEndIf C=1ThenA-1->A:Pt-On(A,B,[FF818181999999FF]):DispGraphEndIf C=2ThenB-1->B:Pt-On(A,B,[FF8181F1F18181FF]):DispGraphEndIf C=3ThenB+1->B:Pt-On(A,B,[FF81818F8F8181FF]):DispGraphEndGoto 1
.MOVEDEMO1->A1->B[FF818181999999FF->Pic1Pt-On(1,1,Pic1DispGraphLbl 1If Getkey (4)A+1->A[FF999999818181FF]->Pic2Pt-On(A,B,Pic2DispGraphEnd...
The getkey is wrong!Axe allows multitasking!Code: [Select].MOVEDEMO1->A1->B[FF818181999999FF->Pic1Pt-On(1,1,Pic1DispGraphLbl 1If Getkey (4)A+1->A[FF999999818181FF]->Pic2Pt-On(A,B,Pic2DispGraphEnd...
.MOVEDEMO1->A->B->E->FPt-On(1,1,[FF818181999999FF]):DispGraphRepeat getkey(15) Pt-Off(F,E,[0000000000000000]) A->E B->F Pause 100 Repeat getkey(0) End If getkey(4) A-1->A Pt-Off(B,A,[FF999999818181FF]) End If getkey(1) A+1->A Pt-Off(B,A,[FF818181999999FF]) End If getkey(2) B-1->B Pt-Off(B,A,[FF8181F1F18181FF]) End If getkey(3) B+1->B Pt-Off(B,A,[FF81818F8F8181FF]) End DispGraphEnd