|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »skipsave«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »skipsave«
job save600 600 time 1 0 size 40000 output 100000 pres yes ; file skipsave mini, skip one day in tape cycle ; skip one day i tapelookup backfile xxcountfile if ok.yes warning.no skip 37.1 ; skip until % i.e. dayly dump ;weekly dump ff = assign xxcountfile xxcountfile = changeentry ff ff ff 5 xxxxxxxhelp = entry xxxxxtapew1 xxxxxtapew1 xxxxxtapew1 = entry xxxxxtapew2 xxxxxtapew2 xxxxxtapew2 = entry xxxxxtapew3 xxxxxtapew3 xxxxxtapew3 = entry xxxxxtapew4 xxxxxtapew4 xxxxxtapew4 = entry xxxxxxxhelp xxxxxxxhelp skip 37.2 ; skip past daily tape show % xxxxxxxhelp = entry xxxxxxtape1 xxxxxxtape1 xxxxxxtape1 = entry xxxxxxtape2 xxxxxxtape2 xxxxxxtape2 = entry xxxxxxtape3 xxxxxxtape3 xxxxxxtape3 = entry xxxxxxtape4 xxxxxxtape4 xxxxxxtape4 = entry xxxxxxxhelp xxxxxxxhelp skip 37.1 % tapelookup=lookup xxcountfile xxxxxtapew1 xxxxxtapew2 xxxxxtapew3 xxxxxtapew4 xxxxxxtape1 xxxxxxtape2 xxxxxxtape3 xxxxxxtape4 c = copy tapelookup clear temp c v, xxcountfile xxxxxtapew1 xxxxxtapew2 xxxxxtapew3 xxxxxtapew4 , xxxxxxtape1 xxxxxxtape2 xxxxxxtape3 xxxxxxtape4 xxxxxxxhelp finis ▶EOF◀