home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP9_2.PRG < prev    next >
Encoding:
Text File  |  1993-10-04  |  1.4 KB  |  50 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP9_2.PRG                                           ⌐ª
  3. *⌐ª     Function: ╩╣╙├╤╒╔½┤·┬δ "X" ╡─╖╜╖¿, ╩Σ╚δ├▄┬δ╖╢└².               ⌐ª
  4. *⌐ª   Creat data: 93.10                                                ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. CLEAR
  8. * ╢¿╥σ┴╜╕÷┤░┐┌
  9. DEFINE   WINDOW WIN1 FROM 10,20 TO 14,60 COLOR SCHEME 5
  10. DEFINE   WINDOW WIN2 FROM 10,20 TO 15,60 COLOR SCHEME 7
  11. ACTIVATE WINDOW WIN1
  12. keyword=SPACE(8)
  13. N=0
  14. DO WHILE .T.
  15.   @ 1,4  SAY ' ╟δ╩Σ╚δ├▄┬δ:'
  16.   SET COLOR TO +W/RB,X
  17.   @1,22  GET keyword  PICT 'XXXXXXXX'
  18.   READ
  19.   * ╚τ╣√╩Σ╚δ┐┌┴ε╒²╚╖, ╖╡╗╪╡≈╙├│╠╨≥╝╠╨°╜°╨╨,
  20.   * ╚τ╣√▓╗╒²╚╖, ╘╩╨φ╓╪╨┬╩Σ╚δ N ┤╬, ╚╗║≤═╦│÷│╠╨≥, ╖╡╗╪ DOS
  21.   IF keyword='12345678'
  22.      DEACTIVATE WINDOW WIN1
  23.      DEACTIVATE WINDOW WIN2
  24.      CLEAR
  25.      RETU
  26.   ELSE
  27.       N=N+1
  28.       * ╘╩╨φ╩Σ╚δ N ┤╬┐┌┴ε, ╧╓╘┌ N ╬¬ 3.
  29.       IF N<3
  30.          WAIT WINDOW "╩Σ╚δ├▄┬δ▓╗╒²╚╖, ╟δ╓╪╨┬╩Σ╚δ!" NOWAIT
  31.          LOOP
  32.       ELSE
  33.          * ╡▒ N>3, ╜½╧╘╩╛╥╘╧┬╨┼╧ó▓ó╖╡╗╪ DOS╧╡═│.
  34.          ACTIVATE WINDOW WIN2
  35.          @ 1,2 SAY "╩Σ╚δ├▄┬δ┤φ╬≤, ─·╬▐╚¿╩╣╙├▒╛│╠╨≥!"
  36.          @ 2,2 SAY "╟δ║═╙╨╣╪╚╦╘▒┴¬╧╡, ╥╘╡├╡╜░∩╓·íú"
  37.          WAIT " "
  38.          SET COLOR TO
  39.          DEACTIVATE WINDOW WIN1
  40.          DEACTIVATE WINDOW WIN2
  41.          CLEAR
  42.          QUIT
  43.       ENDIF
  44.   ENDIF
  45. ENDDO
  46. IT
  47.       ENDIF
  48.   ENDIF
  49. ENDDO
  50.