Table of Contents
Advertisement
78
10 REM MINI-DOS PROGRAM TO
ACCESS
DOS
20
REM FUNCTIONS FROM BASIC
30 DIM FILE$
(
40
)
,NAME2$(20)
40 REM GET DISK DIRECTORY
50 GRAPHICS 0
60 TRAP 100
:
0PEN #1,6,0,"D :*
.
*
"
70 FOR 1=1 TO 64
80 INPUT
#1,FILE$
~~
?
FILES
:
NE
XT
I
100 CLOSE #1
110
?
"DO YOU
WAIH TO
'
(
1)
REf~At'1E
A
FILE"
120"i"
:
7 "(2)
DELETE
A FILE"
:
?
:
7
"(3)
LOCK
A FILE"
130
?
:7
"(4)
Ut~LOCK
A FILE
":? :7
"(5)
(lUIT"
140
7
,7
"ENTER A NUt1BER (1-5
)
";
'
nWUT
I~
150 IF Nel OR N.5
THEN
140
160 ON N GOSUB
200,300,400,500
,
170:
GOTO 50
170 EllD
198 REM
SUBROUTINE
TO
RENRME A FILE
199 REM
USE
XIO
32
200
?
"ENTER
FILENRME TO
CHAN
GE
IN
THIS FORM
' D'
FILENRME
.
EXT"
210 nlPUT F I
LE$
220?
"ENTER
NEW
NRME FOR ";FILE!;" IN
THIS FORt'1
'
FILENRME
.
EXT"
230
INPUT
NRt'1E2$
235
237
240
250
FILE$
(
LENCFILE$
)
+l)=","
FILES(LEN(FILES
)
+I)=NAME2!
XIO
32,#1,O,O,FILE$
RETURI'~
REM
SUBROUTINE TO DELETE
A
299
REM USE
XIO
33
FILE
300
?
'7
"ENTER
FILENAME TO
DELETE IN
THIS
FORM'
D'FILENAME
.
EXT"
310
n~PUT
FILE$
320 ?
,?
"ARE YOU SURE YOU
~JAln
TO DE-
LETE
";
FILE$;"
(Y/N)";
330
n~PUT
IIAt'1E2$
Advertisement
Table of Contents
