home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b032 / 6.img / 31 / ZCX133.PRG < prev    next >
Encoding:
Text File  |  1987-08-17  |  285 b   |  22 lines
  1. dime dm(51)
  2. sele 10
  3. use dmk
  4. idm=1
  5. do while idm<52
  6.  dm(idm)=ywdh
  7.  skip
  8.  idm=idm+1
  9. enddo
  10. use
  11. sele 5
  12. if wz=9
  13.  @ 21,0 CLEAR
  14.  wz=1
  15. else
  16.  wz=wz+1
  17. endif
  18. @ 21+int((wz-1)/3),mod(wz-1,3)*27 SAY trim(ZW)
  19. @ row(),col()+1 say trim(DM(LX))
  20. *@ row(),col()+2 SAY trim(ZWMC)
  21. RETU
  22.