home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / WW.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  476 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 SCHL1 TO Z2
  7. STOR ANGL1 TO B
  8. SET TALK ON
  9. INPUT ' ╬╧ ┬╓ ╛½ ╢╚ ╡╚ ╝╢ = (7 - 9)' TO JD
  10. ACCEPT ' ╬╧ ┬╓ ▓α ╧╢ =(DE,DC)' TO CHX
  11. ACCEP ' ┼Σ ±ε ╬╧ ╕╦ ═╝ ║┼ :' TO DRAW
  12. SET TALK OFF
  13. USE \HOUSEM\DBF\WW
  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,DRAW1 WITH DRAW
  17. DO \HOUSEM\PRG\WWTJD
  18. USE \HOUSEM\DBF\OUTLF
  19. GOTO NR
  20. RETURN
  21.