|
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: »kopimast5 «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »kopimast5 «
job fgs 1 274001 stat 1 size 20000 perm disc 4000 300 time 20 0, mounts 2, perm disc1 2000 200 perm disc2 2000 200 perm disc3 2000 200 ; kopimaster mode list.yes c=message kopimaster start sys =set nrz mt543299 kopi=set mto mtsw8010 sys=setmt sys.4 kopi=setmt kopi.4 char 10 c=message move to disc d1=move sys1 if ok.no (c=message no resources finis) d2=move sys2 if ok.no (c=message no resources finis) d3=move sys3 if ok.no (c=message no resources finis) d4=move sys4 if ok.no (c=message no resources finis) release sys char 10 c=message move to tape label kopi kopi copy list.yes message.no kopi char 10 kopi1=move d1 kopi2=move d2 kopi3=move d3 kopi4=move d4 char 12 c=message check af bin filer char 10 c=message utility ; fil 1 nextfile kopi lookup kopi copy list.yes message.no kopi ; fil 2 nextfile kopi lookup kopi binin list.yes kopi.c char 10 c=message maintenance ; fil 3 nextfile kopi lookup kopi copy list.yes message.no kopi ; file 4 nextfile kopi lookup kopi binin list.yes kopi.c c=message end kopimaster ;replace flxmaster newid end finis ▶EOF◀