/*************************************************************************/
/*                     Wall Street Blues Company Reset                   */
/*                          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/'
DA=0;DB=0;DC=0;DD=0;DE=0;DF=0;DG=0;DH=0;DI=0;DJ=0;DK=0;DL=0;DO=0;DM=0;DN=0;DP=0;DQ=0
DR=0;DS=0;DT=0;DU=0;DV=0;DW=0;DX=0;DY=0;DZ=0;DAA=0;DAB=0;DAC=0;DAD=0;DAE=0
name='Bus.data';call SAVE
name='Rea.data';call SAVE
name='Mut.data';call SAVE
name='Dev.data';call SAVE
name='Oil.data';call SAVE
name='Tru.data';call SAVE
name='Aut.data';call SAVE
name='Min.data';call SAVE
name='Ele.data';call SAVE
name='Dow.data';call SAVE
exit

SAVE:
transmit 'Saving 'name
signal off error;call 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);call close(filec);signal on error
return
