10 MAP1 CONTIG,F,6
20 MAP1 TOTAL,F,6
30 MAP1 DEV,S,5
40 INput "Device: ";DEV
50 XCALL DSKFRE,DEV,CONTIG,TOTAL
60 print DEV;" contiguous: ";CONTIG;", free: ";TOTAL;"."
70 goto 40