SCREEN 0
'DEF SEG = &HB800
'FOR q = 0 TO 4000
'FirstScreen$ = FirstScreen$ + CHR$(PEEK(q))
'NEXT q
CLS
INPUT "Title of graph"; GraphTit$
INPUT "X-Axis Title"; XTit$
INPUT "Y-Axis Title"; YTit$
INPUT "X Step"; XStep
INPUT "Y Step"; YStep
INPUT "X Start"; XStart
INPUT "Y Start"; YStart
INPUT "X End"; XEnd
INPUT "Y End"; YEnd
INPUT "Font Name"; DFnt$
INPUT "Monitor type (Cga,Ega,VGA)"; Mon$
IF UCASE$(MID$(Mon$, 1, 1)) = "C" THEN Scren% = 7
IF UCASE$(MID$(Mon$, 1, 1)) = "E" THEN Scren% = 9
IF UCASE$(MID$(Mon$, 1, 1)) = "V" OR Scren% = 0 THEN Scren% = 12
YGraphStart = 30
XGraphStart = 15
SCREEN Scren%
XMax% = POINT(0) * 2: YMax% = POINT(1) * 2
XPixStep = (XMax% - XGraphStart) / (XEnd - XStart)
YPixStep = (YMax% - YGraphStart) / (YEnd - YStart)
LINE (XGraphStart, YMax% - YGraphStart)-(XGraphStart, 0), 2
LINE (XGraphStart, YMax% - YGraphStart)-(XMax%, YMax% - YGraphStart), 2
FOR q = XGraphStart TO XMax% STEP XPixStep
LINE (q, 0)-(q, YMax% - YGraphStart), 2
NEXT q
FOR q = YGraphStart TO YMax% STEP YPixStep
LINE (XGraphStart, q)-(XMax% - XGraphStart, q), 2
NEXT q










'SLEEP
'SCREEN 0
'DEF SEG = &HB800
'FOR q = 1 TO 4001
'POKE q - 1, ASC(MID$(FirstScreen$, q, 1))
'NEXT q