!****************************************************************************
!		SAMPLE PROGRAM TO DISPLAY FREE RECORDS
!			IN AN ISAM FILE
!****************************************************************************
!DONATED BY GOLDEN CITY DATA SYSTEMS PTY LTD
!36 WATTLE STREET,BENDIGO VIC AUSTRALIA
!FOR USE BY AMUS MEMBERS
!
!
	MAP1 FILE'SPEC,S,30      ! FILE NAME
	MAP1 STATUS'FLAG,B,1	 ! 0 = FILE FOUND   1 = FILE NOT FOUND
	MAP1 FREE'REC,S,6        ! NO OF FREE RECORDS IN FILE
	MAP1 FREE'INDEX,S,6      ! NO OF FREE INDEX BLOCKS
	MAP1 USED'REC,S,6        ! USED RECORDS IN FILE
!
START:
	PRINT TAB(-1,0)
	PRINT TAB(10,20);"ENTER FILENAME";TAB(10,35);
	INPUT,FILE'SPEC
	XCALL ISAM1,FILE'SPEC,FREE'REC,FREE'INDEX,USED'REC,STATUS'FLAG
	IF STATUS'FLAG # 0 GOTO START
	PRINT TAB(-1,0)
	TOTAL = (VAL(USED'REC)+VAL(FREE'REC))
	PRINT TAB(5,20);"DETAILS OF ";FILE'SPEC;" ARE";
	PRINT TAB(6,20);"***********";"******";"****";
	PRINT TAB(8,20);"MAX NO OF RECORDS ..";TOTAL USING "######"
	PRINT TAB(10,20);"LESS USED...........";VAL(USED'REC) USING "######"
	PRINT TAB(12,20);"                    ";"======"
	PRINT TAB(14,20);"AVAILABLE RECORDS   ";VAL(FREE'REC) USING "######"
	PRINT TAB(16,20);"                    ";"======"
	PRINT TAB(20,20);"FREE INDEX BLOCKS   ";VAL(FREE'INDEX) USING "######"