home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / COMM / WINCOMM5.ZIP / DDESERV.WMS < prev    next >
Encoding:
Text File  |  1990-09-28  |  198 b   |  16 lines
  1. ; Test of DDE server advise
  2.  
  3. ; Wait and update a$ every second
  4. j=1
  5. print("We are started^M^J")
  6.  
  7. again:
  8.  
  9. a$=strint(j)
  10. print(a$+"^M^J")
  11. i=time?+1
  12. do until(time?>i)
  13. j=j+1
  14. goto again
  15. end
  16.