Coordination
- 1 Rem coordination
- 5 X%=SCREENWIDTH(0)/2:Y%=SCREENHEIGHT(0)/2
- 10 CLS:SETCOLOR 50,50,50:FILLRECT 0,0,240,320
- 15 SETCOLOR 250,0,0:PLOT X%,Y%
- 25 IF UP(0) THEN Y%=Y%-1
- 30 IF RIGHT(0) THEN X%=X% 1
- 35 IF DOWN(0) THEN Y%=Y% 1
- 40 IF LEFT(0) THEN X%=X%-1
- 45 DRAWSTRING STR$(X%) "x" STR$(Y%),80,5
- 50 SETCOLOR 0,180,250
- 55 PLOT X% 1,Y% 1:PLOT X% 1,Y%-1:PLOT X%-1,Y%-1:PLOT X%-1,Y% 1
- 60 PLOT X% 3,Y% 3:PLOT X% 3,Y%-3:PLOT X%-3,Y%-3:PLOT X%-3,Y% 3
- 65 PLOT X% 5,Y% 5:PLOT X% 5,Y%-5:PLOT X%-5,Y%-5:PLOT X%-5,Y% 5
- 80 SLEEP 25
- 85 GOTO 10
- 90 Rem created by Bobby
This is a code of programme named Coordination. The code for MB 1.8.4 version. You can change it other versions.
