DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »mcleks      «

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

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 l=<>
    -- link terminal til poolen tem der ejes af process demoproc
    -- entydig localid generes af mcl sætningen include
    -- til linkoprettelse bruges bufs = 1 og timer = 0
    include <tem> <demoproc> l 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
      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 søg
    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=<demo proces findes ikke> endif
    at 0 0 erase write a
     
  text <>
  point <B tilmelding til tas demo i sos process>
    let l=<>
    -- link terminal til poolen opdt der ejes af process opdtproc
    -- entydig localid generes af mcl sætningen include
    -- til linkoprettelse bruges bufs = 1 og timer = 0
    include <opdt> <opdtproc> l 1 0 r
                -- ved linkoprettelse sendes følgende tekst
                -- <localid><1><1> att   <terminal navn><10>
                -- som svar på input message fra søgproc
      at 0 0 erase  -- blank skærm
      direct a  -- direkt kommunikation mellem terminal og opdtproc
                -- kommunikationen afbrydes enten fra terminalen ved
                -- at vælge / i system menuen, eller ved at opdtproc
                -- sender en continue message til poolen opdt
    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 søgproc
    if r!=<ok> then let a=<opdaterings proces findes ikke> endif
    at 0 0 erase write a

endmenu

exit a
▶EOF◀