DataMuseum.dk

top - metrics - download

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

└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
    └─⟦40b1eb8cd⟧ 
        └─⟦this⟧ »mcldemotxt  « 

TextFile

at 0 0 erase   -- blank skærmen
menu 15 5 <T A S  D E M O >       -- menu med to punkter

  point <A tilmelding til tas demo i s process>
    let a=<demo>
    let b=<demoproc>
    let c=<>
    -- link terminal til poolen demo der ejes af process demoproc
    -- entydig localid generes af mcl sætningen include
    -- til linkoprettelse bruges bufs = 1 og timer = 0
    include a b c 1 0 r
                -- ved linkoprettelse sendes følgende tekst
                -- <localid><1><1> att   <terminal navn><10>
                -- som svar på input message fra demoproc
      at 0 0 erase  -- blank skærm
      write <include til pool &a, tilhørende proces &b, localid &c> nl
      direct a  -- direkt kommunikation mellem terminal og demoproc
                -- kommunikationen afbrydes enten fra terminalen ved
                -- at vælge / i system menuen, eller ved at demoproc
                -- sender en cmcl (continue mcl) message til poolen demo
    endinclude  -- nedlæg terminal link til poolen
                -- når link er nedlagt sendes følgende tekst
                -- <localid><2><2> out   <10>
                -- som svar på input message fra demoproc
    if r!=<ok> then let a=<demoproc proces findes ikke> endif
    at 0 0 erase write a
     
  text <>
  point <B tilmelding til tas demo i sos process>
    -- link terminal til poolen
    -- poolens navn er døbt om af sos til tem extended med
    -- process navn, i dette tilfælde til temdemo,
    -- set fra tas ejes denne pool af sos
    -- entydig localid generes af mcl sætningen include
    -- til linkoprettelse bruges bufs = 1 og timer = 0
    let a=<temteam>  -- pool navn
    let b=<sos>      -- pool ejer
    let c=<>         -- automatisk generering af localid
    include a b c 1 0 r
                -- ved linkoprettelse sendes følgende tekst
                -- <localid><1><1> att   <terminal navn><10>
                -- som svar på input message 
      at 0 0 erase  -- blank skærm
      write <include til pool &a, tilhørende proces &b, localid &c> nl
      direct a  -- direkt kommunikation mellem terminal og sos process
                -- kommunikationen afbrydes enten fra terminalen ved
                -- at vælge / i system menuen, eller ved at sos processen
                -- sender en continue message til poolen, der har navnet   
                -- tem set fra sos processen
    endinclude  -- nedlæg terminal link til poolen
                -- når link er nedlagt sendes følgende tekst
                -- <localid><2><2> out   <10>
                -- som svar på input message 
    if r!=<ok> then let a=<sos processen findes ikke> endif
    at 0 0 erase write a

endmenu

exit a
▶EOF◀