* ADDSTOK.PRG is used to add a stock transaction to the data base.
SET TALK OFF
SET COLON OFF
ERASE
STORE MD1+':'+'STOKCONT' TO STOKIT
RESTORE FROM &STOKIT ADDITIVE
STORE 'Y' TO RUNSTOK
DO WHILE RUNSTOK = 'Y'
STORE ' ' TO OTHRSTK
RESTORE FROM FILEDRIV ADDITIVE
STORE '          ' TO NEWFILE
STORE MD1+':'+'STOCKS' TO NEWFILE
USE &NEWFILE
APPEND BLANK
@ 2,2 SAY "                ENTER NEW STOCK OR BOND TRANSACTION"
@ 4,2 SAY "TRANSACTION NUMBER IS " GET STOKCONT
CLEAR GETS
@ 6,2 SAY 'SOLD SHORT (S) OR BOUGHT LONG (L) ' GET S:OR:L
@ 6,42 SAY 'STOCK TICKER SYMBOL 'GET TICKER
@ 8,2 SAY 'NUMBER OF SHARES ' GET NOSHRS
@ 8,27 SAY 'NAME OF SECURITY ' GET SECURITY
@ 10,2 SAY "                      PURCHASE INFORMATION"
@ 11,2 SAY 'DATE BOUGHT ' GET DATEBOT PICTURE '99/99/99'
@ 11,30 SAY 'PRICE PAID PER SHARE ' GET PRICPAID
@ 12,2 SAY 'AMOUNT PAID FOR SECURITY ' GET COSTBUY
@ 13,2 SAY 'EXPENSES ASSOCIATED WITH PURCHASE ' GET EXPBUY
@ 15,2 SAY "                       SALES INFORMATION"
@ 16,2 SAY 'DATE SOLD ' GET DATESOLD PICTURE '99/99/99'
@ 16,30 SAY 'PRICE RECEIVED PER SHARE ' GET PRICSOLD
@ 17,2 SAY 'AMOUNT RECEIVED FOR SECURITY ' GET RECSELL
@ 18,2 SAY 'EXPENSES ASSOCIATED WITH SALE ' GET EXPSELL
@ 20,2 SAY 'PERIOD STOCK HELD (LONG/SHORT) ' GET HOLDPER
@ 21,2 SAY "STOCK POSITION CLOSED " GET POSITION
@ 23,22 SAY 'PRESS {PgDn} TO CONTINUE.'
READ
* STORE STR(STOKCONT,1,4) TO STOKGAIN
REPLACE STOKCODE WITH STOKCONT
ERASE
@ 10,15 SAY "DO YOU WANT TO ENTER ANOTHER STOCK? " GET OTHRSTK
READ
IF OTHRSTK = 'Y'
  STORE STOKCONT + 1 TO STOKCONT
  ERASE
  LOOP
ENDIF
IF OTHRSTK = 'N'
  ERASE
  SAVE ALL LIKE STOKCONT TO &STOKIT
  STORE 'N' TO RUNSTOK
  RETURN
ENDIF
ENDDO
RELEASE OTHRSTK,RUNSTOK
RETURN
 11,2 SAY 'DATE BOUGHT ' GET DATEBOT PICTURE '99/99/99'
@ 11,30 SAY 'PRICE PAID PER SHARE ' GET PRICPAID
@ 12,2 SAY 'AMOUNT PAID FOR SECURITY ' GET COSTBUY
@ 13,2 SAY 'EXPENSES ASSOCIATED WITH PURCHASE ' GET EXPBUY
@ 15,2 SAY "                       SALES INFORMATION"
@ 16,2 SAY