'===========================================================================
' Subject: GRAPH-IT                           Date: 06-24-97 (21:26)       
'  Author: Michael G. Stewart                 Code: QB, QBasic, PDS        
'  Origin: mikegs@juno.com                  Packet: EGAVGA.ABC
'===========================================================================
DECLARE SUB drawgraph ()
DECLARE SUB dot (x!, y!)
SCREEN 12
CLS
drawgraph
PRINT "Welcome to Graph-it. Type '100,100' to Exit."
a% = 3
DO
  LOCATE 2, 1: PRINT "                         "
  LOCATE 2, 1
  INPUT "Input Coordinate: ", x, y
  IF x = 100 AND y = 100 THEN EXIT DO
  dot x, y
  LOCATE a%, 1
  PRINT x; y
  a% = a% + 1
LOOP
END

SUB box (x1%, y1%, x2%, y2%)
LINE (x1%, y1%)-(x2%, y2%), 0, BF
LINE (x1%, y1%)-(x2%, y2%), 2, B
END SUB

SUB dot (x, y)
p = (x * 10) + 320
q = (y * 10) + 240 - (y * 20)
CIRCLE (p, q), 3, 14
END SUB

SUB drawgraph
FOR a% = 0 TO 639 STEP 10
 LINE (a%, 0)-(a%, 479), 3
NEXT a%
FOR a% = 0 TO 479 STEP 10
 LINE (0, a%)-(639, a%), 3
NEXT a%
LINE (0, 0)-(320, 240), 1, B
LINE (321, 0)-(639, 240), 1, B
LINE (0, 241)-(320, 479), 1, B
LINE (321, 241)-(639, 479), 1, B
END SUB