Basic Stamp Activity Board Interface.
Martin Hebel
SelmaWare Solutions.
3/13/02








INIT:

' Disable New Plot Macro Startup
!RSET
!NPSU OFF
' Start a new plot
!NEWP
!MACR .OBJECTS
' Use binary checksum
!CSUM ON
' Set Queue size
!QSIZ 3624
' Set analog span
!SPAN  0, 6000
' Set max time
!TMAX 120
' Stop at max time
!MAXT
' Shift left at max
!SHFT ON
' Title plot
!TITL Basic Stamp Activity Board Interface
' Flush old data
!FLSH ON
' Set display information
!DISP D9 G2 A0 S0 B15 R
!PLOT ON
ENDMAC

OBJECTS:
!POBJ Clear
!PPER 75,75
!POBJ oBack=7

'   O11 -- OIMGBUT *****
!POBJ oImgBut.O11=34.,17.,7.,11.,comp\switch_1.jpg,0,comp\switch_0.jpg,0
!POBJ O11.V=0

'   O10 -- OIMGBUT *****
!POBJ oImgBut.O10=45.,17.,7.,11.,comp\switch_1.jpg,0,comp\switch_0.jpg,0
!POBJ O10.V=0

'   O9 -- OIMGBUT *****
!POBJ oImgBut.O9=56.,17.,7.,11.,comp\switch_1.jpg,0,comp\switch_0.jpg,1
!POBJ O9.V=0

'   O8 -- OIMGBUT *****
!POBJ oImgBut.O8=67.,17.,7.,11.,comp\switch_1.jpg,0,comp\switch_0.jpg,0
!POBJ O8.V=0

'   I11 -- OIMGBUT *****
!POBJ oImgBut.I11=34.,17.,7.,12.,comp\led_red_1.jpg,1,comp\led_red_0.jpg,1
!POBJ I11.U=(BIT3)

'   I10 -- OIMGBUT *****
!POBJ oImgBut.I10=45.,17.,7.,12.,comp\led_red_1.jpg,1,comp\led_red_0.jpg,1
!POBJ I10.U=(BIT2)

'   I9 -- OIMGBUT *****
!POBJ oImgBut.I9=56.,17.,7.,12.,comp\led_red_1.jpg,1,comp\led_red_0.jpg,1
!POBJ I9.U=(BIT1)

'   I8 -- OIMGBUT *****
!POBJ oImgBut.I8=67.,17.,7.,12.,comp\led_red_1.jpg,1,comp\led_red_0.jpg,1
!POBJ I8.U=(BIT0)

'   C11 -- OCHECK *****
!POBJ oCheck.C11=33.,6.,15.,5.,Output,0,,0,10
'-- Event Code
!POBJ C11.C=!POBJ o11.V=((ME))(;)
!POBJ i11.V=[((ME))']


'   C10 -- OCHECK *****
!POBJ oCheck.C10=44.,6.,15.,5.,Output,0,,0,10
'-- Event Code
!POBJ C10.C=!POBJ o10.V=((ME))(;)
!POBJ i10.V=[((ME))']


'   C9 -- OCHECK *****
!POBJ oCheck.C9=55.,6.,15.,5.,Output,0,,0,10
'-- Event Code
!POBJ C9.C=!POBJ o9.V=((ME))(;)
!POBJ i9.V=[((ME))']


'   C8 -- OCHECK *****
!POBJ oCheck.C8=66.,6.,15.,5.,Output,0,,0,10
'-- Event Code
!POBJ C8.C=!POBJ o8.V=((ME))(;)
!POBJ i8.V=[((ME))']


'   DB_Arrival -- OBUTTON *****
!POBJ oButton.DB_Arrival=84.,13.,10.,5.,DB_ARRIVAL,8
!POBJ DB_Arrival.V=0
'-- Event Code
!POBJ DB_Arrival.C=!POBJ Update


'   Obj14 -- OLABEL *****
!POBJ oLabel.Obj14=35.,22.,5.,5.,P11,,0,12,0
!POBJ Obj14.F=Arial,12,1,0

'   Obj15 -- OLABEL *****
!POBJ oLabel.Obj15=46.,22.,5.,5.,P10,,0,12,0
!POBJ Obj15.F=Arial,12,1,0

'   Obj16 -- OLABEL *****
!POBJ oLabel.Obj16=57.,22.,5.,5.,P9,,0,12,0
!POBJ Obj16.F=Arial,12,1,0

'   Obj17 -- OLABEL *****
!POBJ oLabel.Obj17=68.,22.,5.,5.,P8,,0,12,0
!POBJ Obj17.F=Arial,12,1,0

'   Dur -- OHSLIDER *****
!POBJ oHSlider.Dur=79.,77.,20.,7.,0,2000,368

'   Obj20 -- OLABEL *****
!POBJ oLabel.Obj20=80.,97.,16.,6.,P11 Frequency,,0,12,0
!POBJ Obj20.F=Arial,12,1,0

'   Obj22 -- OLABEL *****
!POBJ oLabel.Obj22=80.,81.,17.,5.,Duration (mSec),,0,12,0
!POBJ Obj22.F=Arial,12,1,0

'   mPot -- OGAUGE *****
!POBJ oGauge.mPot=81.,60.,14.,57.,0,6000,0,5374
!POBJ mPot.U=(AINVAL0)
'-- Event Code
!POBJ mPot.C=~PWAV phonebusy.wav(;)



'   Potlbl -- OLABEL *****
!POBJ oLabel.Potlbl=82.,66.,14.,4.,P7 RCTime,,0,12,0
!POBJ Potlbl.F=Arial,12,1,0

'   PotA -- OVSLIDER *****
!POBJ oVSlider.PotA=95.,58.,4.,53.,0,6000,626
!POBJ PotA.tip=Slide to set alarm setpoint
'-- Event Code
!POBJ PotA.C=!POBJ mPOT=,,,,[6000,-,((ME))]


'   Freq -- OHSLIDER *****
!POBJ oHSlider.Freq=79.,93.,20.,7.,0,6000,500

ENDMAC