DataMuseum.dk

top - metrics - download

    Length: 3840 (0xf00)
    Types: TextFile
    Names: »mtptxt      «

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

TextFile

while <>=<> do
menu 10 2 <test menu                                             >
point <a jump>
  at 0 0 erase nl write <uendelig løkke> nl
  write <start og kør en anden session>
  while <>=<> do endwhile
point <c attention execute>
  at 0 0 erase  nl write <test attention execute> nl nl
  read <proces  > 11 p
  at 0 0 erase
  attention p r
    let e=<>
    while e=<> do
    menu 10 3 <aktioner i attention blok                             >
      point <jump>
        at 0 0 erase nl write <uendelig løkke> nl
        write <start og kør en anden session>
        while <>=<> do endwhile
      point <direct>
        at 0 0 erase 
        write <direct i/o> nl nl
        direct t
        at 0 0 erase write <endattention = &t>
      point <get>
        at 0 0  erase  write  <test get> nl 
        get 40 g 
      point <send>
        at 0 0 erase write <test send> nl nl
        send <test af send ^j>
      point <xit>
        let e=<  > 
      point <output on/off>
        at 0 0 erase
        at 17 read <> 3 o
        if o=<on> then 
          output on
        else
          output off
        endif
      point <echo on/off>
        at 0 0 erase
        at 17 read <> 3 o
        if o=<on> then 
          echo on
        else
          echo off
        endif
      endmenu
    endwhile
  endattention
  at 0 0 
  if r!=<ok> then write <attention result = &r> endif
point <e include og execute>
  at 0 0 erase  nl write <test include og execute> nl nl
  read <pool      > 11 p
  read <owner     > 11 o
  include p o <> 1 1 r
    let e=<>
    while e=<> do
    menu 10 3 <aktioner i include blok                               >
      point <jump>
        at 0 0 erase nl write <uendelig løkke> nl
        write <start og kør en anden session>
        while <>=<> do endwhile
      point <direct>
        at  0 0 erase 
        write <connected to  appl. &o, pool &p, lid &l> nl
        direct t
        at 0 0 erase
        write <endinclude = &t> 
      point <get>
        at 0 0  erase  write  <test get> nl 
        get 40 g 
      point <send>
        at 0 0 erase write <test send> nl nl
        send <test af send ^j>
      point <xit>
        let e=<  > 
      point <output on/off>
        at 0 0 erase
        at 17 read <> 3 o
        if o=<on> then 
          output on
        else
          output off
        endif
      point <echo on/off>
        at 0 0  erase
        at 17 read <> 3 o
        if o=<on> then 
          echo on
        else
          echo off
        endif
      endmenu
    endwhile
  endinclude
  at 0 0
  if r!=<ok> then write <include result = &r> endif
point <f exit>
  exit <exit>
point <g output on/off>
  at 0 0 erase
  at 0 10 read <output on/off  > 3 o
  if o=<on> then output on else output off endif
point <h echo on/off>
  at 0 0 erase
  at 0 10 read <echo on/off  > 3 o
  if o=<on> then echo on else echo off endif
point <i convert>
  at 0 0 erase nl write <skriv en tekst med store og små bogstaver> nl nl
  read <> 70 a
  convert a
  nl nl
  write a
point <j include og send>
  at 0 0 erase  nl write <test include> nl
  read <pool      > 11 p
  read <owner     > 11 o
  read <local id  > 3 l
  include p o l 1 1 r
    get 10 g
    let z=<abcdefghijklmnopqrstuvxyz 0123456789 >
    while g=<> do
      send <&l&z&z&z^j>
      get 10 g
    endwhile
  endinclude
  at 0 0
  if r!=<ok> then write <include result = &r> endif
point <k read  ...>
  at 0 0 erase
  read <> 10 x
  write <--&x-->
  read <> 1 x
point <l read>
  read <- > x
  write <--&x-->
  read <> 1 x
endmenu
endwhile
▶EOF◀