0 Members and 2 Guests are viewing this topic.
ClrHomeClrDrawDiagnosticOff'DOWN[3C245A42A5A55A663C245A42A5A55E603C245A42A5A55A663C245A42A5A57A06→Pic1'RIGHT[3824445858582838382444586C6894EC3824445858582838382444585C4894EC→Pic2'LEFT[1C24221A1A1A141C1C24221A361629371C24221A1A1A141C1C24221A3A122937→Pic3'UP[3C244242A5A55A663C244242A5A55E603C244242A5A55A663C244242A5A57A06→Pic41→A1→B0→XPt-On(A,B,Pic1While getKey(15)=0[b]If getKey=1 and getKey(1)≠1:Pt-On(A,B,Pic1)EndIf getKey=2 and getKey(2)≠1:Pt-On(A,B,Pic2)EndIf getKey=3 and getKey(3)≠1:Pt-On(A,B,Pic3)EndIf getKey=4 and getKey(4)≠1:Pt-On(A,B,Pic4)End[/b]Pause 100DispGraphX+1→XIf X=20:0→XEndIf getKey(1)=1B+1→BClrDrawPt-On(A,B,X/5*8+Pic1EndIf getKey(2)=1A-1→AClrDrawPt-On(A,B,X/5*8+Pic3EndIf getKey(3)=1A+1→AClrDrawPt-On(A,B,X/5*8+Pic2EndIf getKey(4)=1B-1→BClrDrawPt-On(A,B,X/5*8+Pic4EndEnd