320 DEFPROCrubout(x%,y%) 330 *SChoose mun_rubout 340 PLOT 237,x%,y% 350 ENDPROC 360 : 370 DEFPROCleft 380 PROCrubout(xpos%,ypos%) 390 xpos%-=hstep% 400 IFxpos% MOD (hstep%*2)=0 THEN *SChoose mun_left 410 IFxpos% MOD (hstep%*2)<>0 THEN *SChoose mun_left2 420 PLOT 237,xpos%,ypos% 430 ENDPROC 440 : 450 DEFPROCright 460 PROCrubout(xpos%,ypos%) 470 xpos%+=hstep% 480 IFxpos% MOD (hstep%*2)=0 THEN *SChoose mun_right 490 IFxpos% MOD (hstep%*2)<>0 THEN *SChoose mun_right2 500 PLOT 237,xpos%,ypos% 510 ENDPROC 520 : 530 DEFPROCup 540 PROCrubout(xpos%,ypos%) 550 ypos%+=vstep% 560 IFypos% MOD (vstep%*2)=0 THEN *SChoose mun_up 570 IFypos% MOD (vstep%*2)<>0 THEN *SChoose mun_up2 580 PLOT 237,xpos%,ypos% 590 ENDPROC 600 : 610 DEFPROCdown 620 PROCrubout(xpos%,ypos%) 630 ypos%-=vstep% 640 IFypos% MOD (vstep%*2)=0 THEN *SChoose mun_down 650 IFypos% MOD (vstep%*2)<>0 THEN *SChoose mun_down2 660 PLOT 237,xpos%,ypos% 670 ENDPROC