DataMuseum.dk

top - metrics - download

    Length: 5376 (0x1500)
    Types: TextFile
    Names: »HENT.CMD«

└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
    └─⟦this⟧ »HENT.CMD« 

TextFile

*****************************************************************************
*    COMMANDO FILE TIL  RC TIME OG OMKOSTNINGS OVERSIGT                     *
*    NAVN : HENT .CMD     SIDST ÆNDRET   DATO: 86.01.15      KL..: 16.00    *
*    KALDES FRA START, T1.MEN SAMT T2.MEN                                   *
*    -- HVIS BRUGER SVARER MED OK, SÅ GÅ UD TIL TERM OG RETUR TIL START --  *
*****************************************************************************
store '  ' to HSVAR
store T to hlokke
DO WHILE HLOKKE
erase
? ' ***  RC TIME OG OMKOSTNINGS OVERSIGT    HENT TRANSAKTIONS-FILE   1     ***'
? ' --------------------------------------------------------------------------'
? '   '
? ' Vil du HENTE transaktions-filen, så taster du om lidt DIT svar = HT , og'
? ' dette system afsluttes og du skal gøre følgende: '
? '   '
? ' udskrift på skærm:                          du taster:'
? ' =================                           **********'
? '   ' 
? ' A>TERM  '
? '   '
? '      + + +   T E R M   version  1.01   + + +  '
? '      (c) Copyright 1983 A/S Regnecentralen af 1979  '
? '   '
? '      Bufferstørrelse: 21637 tegn '
? '   '
? '                                             ESC-ape tasten'
? '   '
? ' --------------------------------------------------------------------------'
accept ' Tast RETUR for mere forklaring !  ' to HSVAR '
erase
? ' ***  RC TIME OG OMKOSTNINGS OVERSIGT    HENT TRANSAKTIONS-FILE   2     ***'
? ' --------------------------------------------------------------------------'
? ' udskrift på skærm:                          du taster:'
? ' =================                           **********'
? '   ' 
? '   ' 
? '                                             ESC-ape tasten'
? ' Att'
? ' connected to rcadm                          evt. CTRLØre (REmove)'
? '                                             og CTRLØse rcadm (SElect)'
? '   ' 
? '                                             ESC-ape tasten'
? ' Att                                         timerap RETUR'
? '   ' 
? ' >                                           run initialertime pass nøgle'
? '  ' 
? '                                             udfør programgruppe 3 nr. 2' 
? '                                             og ved slut ud af timerap'
? ' --------------------------------------------------------------------------'
accept ' Tast RETUR for mere forklaring !  ' to HSVAR '
erase
? ' ***  RC TIME OG OMKOSTNINGS OVERSIGT    HENT TRANSAKTIONS-FILE   3     ***'
? ' --------------------------------------------------------------------------'
? ' udskrift på skærm:                          du taster:'
? ' =================                           **********'
? '                                             ESC-ape tasten'
? ' Att'
? '                                             acp RETUR'
? '   ' 
? '                                             initialer og nøgle'
? '  ' 
? ' funktion(v for vejledning):  '
? '                                             HT og RETUR'
? '   ' 
? ' host filnavn: '
? '   ' 
? '                                             timprintfil og RETUR'
? '   ' 
? ' terminal filnavn: '
? '   ' 
? '                                             timeårmd.txt (År og måned)'
? '                                             RETUR'
? ' --------------------------------------------------------------------------'
accept ' Tast RETUR for mere forklaring !  ' to HSVAR
erase
? ' ***  RC TIME OG OMKOSTNINGS OVERSIGT    HENT TRANSAKTIONS-FILE   4     ***'
? ' --------------------------------------------------------------------------'
? ' udskrift på skærm:                          du taster:'
? ' =================                           **********'
? '   ' 
? ' hent: 8:timprintfil --> timeårmd.txt'
? ' start xmit '
? ' end xmit, bytes= 28606 ok '
? '   '
? ' funktion(v for vejledning): '
? '   ' 
? '                                             S (slut) og RETUR'
? '   ' 
? ' farvel '
? '   ' 
? ' --------------------------------------------------------------------------'
accept ' Tast RETUR for mere forklaring !  ' to HSVAR
erase
? ' ***  RC TIME OG OMKOSTNINGS OVERSIGT    HENT TRANSAKTIONS-FILE   5     ***'
? ' --------------------------------------------------------------------------'
? '   ' 
? ' nu kan du vende tilbage til selve time- og oversigts system, ved at trykke'
? '   ' 
? ' på  RESET knappen  bag på skærmen og du får vist hovedmenu-billedet !!'
? '   ' 
? '   ' 
? '   ' 
? ' Vælg DIT svar: '
? '   ' 
? ' Vil du HENTE transaktionsfilen ............ så taster du ......  HT   '
? '   ' 
? ' vil du retur til sidste menubillede ....... så taster du ......  RETUR ' 
? '   ' 
? ' eller vil du se forklaringen engang til ... så taster du ......  SE '
? '   ' 
? ' --------------------------------------------------------------------------'
accept '                                                    tast DIT svar' to HSVAR
if !(HSVAR) = 'SE'
   store '  ' to HSVAR
   loop
endif
if !(HSVAR) ='HT'
   RELEASE ALL
   CLEAR
   QUIT TO 'TERM'
endif
if !(HSVAR) <> 'HT'
   store '  ' to HSVAR
   erase
endif
STORE F TO HLOKKE
LOOP
ENDDO HLOKKE
RELEASE HLOKKE, HSVAR
return
«eof»