home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / EPPLOT.ZIP / AXIS.PLT next >
Text File  |  1998-07-30  |  1KB  |  46 lines
  1. ;  this is a general axis plot for use as subplot
  2. H
  3. ; first draw the two axis lines
  4. 200,200
  5. P2
  6. D1800,200
  7. U 200,200
  8. D 200,1200
  9. P1
  10. U
  11. ; now draw ticks and numbers on X
  12. A200,200
  13. A300,200 R D 0,-20 U -7,-25 S121_    ; 1
  14. A400,200 R D 0,-20 U -7,-25 S122_    ; 2
  15. A500,200 R D 0,-20 U -7,-25 S123_    ; 3
  16. A600,200 R D 0,-20 U -7,-25 S124_    ; 4
  17. A700,200 R D 0,-20 U -7,-25 S125_    ; 5
  18. A800,200 R D 0,-20 U -7,-25 S126_    ; 6
  19. A900,200 R D 0,-20 U -7,-25 S127_    ; 7
  20. A1000,200 R D 0,-20 U -7,-25 S128_    ; 8
  21. A1100,200 R D 0,-20 U -7,-25 S129_    ; 9
  22. A1200,200 R D 0,-20 U -21,-25 S1210_    ;10
  23. A1300,200 R D 0,-20 U -21,-25 S1211_    ;11
  24. A1400,200 R D 0,-20 U -21,-25 S1212_    ;12
  25. A1500,200 R D 0,-20 U -21,-25 S1213_    ;13
  26. A1600,200 R D 0,-20 U -21,-25 S1214_    ;14
  27. A1700,200 R D 0,-20 U -21,-25 S1215_    ;15
  28. A1800,200 R D 0,-20 U -21,-25 S1216_    ;16
  29. ; now put in the ticks and numbers in Y
  30. A200,300 R D -20,0 U -25,-7 S121_    ; 1
  31. A200,400 R D -20,0 U -25,-7 S122_    ; 2
  32. A200,500 R D -20,0 U -25,-7 S123_    ; 3
  33. A200,600 R D -20,0 U -25,-7 S124_    ; 4
  34. A200,700 R D -20,0 U -25,-7 S125_    ; 5
  35. A200,800 R D -20,0 U -25,-7 S126_    ; 6
  36. A200,900 R D -20,0 U -25,-7 S127_    ; 7
  37. A200,1000 R D -20,0 U -25,-7 S128_    ; 8
  38. A200,1100 R D -20,0 U -25,-7 S129_    ; 9
  39. A200,1200 R D -20,0 U -40,-7 S1210_    ;10
  40. ; NOW PUT IN THE LEGENDS
  41. A 900,40
  42. S12X VALUE X 100_
  43. A 100,550
  44. S22Y VALUE X 100_
  45. H
  46.