home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / languages / progs / mumps / !MUMPS_MMP_RR < prev    next >
Encoding:
Text File  |  1992-11-30  |  488 b   |  17 lines
  1. %RR ;Routine restore for ARM MUMPS; 20 Okt 1992 
  2.  S:'$D(^%RR) ^%RR="ZR  F  U 5 R %R ZS:%R=""""  Q:%R=""""  ZI %R"
  3. R R !,"Inputfile:",%F Q:%F=""  O 5:(%F:"r")
  4.  U 5 R %SAVED,%COMMENT U 0 W !,%SAVED,!,%COMMENT,!,"Restore Y/n" R %R I %R="N"!(%R="n") C 5 Q
  5.  W !,"Restoring ...",! D FILES
  6.  C 5 U 0 W !,"File closed."
  7.  Q
  8. FILES F  U 5 R %FN Q:%FN=""  D:%FN="%RR" ITSELF I %FN'="%RR" X ^%RR U 0 W $E(%FN_"         ",1,10)
  9.  Q
  10. ITSELF U 0 W !,"%RR can't restore itself",!
  11.  F  U 5 R %R Q:%R=""
  12.  Q
  13.  
  14.  
  15.  
  16.  
  17.