A MarketPlace of Ideas

The following story was related to me by a person who has worked as a teacher in both the Arizona and the California prison systems.

Arizona - Most people who are in the Arizona system should not be there.  They are pot smokers and dealers by and large.  Offenses by and large harmless.

California - Every one in the California prisons belongs there.

Strange but the liberal state has more true sociopathic crooks.  Who would have thought ?  DUH!

‘*******************************************************
‘        Declarations for trajectory module
‘*******************************************************

‘——-file operation variables——————-

  Public TextChanged As Boolean
  Public FileName As String
  Public LogFileName As String
  Public OldProfileName As String
 
  ‘—Log File Type Declaration—
  Private Type Log_Entry
    Time_Point As String * 9
    Set_Point_Temp As String * 5
    Actual_Point_Temp As String * 5
    CRLF As String * 2
  End Type

‘——–software state variables——————

  Public BootUp_Flag As Boolean
  Public Profile_Run_Flag As Boolean
  Public Profile_AutoLoad_Flag As Boolean      ‘Flags to signal AutoLoad at startup
  Public Logfile_AutoLoad_Flag As Boolean
  Public Valid_Profile_Loaded As Boolean       ‘used to prevent run if valid profile not loaded yet
  Public CommPortNumber As Integer
 
‘——–Control state variables——————–

  Public Elapsed_Time_Interval As Double                 ‘–update:during CI,manual update
 
  Public Twait As Double                                 ‘Delay time until Temp catches up

 
  Public Base_Elapsed_Time As Double                     ‘–tracks Elapsed except during control updates
  Public Toggle_Start_Time As Variant                    ‘–records when CI is toggled on
  Public Previous_Elapsed_Time_Interval As Double        ‘–tracks elapsed except during manual updates
  Public New_Elapsed_Time_Interval As Double             ‘–use for input, if valid=>elapsed
  Public Time_Update_Flag As Boolean
  Public Current_Segment As Byte
  Public Desired_Temperature As Integer
  Public Thermocouple_Temperature_1 As Integer
  Public Process_Setpoint_Readback_1 As Integer

‘———- Display State Variables —————-
  Public Email_Destination As String
  
  Dim Display_WorkSheet() As Variant                    ‘–grid state params
  Public Run_Profile_String As String
  Private DisplayRowCount As Long                        ‘–number rows in traj. disp. grid
         
     ‘—translated profile segment arrays
  Dim Segment_Number(1 To 256) As Integer
  Dim Start_Time(1 To 256) As Double                    ‘–all times dbl (except var for datediff func )
  Dim End_Time(1 To 256) As Double
  Dim Interval_Start_Temperature(1 To 256) As Double    ‘–temps dbl to cover RTD dec pt.
  Dim Interval_Final_Temperature(1 To 256) As Double
  Dim Temperature_Tolerance(1 To 256)   As Double
  Dim SegmentCMD(1 To 256) As String
  Dim SegmentDoneFlag(1 To 256)  As Boolean                          ‘Waiting done flag ?
 
     ‘—profile parameters
  Public Profile_Line_Count As Byte
  Public Profile_Max_Time As Double
  
  Public Timer_Interrupt_Count As Byte
 
 
  Public Serial_Receive_Data As String
 
 
 
  ‘—-PID controller state variables
  Public PF_Input_Type As String
  Public RunProfile_TempScale As String
  Public RunProfile_TimeScale As String
 
  Dim DisplayChartValues() As Double                     ‘–dynamically sized array
 
  Public Traj_DebugFlag_Not As Boolean
 

‘*******************************************************
Private Sub form_load()
‘*******************************************************

Dim Filter As String
Dim newcnt As Integer

Traj_DebugFlag_Not = True       ‘————–SHIPPABLE HAS THIS SET=TRUE———————-

If Traj_DebugFlag_Not = True Then On Error Resume Next

           ‘———–Pop Up Product registration form————
    Do While Not IsRegistered()                      ‘Check program registration
                                                     ‘If Not registered
    frmRegistration.Show vbModal                     ‘     show registration form
        If ExitApp Then
            Unload Me                                ‘The user canceled. Exit Application
            Exit Sub
        End If
    Loop
           ‘———–end of added registration form code
          
          
       
  ‘——————–chart inits———————
   ProfileChart.chartType = VtChChartType2dXY
   ProfileChart.Plot.UniformAxis = False            ‘–de-couples x-y axii so plots square
   ReDim DisplayChartValues(1 To 10, 1 To 2)
   For i = 1 To 10                                  ‘–zero out chart to elim random fill
      DisplayChartValues(i, 1) = i
      DisplayChartValues(i, 2) = 0
   Next i
   ProfileChart.ChartData = DisplayChartValues
   ProfileChart.Plot.UniformAxis = False            ‘–de-couples x-y axii so plots square

BootUp_Flag = True                                     ’set true upon startup, set false when init done

‘————-Elapsed Time Preset————–
Elapsed_Time_Interval = 0                              ‘–init all Intervals=0
Base_Elapsed_Time = 0
Previous_Elapsed_Time_Interval = 0
Elapsed_Time.Text = CStr(Elapsed_Time_Interval)
Time_Update_Flag = False

CommPortNumber = 1                                     ‘failsafe CommPortNumber
Current_Segment = 1

Profile_Line_Count = 0
Profile_Max_Time = 0
Twait = 0

Profile_Run_Flag = False
Valid_Profile_Loaded = False

‘—initialize AutoLoad Flags
Profile_AutoLoad_Flag = False
Logfile_AutoLoad_Flag = False

TextChanged = False

Filter = "Text files (*.txt) | *.txt"                  ‘Load filters into common dialog box
Filter = Filter & "|All files (*.*) | *.*"
CommonDialog3.Filter = Filter

Traj_form.WindowState = 2

‘————————————————
‘— Load Instrumentation Setup From DiskFile —
‘————————————————
‘flag : use last log file time point as start ?  GOAL = easy reboot and restart !
‘     : Last profile used ?
‘     : append to log file ?
   ‘– unconditional recall
‘Email_Destination
‘Email enable/disable state
‘Temp Error limit
‘Update Setup File Anytime ANY of the setup parameters change

            ‘————————-
            ‘—Grid SetUp and Init—
            ‘—Setup Grid         —
            ‘————————-

ReDim Display_WorkSheet(0 To 255, 0 To 9)
DisplayRowCount = 256

    RunProfile_FlexGrid.FixedCols = 0
    RunProfile_FlexGrid.Cols = 10
    RunProfile_FlexGrid.FixedRows = 1
    RunProfile_FlexGrid.Rows = 256

        ‘—-Size the columns in the grid—-
    For i = 0 To RunProfile_FlexGrid.Cols - 1
       RunProfile_FlexGrid.ColWidth(i) = 1058
       RunProfile_FlexGrid.ColAlignment(i) = flexAlignRightCenter
    Next i
   
        ‘—-Initialize the Profile Headers—-
    RunProfile_FlexGrid.TextMatrix(0, 0) = "Seg"
    RunProfile_FlexGrid.TextMatrix(0, 1) = "Start Time"
    RunProfile_FlexGrid.TextMatrix(0, 2) = "Duration"
    RunProfile_FlexGrid.TextMatrix(0, 3) = "Action"
    RunProfile_FlexGrid.TextMatrix(0, 4) = "Start Temp"
    RunProfile_FlexGrid.TextMatrix(0, 5) = "End Temp"
    RunProfile_FlexGrid.TextMatrix(0, 6) = "Ramp Rate"
    RunProfile_FlexGrid.TextMatrix(0, 7) = "Error Limits"
    RunProfile_FlexGrid.TextMatrix(0, 8) = "Command"
    RunProfile_FlexGrid.TextMatrix(0, 9) = "Notify= t,T"

‘—————————-end of grid init’s———————————————-
 
Unit_Addr = 1

Timer_Interrupt_Count = 0

Display "SKC copyright 2008 Embeddedrf.com" & vbCrLf
     
Recall_Setup                    ‘  recall setup from hard drive
BootUp_Flag = False             ‘  set to indicate bootup COMPLETE
Serial_Port.Show                ‘–force phantom form load to initialize comm port
Serial_Port.Visible = False     ‘–user does not see this form

Serial_Port.Ram_Only_Mode (Unit_Addr)               ‘–assure ram only mode to prevent NV RAM overuse and early death

PollingModeSet "monitor"        ‘–monitor setpoint and actual temp when not running profile
Monitor_Interval_Timer

Exit Sub

GEHandler:                      ‘Generic Error Handler added to routines covers all errors                               ‘Before customization of routines
  Resume Next                   ‘Ignores error and prevents program shutdown
End Sub

The president can veto the renewal of the OCS drilling ban.  He should do this.  Shut down the government over this.  The unDemocrats appeared squeemish over this issue but I did not realize this was part of the dynamic. 

President Bush should veto for the following reasons:

• vast majority of voters want it
• will not take away campaign issue for McCain - People will see we need DIVIDED government !  ( presidency governed by party opposite congress
• Best of all ?  — we get to drill for oil !!  The democrats WILL lose this show down.
•  Futures market will show immediate improvement ( decrease ) in oil futures and speculation
• Barrack Obama ( B.O. ) has already signaled comprimise on this issue.  If enacted his global warming lunatic adherents will consider him a traitor and be less likely to turn out to vote.  These people are truly nuts with the fervor of religious zealots.  Its easy to make the depressed as they "the depressed"

Below is exerpted from here.

On September 30 — two months from [yesterday] — the ban on fossil-fuel drilling off America’s Outer Continental Shelf (OCS) and in the oil-shale fields of the West will expire. Democrats, who control both houses of Congress, must pass an appropriations bill extending the bans," David Freddoso writes at National Review Online (www.nationalreview.com).

"The onus, in other words, is on them. Democrats will likely propose a continuing resolution to extend funding for the government through the end of the calendar year without making major changes. This bill will certainly include a continuation of the drilling ban • Speaker Nancy Pelosi (D., Calif.), a zealous opponent of offshore drilling since the 1980s, has resisted all attempts to change it," Mr. Freddoso said.

"Democrats are sufficiently committed to maintaining the ban that they could even be willing to force a government shutdown in September, or dare the Republicans to force one. But if Republicans are equally committed to increasing the domestic-energy supply, and President Bush is willing to use his veto pen, they have a golden opportunity.

"This is the message of Sen. Jim DeMint (R., S.C.), who is urging the president and his congressional colleagues to take a risk and fight for drilling here at home. ‘If President Bush wants a domestic legacy, it has to be on this issue,’ DeMint told National Review Online Tuesday. ‘This is the final few seconds of the game as far as his administration goes, and we’re down seven points. We can’t just keep running up the middle. It’s time to throw the Hail Mary.’"