THE PROGRAM FOR ABOVE DEMONSTRATION KIT

  

    1 MODE 20: GCOL 3
    2 COLOUR 26: PRINT TAB(1,10); "Press Key to activate:"
    3 COLOUR 7: PRINT TAB(1,14); "S= RESTART TEST"
    4 PRINT TAB(1,16); "H= ACTIVATE SOLENOID"
    5 PRINT TAB(1,18); "F & ->= ACTIVATE MOTOR"
    6 PRINT TAB(1,20); "L= RUN LED LEFT"
    7 PRINT TAB(1,22); "R= RUN LED RIGHT"
    8 PRINT TAB(1,24); "1-8= INDIVIDUAL LED"
    9 PRINT TAB(1,26); "O= TO SWITCH 'OFF' LEDs"
   10 PRINT TAB(1,28); "SPACEBAR= TO DEACTIVATE MOTOR OR SOLENOID"
   11 PRINT TAB(1,30); "A= TO INCREASE MOTOR SPEED"
   12 PRINT TAB(1,32); "Z= TO DECREASE MOTOR SPEED"
   14 PRINT TAB(1,34); "W= TO OUTPUT PWM SIGNAL ON GPIO 18"
   20
   30 COLOUR 18: PRINT TAB(1,1); "Raspberry Pi Demonstration Kit"
   40
   50 COLOUR 12: PRINT TAB(36,1); "BUILT & PROGRAMMED BY: Rolly Estomaguio"
   60
   70 REM Programmed on: 12 May 2014
   80
   90 COLOUR 31: PRINT TAB(42,3); "http://www.kits-gadgets.com"
  100
  110 ON ERROR PRINT REPORT$;" at line ";ERL:END
  120 PROCinit
  130 COLOUR 10: PRINT TAB(1,50); "Press Escape to finish": OFF
  140
  150   FOR Loop% = 1 TO 4
  160
  170   FOR J% = 0 TO 8
  180  
  185  FOR Loop% = 1 TO 4
  190  SYS "GPIO_WriteData",A%(J%),1
  200
  210   NEXT
  220
  230   TIME=0:REPEAT UNTIL TIME > 50
  240
  250   FOR J% = 0 TO 8
  260
  270     SYS "GPIO_WriteData",A%(J%),0
  280
  290   NEXT
  300
  310   TIME=0: REPEAT UNTIL TIME >30
  320
  330 NEXT
  340
  350 FOR I%=1 TO 4
  360
  370   FOR J%= 0 TO 8
  380
  390     SYS "GPIO_WriteData",A%(J%),1
  400
  410     TIME=0:REPEAT UNTIL TIME>5
  420
  430     SYS"GPIO_WriteData",A%(J%),0
  440
  450   NEXT
  460 NEXT
  470   FOR J%= 8 TO 0 STEP-1
  480
  490     SYS "GPIO_WriteData",A%(J%),1
  500
  510     TIME=0:REPEAT UNTIL TIME>5
  520
  530    SYS"GPIO_WriteData",A%(J%),0
  540
  550   NEXT
  560
  570
  580
  590 FOR I%=1 TO 4
  600
  610   FOR J%= 0 TO 8
  620
  630     SYS "GPIO_WriteData",A%(J%),1
  640
  650     TIME=0:REPEAT UNTIL TIME>1
  660
  670     SYS"GPIO_WriteData",A%(J%),0
  680
  690   NEXT
  700
  710 NEXT
  720
  730   FOR J%= 8 TO 0 STEP-1
  740
  750     SYS "GPIO_WriteData",A%(J%),1
  760
  770     TIME=0:REPEAT UNTIL TIME>1
  780
  790     SYS"GPIO_WriteData",A%(J%),0
  800
  810   NEXT
  820
  830 REM FOR I%=1 TO 20
  840
  850   FOR J%= 0 TO 8
  860
  870     SYS "GPIO_WriteData",A%(J%),1
  880
  890     FOR T%=1 TO 100000:NEXT
  900
  910     SYS"GPIO_WriteData",A%(J%),0
  920
  930   NEXT
  940
  950   FOR J%= 8 TO 0 STEP-1
  960
  970     SYS "GPIO_WriteData",A%(J%),1
  980
  990     FOR T%=1 TO 100000:NEXT
 1000
 1010     SYS"GPIO_WriteData",A%(J%),0
 1020
 1030   NEXT
 1040
 1050
 1060
 1070
 1080 PROC_switch
 1090
 1100 DEFPROCinit
 1110
 1120 OSCLI"RMEnsure GPIO 0.00 RMLoad GPIO"
 1130
 1140 OSCLI"RMensure GPIO 0.40 ERROR Please install the GPIO module"
 1150 SYS"GPIO_EnableI2C",0
 1160 SYS"GPIO_ExpAsGPIO",2
 1170 SYS"GPIO_GetBoard" TO PiType%
 1180
 1190 DIM A%(30)
 1200 IF PiType%=12 A%()= 3,4,17,27,22,10,9,11,7,8,25,23,15,14,24,28,29,30,31,2,18
 1204 
 1210 
 1220  ENDPROC
 1225 REPEAT
 1230 DEFPROC_switch
 1240 REM INPUT 1,2,3,4,10,11,12,13 FOR 8 LEDSs
 1250 L$= GET$: OFF : REM ORIGINALLY LINE 220
 1260 REM FOR R%= 1 TO 8: REM FOR INDIVIDUAL LED TO PRESS "X"
 1270 IF L$= "1" THEN N% = 1
 1280 IF L$= "2" THEN N% = 2
 1290 IF L$= "3" THEN N% = 3
 1300 IF L$= "4" THEN N% = 4
 1310 IF L$= "5" THEN N% = 5
 1320 IF L$= "6" THEN N% = 6
 1330 IF L$= "7" THEN N% = 7
 1340 IF L$= "8" THEN N% = 8
 1350 IF L$= "R" OR L$= "r" THEN PROC_rightmov
 1360 IF L$= "L" OR L$= "l" THEN PROC_leftmov
 1370 IF L$= "O" OR L$= "o" THEN PROC_off_led
 1380 IF L$= "W" OR L$= "w" THEN PROC_wave_pwm
 1390 IF L$= "F" OR L$= "f" THEN PROC_pwm_motor
 1400 IF L$= "H" OR L$= "h" THEN PROC_sol
 1410 IF L$= "Q" OR L$= "q" THEN QUIT
 1420 IF L$= "S" OR L$= "s" THEN RUN
 1430 IF L$= "E" OR L$= "e" THEN N% = 11
 1432 IF L$= "D" OR L$= "d" THEN PROC_p5_test
 1234 REM P5 PIN 5= GPIO 30
 1440  SYS "GPIO_WriteData",A%(N%),1
 1450
 1460
 1470
 1480
 1490 PROC_switch
 1500
 1510
 1520 DEFPROC_off_led
 1530 FOR E%= 1 TO 17
 1540 SYS "GPIO_WriteData",A%(E%),0
 1550  NEXT
 1560 PROC_switch
 1570 DEFPROC_rightmov
 1580 FOR R%= 1 TO 8
 1590 SYS "GPIO_WriteData",A%(R%),1
 1600 FOR D%= 1 TO 1000000: NEXT
 1610 NEXT
 1620
 1630 PROC_switch
 1640 DEFPROC_leftmov
 1650 FOR L%= 8 TO 1 STEP -1
 1660 SYS "GPIO_WriteData",A%(L%),1
 1670 FOR D%= 1 TO 1000000: NEXT
 1680 NEXT
 1690
 1700 PROC_switch
 1710 DEFPROC_pwm_motor
 1720 SYS "GPIO_WriteData",18,1
 1730 SYS "GPIO_ReadData",8 TO J%: IF J%= 1 THEN PROC_motor_stop
 1740 S%= 450000
 1750
 1760  FOR D%= 1 TO 30000: NEXT
 1770 G%= INKEY (1)
 1780 IF INKEY (-99) THEN 1900: REM RESET MOTOR TO LOW
 1790 IF INKEY (-122) THEN SYS "GPIO_WriteData",15,0: SYS "GPIO_WriteData",14,1
 1800 IF INKEY (-26) THEN SYS "GPIO_WriteData",14,0: SYS "GPIO_WriteData",15,1
 1810 IF INKEY (-42) OR INKEY (-98) THEN S%=S% + 450000 : REM ARROW DWN DOWN SPEED
 1820 IF INKEY (-58) OR INKEY (-66) THEN S%=S% - 550000 : REM ARROW UP UP  SPEED
 1830
 1840 SYS "GPIO_WriteData",18,0
 1850 FOR D%= 1 TO S%: NEXT
 1860 SYS "GPIO_WriteData",18,0: REM THIS TO DELAY MOTOR CW AND CCW
 1870 FOR N%=1 TO 100000: NEXT
 1880 PROC_pwm_motor
 1890
 1900 SYS "GPIO_WriteData",15,0
 1910 SYS "GPIO_WriteData",14,0
 1920 PROC_switch
 1930
 1940 DEFPROC_sol
 1950
 1960 SYS "GPIO_ReadData",25 TO E%: FOR D%= 1 TO 50000: NEXT: IF E%= 1 THEN PROC_sol_stop
 1970  K%= INKEY (1)
 1980
 1990 SYS "GPIO_WriteData",24,1: SYS "GPIO_WriteData",23,0
 1995
 2000
 2010 SYS "GPIO_WriteData",23,1: SYS "GPIO_WriteData",24,0
 2015
 2020 IF INKEY (-99) THEN SYS "GPIO_WriteData",24,0: SYS "GPIO_WriteData",23,0: PROC_switch
 2030 FOR D%= 1 TO 1500000: NEXT
 2040   SYS "GPIO_WriteData",24,0
 2050   SYS "GPIO_WriteData",23,0
 2060 FOR D%= 1 TO 1000000: NEXT
 2070 PROC_sol
 2080 PROC_switch
 2090 DEFPROC_wave_pwm
 2100 F$= GET$: OFF
 2110 IF F$= "A" THEN T%= 2700
 2120 IF F$= "B" THEN T%= 3700
 2130 IF F$= "1" THEN T%= 47000
 2140 IF F$= "2" THEN T%= 50000
 2150 IF F$= "3" THEN T%= 57000
 2160 IF F$= "4" THEN T%= 60000
 2170 IF F$= "5" THEN T%= 67000
 2180 IF F$= "6" THEN T%= 70000
 2190 IF F$= "7" THEN T%= 77000
 2200 IF F$= "8" THEN T%= 80000
 2210 SYS "GPIO_WriteData",18,1
 2220 FOR D%= 1 TO T%: NEXT
 2230 SYS "GPIO_WriteData",18,0
 2240
 2250 W%= INKEY (1)
 2260 IF INKEY (-99) THEN SYS "GPIO_WriteData",18,0: PROC_switch
 2270
 2280 SYS "GPIO_WriteData",18,1
 2290 FOR D%= 1 TO T%: NEXT
 2300 PROC_wave_pwm
 2310
 2320 DEFPROC_sine
 2320 SYS "GPIO_WriteData",1,1
 2330 FOR D%= 1 TO T%: NEXT : REM THIS DELAY IS FOR PULSE WIDTH, THE VALUE CREATED A SYMMETRICAL 100HZ SQUARE WAVE WITH JITTER OF ABOUT 200 MICRO SECOND
 2340 SYS "GPIO_WriteData",18,0
 2350
 2360 W%= INKEY (1)
 2370 IF INKEY (-99) THEN SYS "GPIO_WriteData",18,0 : PROC_switch
 2380
 2390
 4000 DEFPROC_motor_stop
 4010 SYS "GPIO_WriteData",18,0
 4020 SYS "GPIO_ReadData",8 TO E%: IF E%= 1 THEN 4000
 4030 FOR D%= 1 TO 500000: NEXT
 4040 PROC_pwm_motor
 4050 DEFPROC_sol_stop
 4060 SYS "GPIO_WriteData",23,0
 4070 SYS "GPIO_WriteData",24,0
 4080 FOR D%= 1 TO 5000000: NEXT
 4090 PROC_sol
 4100
 5000 DEFPROC_p5_test : REM THIS MAY NOT WORK YET.
 5010
 5020 SYS "GPIO_WriteData",28,1
 5022 SYS "GPIO_WriteData",29,1
 5024 SYS "GPIO_WriteData",30,1
 5026 SYS "GPIO_WriteData",31,1
 5030 FOR D%= 1 TO 500000: NEXT
 5040 M%= INKEY (1)
 5050 IF INKEY (-99) THEN PROC_switch
 5060 GOTO 5000

NOTE: 

Line numbers without commands are relics of modifications and can be excluded or you can entirely remove all the line numbers but no guarantee that it will work without a glitch. Send me an email for an updated version at  kits@kits-gadgets.com.