;======================================
; drives_main (enumerate disk drives)
;======================================

program drives_main

include library
include c64
include 1:diskutils.e

byte column
byte row
word i

;======================================

begin

column=curcol
row=curline
output "#cenumerating drives..."
drvquery
curset column,row ;overwrite message
output "#cattached drives:     "
for i=0 to numdrives-1
  if drives[i]
    output"#cdrive #2w: #s",i+8,drvdesc(drives[i])
put cr

end