|
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 - download
Length: 1536 (0x600)
Types: TextFile
Names: »filudveksl «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─ ⟦this⟧ »filudveksl «
filudvxxxx=set 42 disc scope temp filudvxxxx rubout temp filudvxxxx o filudvxxxx mode list.yes 10.yes head lookup htkopiterm if ok.no htkopiterm=assign c tabelfilxx=move tabelfil wr s.ht1 u.htproject.1 b.yes f.tabelfil tabelfilxx if ok.no (mode 10.no htkopiterm=head htkopiterm=message "fejl på overførsel af tabelfil til HT1") wr s.ht1 u.htproject.1 b.yes f.busnumre busnumre if ok.no (mode 10.no htkopiterm=head htkopiterm=message "fejl på overførsel af busnumre til HT1") wr s.ht1 u.htproject.1 b.yes f.bplnavne bplnavne if ok.no (mode 10.no htkopiterm=head htkopiterm=message "fejl på overførsel af bplnavne til HT1") if 10.yes filkopiok=set ip filkopi d.0.0 0 0 0 0 if 10.no filkopifejl=set ip filkopi d.0.0 0 0 0 0 scope project.disc1 filkopiok filkopifejl o nulldevice vent tid.300 (end i filudveksl) ▶EOF◀