5748208 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n doseml.bas
   1: ON COM(1) GOSUB Comm1
   2: COM(1) ON
   3: OPEN "COM1:2400" FOR RANDOM AS #1
   4: PRINT #1, "Welcome to Earth Third Rock From The Sun..."
   5: PRINT #1, "Dos Emulation!. Host is sometimes required to send Screen images"
   6: 10 PRINT #1, ""
   7: SHELL "CD>dd.tmp"
   8: OPEN "dd.tmp" FOR INPUT AS #2
   9: LINE INPUT #2, curdir$
  10: CLOSE #2
  11: KILL "dd.tmp"
  12: PRINT #1, curdir$; ">"
  13: PRINT curdir$; ">"
  14: GOTO 10
  15: 
  16: Comm1:
  17: LINE INPUT #1, f$
  18: PRINT f$;
  19: RETURN
  20:
5748209 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:01:51