home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / robot-pd / 10100.ZIP / 10100A.DSK / mgp.bas (.txt) < prev    next >
Locomotive BASIC  |  1997-12-16  |  7KB  |  73 lines
  1. MGP     BAS
  2. (C) 1986 David Wild/DW Software
  3. machine code
  4. ,"Please enter formula"
  5. ,"[ctrl] 
  6.  -to end of line  move with 
  7.  [del] and [clr] "
  8. "goto 110"
  9. "RANGE"
  10. "Please enter minimum value"
  11. promp
  12. "Range from"
  13. "Please enter maximum value"
  14. promp
  15. "Please enter step (0 TO "
  16. promp
  17. "with STEP"
  18. ,"PLEASE WAIT"
  19. zxlin
  20. zxlin
  21. zxlin
  22. zylin
  23. zylin
  24. zylin
  25. zylin
  26. zylin
  27. zylin
  28. zxlin
  29. zylin
  30. zxlin
  31. zylin
  32. ,"Clear screen (Y/N)?"
  33. move cursor
  34. "MOVE CURSOR"
  35. "Please enter jump for x"
  36. promp
  37. "jumping"
  38. ,"Move with ";
  39. );" and ";
  40. );", [shift] for zip, [enter] when finished"
  41. zxlin
  42. );"x=";
  43. ;"y=";
  44. zxlin
  45. option chooser
  46. );" - ";
  47. ," ")
  48.  " ";
  49. promp
  50. ;" ";
  51. put.bac
  52.  ;"",
  53. "\return" 
  54. draw help screen
  55. cursor movement
  56. ,"position with cursor keys, then press the 
  57.  enter 
  58.  key"
  59. machine code
  60. put.bac
  61. put.bac
  62. put.bac
  63.  &dd,&7e,&00,&cd,&0c,&bb,&c9
  64. );"ERROR";
  65. y or n
  66. title screen
  67. ("MATHEMATICAL GRAPH PLOTTER")
  68. ("(C) Copyright 1986 by David Wild")
  69. ("Please press any key to continue")
  70.  478,239,190,159,568,284,239,190,716,358,284,239,638,319,253,213,478,239,190,159,568,284,239,190,716,358,284,239,638,319,253,213,478,159,159,159,568,190,190,190,716,239,239,239,638,213,213,213
  71.  478,159,159,159,568,190,190,190,716,239,239,239,638,213,213,213
  72.  478,159,190,239,568,190,239,284,716,239,284,358,638,213,253,319,478,159,190,239,568,190,239,284,716,239,284,358,638,213,253,319,0,0,0,0
  73.