home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 247
/
247.d81
/
e.drives
< prev
next >
Wrap
Text File
|
2022-08-26
|
354b
|
22 lines
u PRINT THIS
FIND AVAILABLE DRIVES
---------------------
DV=PEEK(186):IFDV<8THENSTOP
K=0
CLOSE2
FORX=8TO29
OPEN2,X,2:CLOSE2
IFST=0THENK=K+1:PO831+X,X
NEXT
The available drives will be
listed, beginning at location
832:
FORX=1TOK
PRINT PEEK(831+X)
NEXT