Option Base 0
Option Default None
Option Explicit

SetPin gp0, intl, isr
SetTick 60000, setRedrawFlag

'Declare Drawing variables ++++++++++++++++

Dim integer yRow, xCol, xDash, yDash, xScale, mScaleVal, yScale
Dim integer xProgGraph=50, cGraph, cGraph_old, yGraphAdj=5
Dim float uScaleIndex, uScaleVal=0.096
Dim integer redraw

'Declare Counting variables +++++++++++++++
Dim integer count

CLS

drawAxisGrid()

Sub drawAxisGrid

xProgGraph=50          'Reset Graph x-axis progress pixel to 50

CLS

'Draw dotted Grit -------------------------

For yRow=100 To 300 Step 20 'Draw Rows (300-100=200 -> 200/20 = 10 rows)
 For xCol=50 To 626 Step 24 'Draw Columns (626-50=576 -> 576/24 = 24 columns)
   Line xCol,yRow,xCol,yRow,,RGB(green)
 Next xCol
Next yRow

'Draw solid Axis -------------------------

Line 50,300,626,300,,RGB(green) 'Draw X-axis
Line 50,100,50,300,,RGB(green)  'Draw Y-axis

'Draw dashed lines -----------------------

For xDash=50 To 626 Step 24     'Draw dashed X
 Line xDash,297,xDash,305,,RGB(red)
Next xDash

For yDash=100 To 300 Step 20     'Draw dashed Y
 Line 45,yDash,53,yDash,,RGB(red)
Next yDash

'Labels -------------------------------------------
Text 1,70,"uSv/h ",,1,1  'uSv/h
Text 626,305,"t ",,1,1   'Time

For xScale=40 To 626 Step 120
 Text xScale,310,Str$(mScaleVal),,1,1 'Minutes Scale
 mScaleVal=mScaleVal+30
Next xScale
mScaleVal=0 'Reset value for the next trigger

For yScale=295 To 95 Step -20
 Text 1,yScale,Str$(uScaleIndex),,1,1 'uSv/h Scale
 uScaleIndex=uScaleIndex+uScaleVal
Next yScale
uScaleIndex=0 'Reset value for the next trigger

End Sub


'MAIN LOOP #################################################

Do
 If xProgGraph=626 Then  'If End of Scale redraw
   drawAxisGrid()
 EndIf

 If redraw Then         'every minute progress drawing the Graph
   drawGraph()
   redraw = 0
 EndIf

 Text 470,30,Str$(count),,1,1
 Text 160,30,Str$(count * 0.0241),,1,1

Pause 100 'EXTREMLY IMPORTANT WITHOUT, THE LOOP IS SOMEHOW TO FAST TO REACT?!
Loop

'###########################################################


'Draw Graph -----------------------------------

Sub drawGraph
 xProgGraph = xProgGraph + 4

 cGraph = count * yGraphAdj  'Graph enlargement
 Line xProgGraph-4,300-cGraph_old,xProgGraph,300-cGraph,,RGB(green)
 cGraph_old = cGraph

 count = 0
End Sub



Sub isr 'Interrupt Service Routine triggered by Geiger Counter
count = count + 1
End Sub


Sub setRedrawFlag
redraw = 1
End Sub

SETPIN xxx,FIN,60000 (count frequency with a gate time of 60000ms = 60 sec)
PRINT PIN(xx)