Liren Large Software Subsidy 6/06.iso/b/b077/1.img/SBGL.ZIP/GJPYS.PRG

Text File | 1979-12-31 | 1.6 KB | 115 lines

* ╔Φ▒╕╞└╙┼▒φ╝╞╦π
CLEAR
ACCEPT '          ╩╟╖±╥¬▒ú┤µ╥╤╙╨╡─╩²╛▌ ?(Y/N)' TO GY
RESTORE FROM KH ADDITIVE
KM='A:PYSJ'+STR(NH,2)
NH=NH+1
SAVE TO KH ALL LIKE NH
IF GY='Y'.OR.GY='y'
USE PYSJ
AA='      ╟δ▓σ╚δ╚φ┼╠╡╜╟²╢»╞≈ ú┴,╥╘▒ú┤µ '+STR(NH-1,2)+' ì
─Ω╡─╩²╛▌,╫╝▒╕║├░┤╚╬╥╗╝ⁿ.'
WAIT AA
COPY TO &KM
SELECT 1
USE JSJ4
SELECT 2
USE &KM
DO WHILE .NOT.EOF()
REPL SN0 WITH A->SN2
SKIP
SELECT 1
SKIP
SELECT 2
ENDDO
CLOSE DATABASES
ENDIF
USE JSJ4
REPL ALL SN2 WITH SN3,SN3 WITH SN4,SN4 WITH SN5,SN5 WITH 0
1
CLEAR
@ 1,2 SAY '╟δ *'
@ 2,2 SAY '╩Σ *'
@ 3,2 SAY '╚δ *'
DN=STR(NH+3,2)+' *'
@ 4,2 SAY DN
@ 5,2 SAY '─Ω *'
@ 6,2 SAY '╕≈ *'
@ 7,2 SAY '╧ε *'
@ 8,2 SAY '╩² *'
@ 9,2 SAY '╛▌ *'
P=1
DO WHILE P<=9
@ P,8 SAY SN1 GET SN5
READ
SKIP
P=P+1
ENDDO
USE
SELECT 1
USE JSJ4
GO 10
SELECT 2
USE JF
NH=NH+3
NH=STR(NH,2)
P101='01/01/'+NH
P99='12/31/'+NH
P101=CTOD(P101)
P99=CTOD(P99)
SUM JF10,JF11,JF12,JF13,JF14 TO J1,J2,J3,J4,J5 FOR JF3>=P101 ì
.AND. JF3<=P99
X1=J1+J2+J3+J4+J5
SELECT 1
REPL SN5 WITH X1
SKIP
SELECT 2
USE YGZ
SET EXAC OFF
LOCA FOR G1=NH
if .not. eof()
DO WHILE .NOT. EOF()
P98=RECNO()
CONT
ENDDO
GOTO P98
endif
X1=G8
SELECT 1
REPL SN5 WITH X1
USE SB INDEX SB1
SELECT 2
USE BJH
X1=0
X2=X1
X3=X1
X4=X1
LOCA FOR BJH18='F' .OR. BJH18='X'
DO WHILE .NOT.EOF()
IF BJH15='F'
X1=X1+1
SELECT 1
SEEK B->BJH1
X2=X2+SB15
SELECT 2
ELSE
X3=X3+1
SELECT 1
SEEK B->BJH1
X4=X4+SB15
SELECT 2
ENDIF
CONT
ENDDO
USE JSJ4
12
REPL SN5 WITH X1
13
REPL SN5 WITH X2
14
REPL SN5 WITH X3
15
REPL SN5 WITH X4
CLOSE DATABASES
RETURN