home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / TS.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  281 b   |  25 lines
  1. @ 1,50 clear
  2. set talk off
  3. a1=.t.
  4. do while a1
  5. @ 1,50 clear
  6. loca for dm1=a
  7. l=1
  8. do while .not. eof()
  9. @ l,50 say " "+dm2+". "+dm3
  10. l=l+1
  11. cont
  12. enddo
  13. set cons off
  14. wait ' ' to w
  15. set cons on
  16. do case 
  17. case w='r'
  18. retu
  19. otherwise
  20. ? chr(7)
  21. a1=.t.
  22. endcase 
  23. enddo a1
  24. retu
  25.