'**************************************************************** '* Name : UNTITLED.BAS * '* Author : [select VIEW...EDITOR OPTIONS] * '* Notice : Copyright (c) 2015 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 26.11.2015 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** Device = 16F628A Declare Xtal 10 Declare All_Digital = On TRISA = %00000001 Dim VAR1 As Byte Symbol SV = PORTB.0 Symbol SV1 = PORTB.2 Symbol PIN = PORTB.4 Symbol PIN1 = PORTA.0 DelayMS 1000 High SV DelayMS 1000 Low SV DelayMS 1000 High SV DelayMS 1000 Low SV DelayMS 1000 High SV DelayMS 1000 Low SV DelayMS 30000 High SV1 DelayMS 1000 Low SV1 main: Low SV1 If PIN1=1 Then GoTo loop GoTo main loop: High SV1 VAR1=0 While VAR1 <= 10 Sound PORTB.4, [35, 20] DelayMS 500 VAR1 = VAR1 + 1 Wend GoTo main