/*************************************************************************/
/*                     Wall Street Blues History Maint                   */
/*                          AREXX Programming by                         */
/*                          Charles A. Van Tuyl                          */
/*                               aka Caesar                              */
/*      $VER:Wall Street Blues, v2.0 (04-12-94) by Charles Van Tuyl      */
/*               Gold City User's Group BBS  (502) 942-3660              */
/*                 AUGNet 222:5000/2   C-Link! 911:6300/4                */
/*************************************************************************/
options results
signal on syntax
path='Pfiles:Stocks/'
path2='Pfiles:Stocks/Companies/'
date=left(date(E),2)
call COMLOAD
call DOWLOAD
name='Bus.data'
set=AA
call LOAD
call MATCH
call SAVE

name='Rea.data'
set=AB
call LOAD
call MATCH
call SAVE

name='Mut.data'
set=AC
call LOAD
call MATCH
call SAVE

name='Dev.data'
set=AD
call LOAD
call MATCH
call SAVE

name='Oil.data'
set=AE
call LOAD
call MATCH
call SAVE

name='Tru.data'
set=AF
call LOAD
call MATCH
call SAVE

name='Aut.data'
set=AG
call LOAD
call MATCH
call SAVE

name='Min.data'
set=AH
call LOAD
call MATCH
call SAVE

name='Ele.data'
set=AI
call LOAD
call MATCH
call SAVE

name='Dow.data'
set=ZK
call LOAD
call MATCH
call SAVE
exit

LOAD:
transmit 'Loading 'name
signal off error;call open(filec,path2||name,'R')
DA=readln(filec);DB=readln(filec);DC=readln(filec);DD=readln(filec);DE=readln(filec);DF=readln(filec);DG=readln(filec);DH=readln(filec);DI=readln(filec);DJ=readln(filec)
DK=readln(filec);DL=readln(filec);DM=readln(filec);DN=readln(filec);DO=readln(filec);DP=readln(filec);DQ=readln(filec);DR=readln(filec);DS=readln(filec);DT=readln(filec)
DU=readln(filec);DV=readln(filec);DW=readln(filec);DX=readln(filec);DY=readln(filec);DZ=readln(filec);DAA=readln(filec);DAB=readln(filec);DAC=readln(filec);DAD=readln(filec)
DAE=readln(filec); call close(filec);signal on error
return

SAVE:
DA=100
transmit 'Saving 'name
transmit 'This price equals 'set
signal off error;open(filec,path2||name,'W')
writeln(filec,DA);writeln(filec,DB);writeln(filec,DC);writeln(filec,DD);writeln(filec,DE);writeln(filec,DF);writeln(filec,DG);writeln(filec,DH);writeln(filec,DI);writeln(filec,DJ)
writeln(filec,DK);writeln(filec,DL);writeln(filec,DM);writeln(filec,DN);writeln(filec,DO);writeln(filec,DP);writeln(filec,DQ);writeln(filec,DR);writeln(filec,DS);writeln(filec,DT)
writeln(filec,DU);writeln(filec,DV);writeln(filec,DW);writeln(filec,DX);writeln(filec,DY);writeln(filec,DZ);writeln(filec,DAA);writeln(filec,DAB);writeln(filec,DAC);writeln(filec,DAD)
writeln(filec,DAE);close(filec);signal on error
return

MATCH:
if date=01 then DA=set
if date=02 then DB=set
if date=03 then DC=set
if date=04 then DD=set
if date=05 then DE=set
if date=06 then DF=set
if date=07 then DG=set
if date=08 then DH=set
if date=09 then DI=set
if date=10 then DJ=set
if date=11 then DK=set
if date=12 then DL=set
if date=13 then DM=set
if date=14 then DN=set
if date=15 then DO=set
if date=16 then DP=set
if date=17 then DQ=set
if date=18 then DR=set
if date=19 then DS=set
if date=20 then DT=set
if date=21 then DU=set
if date=22 then DV=set
if date=23 then DW=set
if date=24 then DX=set
if date=25 then DY=set
if date=26 then DZ=set
if date=27 then DAA=set
if date=28 then DAB=set
if date=29 then DAC=set
if date=30 then DAD=set
if date=31 then DAE=set
return

COMLOAD:
signal off error
open(file,path2||Prices,'R')
AA=readln(file);AB=readln(file);AC=readln(file);AD=readln(file);AE=readln(file);AF=readln(file);AG=readln(file);AH=readln(file);AI=readln(file)
close(file); signal on error
return

DOWLOAD:
signal off error
call open(file,path||'DowJones','R')
ZA=readln(file);ZB=readln(file);ZC=readln(file);ZD=readln(file);ZE=readln(file);ZF=readln(file);ZG=readln(file);ZH=readln(file);ZI=readln(file)
ZJ=readln(file);ZK=readln(file);ZL=readln(file)
close(file);signal on error
return

SYNTAX:
Tr 'Error:' errortext(rc) 'in line 'SIGL'.'
shutdown
end
end
exit
