home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc1 / db-comm.lzh / T.PRG < prev    next >
Encoding:
Text File  |  1986-08-08  |  102 b   |  11 lines
  1. do while .t.
  2. load inport
  3. c = "  "
  4. call inport with c
  5. ? asc(c)
  6. if c = "a"
  7.     exit
  8. endif
  9. enddo
  10.  
  11.