home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / RPTWZMO.PRG < prev    next >
Encoding:
Text File  |  1990-04-27  |  729 b   |  46 lines
  1. ** BEGIN OF RPTWZMO.PRG **
  2. ** ▒¿▒φ╬▓╫║▒α╝⌐│╠╨≥     **
  3. CLEAR
  4. BNO=''
  5. BGM=''
  6. DO SELEB
  7. IF LEN(BGM)=0
  8. RETU
  9. ENDIF
  10. USE BWZK
  11. SET FILT TO B_NO=BNO
  12. GO TOP
  13. IF EOF()
  14. WZHS=0
  15. @ 09,20 SAY '╟δ╩Σ╚δ╨╨╩²[0-10]:' GET WZHS PICT '99' RANG 0,10
  16. READ
  17. IF WZHS=0
  18. USE
  19. RETU
  20. ENDIF
  21. I=1
  22. DO WHILE I<=WZHS
  23. APPE BLAN
  24. REPL B_NO WITH BNO
  25. I=I+1
  26. ENDDO
  27. SET FILT TO B_NO=BNO
  28. GO TOP
  29. ENDIF
  30. SET MENU ON
  31. BROW FIELDS ZX1,WZL,ZX2,WZM,ZX3,WZR WIDTH 20 NOAP
  32. GO TOP
  33. DO WHILE .NOT.EOF()
  34. IF .NOT.(ZX1$'ABCD'.AND.ZX2$'ABCD'.AND.ZX3$'ABCD')
  35. WAIT '╫╓╨═┤·┬δ╙╨┤φ! ZX1 ZX2 ZX3 ▒╪╨δ╬¬ [A/B/C/D] ░┤╚╬╥Γ╝ⁿ╓╪╨┬╨▐╕─......'
  36. BROW FIELDS ZX1,WZL,ZX2,WZM,ZX3,WZR WIDTH 20 NOAP
  37. GO TOP
  38. ENDIF
  39. SKIP
  40. ENDDO
  41. SET MENU OFF
  42. USE
  43. RETU
  44. ** END OF RPTWZMO.PRG **
  45.  
  46.