home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / WB.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  504 b   |  21 lines
  1. STOR M1 TO M
  2. STOR BF1 TO BF
  3. STOR ALF1 TO ALF
  4. STOR Z11 TO Z1
  5. STOR DIR1 TO DIR
  6. STOR LK1 TO Q
  7. SET TALK ON
  8. INPUT ' ┼Σ ±ε ╬╧ ┬╓ │▌ ╩² =' TO Z2
  9. ACCEP ' ┼Σ ±ε ╬╧ ┬╓ ═╝ ║┼ :' TO DRAW
  10. INPUT ' ╬╧ ╕╦ ╛½ ╢╚ ╡╚ ╝╢ = (7 - 9)' TO JD
  11. ACCEPT ' ╬╧ ╕╦ ▓α ╧╢ =(DE,DC)' TO CHX
  12. SET TALK OFF
  13. USE \HOUSEM\DBF\WB
  14. APPE BLANK
  15. REPL M1 WITH M,BF1 WITH BF,ALF1 WITH ALF,Z11 WITH Z1,DIR1 WITH DIR
  16. REPL JD1 WITH JD,CHX1 WITH CHX,Z21 WITH Z2,DRAW1 WITH DRAW
  17. DO \HOUSEM\PRG\WBTJD
  18. USE \HOUSEM\DBF\OUTLF
  19. GOTO NR
  20. RETURN
  21.