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

Text File | 1979-12-31 | 1.5 KB | 95 lines

STORE 'y' TO C
STORE '     ' TO D
USE NGZ
STOR NGZ6 TO E
USE YY
STORE '         ' TO F
DO WHILE .NOT. C='n'
CLEAR
@ 5,10 SAY '╟δ╩Σ╚δ╘┬╖▌:' GET D
@ 6,10 SAY '╟δ╩Σ╚δ╔Φ▒╕▒α║┼:' GET F
@ 7,10 SAY '╟δ╩Σ╚δ╘┬╘╦╫¬╣ñ╩▒:' GET E
READ
CLEAR
@ 4,30 SAY "╔╘      ║≥"
IF EOF().AND.BOF()
STORE SUBS(D,1,2) TO J1
STORE VAL(J1) TO J2
STORE J2*100 TO J3
STORE STR(J3,4) TO J4
APPEND BLANK
REPLA YY1 WITH J4
REPLA YY2 WITH 0
APPEND BLANK
REPL YY1 WITH D
REPL YY2 WITH E
ELSE
IF SUBS(D,4,1)='1'
GO BOTT
IF VAL(SUBS(YY1,1,2))<VAL(SUBS(D,1,2))
STORE YY2 TO A
STORE YY1 TO B
GO 1
REPL YY2 WITH A
REPL YY1 WITH B
GO 2
DELE NEXT 12
PACK
APPEND BLANK
REPLACE YY1 WITH D
REPLACE YY2 WITH E
ELSE
REPLACE YY2 WITH YY2+E
ENDIF
ELSE
LOCAT FOR YY1=D
IF YY1=D
REPLACE YY2 WITH YY2+E
ELSE
APPEND BLANK
REPLACE YY1 WITH D
REPLACE YY2 WITH YY2+E
ENDIF
ENDIF
ENDIF
*IF VAL(D)>=1 .AND. VAL(D)<=12
*GO (VAL(D)+1)
*REPLACE YY2 WITH YY2+E
*ELSE
*LOOP
*ENDIF
USE SB
LOCATE FOR SB1=F
IF SB1=F
REPLACE SB30 WITH SB30+E
ENDIF
USE BJH
LOCATE FOR BJH1=F
IF BJH1=F
REPLACE BJH7 WITH BJH7+E
REPLACE BJH9 WITH BJH9+E
REPLACE BJH11 WITH BJH11+E
REPLACE BJH13 WITH BJH13+E
ENDIF
USE NGZ
LOCATE FOR NGZ2=F
IF NGZ2=F
REPLACE NGZ5 WITH NGZ5+E
ENDIF
USE YHF
LOCATE FOR YHF1=F
IF YHF1=F
REPLACE YHF4 WITH YHF4+E
ENDIF
USE YY
CLEAR
@ 4,30
ACCE "                           ╗╣ ╝╠ ╨° ╢┴ ╩² ┬≡ ? (Y/N) " TO C
STOR '    ' TO D
STOR "         " TO F
USE NGZ
STOR NGZ6 TO E
USE YY
ENDDO
RETURN