home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / SCIENCE / FDPLOT12.ZIP / T2.BAS < prev    next >
BASIC Source File  |  1992-01-06  |  504b  |  15 lines
  1. 100 'MSDOS BASIC, Scientific Function/data-set plotting program.
  2. 101 'Abri Technologies, Inc., HCR62, 100K, Cacapon, WV 25422 USA
  3. 102 'Unregistered Shareware version.
  4. 110 DIM DATX(100),DATY(100)
  5. 115 DEFINT I-N
  6. 116 ON ERROR GOTO 9000
  7.  117 GOSUB 490
  8. 120 YADD%=0:SHELL "VMODE 15":SCREEN 10:SZX%=640:SZY%=350 'EGA mono
  9. 125 'graphsize origin @ HT,KT; extremes @ XLN+HT,YLN+KT
  10. 130 HT%=.1*SZX%:KT%=.09*SZY%:XLN%=.87*SZX%:YLN%=.86*SZY%
  11. 470 GOSUB 2000
  12. 475 GOSUB 3000
  13. 480 GOSUB 4000
  14. 485 CHAIN "MENU"
  15.