'************************************************************* ' Insectronics: build your own six-legged walking robot ' main-test.bas ' Alternatively flash leds and produce random insect noises ' PicBasic Pro Compiler '************************************************************* led_left var portB.0 ' initialize variables led_right var portB.1 piezo var portB.4 rand var word temp1 var byte start: high led_left ' left LED on low led_right ' right LED off gosub randomize pause 50 low led_left ' left LED off high led_right ' right LED on gosub randomize pause 50 goto start randomize: Random rand ' pick a random number temp1 = rand & 31 + 64 ' Generate Notes [64..95] Sound piezo,[temp1,4] ' Generate Sound return end