Routine: XBRESTL1

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"-- ROUTINE TO RESTORE 1ST LINE OF ROUTINES FROM %RS FILE --",! Line Location: XBRESTL1+3
Function Call: WRITE	Prompt: "CAUTION: THIS ROUTINE KILLS ALL VARIABLES, IS NOT NAMESPACED.",! Line Location: XBRESTL1+4
Function Call: READ	Prompt: "ABORT HERE (^ OR CTL-C) OR PRESS RETURN TO CONTINUE: " Timeout: $S($D(DTIME):DTIME,1:999),! Variable: % Line Location: XBRESTL1+5
Function Call: WRITE	Prompt: "-- aborted.",! Line Location: XBRESTL1+5
Function Call: WRITE	Prompt: ! Line Location: XBRESTL1+6
Function Call: READ	Prompt: "Name of %RS-format save file: " Timeout: $S($D(DTIME):DTIME,1:999),! Variable: FN Line Location: GETFN+0
Function Call: WRITE	Prompt: "(Enter the name of a unix file containing routines which was produced by %RS)",! Line Location: GETFN+1
Function Call: WRITE	Prompt: "-- couldn't get HFS device!",! Line Location: GETFN+2
Function Call: WRITE	Prompt: "Header lines from %RS file:",!,?2,L1,!,?2,L2,! Line Location: GETFN+6
Function Call: READ	Prompt: "OK to proceed: N// " Timeout: $S($D(DTIME):DTIME,1:999),! Variable: % Line Location: GETFN+7
Function Call: WRITE	Prompt: "-- aborted.",! Line Location: GETFN+7
Function Call: WRITE	Prompt: "Routines repaired:",! Condition for execution: NR=1 Line Location: GETFN+8
Function Call: WRITE	Prompt: ?2,$J(NR,3),": ",RL1,! Line Location: GETFN+8
Function Call: WRITE	Prompt: "Bye.",! Line Location: EXIT+0

Name	Field # of Occurrence
>> %	XBRESTL1+5, GETFN+7
>> DEV	GETFN+3, GETFN+9, GETHFS+1, GETHFS+2, GETR+1
DTIME	XBRESTL1+5, GETFN, GETFN+7
>> FN	GETFN*, GETFN+1
>> L1	GETFN+4*, GETFN+6
>> L2	GETFN+4*, GETFN+6
>> NR	GETFN+8*
>> RL	GETR+4*
>> RL1	GETFN+8, GETR+3*
>> RN	GETFN+8, GETR+2*