;COPYRIGHT Hewlett-Packard Company 1987, 1988


;variables map
;	macro setvar.txt


	goto skip_breakit

break_it
					;Prepare for message
	gosub save_msg_area
					;Print ctrlc box
	pos ctrlc_col,ctrlc_lin1
	print ctrlc_msg1
	pos ctrlc_col,ctrlc_lin2
	print ctrlc_msg2
	pos ctrlc_col,ctrlc_lin3
	print ctrlc_msg3					      
					;Position the cursor
	pos ctrlc_x,ctrlc_y
					;Answer the prompt and restore screen
	gosub restore_msg_area

return

floppy_out
					;Prepare for message
	gosub save_msg_area
					;Print floppy box
	pos floppy_col,ctrlc_lin1
	print floppy_msg1
	pos floppy_col,ctrlc_lin2
	print floppy_msg2
	pos floppy_col,ctrlc_lin3
	print floppy_msg3
					;Position the cursor
	pos floppy_x,floppy_y
					;Answer the prompt and restore screen
	gosub restore_msg_area

return

save_msg_area
					;Save off the screen images
	cursor save_c_x,save_c_y
	pos 0,ctrlc_lin1
	savline line1
	pos 0,ctrlc_lin2
	savline line2
	pos 0,ctrlc_lin3
	savline line3
        use_pen error_pen

return
    
restore_msg_area
					;Read in the response
;10/4/89-TIP
;Substituted "" for NULL below because of interaction with key word NULL.
;
	set yesno = ""
	move 3,0
	input 1 yesno
	upshift yesno
					;If yes then quit otherwise, resume
	if yesno = upyes goto quit0

        clear_pen
	pos 0,ctrlc_lin1
	print line1 cr
	pos 0,ctrlc_lin2
 	print line2 cr
	pos 0,ctrlc_lin3
 	print line3 cr
	pos save_c_x,save_c_y
     
return

restore_edit_area
        clear_pen
        set clear_line "                                                                                "
        ; Clear the three lines where the QUIT BOX was
	pos 0,ctrlc_lin1
	print clear_line cr
	pos 0,ctrlc_lin2
 	print clear_line cr
	pos 0,ctrlc_lin3
 	print clear_line cr

        ; Reprint the Edit Line
        if var023 = "" goto end_rest_edit
        pos box_left,box_editln
        use_pen main_pen
        print var023
        clear_pen
     end_rest_edit
return

md_failed

					;Setup prompts for the box
	set var022 2
					;Assign box instructions
	set var014 box_md1
	set var015 box_md2
	set var016 box_md3
	set var017 box_md4
					;Go tell the user
	gosub print_screen
	gosub rebuild_screen	      

return		  

win_drive_error
					;Setup prompts for the box
	set var022 2
					;Assign box instructions
	set var014 box_wind1
	set var015 box_wind2
	set var016 box_wind3
	set var017 box_wind4
					;Go tell the user
	gosub print_screen
	gosub rebuild_screen

return

app_drive_error
					;Setup prompts for the box
	set var022 2
					;Assign box instructions
	set var014 box_appd1
	set var015 box_appd2
	set var016 box_appd3
	set var017 box_appd4
          				;Go tell the user
	gosub print_screen
	gosub rebuild_screen	      

return

copy_failed

	print cr cr
	print copy_fail1 cr
	print copy_fail2

	free var042 space
	if space < 200 print copy_full1 cr
	if space < 200 print copy_full2
		 
	goto quit1
;return

lharc_failed
	print cr cr
	print lharc_fail cr

	free var042 space
	if space < 200 print lharc_full1 cr
	if space < 200 print lharc_full2 cr
	if space < 200 print lharc_full3 cr
		 
	goto quit1
;return

help_failed

	print cr cr
	print need_hlp1 cr
	print need_hlp2

	goto quit1

;return
    
quit0
	cls
quit1	
	set status 0
	goto quit

;return

skip_breakit

