CP/M/CPM_CDROM.iso/cpm/dbaseii/tdas.ark/TOTALPAY.PRG

Text File | 1986-08-24 | 3.0 KB | 127 lines

*******************************************************************************
*    This report summarizes payments received for any given year              *
*******************************************************************************
SET Talk OFF
STORE "  " TO Annum
STORE T TO Summary
DO WHILE Summary
STORE CHR(174) TO A
STORE CHR(173) TO B
STORE CHR(126) TO C
SET Colon OFF
USE Totalpay INDEX Payyear
ERASE
@ 8,20 SAY "What year's payments should be listed?"
@ 9,16 SAY "(Enter blanks if you want to exit this routine.)"
@ 11,38 SAY "19"
@ 11,40 GET Annum PICTURE "99"
READ NOUPDATE
ERASE
*
IF Annum="  "
  STORE " " to Select
  SET Talk ON
  SET Colon ON
  ERASE
  RETURN
ELSE
  FIND &Annum
ENDIF
*
IF #=0
  STORE 0 TO Counter
  DO WHILE Counter<15
  @ 22,0 SAY "19"
  @ 22,2 SAY Annum
  @ 22,5 SAY "is not in the Totalpay file."
  STORE Counter+1 to Counter
  STORE " " TO Select
  ENDDO
  ERASE
ENDIF
*
IF #>0
SET Colon ON
SET Format TO Screen
ERASE
@ 6,16 SAY "This will only take 30 seconds. Don't go away."
SET Format TO Print
@ 1,56 SAY Sdate
@ 3,20 SAY "CENTER YOUR COMPANY'S NAME RIGHT HERE"
@ 5,31 SAY A+B+A+B+A+B+A+B+A+B+A+B+A+B+A+B+A
@ 7,19 SAY "Summary of Payments Received during 19"
@ 7,57 SAY Annum
@ 9,1 SAY C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+;
C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+;
C+C+C+C+C+C+C+C+C+C
STORE 0 to Totyear
@ 11,25 SAY "January"
@ 11,45 SAY January
STORE January+Totyear TO Totyear
@ 12,25 SAY "February"
@ 12,45 SAY February
STORE February+Totyear TO Totyear
@ 13,25 SAY "March"
@ 13,45 SAY March
STORE March+Totyear TO Totyear
@ 14,25 SAY "April"
@ 14,45 SAY April
STORE April+Totyear TO Totyear
@ 15,25 SAY "May"
@ 15,45 SAY May
STORE May+Totyear TO Totyear
@ 16,25 SAY "June"
@ 16,45 SAY June
STORE June+Totyear to Totyear
@ 17,25 SAY "July"
@ 17,45 SAY July
STORE July+Totyear to Totyear
@ 18,25 SAY "August"
@ 18,45 SAY August
STORE August+Totyear to Totyear
@ 19,25 SAY "September"
@ 19,45 SAY September
STORE September+Totyear to Totyear
@ 20,25 SAY "October"
@ 20,45 SAY October
STORE October+Totyear to Totyear
@ 21,25 SAY "November"
@ 21,45 SAY November
STORE November+Totyear to Totyear
@ 22,25 SAY "December"
@ 22,45 SAY December
STORE December+Totyear to Totyear
@ 25,25 SAY "Year's Total"
@ 25,44 SAY STR(Totyear,9,2)
USE
EJECT
SET Format TO Screen
ERASE
STORE "  " to Annum
STORE " " to Select
ENDIF
*
ENDDO
RELEASE Annum,Counter,Totyear,A,B,C
SET Colon ON
SET Talk ON
RETURN
* EOF


ayments Received during 19"
@ 7,57 SAY Annum
@ 9,1 SAY C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+;
C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+;
C+C+C+C+C+C+C+C+C+C
STORE 0 to Totyear
@ 11,25 SAY "January"
@ 11,45 SAY January
STORE January+Totyear TO Totyear
@ 12,25 SAY "February"
@ 12,45 SAY February
STORE February+Totyear TO Totyear
@ 13,25 SAY "March"
@ 13,45 SAY March
STORE March+Totyear TO Totyear
@ 14,25 SA