'basic loop
Do
   For X = 0 To 64        
      Y = Some_random_value '0-2000        
      Y = Y / 8
      Y = 32 - Y              

      Pset X , Y , 255
Loop
 

Glcdline:
   'Draw a Straight Line on the GLCD, Pixel Coordinates.
   'Use Bresenham's algorithm.
   'On Entry have: (GX1,GY1) and (GX2,GY2)
   'GX1, GX2: Columns: 0-127, Left to Right
   'GY1, GY2: Rows: 0-63, Top Down
   'Supports the Inverse Mode Flag, as does Text.
   'Error Checks for valid location prior to plotting, (within GPixSet).
   'Uses GPixSet
   'Set Pixel Value for subsequent GPixSet routine
   If I = 1 Then
      Pv = 0                                                'Pixel = Off, Inverted
   Else
      Pv = 1                                                'Pixel = On, black on Clear
   End If

   'First look at Delta X & Delta Y, see slope of line, most flat or vert
   Gdx = Gx2 - Gx1
   Gdx = Abs(gdx)
   Gdy = Gy2 - Gy1
   Gdy = Abs(gdy)
   Vert = 0                                                 'Line is mostly horz, Slope < 45 degrees
   If Gdy > Gdx Then
      Vert = 1                                              'Line is mostly vertical, Slope > 45 deg
   End If

   'If line is mostly vertical, swap the coordinates
   If Vert = 1 Then
      Swap Gx1 , Gy1
      Swap Gx2 , Gy2
   End If

   'If line is R to L, then Swap
   If Gx1 > Gx2 Then
      Swap Gx1 , Gx2
      Swap Gy1 , Gy2
   End If

   Gdx = Gx2 - Gx1
   Gdy = Gy2 - Gy1
   Gdy = Abs(gdy)
   Lerr = Gdx / 2
   Gly = Gy1
   If Gy1 < Gy2 Then
      Ystep = 1
   Else
      Ystep = -1
   End If
   For Glx = Gx1 To Gx2                                     'Plot the points
     If Vert = 1 Then
         'Plot (Gly,Glx)
         Pc = Low(gly)
         Pr = Low(glx)
      Else
         'Plot (Glx,Gly)
         Pr = Low(gly)
         Pc = Low(glx)
      End If
      Gosub Gpixset                                         'Plot the point
      Lerr = Lerr - Gdy
      If Lerr < 0 Then
         Gly = Gly + Ystep
         Lerr = Lerr + Gdx
      End If
   Next Glx
   Return