Code: Select all
10 REM blink.bbc
20 REM Simple blink program in BBC BASIC
30 REM by Richard Russell, http://www.rtrussell.co.uk/
40
50 INSTALL @lib$ + "gpiolib"
60
70 REM Initialise GPIO:
80 gpio% = FN_gpio_setup
90
100 REM Set GPIO pin 7 to output mode:
110 PROC_gpio_inp(gpio%, 7) : REM Must use PROC_gpio_inp() before PROC_gpio_out()
120 PROC_gpio_out(gpio%, 7)
130
140 pin7% = %10000000 : REM Bit mask
150 REPEAT
160 PROC_gpio_set(gpio%, pin7%)
170 WAIT 50 : REM 0.5 seconds
180 PROC_gpio_clr(gpio%, pin7%)
190 WAIT 50
200 UNTIL FALSE
210 END
Code: Select all
10 REM blink.bbc
20 REM Simple blink program in BBC BASIC
30 REM by Richard Russell, http://www.rtrussell.co.uk/
40
50 INSTALL @lib$+"gpiolib"
60
70 REM Initialise GPIO:
80 gpio% = FN_gpio_setup
90
100 [b]REM Set GPIO pin 21 to output mode:[/b]
110 [b]PROC_gpio_inp(gpio%, 21)[/b] : REM Must use PROC_gpio_inp() before PROC_gpio_out()
120 [b]PROC_gpio_out(gpio%, 21)[/b]
130
140 [b]pin25% = 1 << 25 : [/b] REM Bit mask
150 REPEAT
160 [b]PROC_gpio_set(gpio%, pin21%)[/b]
170 WAIT 50 : REM 0.5 seconds
180 [b]PROC_gpio_clr(gpio%, pin21%)[/b]
190 WAIT 50
200 UNTIL FALSE
210 END
On a general note, much of this code looks nothing like the BASIC I learnt years ago - obviously there will be some unfamiliar terms because of making the program talk to the gpio pins of a Linux OS, but there are a lot of symbols that I've never come across before - sorry, you must be getting tired of trying to help such a hopeless case!