DataMuseum.dk

top - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »operamcltxt«

└─⟦aa55fa693⟧ Bits:30007479 SW8110/1 TAS/SOS/PRIMO Rel 2.3
    └─⟦78f95c038⟧ 
        └─⟦06821cd16⟧ 
            └─ ⟦this⟧ »operamcltxt« 

TextFile

-- @(#)operamcltxt	1.3  (RC International)  10/1/90
-- ep 90.10.01 release 2.3     RC8000/RC9000
--
-- Standard MCL program til brug for operatør
-- og udvikling.
--
at 0 0 erase -- Slet skærmen

while <>=<> do
-- Udskriv menu'en
menu 25 1 <------ Standard operatør og udviklings menu ------> 
text <>
point <Job under s>
  at 37 read <med navn > 11 r 
  let n=<>  
  let a=<>  
  while a!=< > and r!=<> do
    let n=<&n&a>
    let a=r(1 1)
    let r=r(2 12)
  endwhile  
  if a!=< > then let n=<&n&a> endif
  if n!=<> then
    convert n
    attention <s> r
      send <job &n ^j>
      get 13 a
      while a=<> do
        send <^j>
        get 13 a
      endwhile
      if a=<ready> then
        at 0 0 erase write <Job &n startet> nl
        direct a
      else  
        let r=a
        let a=<s>
      endif 
    endattention
    at 0 0 erase
    write <Job &n stoppet med resultat &r (retur parameter= &a)> nl
  endif     
text <>
point <Attention til proces>
  at 46 read <med navn > 11 r 
  let n=<>  
  let a=<>  
  while a!=< > and r!=<> do
    let n=<&n&a>
    let a=r(1 1)
    let r=r(2 12)
  endwhile  
  if n!=<> then
    convert n
    attention n r
      at 0 0 erase write <to &n > nl
      direct a
    endattention
    at 0 0 erase
    if r!=<ok> then
      write <Fejl: &r> nl
    endif
  endif     
text <>
point <S kommunikation>
    attention <s> r
      at 0 0 erase write <to s> nl
      direct a
    endattention
    at 0 0 erase
    if r!=<ok> then
      write <S retur = &r, Stop retur = &a> nl
    endif
text <>
point <Operatør kommunikation (Tas)>
    attention <tas> r
      at 0 0 erase
      direct a
    endattention
    at 0 0 erase
    if r!=<ok> then
      write <Operatør ikke klar> nl
    endif
text <>
point <MCL program udførelse>
  at 48 read <navn > 11 r 
  let n=<>
  let a=<>
  while a!=< > and r!=<> do
    let n=<&n&a>
    let a=r(1 1)
    let r=r(2 12)
  endwhile
  if n!=<> then
    convert n
    execute n r
    at 0 0 erase 
    if r=<unknown> or r=<resources> then
      write<Kan ikke starte &n  (&r)>
    else
      at 0 0 erase write <Retur = &r> nl
    endif
    output off
    echo off
  endif
text <    (eget MCL program)>
text <>
point <Primo >
  execute <primomcl> r
  if r=<unknown> or r=<resources> then
    at 0 0 erase 
    write<Kan ikke starte primo operatør menu (&r)>
  endif
  output off
  echo off
text <>
point <Bruger opdatering>
  let  v=<bruger>
  execute <upcatmcl> v
  at 0 0 write v
text <>
point <Frigiv terminal>
  let v=<terminal>
  execute <upcatmcl> v
  at 0 0 write v
text <>
point <Ekskluder terminal>
  let v=<fjern>
  execute <upcatmcl> v
  at 0 0 write v
text <>
point <Log ud (afmeld)>
    exit <Afsluttet>
text <                    operator menu 90.10.01 rel. 2.3>
endmenu
endwhile
▶EOF◀