home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / NLTJ.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.8 KB  |  91 lines
  1.         *****─Ω┴Σ═│╝╞(NLTJ)*****
  2. STORE .T. TO LINT
  3. STORE 0 TO XIA,SHANG,ZSHU,SHU
  4. CLEAR
  5. @ 3,20 SAY "0.  ═╦│÷"
  6. @ 4,20 SAY "1.  ╒╥│÷"+"&ZZ"+"╫¿╥╡╫ε┤≤║═╫ε╨í─Ω┴Σ"
  7. @ 5,20 SAY "2.  ╤í╘±═│╝╞╠⌡╝■"
  8. @ 6,20 SAY "3.  ╥╗░π═│╝╞"
  9. USE B:AC2&Z INDEX B:I2AC2&Z
  10. STORE " " TO LLO
  11. @ 8,20 SAY "╟δ╤í╘±╥╘╔╧╣ª─▄╝ⁿ(0--2)" GET LLO 
  12. READ
  13. CLEAR
  14. DO CASE
  15.    CASE LLO="0"
  16.    RETURN
  17.    CASE LLO="1"
  18.    DO WHILE LINT  
  19.       @ 2,20 SAY "╧╓╘┌╤░╒╥╓╨,╟δ╔╘╡╚┤²!"
  20.       @ 4,20 SAY "&ZZ"+"╫¿╥╡╚δ╤º╩▒╫ε╨í─Ω┴Σ╩╟:"+STR(B2,2)
  21.       GOTO BOTTOM
  22.       @ 6,20 SAY "&ZZ"+"╫¿╥╡╚δ╤º╩▒╫ε┤≤─Ω┴Σ╩╟:"+STR(B2,2)
  23.       WAIT"░┤╚╬╥Γ╝ⁿ╝╠╨° !" 
  24.       CASE LLO="2"
  25.            @ 2,20 SAY "╟δ╕°│÷═│╝╞─Ω┴Σ╡─╧┬╜τ" GET XIA
  26.            @ 4,20 SAY "╟δ╕°│÷═│╝╞─Ω┴Σ╡─╔╧╜τ" GET SHANG
  27.            READ
  28.           STORE "  "TO X
  29.           STORE " " TO YES1,YES2   
  30.            @ 6,20 SAY "&ZZ"+"╫¿╥╡░┤╕≈─Ω╝╢═│╝╞(Y),░┤╫¿╥╡═│╝╞(N)" GET YES1
  31.            READ
  32.            IF UPPER(YES1)="Y"
  33.               @ 7,20 SAY "╩Σ╚δ╕├─Ω╝╢(╚τ84,85,86...)" GET X
  34.               READ 
  35.               @ 9,20 SAY "╒²╘┌═│╝╞,╟δ╔╘╡╚║≥ !"
  36.               COUNT FOR B2>=XIA.AND.B2<=SHANG.AND.X=SUBSTR(BIN,1,2) TO SHU     
  37.               X=X+"╝╢"              
  38.             ELSE
  39.               @ 9,20 SAY "╒²╘┌═│╝╞,╟δ╔╘╡╚║≥ !"
  40.               COUNT FOR B2>=XIA.AND.B2<=SHANG TO SHU
  41.             ENDIF
  42.       CLEAR
  43.       @ 2,20 SAY "&X"+"&ZZ"+"╫¿╥╡"+STR(XIA,2)+"--"+STR(SHANG,2)+"╦Ω╡─╚╦╩² ì
  44. :"+STR(SHU,4)
  45.       STORE " " TO YES2
  46.       @ 6,20 SAY "╝╠╨°═│╝╞┬≡ ? (Y/N)" GET YES2
  47.       READ
  48.       IF UPPER(YES2)="Y"
  49.          CLEAR
  50.          ZSHU=ZSHU+SHU
  51.          @ 4,20 SAY "&X"+"&ZZ"+"╫¿╥╡"+STR(XIA,2)+"--"+STR(SHANG,2)+"╦Ω╚╦╩²"+STR(SHU,4)
  52.          @ 6,20 SAY "╡▒╟░└█╝╞"+STR(XIA,2)+"--"+STR(SHANG,2)+"╦Ω╚╦╩²:"+STR(ZSHU,5)
  53.          WAIT "            ░┤╚╬╥Γ╝ⁿ╝╠╨° !"
  54.          LOOP
  55.        ENDIF
  56.        STORE .F. TO LINT
  57.      ENDDO
  58.      CASE LLO="3"
  59.           @ 2,20 SAY "╧╓╘┌╒²═│╝╞╟δ╡╚║≥!"
  60.           STORE 0 TO MGB1,MGB2,MGB3,MGB4,MGB5
  61.           DO WHILE .NOT. EOF()
  62.              IF B2<20
  63.                 MGB1=MGB1+1
  64.              ENDIF
  65.              IF B2>=20.AND.B2<30
  66.                 MGB2=MGB2+1
  67.              ENDIF
  68.              IF B2>=30.AND.B2<40
  69.                 MGB3=MGB3+1
  70.              ENDIF
  71.              IF B2>=40.AND.B2<50   
  72.                 MGB4=MGB4+1
  73.              ENDIF
  74.              IF B2>=50
  75.                 MGB5=MGB5+1
  76.              ENDIF
  77.          SKIP+1
  78.       ENDDO
  79.     CLEAR
  80.     @ 2,20 SAY "20 ╦Ω╥╘╧┬ :"+STR(MGB1)+" ╚╦ "
  81.     @ 3,20 SAY "20--29 ╦Ω :"+STR(MGB2)+" ╚╦"
  82.     @ 4,20 SAY "30--39 ╦Ω :"+STR(MGB3)+" ╚╦"
  83.     @ 5,20 SAY "40--49 ╦Ω :"+STR(MGB4)+" ╚╦ "
  84.     @ 6,20 SAY "50 ╦Ω╥╘╔╧ :"+STR(MGB5)+" ╚╦"
  85.     USE AC7
  86.     LOCATE FOR XIBIN="&Z"
  87.     REPL GB1 WITH MGB1,GB2 WITH MGB2,GB3 WITH MGB3,GB4 WITH ì
  88. MGB4,GB5 WITH MGB5
  89.     WAIT "░┤╚╬╥╗╝ⁿ╝╠╨°!"
  90.   ENDCASE
  91. RETURN