plusieur problème de programmation
X et Y sont réservé à l'écran graphique donc je me suis pris la t^te pendant plusieures heures avant de comprendre
Pas d'exécution pas à pas
Lenteurs très importantes (2 fois plus lente que la SHARP 9900
Code : Tout sélectionner
AxesOff
ViewWindow 1,127,0,-63,-1,0
Cls
F-Line 50,-1,50,-31
F-Line 126,-1,126,-31
F-Line 51,-31,125,-31
For 1->I To 4
F-Line 51,-I,125,-I
F-Line 51,-6-I,125,-6-I
Next
Text 1,1,"SCORE 0"
0->E
11->G
1->A
G->B
-3->C
2->D
90->F
While E<=200
F+C->F
G+D->G
If (F<51) Or (F>123)
Then -C->C
F+2xC->F
IfEnd
If (G>=31) Or (G=-1)
Then -D->D
B+D->G
IfEnd
If PxlTest(G,F)
Then E+5->E
Text 1,25,E
For 0->I To 2
PxlOff G,F+I
PxlOff G+1,F+I
Next
G-D->G
-D->D
IfEnd
For 0->I To 2
PxlOff B,A+I
PxlOff B+1,A+I
Next
F-Line F,-G,F+2,-G
F-Line F,-G-1,F+2,-G-1
F->A
G->B
EndWhile

