From: "Fabio Ferrero" 
On 24 Jul 97 at 13:15, tsepro@semware.com wrote about How to open a file in 
Read-Only mod: 
> Is there a way top open a file in a logical Read-Only mode ? In this
> mode, all text editing features would be disabled. Note that this
I use this macro:
---cut---
forward proc birulip()
Keydef ro
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                     birulip()
                   birulip()
                    birulip()
                    birulip()
                     birulip()
                     birulip()
                     birulip()
                     birulip()
                     birulip()
                     birulip()
                     birulip()
                     birulip()
                     birulip()
                     Abandoneditor()
                     birulip()
                 birulip()
                    birulip()
            birulip()
                  birulip()
                   birulip()
                   birulip()
                   birulip()
                birulip()
                birulip()
                birulip()
                    birulip()
                    birulip()
                    birulip()
                 birulip()
                 birulip()
                 birulip()
                    birulip()
                 birulip()
                 birulip()
                    birulip()
                 birulip()
                 birulip()
                    birulip()
                    birulip()
                    birulip()
                    birulip()
                    birulip()
                       birulip()
                     Pagedown()
                    Abandoneditor()
                       birulip()
                        birulip()
                        birulip()
                        birulip()
                     birulip()
                     birulip()
                       birulip()
                  birulip()
                  birulip()
                  birulip()
                  birulip()
                  birulip()
                 birulip()
                       birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                   birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                         birulip()
                  birulip()
            birulip()
             birulip()
              birulip()
                  RollUp()
                RollDown()
             Up()
           Down()
end
proc birulip()
    sound(1000)
    delay(1)
    nosound()
end
proc main()
    set(persistentrecentfiles, off)
    enable(ro, _DEFAULT_)
end
---end---
Bye.
 
   ___
  (o.o)
 {(___)}
==="="===
nutella@tin.it
---
---------------