'**************************************************************** '* Name : UNTITLED.BAS * '* Author : [select VIEW...EDITOR OPTIONS] * '* Notice : Copyright (c) 2011 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 12.11.2011 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** init: TRISA = %11111111 PORTA = %00000000 PORTB = %00000000 TRISB = %00000000 A VAR PORTA.0 B VAR PORTA.1 C VAR PORTA.2 D VAR PORTA.3 X VAR BYTE Y VAR BYTE G VAR BYTE Z VAR BYTE SYMBOL M_1P = PORTB.0 SYMBOL M_1N = PORTB.1 SYMBOL M_2P = PORTB.2 SYMBOL M_2N = PORTB.3 SYMBOL M_3P = PORTB.4 SYMBOL M_3N = PORTB.5 SYMBOL M_4P = PORTB.6 SYMBOL M_4N = PORTB.7 POT A, 255, X POT B, 255, Y MAIN: POT A, 255, X IF X > 0 THEN MAIN1 POT B, 255, Y IF Y > 0 THEN MAIN2 GOTO MAIN MAIN1: M_1P = 1 IF X = 0 THEN MAIN PAUSE X IF X = 0 THEN MAIN M_1P = 0 GOTO MAIN1 MAIN2: M_1N = 1 IF Y = 0 THEN MAIN PAUSE Y IF Y = 0 THEN MAIN M_1N = 0 GOTO MAIN2