TRISA=%11111111
TRISB=%00011111
PORTA=0
PORTB=0
SYMBOL MOTOR1SAG=TRISB.4
SYMBOL MOTOR1SOL=TRISB.5
SYMBOL MOTOR2SAG=TRISB.6
SYMBOL MOTOR2SOL=TRISB.7
SYMBOL SW1=TRISB.3
SYMBOL SW2=TRISB.2
SYMBOL SW3=TRISB.1
SYMBOL SW4=TRISB.0
SYMBOL ARTIR=TRISA.5
SYMBOL AZALT=TRISA.6
i VAR Byte
A VAR Byte
B VAR BYTE
C VAR BYTE
DISPLAY1 VAR BYTE
DISPLAY2 VAR BYTE
i=0
BASLA:
IF SW1!=0 THEN
MOTOR1SAG=1
PAUSE(3000)
ELSE
MOTOR1SAG=0
PAUSE(3000)
ENDIF
DEVAM:
IF ARTIR=0 THEN
i=i+1
PAUSE(150)
ENDIF
IF AZALT=0 THEN
i=i-1
PAUSE(150)
ENDIF
PAUSE(1000)
YEMLEBASLA:
For B = 0 to i
for a = 0 to 60
for C = 0 TO 60
pause(1000)
if ARTIR=0 AND AZALT=0 THEN
GOTO DEVAM
ENDIF
NEXT C
NEXT A
NEXT B
pause(1)
MOTOR1SAG=1
IF SW1=0 then
PAUSE(3000)
MOTOR1SOL=1
if SW2=0 then
pause(100)
endif
ENDIF
pause(100)
MOTOR2SAG=1
IF SW3=0 THEN
PAUSE(3000)
MOTOR2SOL=1
if SW4=0 then
pause(100)
endif
ENDIF
GOTO DEVAM
end