1: SCREEN 0 2: 'DEF SEG = &HB800 3: 'FOR q = 0 TO 4000 4: 'FirstScreen$ = FirstScreen$ + CHR$(PEEK(q)) 5: 'NEXT q 6: CLS 7: INPUT "Title of graph"; GraphTit$ 8: INPUT "X-Axis Title"; XTit$ 9: INPUT "Y-Axis Title"; YTit$ 10: INPUT "X Step"; XStep 11: INPUT "Y Step"; YStep 12: INPUT "X Start"; XStart 13: INPUT "Y Start"; YStart 14: INPUT "X End"; XEnd 15: INPUT "Y End"; YEnd 16: INPUT "Font Name"; DFnt$ 17: INPUT "Monitor type (Cga,Ega,VGA)"; Mon$ 18: IF UCASE$(MID$(Mon$, 1, 1)) = "C" THEN Scren% = 7 19: IF UCASE$(MID$(Mon$, 1, 1)) = "E" THEN Scren% = 9 20: IF UCASE$(MID$(Mon$, 1, 1)) = "V" OR Scren% = 0 THEN Scren% = 12 21: YGraphStart = 30 22: XGraphStart = 15 23: SCREEN Scren% 24: XMax% = POINT(0) * 2: YMax% = POINT(1) * 2 25: XPixStep = (XMax% - XGraphStart) / (XEnd - XStart) 26: YPixStep = (YMax% - YGraphStart) / (YEnd - YStart) 27: LINE (XGraphStart, YMax% - YGraphStart)-(XGraphStart, 0), 2 28: LINE (XGraphStart, YMax% - YGraphStart)-(XMax%, YMax% - YGraphStart), 2 29: FOR q = XGraphStart TO XMax% STEP XPixStep 30: LINE (q, 0)-(q, YMax% - YGraphStart), 2 31: NEXT q 32: FOR q = YGraphStart TO YMax% STEP YPixStep 33: LINE (XGraphStart, q)-(XMax% - XGraphStart, q), 2 34: NEXT q 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 'SLEEP 46: 'SCREEN 0 47: 'DEF SEG = &HB800 48: 'FOR q = 1 TO 4001 49: 'POKE q - 1, ASC(MID$(FirstScreen$, q, 1)) 50: 'NEXT q 51: |