DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦a4b027fef⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »kopiuti5    «

Derivation

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »kopiuti5    « 

TextFile

job fgs 1 274001 stat 2 time 15 0

mode list.yes

; sikkerhedskopiering af utility tekster
;
; magtape :
;
;   mt295276 : release  3.00, vers 2
;
; overskrives og bliver kopi af :
;
;   mt543020 : release  5.00, vers 2
; 
; opbevaring :
; 
;   brandskab
;

head 1
message brandkopi af utility tekster 

message kopiering fra mt543020 til mt295276 1989.08.01

n=set nrz mt295276
g=set mto mt543020

opmess ring on mt295276
mount n

opmess no ring mt543020
mount g

message tape ident fil 0

message ny
copy list.yes message.no n
char 10

message gammel
copy list.yes message.no g
char 10

message subpackage ident fil 1
nextfile n g
n=copy list.yes g

message fil 2 til 44
nextfile n g

lookup n g
n=move message.yes g.43
lookup n g

message check af ny
n=changeentry n n n 0 0 n n

message tape ident fil 0
copy list.yes message.no n
char 10

message subpackage ident fil 1
nextfile n
copy list.yes message.no n

message fil 2 til 44
(repeat 43
 nextfile n
 lookup n
 bspip=move message.yes n)

message slut kopiering
end
▶EOF◀