CODE |
ec1AxisOff FnOff 1->X:1->Y ->S:->T prgm MAP1 While 1 S+((X-S)=11)(X!=16)-((X-S)=0)(X!=(-54125+)1->S T+((Y-T)=7)(T!=16)-((Y-T)=0)(Y!=(-54125+)1->T real(2,0,S,T,16,16,0,12,0,8,0,0,0,0 real(1,8(X-S),8(Y-T),1,8,0,1,0,0,0,1 Getkey->K If K=45:Return X+(K=26)(X!=15)-(K=24)(X!=->N Y+(K=34)(Y!=15)-(K=25)(Y!=->O If not([A](O+1,N+1 Then N->X:O->Y End End c2 |
QUOTE (stoner_wall_programs @ 14 Nov, 2006, 15:38) | ||
Here: c1-->
ec2 |