;############## Calcuzap by Patrick Davidson

Read_Save_File:
	ld	hl,save_name
	call    _Mov9ToOP1		; copy (HL) to OP1
	bcall(_ChkFindSym)           
	ret     c
        
	ld	hl,save_identifier
	ld	b,8
	inc	de
	inc	de
compare_identifier:
	ld	a,(de)
	cp	(hl)
	jr	nz,save_not_matched
	inc	hl
	inc	de
	djnz	compare_identifier
	ex	de,hl
	ld	de,data_start
	ld	bc,scores_end-data_start
	ldir	        
        
save_not_matched:
	bcall(_ChkFindSym)
	bcall(_DelVar)
	ret
        
save_name:
	.db	AppVarObj,"CZAPSAVE",0
save_identifier:
	.db	"CZAP",5,26,82,6
        
Create_Save_File:
        ld	hl,8+scores_end-data_start
	bcall(_CreateAppVar)	
	ld	hl,save_identifier
	inc	de
	inc	de
	ld	bc,8
	ldir
	ld	hl,data_start
	ld	bc,scores_end-data_start
	ldir
        ret