Define CONF_WORD = 0x3f10 'stell de pic processor in Define CLOCK_FREQUENCY = 4 'clock frequentie 4 MHZ AllDigital 'zet analoge comperator uit OPTION = 3 'pullup weerstanden aan Config PORTA = Output 'configureer poort a als output Config PORTB = Input 'configureer poort b als input Symbol mcw = PORTA.1 'stel mcw in als poort a1 Symbol cw = PORTA.2 'stel cw in als poort a2 Dim a As Byte 'Maak a variable van 0 tm 255 a = 0 'zet teller op nul mo: WaitMs 300 High cw FreqOut mcw, 800, 300 '- M Low cw WaitMs 100 High cw FreqOut mcw, 800, 300 '- Low cw WaitMs 300 High cw FreqOut mcw, 800, 300 '- O Low cw WaitMs 100 High cw FreqOut mcw, 800, 300 '- Low cw WaitMs 100 High cw FreqOut mcw, 800, 300 '- Low cw WaitMs 700 a = a + 1 If a = 10 Then Goto pa0dfn Goto mo pa0dfn: High cw FreqOut mcw, 1600, 100 '. P Low cw WaitMs 100 High cw FreqOut mcw, 1600, 300 '- Low cw WaitMs 100 High cw FreqOut mcw, 1600, 300 '- Low cw WaitMs 100 High cw FreqOut mcw, 1600, 100 '. Low cw WaitMs 300 High cw FreqOut mcw, 1600, 100 '. A Low cw WaitMs 100 High cw FreqOut mcw, 1600, 300 '- Low cw WaitMs 300 High cw FreqOut mcw, 1600, 300 '- 0 Low cw WaitMs 100 High cw FreqOut mcw, 1600, 300 '- Low cw WaitMs 100 High cw FreqOut mcw, 1600, 300 '- Low cw WaitMs 100 High cw FreqOut mcw, 1600, 300 '- Low cw WaitMs 100 High cw FreqOut mcw, 1600, 300 '- Low cw WaitMs 300 High cw FreqOut mcw, 1600, 300 '- D Low cw WaitMs 100 High cw FreqOut mcw, 1600, 100 '. Low cw WaitMs 100 High cw FreqOut mcw, 1600, 100 '. Low cw WaitMs 300 High cw FreqOut mcw, 1600, 100 '. F Low cw WaitMs 100 High cw FreqOut mcw, 1600, 100 '. Low cw WaitMs 100 High cw FreqOut mcw, 1600, 300 '- Low cw WaitMs 100 High cw FreqOut mcw, 1600, 100 '. Low cw WaitMs 300 High cw FreqOut mcw, 1600, 300 '. N Low cw WaitMs 100 High cw FreqOut mcw, 1600, 100 '- Low cw WaitMs 700 a = 0 Goto mo End