Prompt: !!,"I am going to create a routine called '",X,"INIT'."
Line Location: R+0
Function Call: WRITE
Prompt: $C(7),!,"but '"_X_"' is ALREADY ON FILE!"
Line Location: R+2
Function Call: WRITE
Prompt: !!,F(Y)
Line Location: R+12
Function Call: WRITE
Prompt: !!,"THEN PLEASE LIST THE FILES THAT YOU WISH TO TRANSPORT:"
Line Location: L+0
Function Call: WRITE
Prompt: !,DIC,?24,DH
Line Location: T+0
Function Call: WRITE
Prompt: $C(7)," **NOT FOUND** "
Line Location: T+3
Function Call: WRITE
Prompt: " (",E,")"
Line Location: SF+1
Function Call: WRITE
Prompt: !
Line Location: E+5
Function Call: WRITE
Prompt: $C(7),!," INVALID FIELD LABEL: "_E,!
Line Location: ERF+0
Function Call: WRITE
Prompt: $C(7),!!,"Your FileMan Version number: "_X_" does not match the version number",!,"on the DIFROM routine: "_Y_" !!",!!,"You must run ^DINIT before you can build an INIT!!",!