home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / GETHZ.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  632 b   |  16 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: GETHZ.PRG                                            ⌐ª
  3. *⌐ª     Function: ╩╣╙├ Turbo Pascal ╡─║║╫╓┤╩╡Σ╕¿╓·╩Σ╚δ┤░┐┌╡≈╙├│╠╨≥     ⌐ª
  4. *⌐ª        Proce: INPUTW.COM                                           ⌐ª
  5. *⌐ª    BF & File: INPTW.TXT   OUTW.TXT                                 ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. SELECT 3
  8. USE WWW16 ALIAS DD
  9. ZAP
  10. RUN INPUTW.COM
  11. APPE FROM OUTW.TXT SDF    && OUTW.TXT  ╩╟ INPTW.COM ╡─╩Σ│÷╬─╝■
  12. WW3=DD->AA                && WW3 ╩Σ│÷▒Σ┴┐
  13. USE
  14. SELECT 1
  15. RETURN
  16.