home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / polski_aminet / tomasz_janeczko / amibroker200e / arexxdemo.abrx < prev    next >
Text File  |  1995-12-17  |  3KB  |  119 lines
  1. /*           ARexxDemo.abrx
  2. **
  3. **           This one is very simple AmiBroker & ARexx demonstration script
  4. **
  5. **           Copyright (C)1995 by Tomasz Janeczko
  6. **
  7. **           You have my permission to use and modify this file
  8. **           when writing your custom ARexx scripts.
  9. **
  10. */
  11.  
  12. address AMIBROKER.1     /* assumes there's only one copy of program */
  13. options results
  14.  
  15. 'SCREEN FRONT'          /* make sure we're at the top */
  16.  
  17. 'DATABASE STATUS'       /* check if database has been changed to allow clean exit */
  18.  
  19. isChanged = result
  20.  
  21. 'VERSION'               /* get program version ID */
  22.  
  23. 'REQUEST BODY "Welcome to the demonstration of|' || result || '" TITLE "ARexx & AmiBroker Demo" BUTTONS "Start!"'
  24.  
  25. 'REQUEST BODY "Now, I will show you some examples of|using AmiBroker`s ARexx commands" BUTTONS="Show me!|Exit"'
  26.  
  27. if (result = 0) THEN
  28.                  DO
  29.                   'REQUEST BODY "Do yu really want to|quit the demo?" TITLE="Confirm..." BUTTONS="Yes!|Oh no!"'
  30.                   if (result = 1) THEN EXIT
  31.                  END
  32.  
  33. 'REQUEST BODY "First I will select WIG" BUTTONS="Let it be"'
  34.  
  35. 'SELECT STOCK WIG'
  36.  
  37. 'REQUEST BODY "... and I will mark a qoutation"'
  38.  
  39. 'SELECT DATE 95-09-01'
  40.  
  41. 'REQUEST BODY "And now, I will move this hair-line"'
  42.  
  43. do day = 1 to 31
  44.    'SELECT DATE 95-09-' || day
  45. end
  46.  
  47. do day = 1 to 31
  48.    'SELECT DATE 95-10-' || day
  49. end
  50.  
  51. do day = 1 to 31
  52.    'SELECT DATE 95-10-' || 32-day
  53. end
  54.  
  55. do day = 1 to 31
  56.    'SELECT DATE 95-09-' || 32-day
  57. end
  58.  
  59. 'REQUEST BODY "Now, I will add AMIGA to the stock list" BUTTONS="Go on!"'
  60.  
  61. 'ADDSTOCK AMIGA'
  62.  
  63. 'SELECT STOCK AMIGA'
  64.  
  65. 'REQUEST BODY "Hmm...This chart is empty!|So, I will add some quotes..."'
  66.  
  67. price = 20;
  68.  
  69. /* now add some random prices */
  70.  
  71. do day = 1 to 30
  72.  price = price + (RANDOM()/500 - 1)
  73.  volume = 100*RANDOM()
  74.  'ADDQUOTATION AMIGA DATE=95-10-' || day || ' VOLUME=' || volume || ' PRICE=' || price
  75. end
  76.  
  77. do day = 1 to 30
  78.  price = price + (RANDOM()/500 - 1)
  79.  volume = 100*RANDOM()
  80.  'ADDQUOTATION AMIGA DATE=95-11-' || day || ' VOLUME=' || volume || ' PRICE=' || price
  81. end
  82.  
  83. do day = 1 to 30
  84.  price = price + (RANDOM()/500 - 1)
  85.  volume = 100*RANDOM()
  86.  'ADDQUOTATION AMIGA DATE=95-12-' || day || ' VOLUME=' || volume || ' PRICE=' || price
  87. end
  88.  
  89. 'REFRESH'
  90.  
  91. 'REQUEST BODY "Well, do you like it?|It`s very interesting that random prices|look so `natural`"'
  92.  
  93.  
  94. 'REQUEST BODY "Now, I will remove AMIGA from the list" BUTTONS="Go on!"'
  95.  
  96. 'REMSTOCK AMIGA'
  97.  
  98. 'REQUEST BODY "AmiBroker supports open, close, high, low prices.|Take a look at APPLE (The most famous fruit in Wall Street :-) ) "'
  99.  
  100. /* add stock and import quotations in ASCII format */
  101.  
  102. 'ADDSTOCK APPLE CONT'
  103.  
  104. 'SELECT STOCK=APPLE'
  105.  
  106. 'REQUEST BODY "Now I will import some quotes|from simple ASCII file (look at `examples` drawer)!"'
  107.  
  108. 'IMPORT ASCII FILE=Examples/Apple'
  109.  
  110. 'REQUEST BODY "Now you can see Japanese Candlestick chart|showing open, close, high and low prices"'
  111.  
  112. 'REQUEST BODY "Now I will remove APPLE from the list"'
  113.  
  114. 'REMSTOCK APPLE'
  115.  
  116. 'REQUEST BODY="Thank you for your attention.|The presentation is over.||(C)1995 Tomasz Janeczko"'
  117.  
  118. if( isChanged = 0 ) then 'DATABASE NOCHANGE'   /* cleanup */
  119.