home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b068 / 3.img / LBK.IDX < prev    next >
Encoding:
Text File  |  1992-01-10  |  1.0 KB  |  34 lines
  1. YBH TO AAA
  2. SELE 2
  3. USE KMDMK INDEX KMDMK
  4. SELE 3
  5. USE XJDZB
  6. SELE 1
  7. GO TOP
  8. DO WHIL .NOT.EOF()
  9.    TYBH1=TYBH
  10.    RIM=RI
  11.    BB1=BB
  12.    SELE 3
  13.    LOCA FOR BB=BB1
  14.    BBM=SUBS(KMMC,1,6)
  15.    SELE 1
  16.    SET PRIN ON
  17.    SET CONS OFF
  18. *  ? '`&16`'
  19.    ? &kzf3
  20.    ? SPAC(30)+' ╝╟  ╒╩  ╞╛  ╓ñ'
  21.    ? SPAC(30)+'ACCOUNT  VOUCHER'
  22.    ? SPAC(30)+'================'
  23.    ? &kzf2
  24.    ? &kzf8
  25.    ? SPAC(75)+'╚╒╞┌:'+'19'+NI+'─Ω'+YI+'╘┬'+RIM+'╚╒'+SPAC(37)+'▒╥╓╓:'+BBM;
  26.       +SPAC(10)+'╡┌'+TRIM(STR(TYBH,4))+'║┼'
  27.    ? SPAC(2)+'Date:_______________'+SPAC(112)+'F.C.'+SPAC(13)+'Voucher No.'
  28.    ? '⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨';
  29.      +'⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨';
  30.      +'⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'
  31.    ? '⌐ª                              ⌐ª                    ⌐ª';
  32.      +'                                ⌐ª            ⌐ª              ⌐ª';
  33.      +'          ⌐ª                              ⌐ª'
  34.    ? '⌐ª       ╒¬             ╥¬      ⌐ª    ╫▄  ╒╩  ┐