DataMuseum.dk

top - metrics - download

    Length: 2048 (0x800)
    Types: TextFile
    Names: »OVERFØR.CMD«

└─⟦8808ef982⟧ Bits:30005860 DBase II 2.4 & QUICKCODE
    └─⟦this⟧ »OVERFØR.CMD« 

TextFile

* OVERFØR.CMD
ERASE
SET TALK OFF
IF FILE('MFILNAVN.MEM')
   RESTORE FROM MFILNAVN
   DO INDLÆGN
   DELETE FILE MFILNAVN
   ? 'FILOVERFØRSLEN ER FULDT UD GENNEMFØRT '
   WAIT
   DO GESTART
ELSE
TEXT
RC                   PROJEKT-OMKOSTNINGS-REGISTRERING


                     ***  FIL-OVERFØRSEL'S RUTINE  ***


          +------------------------------------------------------+
          ! Når du har tastet filnavnet på den fil, der skal     !
          ! overføres fra RC8000 til din diskette, vil TTYRC48-  !
          ! programmet blive opstartet, efter at vi har forvisset!
          ! os om at filen ikke allerede findes på disketten.    !
          !                                                      !
          ! Du logger ind til RC8000, som følger                 !
          !   att> S                                             !
          !   JOB HAHTIME                                        !
          !   COPY LIST.YES MESSAGE.NO   herefter følger         !
          !   JAN84 FEB84 MAR84 APR84 MAJ84                      !
          ! inden return tastes CTRL-v  SHIFT-i og return        !
          ! Nu overføres alt, der displayes på skærmen til din   !
          ! diskette-fil. Overførslen sluttes med CTRL-v SHIFT-x !
          +------------------------------------------------------+
endtext
ACCEPT 'Tast filnavn  ' TO XFILNAVN
IF LEN(XFILNAVN)<2
   RETURN
ENDIF

STORE XFILNAVN+'.TXT' TO XFILNAVN

IF FILE(XFILNAVN)
   DELETE FILE &XFILNAVN
ELSE
   SAVE TO MFILNAVN
   QUIT TO 'TTYRC48 &XFILNAVN','DO OVERFØR'
ENDIF

ENDIF
«eof»