1  ; CCGMS Terminal
 2  ;
 3  ; Copyright (c) 2016,2020, Craig Smith, alwyz. All rights reserved.
 4  ; This project is licensed under the BSD 3-Clause License.
 5  ;
 6  ; File type prompt
 7  ;
 8  
 9  ;----------------------------------------------------------------------
10  txt_prg_seq_usr:
11  	.byte HILITE,"PRG, ",HILITE,"SEQ, or ",HILITE,"USR? ",0
12  
13  ;----------------------------------------------------------------------
14  ; prompt user about CBM DOS file type
15  prompt_file_type:
16  	lda #<txt_prg_seq_usr
17  	ldy #>txt_prg_seq_usr
18  	jsr outstr
19  	jsr invert_csr_char
20  
21  @1:	jsr getin
22  	beq @1
23  	and #$7f
24  	ldx #3
25  @2:	cmp upltyp,x
26  	beq @3
27  	dex
28  	bne @2
29  	beq @1
30  
31  @3:	stx filetype
32  	rts