home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / LASER.CCC < prev    next >
Encoding:
Text File  |  1991-12-15  |  1.2 KB  |  70 lines
  1. %dplot.ccc
  2. * 27/10/91 - Rachel - a new option to print
  3. * produce file for plotting from DSG module
  4. :j
  5. ascii c100 r13
  6. if r13 eq 32 :i
  7. mess illegal command, use \GEOM first !
  8. getwe
  9. goto :j
  10. :i
  11. ascii c66 r13
  12. if r13 eq 112 :I
  13. mess illegal command, use \DSG first !
  14. getw
  15. goto :z
  16. :I
  17. *check if plot area set
  18. r1=0
  19. r2=0
  20. ovl dsgsiz
  21. if r2 ge 0 :a
  22. :J
  23. mess Error, no plotting area defined here! (use \dpsiz to reset)
  24. getwe
  25. :a
  26. mess options: y-plot, n-print, <ENTER>-create a file
  27. getyn+ r1
  28. if r93 ne 0 :n
  29. if r1 eq 1 :p
  30. mess Please make sure that the printer is connected and ONLINE!!
  31. getw
  32. c1 8 = 'D$TEMP  '
  33. ovl zplot
  34. c11 8 = '@lzr.pss'
  35. c1 8 = 'plotf   '
  36. ovl exec1
  37. goto :z
  38. :p
  39. c1 8 = 'D$TEMP  '
  40. ovl zplot
  41. c11 8 = '@plt.pss'
  42. c1 8 = 'plotf   ' ; ovl exec1
  43. goto :z
  44. :n
  45. mess file name for plotter (1-6 char. [D$xxxxxx])
  46. :b
  47. getc c3 6
  48. c1 2 = 'd$'
  49. c80=' '
  50. c81 3 ='met'
  51. c85 =' '
  52. r80=1
  53. r83=0
  54. r88=1
  55. command chkfil
  56. if r83 eq 0 :g
  57. mess Error, invalid file name, enter name again :
  58. goto :b
  59. :g
  60. if r80 eq 0 :e
  61. if r89 eq 1 :e
  62. r1 = 0
  63. mess file " #c1 8 .met " already exists, want to overwrite ? <n>
  64. def 'n'
  65. getyn r1
  66. if r1 eq 0 :a
  67. :e
  68. ovl zplot
  69. :z
  70.