5748259 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n copyfile.bas
   1: OPEN "basic.txt" FOR INPUT AS #1
   2: DO UNTIL EOF(1)
   3: LINE INPUT #1, g$
   4: xxx$ = "MOVE " + RTRIM$(LTRIM$(g$)) + " H:\DOS"
   5: SHELL (xxx$)
   6: LOOP
   7: CLOSE 1
   8: 
5748260 [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:15