probleme avec line(

voici mon code ! : ( un peu long je dois l'avouer x) )
- Code: Select all
ClrDraw
ClrHome
0→K
0→A
0→B
0→C
0→D
4→E
8→F
0→P
Output(E,F,":
While 1
Output(1,1," "
Output(1,3," "
Output(1,2,P
Output(2,1," "
Output(2,3," "
Output(2,4," "
Output(2,2,A
Output(3,1," "
Output(3,3," "
Output(3,4," "
Output(3,2,B
getKey→K
If K=26
Then
P+1→P
A+6→A
C+6→C
Output(E,F," "
F+1→F
Output(E,F,":
End
If K=24
Then
P-1→P
A-6→A
C-6→C
Output(E,F," "
F-1→F
Output(E,F,":
End
If K=25
Then
B+12→B:D+12→D
Output(E,F," "
E-1→E
Output(E,F,":
End
If K=34
Then
B-12→B
D-12→D
Output(E,F," "
E+1→E
Output(E,F,":
End
If K=45
Then
Line(A,B,C,D,0)
End
If K=83
Then
Line(A,B,A,B
Pause
End
If K=82
Then
Line(A,B,A-6,B
End
If K=84
Then
Line(A,B,A+6,B
End
If K=73
Then
Line(A,B,A,B+12
End
If K=93
Then
Line(A,B,A,B-12
End
End