Specifications

132 Chapter 9
Saving and Recalling Files
Sample Program
Example 9-2 File listing (filelist.bas)
10 DIM Disk_info$[25000],Disk_data$(1:500)[255],Img$[20]
20 REAL Used_size,Free_size,Used_size_m,Free_size_m
30 INTEGER Info_len,Loc,N,I
40 !
50 ASSIGN @Agt4287a TO 717
60 !
70 OUTPUT @Agt4287a;":MMEM:CAT?"
80 ENTER @Agt4287a;Disk_info$
90 !
100 Info_len=LEN(Disk_info$)
110 Loc=1
120 N=1
130 FOR I=1 TO Info_len
140 IF Disk_info$[I;1]="," THEN
150 Disk_data$(N)=Disk_info$[Loc,I-1]
160 Loc=I+1
170 N=N+1
180 END IF
190 NEXT I
200 Disk_data$(N)=Disk_info$[Loc,Info_len]
210 !
220 Used_size=VAL(Disk_data$(1))
230 Free_size=VAL(Disk_data$(2))
240 Used_size_m=Used_size/1048576 ! 1MB = 1024KB = 1048576Byte
250 Free_size_m=Free_size/1048576 ! 1MB = 1024KB = 1048576Byte
260 Img$="10A,4D.2D,6A,10D,7A"
270 PRINT USING Img$;"Used size:",Used_size_m,"[MB] (",Used_size,"[By
te])"
280 PRINT USING Img$;"Free size:",Free_size_m,"[MB] (",Free_size,"[By
te])"
290 PRINT "File information:"
300 IF N<3 THEN
310 PRINT "Nothing!!"
320 ELSE
330 PRINT " Name Size[Byte]"
340 PRINT "==================== =========="
350 Img$="20A,2X,10D"
360 FOR I=3 TO N STEP 3
370 PRINT USING Img$;Disk_data$(I),VAL(Disk_data$(I+2))
380 NEXT I
390 END IF
400 !
410 END