home *** CD-ROM | disk | FTP | other *** search
- requestfile >ENV:xfile RAM: NOICONS TITLE "Save Disk Data as?"
- IF not $xfile
- skip 1
- ENDIF
-
- echo ""
- echo "Insert Disk into drive DF0:"
- echo "Press RETURN to start..."
- setenv >NIL: pathname ?
-
- echo >ENV:xfile2 `echo $xfile`
- delete >NIL: ENV:xfile
-
- echo ""
- echo "Reading disk, Please Wait..."
- echo ""
-
- Disk2File.dat >$xfile2
-
- delete >NIL: ENV:xfile2
- lab 1
-