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

⟦72b3b2b34⟧ TextFile

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

Derivation

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

TextFile

job fgs 2 274001 stat 2 time 15 0

mode list.yes

; sikkerhedskopiering af maintenance tekster
;
; magtape :
;
;   mt295430 : release  3.00, vers 2
;
; overskrives og bliver kopi af :
;
;    mt543023 : release  5.00 vers 2
; 
; opbevaring :
; 
;   brandskab
;

head 1
message brandkopi af maintenance tekster 

message kopiering fra mt543023 til mt295430 1989.08.01

n=set nrz mt295430
g=set mto mt543023

opmess ring on mt295430
mount n

opmess no ring mt543023
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 21
nextfile n g
n=move message.yes g.20

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 21
(repeat 20
 nextfile n
 bspip=move message.yes n)

message slut kopiering

end
▶EOF◀