Liren Large Software Subsidy 6/06.iso/b/b034/xy.img/S4/DY9.PRG

Text File | 1980-01-01 | 4.0 KB | 176 lines

clear
set device to print
@ 0,40 SAY "╗¬─╧╩ª╖╢┤≤╤º║»╩┌╤º╔·╚╦╩²═│╝╞▒φ <▒φ╥╗>"
@ 1,80 SAY "  ─Ω     ╘┬      ╚╒"
@ 2,0 SAY "ª░ªñª╨ªñªñª╨ªñªñªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñª╨ªñªñªñªñì
ªñªñªñªñª╨ªñªñªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñª╨ªñªñì
ªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñª┤"
@ 3,0 SAY "ªª─Ωªª    ªª     ╓╨   ╬─    ªª     ╒■   ╓╬    ªª   ╛¡╝├╣▄ì
└φ     ªª     ╛¡╝├╖¿     ªª  ╢╘═Γ╛¡╝├├│╥╫  ªª     ╡╪   └φ    ªª     ì
└·   ╩╖    ªª     ╩²   ╤º   ªª"
@ 4,0 SAY "ªª╝╢ªª    ªª                ªª                ªª                ì
ªª                ªª                ªª                ªª                ì
ªª"
@ 5,0 SAY "ª└ªñªαªñªñªαªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªαªñªñªñªñªñì
ªñªñªñªαªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªαªñªñªñì
ªñªñªñªñªñªαªñªñªñªñªñªñªñªñª╚"
@ 6,0 SAY "ªª  ªª╚╦╩²ªª"
USE ZK1
M=1
N=1
Z="01"
DO WHILE M<5
X="83"
DO WHILE N<=8
FN1="&Z"+"&X"+"001"
LOCATE FOR BXH="&FN1"
RN1=RECNO()
X=STR(VAL("&X")+1,2)
FN2="&Z"+"&X"+"001"
LOCATE FOR BXH="&FN2"
RN2=RECNO()
RN=RN2-RN1
? RN*100
GOTO RN1
IF RN>=1.AND."&BM"<>"    "
I=1
BB=0
DO CASE
   CASE RN=1
   BB=B1+B2
   @ PROW(),PCOL()+5 SAY STR(BB,4)+"        ªª"
   SKIP+1
    CASE RN=2
    DO WHILE I<=RN
    BB=BB+B1+B2
    SKIP+1
    I=I+1
    @ PROW(),PCOL()+I*5 SAY STR(BB,4)+"        ªª"
    ENDDO
    CASE RN=3
    DO WHILE I<=RN
    BB=BB+B1+B2
    SKIP+1
    I=I+1
    ENDDO
    @ PROW(),PCOL()+5*I SAY STR(BB,4)+"        ªª"
    CASE RN=4
    DO WHILE I<=RN    BB=BB+B1+B2
    SKIP+1
    I=I+1
    @ PROW(),PCOL() SAY STR(BB,4)+"        ªª"
    ENDDO
    CASE RN=5
    DO WHILE I<=RN
    BB=BB+B1+B2
    SKIP+1
    I=I+1
    ? BB*100
    @ PROW(),PCOL() SAY STR(BB,4)+"        ªª"
    ENDDO
     ENDCASE
ELSE
    @ PROW(),PCOL()+16 SAY "ªª"
    SKIP+1
ENDIF
ENDDO
GOTO RN1
@ PROW()+1,0 SAY "ªª░╦ª└ªñªñªαªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªαªñì
ªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñì
ªñªαªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñª╚"
@ PROW()+1,0 SAY "ªª╡╪╟°ªª"
I=1
IF RN=1.AND.BM<>"    "
   DO CASE
      CASE RN=1
      BM1=SUBSTR(BM,1,2)
      BM2=SUBSTR(BM,3,2)
      @ PROW(),PCOL() SAY BM+"            ªª"
      SKIP+1
      CASE RN=2
      DO WHILE I<=RN
      @ PROW(),PCOL() SAY BM
      SKIP+1
      I=I+1
      @ PROW(),PCOL() SAY "          ªª"
      ENDDO
      CASE RN=3
      DO WHILE I<=RN
      @ PROW(),PCOL() SAY BM
      SKIP+1
      I=I+1
      @ PROW(),PCOL() SAY "       ªª"
      ENDDO
      CASE RN=4
      DO WHILE I<=RN
      @ PROW(),PCOL() SAY BM
      SKIP+1
      I=I+1
      @ PROW(),PCOL() SAY "    ªª"
      ENDDO
      CASE RN=5
      DO WHILE I=<RN
      @ PROW(),PCOL() SAY BM
      SKIP+1
      I=I+1è      @ PROW(),PCOL() SAY "ªª"
      ENDDO
CASEEND
 ELSE
     @ PROW(),PCOL()+16 SAY "ªª"
     SKIP+1
 ENDIF
 @ PROW()+1,0 SAY "ªª  ª└ªñªñªαªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªαªñì
ªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñì
ªαªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñª╚"
@ PROW()+1,0 SAY "ªª  ªª╚╦╩²ªª"
GOTO RN1
I=1
IF RN=1.AND.BM="    "
    DO CASE
       CASE RN=1
       @ PROW(),PCOL() SAY STR(B1+B2,3)+"             ªª"
       SKIP+1
       CASE RN=2
       DO WHILE I=<RN
       @ PROW(),PCOL() SAY STR(B1+B2,3)
       SKIP+1
       I=I+1
       ENDDO
       @ PROW(),PCOL() SAY "          ªª"
       CASE RN=3
       DO WHILE I<=RN
       @ PROW(),PCOL() SAY STR(B1+B2,3)
       SKIP+1
       I=I+1
       ENDDO
       @ PROW(),PCOL() SAY "        ªª"
       CASE RN=4
       DO WHILE I=<RN
       @ PROW(),PCOL() SAY STR(B1+B2,3)
       SKIP+1
       I=I+1
       ENDDO
       @ PROW(),PCOL() SAY "    ªª"
       CASE RN=5
       DO WHILE I<=RN
       @ PROW(),PCOL() SAY SRT(B1+B2)
       SKIP+1
       I=I+1
       ENDDO
       @ PROW(),PCOL() SAY "ªª"
       CASEEND
ELSE
    @ PROW(),PCOL()+16 SAY "ªª"
    SKIP+1
ENDIF
N=N+1
GOTO RN1
Z=SUBSTR(STR(VAL("&Z")+101,3),2,2)
ENDDO NèM=M+1
GOTO TOP
X=STR(VAL("&X")+1,2)
ENDDO M
set device screen
RETURN