home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / ck.img / S5 / CK11.PRG < prev    next >
Encoding:
Text File  |  1988-12-02  |  1.6 KB  |  73 lines
  1. * CK11.PRG ╠ε╚δ┐Γ╡Ñ
  2. SET ECHO OFF
  3. SET TALK OFF
  4. SET EXACT ON
  5. JS="Y"
  6. SH14='│÷│º'
  7. SH17='▒ú ╣▄ ╘▒'
  8. DO WHILE JS<>"N".AND.JS<>"n"
  9. SH='╚δ┐Γ╡Ñ'
  10. CLEAR
  11.     STORE "        " TO DM1
  12.     @2,20 SAY "╟δ╩Σ╚δ▓·╞╖┤·┬δ,╗╪│╡╘≥╖╡╗╪--" GET DM1 PICT "XXXXXXXX"
  13.     READ
  14.     IF DM1=""
  15.         JS="N"
  16.         LOOP
  17.     ENDIF
  18.     USE &P0:CK88
  19.     LOCA FOR C01=DM1
  20.     IF EOF().OR.BOF()
  21.       APPE FROM CK0
  22.       REPL C01 WITH DM1,NAM WITH " ",DAT WITH  " "
  23.       CLEAR
  24.       DO SHE1
  25.       READ
  26.       WAIT "╩Σ╚δ╩╟╖±╒²╚╖ú█ú┘ú»ú╬ú▌ " TO ZQ
  27.       DO WHILE ZQ="N".OR.ZQ="n"
  28.         CLEAR
  29.         DO SHE1
  30.         READ
  31.         WAIT "╩Σ╚δ╩╟╖±╒²╚╖ú█ú┘ú»ú╬ú▌ " TO ZQ
  32.         CLEAR GETS
  33.       ENDDO
  34.       REPL C08 WITH C06*C07 
  35.       UL=C06
  36.     ELSE
  37.       CLEAR
  38.       M=0
  39.       DO SHE2
  40.       WAIT '┤╦▓·╞╖╥╤╛¡┤µ╘┌,╩╟╖±╘÷╝╙╩²┴┐ú█ú┘ú»ú╬ú▌ ' TO ZS
  41.       CLEAR
  42.       IF ZS='Y'.OR.ZS='y'
  43.         STORE 00000.00 TO UL
  44.         @4,20 SAY '╟δ╩Σ╚δ╕├▓·╞╖╡─▒╛┤╬╚δ┐Γ╩²┴┐' GET UL PICT "99999.99"
  45.         READ
  46.         WAIT "╩Σ╚δ╩╟╖±╒²╚╖ú█ú┘ú»ú╬ú▌ " TO ZQ
  47.         CLEAR GETS
  48.         DO WHILE ZQ="N".OR.ZQ="n"
  49.           CLEAR
  50.           @4,20 SAY '╟δ╩Σ╚δ╕├▓·╞╖╡─▒╛┤╬╚δ┐Γ╩²┴┐' GET UL PICT "99999.99"
  51.           READ
  52.           WAIT "╩Σ╚δ╩╟╖±╒²╚╖ú█ú┘ú»ú╬ú▌ " TO ZQ
  53.           CLEAR GETS
  54.         ENDDO
  55.         REPL C06 WITH C06+UL
  56.         REPL C08 WITH C06*C07
  57.       ELSE
  58.         JS="N"
  59.       LOOP
  60.       ENDIF
  61.     ENDIF
  62.         USE
  63.         USE &P0:CKI
  64.         DELE ALL FOR C01=DM1
  65.         PACK
  66.         APPE FROM CK88 FOR C01=DM1
  67.         REPL C06 WITH UL,C08 WITH UL*C07,NAM WITH " ",DAT WITH " "
  68.         USE
  69.     WAIT "╩╟╖±╝╠╨°╩Σ╚δú█ú┘ú»ú╬ú▌ " TO JS
  70. ENDDO
  71. USE
  72. RETU
  73.