home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / e / easylx.zip / EXAMPLE4.SEQ < prev    next >
Text File  |  1991-09-26  |  6KB  |  201 lines
  1.  
  2. : EXAMPLE4
  3.     MESSAGE(   5   5   5   5   5
  4.               8  10
  5.             "  "
  6.             "  "
  7.             "  "
  8.             " graphics capabilities built into Easyest LX."
  9.             " This example sequence demonstrates some of the"
  10.             0  )
  11.     TEXT(  250  289    0    0    0
  12.              12  1
  13.             " Press any key to continue ..." 0  )
  14.     WAIT(  1000  1  0  )
  15.     CLR(   8  0  )
  16.     OPS(  .00    0  27   50  2
  17.              16  0  )
  18.     SAVE( 11.   23     0 )
  19.     INPUT(   7.  28  0  )
  20.     OPS(  .00    0  23   50  2
  21.              3  0  )
  22.     SAVE( 11.   23     0 )
  23.     OPS(  .00    0  23   50  2
  24.              11  0  )
  25.     SAVE( 11.   19     0 )
  26.     INPUT(  30.  27  0  )
  27.     TOTMP( 10.   27     0 )
  28.     OPS(  .00    0  23   50  2
  29.              1  0  )
  30.     SAVE( 11.   23     0 )
  31.     OPS(  .00    0  23   50  2
  32.              11  0  )
  33.     SAVE( 11.   18     0 )
  34.     TOTMP( 10.   27     0 )
  35.     OPS(  .00    0  23   50  2
  36.              1  0  )
  37.     SAVE( 11.   23     0 )
  38.     OPS(  .00    0  23   50  2
  39.              11  0  )
  40.     SAVE( 11.   17     0 )
  41.     TOTMP( 10.   27     0 )
  42.     OPS(  .00    0  23   50  2
  43.              1  0  )
  44.     SAVE( 11.   23     0 )
  45.     OPS(  .00    0  23   50  2
  46.              11  0  )
  47.     SAVE( 11.   16     0 )
  48.     TOTMP( 10.   27     0 )
  49.     OPS(  .00    0  23   50  2
  50.              1  0  )
  51.     SAVE( 11.   23     0 )
  52.     OPS(  .00    0  23   50  2
  53.              11  0  )
  54.     SAVE( 11.   15     0 )
  55.     TOTMP( 10.   27     0 )
  56.     OPS(  .00    0  23   50  2
  57.              1  0  )
  58.     SAVE( 11.   23     0 )
  59.     OPS(  .00    0  23   50  2
  60.              11  0  )
  61.     SAVE( 11.   14     0 )
  62.     WAVEPLOT(  1  1  1  1  1
  63.              1   8  1  19   6
  64.              2.06000E0   5.90000E-1   3  10  0  )
  65.     TEXT(  181   51    0    0    0
  66.              14  1
  67.             " Waterfall Plot with Cross Hatching" 0  )
  68.     TEXT(  250  289    0    0    0
  69.              12  1
  70.             " Press any key to continue ..." 0  )
  71.     WAIT(  1000  1  0  )
  72.     CLR(   8  0  )
  73.     A/D(  1  1 10000.   4  1
  74.              .00 -2.00000E-1     0  128  1
  75.              1    0    0  1  1
  76.              0  )
  77.     PLOT(  26   7  10  10  1
  78.              1  1  1  1  1
  79.              1    0  1    0    0
  80.             " *" 0  )
  81.     SUB( 128     0   1      0    5
  82.           6   26     0 )
  83.     OVERLAY(  28   7  10  14  3
  84.             " *" 0  )
  85.  
  86.     PLOT(  26   7   9  13  1
  87.              1  1  1  1  1
  88.              1    0  1    0    0
  89.             " *" 0  )
  90.     FILTER( 1000.  26  5.00000E2  1000.    0
  91.              0  )
  92.     OVERLAY(  28   7   9  14  1
  93.             " *" 0  )
  94.     TEXT(   397   45    0    0    0
  95.              10  1
  96.             " - - Original Data" 0  )
  97.     TEXT(   397   56    0    0    0
  98.              14  1
  99.             " * - Every 5th point" 0  )
  100.     TEXT(   398  181    0    0    0
  101.              13  1
  102.             " - - Original Data" 0  )
  103.     TEXT(   399  192    0    0    0
  104.              14  1
  105.             " - - Filtered Data" 0  )
  106.     TEXT(  136  164    0    0    0 
  107.              14  1 
  108.             " : Real Time Display" 0  )
  109.     INPUT(  50.  27  0  )
  110.     BEGIN(  0  )
  111.         TEXT(   36   4    0  12  11
  112.                  1  14  1  0  )
  113.         INPUT(  1.  28  0  )
  114.         OPS(  .00    0  27   50  2
  115.                  2  0  )
  116.         SAVE( 11.   27     0 )
  117.         LOOPTEST( 27.   1   3  0.     0
  118.                  3   0  )
  119.     END(  0  )
  120.     MESSAGE(   5   5   5   5   5
  121.               9  13
  122.             "  "
  123.             "  "
  124.             " storage to disk."
  125.             " display and simultaneous"
  126.             " Strip Chart for real time" 0  )
  127.     STRIP(  1  1  10  1  2
  128.                0  50.    0  1  .00
  129.             -2.00000E-1     0   5  10  1.00000E-1
  130.              1  1
  131.             " TEST.DAT" 0  )
  132.     OPS(  .00    0  27  128  2
  133.              16  0  )
  134.     SAVE( 11.   23     0 )
  135.     INPUT(   9.  28  0  )
  136.     OPS(  .00    0  23  128  2
  137.              3  0  )
  138.     OPS(  .00    0  28  128  2
  139.              11  0  )
  140.     SAVE( 11.   26     0 )
  141.     INPUT(  15.  28  0  )
  142.     OPS(  .00    0  23  128  2
  143.              3  0  )
  144.     OPS(  .00    0  28  128  2
  145.              12  0  )
  146.     XYPLOT(  26  1   8  14  1
  147.                0    0  1  1    0
  148.                0  1  1    0    0
  149.             " *" 0  )
  150.  
  151.     TEXT(  241   54    0    0  255
  152.              287    0    0    0  13
  153.              2
  154.             " Easyest LX Graphics"
  155.             " are Flexible." 0  )
  156.     TEXT(  101  106  270    0   525
  157.              243   90   90    0  10
  158.              2
  159.             " Label Rotation"
  160.             " Character Rotation" 0  )
  161.     TEXT(  294  302    0    0    0 
  162.              12  1 
  163.             " Press any key to continue ..." 0  )
  164.     WAIT(  1000  1  0  )
  165.     A/D(  3  1 4000.    0  1
  166.              .00 -2.00000E-1     0  128  1 
  167.              1    0    0  1  1 
  168.              0  )
  169.     PLOT(  24   7   8  13  1 
  170.              1  1  1  1  1 
  171.              1  1  1    0    0 
  172.             " *" 0  )
  173.     PEAK(  24 20. 3.  .00  1 
  174.              1.75000E0   27  0  )
  175.     OVERLAY(  28   7   8  14  3 
  176.             " *" 0  )
  177.     OVERLAY(  28   7   8  15  1 
  178.             " *" 0  )
  179.     SUB( 30     0    68      0   1
  180.           6   24     0 )
  181.     OVERLAY(  28   7   8  14  1 
  182.             " *" 0  )
  183.     FIT(  1  4  28  14   8
  184.                0  0  )
  185.     OVERLAY(  28   7   8  10  1 
  186.             " *" 0  )
  187.     TEXT(  279  303    0    0    0 
  188.              12  1 
  189.             " Press any key to continue ..." 0  )
  190.     WAIT(  1000  1  0  )
  191.     MESSAGE(   5   5   5   5   5
  192.               8  10
  193.             "  "
  194.             "  "
  195.             " Press any key to continue...."
  196.             "  "
  197.             " Example Application Complete." 0  )
  198.     WAIT(  1000  1  0  )
  199.     CLR(   8  0  )
  200. ;
  201.