Using KSAM/XL and KSAM 64 (32650-90886)

Appendix B 233
BASIC/V Intrinsics
BKCLOSE
Figure B-1. Closing a KSAM File with BKCLOSE
3610 REM ********************************************************
3620 REM * CLOSE A KSAM FILE *
3630 REM ********************************************************
3640 REM
3650 REM F IS THE FILE NUMBER OF A KSAM FILE
3660 REM DEFINED BY A CALL TO BKOPEN
3670 REM
3680 CALL BKCLOSE(F,S$)
3690 REM
3700 REM NOW DETERMINE WHETHER THIS CALL SUCCEEDED
3710 REM
3720 IF S$[1,1]<>"0" THEN DO
3730 REM N$ CONTAINS THE NAME OF THE KSAM FILE
3740 REM S$ CONTAINS THE STATUS CODE SET BY THE PRECEDING CALL
3750 PRINT "UNABLE TO CLOSE ";N$;" ERROR ";S$[1;1];" DETAIL ";S$[2]
376O CALL BKERROR(S$,M$)
3770 PRINT M$
3780 DOEND