home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / DY5.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  741 b   |  52 lines
  1. CLEAR
  2. STORE .T. TO DYT
  3. DO WHILE DYT
  4. DO XZC
  5. CLEAR
  6. STORE "       " TO XH,MZ
  7. @ 2,18 SAY "╟δ╕°│÷╤º║┼: "GET XH
  8. @ 2,40 SAY "╗≥╕°│÷╨╒├√:" GET MZ
  9. READ
  10. IF XH<>"       "
  11. USE B:AC2&Z INDEX B:IBAC2&Z
  12. FIND &XH
  13. MMING=MING
  14. ELSE
  15. USE B:AC2&Z INDEX B:IMAC2&Z
  16. FIND &MZ
  17. MMING=MING
  18. ENDIF
  19. SET PRINT ON
  20. SET DEVICE TO PRINT
  21. ? CHR(27)+CHR(73)+CHR(74)
  22. ?
  23. ?
  24. ?
  25. ?
  26. SET PRINT OFF
  27. IF B11=" "
  28. MB11=B10
  29. ELSE
  30. MB11=B11
  31. ENDIF
  32. ? "&MB11"
  33. @ 1,8 SAY "&MB11"
  34. @ 2,0 SAY " "
  35. @ 3,0 SAY " "
  36. @ 4,0 SAY " "
  37. SET PRINT ON
  38. ? CHR(27)+CHR(73)+CHR(76)
  39. SET PRINT OFF
  40. @ 5,20 SAY "&MMING"
  41. @ 6,8 SAY "  "
  42. SET DEVICE TO SCREEN
  43. STORE " " TO YES1
  44. @ 7,8 SAY "╝╠╨°┤≥╙í┬≡ (Y/N) ?" GET YES1
  45. READ
  46. IF UPPER(YES1)="Y"
  47. LOOP
  48. ELSE
  49. STORE .F. TO DYT
  50. ENDDO
  51. RETURN
  52.