home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b068 / 3.img / BMK.IDX < prev    next >
Encoding:
Text File  |  1980-12-22  |  1.0 KB  |  68 lines
  1. **************┤≥╙í╗·╓╞╞╛╓ñ
  2. SET TALK OFF
  3. SET SAFE OFF
  4. CLOSE DATA
  5. USE XTDAK
  6. NI=NIAN
  7. YI=YUE
  8. USE
  9. ****TEST THE PRINT IS READY***
  10. SET ESCA OFF
  11. SET DEVI TO SCRE
  12. TEST=.F.
  13. I=0
  14. T=1
  15. T1=1
  16. T2=2
  17. DO WHIL SYS(13)#'READY'
  18.    @ 23,2 SAY SPAC(74)
  19.    SET COLO TO G+/R
  20.    @ 23,10 SAY '┤≥╙í╗·├╗╫╝▒╕║├ú¼╟δ╧╚╫╝▒╕║├┤≥╙í╗·░┤╚╬╥╗╝ⁿ╝╠╨°(╗≥░┤ECS╝ⁿ╖╡╗╪)!'
  21.    SET COLO TO GR+/B
  22.    I=INKEY(I)
  23.    IF I=27
  24.       @ 23,2 SAY SPAC(74)
  25.       TEST=.F.
  26.       RETU
  27.    ELSE
  28.       IF SYS(13)='READY'
  29.      TEST=.T.
  30.      EXIT
  31.       ELSE
  32.      I=0
  33.      LOOP
  34.       ENDI
  35.    ENDI
  36. ENDD
  37. USE PRC
  38. I=0
  39. DO WHILE I<15
  40.   IF I>9
  41.    J=STR(I,2)
  42.   ELSE
  43.    J=STR(I,1)
  44.   ENDIF
  45.   YKZF&J=KZF
  46.   I=I+1
  47.   SKIP
  48. ENDDO
  49. QU=' '
  50. @12,0 SAY SPAC(78)
  51. @ 22,20 SAY '╜╙═¿┤≥╙í╗·ú¼╡≈╒√║├┤≥╙í╓╜ú¼░┤╚╬╥╗╝ⁿ' GET QU
  52. READ
  53. @ 22,2 CLEA TO 23,77
  54. QQ2=' '
  55. @ 22,20 SAY '┤≥╙í╡╟╒╩╟░╞╛╓ñ░▓ Y ╝ⁿ,╖±╘≥░▓╚╬╥Γ╝ⁿ' GET QQ2
  56. READ
  57. IF UPPER(QQ2)='Y'
  58.   SELE 1
  59.   USE PZZCK
  60.   ELSE
  61.   SELE 1
  62.   USE PZSJK
  63. ENDIF
  64. QQ2=' '
  65. CLEA
  66. @ 23,20 SAY '╒²╘┌┤≥╙í╞╛╓ñú¼ ╟δ╡╚║≥......'
  67. SELE 1
  68. INDE ON T