Pete's QBASIC Site

Code: Select all

DIM SHARED RCol%, GCol%, BCol%
SCREEN 13

SUB PutRGB(col%)
OUT &H3C8, col%
OUT &H3C9, RCol%
OUT &H3C9, GCol%
OUT &H3C9, BCol%
END SUB

SUB GetRGB(col%)
OUT &H3C7, col%
RCol% = INP(&H3C9)
GCol% = INP(&H3C9)
BCol% = INP(&H3C9)
END SUB

Code: Select all

Function MathDistance (x1 as double, y1 as double, x2 as double, y2 as double) as double
    Return Sqr( ( x1 - x2 ) ^ 2 + ( y1 - y2 ) ^ 2 )
End function 

Code: Select all

function intmax(a as integer, b as integer) as integer
  if a >= b then
    intmax = a
  else
    intmax = b
  end if
end function

function intmin(a as integer, b as integer) as integer
  if a >= b then
    intmin = b
  else
    intmin = a
  end if
end function

sub plotchar(char as integer, x as integer, y as integer, colr as integer)
  def seg = &HB800
  poke (y * 80 + x) * 2, char '' might have these swapped - mind fuzzy - can't remember :)
  poke (y * 80 + x) * 2 + 1, colr
end sub