Free to good home. Microvaxes, Vaxstations, Alphas - VMS

This is a discussion on Free to good home. Microvaxes, Vaxstations, Alphas - VMS ; I have a pile of old kit waiting to go to the tip. Phillip Helbig, as he grabbed the best stuff, convinced me I should mention what's left in case anyone wants it. Microvaxes: 1 x 3100 90 4 x ...

+ Reply to Thread
Page 1 of 3 1 2 3 LastLast
Results 1 to 20 of 59

Thread: Free to good home. Microvaxes, Vaxstations, Alphas

  1. Free to good home. Microvaxes, Vaxstations, Alphas

    I have a pile of old kit waiting to go to the tip.
    Phillip Helbig, as he grabbed the best stuff, convinced me I should
    mention what's left in case anyone wants it.
    Microvaxes:
    1 x 3100 90
    4 x 3100 80
    1 x 3100 10 (might be a 20)
    Vaxstations
    5 x 4000 60
    5 x 4000 VLC
    1 x 3100 76
    1 x 3100 38 SPX
    Alphastations
    1 x Jensen
    3 x 200 4/100 (1 has NT boot ROM. It is probably busted)
    1 x 3000 (in poor state)
    Other stuff
    2 x Decserver 200 MC
    7 x VRT17-HA
    2 x VRT16-HA
    2 x VRC16-HA
    5 x VT420
    3 x VT320
    1 x VT520 (most of the VTs are green, some amber)
    1 x Storage expansion BA42A SZ12
    various monitor and SCSI cables, power cables

    All of the machines had enough memory to run VMS with Motif and DECnet.
    Some had more. But not a lot. It used to be expensive stuff remember?
    First come first served. Take as much or as little as you like. It is
    at my house in Hayfield, which is about 15 miles SE of Manchester. UK

    I need the space by 8-Sep-2007. The dregs will be dumped before then.

    Just about all of it was working when it was switched off. It has since
    been stored in a Portakabin inside my barn. Not too damp.
    I have removed all the disks from all the machines. Some of them, I
    can't remember which, had sort-of sensitive customer data. Sorry.

    --
    To de-mung my e-mail address:- fsnospam$elliott$$
    PGP Fingerprint: 1A96 3CF7 637F 896B C810 E199 7E5C A9E4 8E59 E248

  2. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article <130820070946381392%nospam@yrl.co.uk>, Elliott Roper
    writes:

    > I have a pile of old kit waiting to go to the tip.
    > Phillip Helbig, as he grabbed the best stuff, convinced me I should
    > mention what's left in case anyone wants it.


    Thanks again, Elliott! Yes, I did get some nice bits, but I actually
    left some ALPHAs behind! (What IS this world coming to?!) There are
    actually quite a few very nice boxes, ideal hobbyist systems. The only
    reason I didn't take them is that there was limited room in my car and
    there is limited room in my house. I particularly recommend the
    VAXstation 4000 systems. These are reasonably fast, small, quiet, use
    little power, work with SCSI disks and, with the cover removed, it is
    easy to see where everything is, replace stuff etc. The VLCs are really
    small and ideal for someone needing experience in configuring
    satellites, someone who needs a quorum node in a cluster etc. Nice
    monitors and terminals as well, and all the cables you'll ever need.

    I believe there are still various manuals and CDs available as well (the
    latter perhaps interesting to those with no possibility to borrow CDs).

    Any VMS hobbyist, or anyone wanting to become one, should visit
    Elliott---with a large car!

    > All of the machines had enough memory to run VMS with Motif and DECnet.
    > Some had more. But not a lot. It used to be expensive stuff remember?
    > First come first served. Take as much or as little as you like. It is
    > at my house in Hayfield, which is about 15 miles SE of Manchester. UK


    For free, you get a wonderful drive through the Peak District. This is
    one of the most beautiful places in all of England.

    > I need the space by 8-Sep-2007. The dregs will be dumped before then.


    Hobbyists, get out your maps and find the way to Elliott's house! It
    would be a real shame to see this truly awesome kit go to waste.

    > To de-mung my e-mail address:- fsnospam$elliott$$


    I think requiring potential takers to know Teco is taking things a bit
    too far, though! In case anyone can't follow the above, it's a Teco
    command and the "$" is what the terminal shows when escape (CTRL-[) is
    entered; put the munged address into a file and fire up edit/teco on it!


  3. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    On Aug 13, 2:43 pm, hel...@astro.multiCLOTHESvax.de (Phillip Helbig---
    remove CLOTHES to reply) wrote:

    >
    > Any VMS hobbyist, or anyone wanting to become one, should visit
    > Elliott---with a large car!
    >


    I have a mini-van, but I don't think it would do well out on the
    Atlantic... coming from Cincinnati, Ohio, USA. :-P

    John H. Reinhardt


  4. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article , Phillip Helbig---remove CLOTHES to
    reply wrote:

    >
    > I think requiring potential takers to know Teco is taking things a bit
    > too far, though! In case anyone can't follow the above, it's a Teco
    > command and the "$" is what the terminal shows when escape (CTRL-[) is
    > entered; put the munged address into a file and fire up edit/teco on it!


    C'mon Phillip. This is after I gave you a look at the the teco ride-on
    lawnmower!
    Everyone who covets a free Vax heap can speak that much teco, or at any
    rate fake it.

    I'm reminded of my early days at DEC CSS in Sydney. Back when 780's
    were new and all. John Jones was the boss, and in his office hung a
    tall thin photograph of the doorway of an el cheapo appliance store not
    far down the road in St Leonards (we were in Crows Nest then) It was a
    sign that read:
    S
    T
    A
    X
    of
    V
    A
    X

    --
    To de-mung my e-mail address:- fsnospam$elliott$$
    PGP Fingerprint: 1A96 3CF7 637F 896B C810 E199 7E5C A9E4 8E59 E248

  5. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article <130820072054094448%nospam@yrl.co.uk>,
    Elliott Roper wrote:

    > In article , Phillip Helbig---remove CLOTHES to
    > reply wrote:
    >
    > >
    > > I think requiring potential takers to know Teco is taking things a bit
    > > too far, though! In case anyone can't follow the above, it's a Teco
    > > command and the "$" is what the terminal shows when escape (CTRL-[) is
    > > entered; put the munged address into a file and fire up edit/teco on it!

    >
    > C'mon Phillip. This is after I gave you a look at the the teco ride-on
    > lawnmower!
    > Everyone who covets a free Vax heap can speak that much teco, or at any
    > rate fake it.


    Eh? I've been on VMS for 21 years, and I've NEVER used TECO.

  6. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    Robert Deininger writes:

    > In article <130820072054094448%nospam@yrl.co.uk>,
    > Elliott Roper wrote:


    >> Everyone who covets a free Vax heap can speak that much teco, or at any
    >> rate fake it.


    > Eh? I've been on VMS for 21 years, and I've NEVER used TECO.


    It's never too late.

    --
    Rich Alderson | /"\ ASCII ribbon |
    news@alderson.users.panix.com | \ / campaign against |
    "You get what anybody gets. You get a lifetime." | x HTML mail and |
    --Death, of the Endless | / \ postings |

  7. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    Elliott Roper wrote:
    > [...snip...]


    Elliott, just out of curiosity ... what happened to put
    Yezerski Roper Limited into liquidation ? 'twould be
    sad if you ran out of VMS work.

  8. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article , R.A.Omond
    wrote:

    > Elliott Roper wrote:
    > > [...snip...]

    >
    > Elliott, just out of curiosity ... what happened to put
    > Yezerski Roper Limited into liquidation ? 'twould be
    > sad if you ran out of VMS work.

    Heh!
    That was more or less it. Exacerbated by relying too much on one large
    customer which had a series of management and ownership changes which
    decimated its internal support for our specialist systems.

    So, basically my poor management. But it was glorious fun while it
    lasted. Every day I'd go to work and play with some of the brightest
    programmers on the planet, making excellent stuff that was actually
    useful and didn't kill people.

    I really had no heart in moving it all to Windows. We did try, but it
    was like putting lipstick on a pig.

    Even in business, if it isn't fun, it isn't worth doing. You are too
    long dead.

    --
    To de-mung my e-mail address:- fsnospam$elliott$$
    PGP Fingerprint: 1A96 3CF7 637F 896B C810 E199 7E5C A9E4 8E59 E248

  9. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    Rich Alderson wrote:
    > Robert Deininger writes:
    >
    >>In article <130820072054094448%nospam@yrl.co.uk>,
    >> Elliott Roper wrote:

    >
    >>>Everyone who covets a free Vax heap can speak that much teco, or at any
    >>>rate fake it.

    >
    >>Eh? I've been on VMS for 21 years, and I've NEVER used TECO.

    >
    > It's never too late.


    Yes. Admitting a problem is always a good first step to solving it.

    Consider you may need to do an edit on system with out a console that
    understands ANSI or even VT52.

    -John
    wb8tyw@qsl.network
    Personal Opinion Only

  10. Re: Free to good home. Microvaxes, Vaxstations, Alphas


    "John E. Malmberg" wrote in message
    news:c2Dwi.46268$Xa3.41868@attbi_s22...

    > Consider you may need to do an edit on system with out a console that understands ANSI
    > or even VT52.


    EDT in line mode would be my choice (or bribing Fred, of course).



  11. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article , Robert Deininger writes:
    >
    > Eh? I've been on VMS for 21 years, and I've NEVER used TECO.


    Oh, newbie, eh?


  12. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article , "Richard Brodie" writes:
    >
    >
    > EDT in line mode would be my choice (or bribing Fred, of course).


    You don't really know EDT until your best connection is an LA120 over
    a 1200 baud modem.


  13. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article ,
    koehler@eisner.nospam.encompasserve.org (Bob Koehler) wrote:

    > In article ,
    > Robert Deininger writes:
    > >
    > > Eh? I've been on VMS for 21 years, and I've NEVER used TECO.

    >
    > Oh, newbie, eh?


    LOL! You've just given my an idea there :-)

    --
    Paul Sture

    Sue's OpenVMS bookmarks:
    http://eisner.encompasserve.org/~stu...bookmarks.html

  14. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    Bob Koehler wrote:
    > In article , Robert Deininger writes:
    >
    >>Eh? I've been on VMS for 21 years, and I've NEVER used TECO.

    >
    >
    > Oh, newbie, eh?
    >


    It's just barely possible that he's never NEEDED to use TECO. There are
    a few things that TECO can do quickly and easily that are difficult or
    impossible in other editors.

    For those who don't NEED it, TECO is just difficult and dangerous!

    I'm a couple of years less new to VMS and I've used TECO ONCE! Thanks
    to a post here many long years ago, I remembered that TECO could solve
    some tedious problem, checked the manual for the necessary magic
    character strings and did the tedious job zippity-zap!




  15. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article <46C316FE.4080906@comcast.net>,
    "Richard B. Gilbert" wrote:

    > Bob Koehler wrote:
    > > In article
    > > , Robert
    > > Deininger writes:
    > >
    > >>Eh? I've been on VMS for 21 years, and I've NEVER used TECO.

    > >
    > >
    > > Oh, newbie, eh?
    > >

    >
    > It's just barely possible that he's never NEEDED to use TECO. There are
    > a few things that TECO can do quickly and easily that are difficult or
    > impossible in other editors.
    >
    > For those who don't NEED it, TECO is just difficult and dangerous!
    >
    > I'm a couple of years less new to VMS and I've used TECO ONCE! Thanks
    > to a post here many long years ago, I remembered that TECO could solve
    > some tedious problem, checked the manual for the necessary magic
    > character strings and did the tedious job zippity-zap!


    Wimp! Have you no faith in your backups?



    :-)

    --
    Paul Sture

    Sue's OpenVMS bookmarks:
    http://eisner.encompasserve.org/~stu...bookmarks.html

  16. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article , Bob Koehler
    wrote:

    > In article ,
    > Robert Deininger writes:
    > >
    > > Eh? I've been on VMS for 21 years, and I've NEVER used TECO.

    >
    > Oh, newbie, eh?


    I got teco loaded into my finger ROMs somewhere about OS/8, TOPS-10 and
    RSX-11M. There didn't seem to be any point going back to an inferior
    editor on VMS.
    I briefly used EVE and TPU during the lack of compatibility mode on
    MicroVAX II's but it was a huge relief when we got teco native again.

    I didn't half get rubbished for it though!

    --
    To de-mung my e-mail address:- fsnospam$elliott$$
    PGP Fingerprint: 1A96 3CF7 637F 896B C810 E199 7E5C A9E4 8E59 E248

  17. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article <130820070946381392%nospam@yrl.co.uk>, Elliott Roper
    wrote:
    Update:
    It is now a much smaller pile, changes below. Probably not worth
    bothering with unless you are close and are really keen for spares.

    > I have a pile of old kit waiting to go to the tip.
    > Phillip Helbig, as he grabbed the best stuff, convinced me I should
    > mention what's left in case anyone wants it.
    > Microvaxes:

    All gone
    > Vaxstations

    All that's left is:
    1 x 4000 60 no memory, low-res graphics
    5 x 4000 VLC
    1 x 3100 38 SPX
    Alphastations
    1 x Jensen
    3 x 200 4/100 (1 has NT boot ROM. It is probably busted)
    1 x 3000 (in poor state)
    Other stuff
    1 x Decserver 200 MC
    6 x VRT17-HA
    2 x VRT16-HA
    2 x VRC16-HA
    4 x VT420
    2 x VT320
    1 x Storage expansion BA42A SZ12
    much reduced pile of various monitor and SCSI cables, power cables

    > All of the machines had enough memory to run VMS with Motif and DECnet.
    > Some had more. But not a lot. It used to be expensive stuff remember?
    > First come first served. Take as much or as little as you like. It is
    > at my house in Hayfield, which is about 15 miles SE of Manchester. UK
    >
    > I need the space by 8-Sep-2007. The dregs will be dumped before then.
    >
    > Just about all of it was working when it was switched off. It has since
    > been stored in a Portakabin inside my barn. Not too damp.
    > I have removed all the disks from all the machines. Some of them, I
    > can't remember which, had sort-of sensitive customer data. Sorry.


    --
    To de-mung my e-mail address:- fsnospam$elliott$$
    PGP Fingerprint: 1A96 3CF7 637F 896B C810 E199 7E5C A9E4 8E59 E248

  18. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article <46C316FE.4080906@comcast.net>, "Richard B. Gilbert"
    writes:

    > It's just barely possible that he's never NEEDED to use TECO. There are
    > a few things that TECO can do quickly and easily that are difficult or
    > impossible in other editors.


    Just to keep it in the collective consciousness, here's a bit of TECO
    gleaned from this newsgroup:

    >Newsgroups: comp.os.vms
    >From: morris@mv.mv.com (Skipper W. Morris)
    >Subject: Tool to convert U**x mail to VMSMail
    >Message-ID:
    >Organization: MV Communications, Inc.
    >Date: Wed, 27 Dec 1995 06:05:28 GMT
    >X-Nntp-Posting-Host: mv.mv.com
    >Lines: 241


    VMS Mail lovers,
    I worked up the little gem below after another frustrating day of
    trying to find a reasonable way to deal with lots of mail. It converts U**X
    mail file folders to VMS mail files/folders/messages.
    Bug reports/fixes/comments/etc, are appreciated.
    enjoy
    /Skip Morris

    ----------------------------------cut here------------------------------------
    $ set noon ! 'f$verify(0)'
    $!+
    $! CONVERT_MAIL.COM V1.0, Skip Morris, "morris@mv.mv.com", 26-Dec-95
    $! Input paramters:
    $! P1 = The file(s) you want to convert.
    $! P2 = Output VMS Mail file.
    $! P3 = VMS Mail folder to store mail (defaults to input file name).
    $! P4 = if nonnull then only convert to Mail11 V3.
    $! Wildcard directory/filename inputs are permitted.
    $! Use from batch by:
    $! "$ submit convert_mail /param="DISK$FOO:[SOURCE...]*.txt;"
    $! Max supported message count per input file is 16,777,215 since
    $! that's all that could fit in the available return status fields.
    $! Any '"' char's in personal name are blown away as VMSMail barfs on 'em.
    $! Any special char's in addresses string cause address to be quoted.
    $! Warning!! properly formatted unix mail file assumed. Not much checking.
    $!-
    $ default = f$envi("procedure")
    $ if f$parse(p1,,,"name") + f$parse(p1,,,"type") + f$parse(p1,,,"version") -
    .eqs. ".;" then p1 = p1 + "*.*;" ! cause directory input to be wildcard
    $ search_file = f$parse(p1)
    $ wildcard = f$loca("*",search_file) .ne. f$leng(search_file) .or. -
    f$loca("%",search_file) .ne. f$leng(search_file) .or. -
    f$loca("...",search_file) .ne. f$leng(search_file)
    $ output_file = f$parse(p2,"mail.mai;",p1)
    $ temp_file = f$parse("mail_"+f$getjpi("","pid")+".tmp;",output_file,default)
    $ v3only = p4 .nes. ""
    $main_loop:
    $ input_file = f$search(search_file)
    $ if input_file .nes. ""
    $ then
    $ write sys$output "Converting ",input_file," to Maill11V3 format..."
    $ folder = f$parse(input_file,,,"name")
    $ call convert_unix_mail 'input_file' 'temp_file'
    $ ! return status has line count encoded in return status value
    $ msg_count = ($status .and. %x07fffff8) / 8
    $ if .not. v3only
    $ then
    $ write sys$output f$fao("Converting to ISAM file !AS folder !AS...", -
    output_file,folder)
    $ call convert_vms_mail 'temp_file' 'output_file' 'folder'
    $ delete 'temp_file'
    $ else
    $ write sys$output f$fao("New file is !AS.",output_file)
    $ rename 'temp_file' 'output_file'
    $ endif
    $ write sys$output f$fao("...done, !ZL message!%S processed.",msg_count)
    $ if wildcard then goto main_loop
    $ endif
    $ exit
    $!
    $CONVERT_VMS_MAIL: SUBROUTINE
    $ tempcom = f$parse("mail-"+f$getjpi("","pid")+".tmp;",p2,f$envi("procedure"))
    $ create 'tempcom'
    $ open/append file 'tempcom'
    $ write file "$ mail"
    $ write file "set file ",p1
    $ write file "copy/all ",p3," ",p2,"/noconfirm"
    $ write file "exit"
    $ close file
    $ @'tempcom'
    $ delete 'tempcom'
    $ exit
    $ENDSUBROUTINE
    $!
    $CONVERT_UNIX_MAIL: SUBROUTINE
    $ teco = "$teco32 teco"
    $ unix_mail_file = f$search(f$parse(p1))
    $ if unix_mail_file .eqs. "" then exit 4
    $ temp_file = f$parse(p2)
    $ if temp_file .eqs. "" then exit 4
    $!
    $ if f$trnlnm("tec$memory") .nes. "" then deassign tec$memory
    $ assign/user 'unix_mail_file' mail$in
    $ assign/user 'temp_file' mail$out
    $ assign/user _nla0: sys$output ! comment this line out to vfy teco execution
    $ define/user tec$init "96ee"
    $ teco
    ! goto top, case match exact, load qu, qt tokens illegal Mail-11!
    j1^x13^uu`10:^uu`^ut-` ! Add illegal in "From:" after "-" char!
    9^uv`32:^uv`13:^uv`:^uv.:%@!^=/[]` ! qv contains sendmail delimiter tokens!

    ermail$in`ewmail$out` ! open input, output files!

    !main loop for each msg!
    <%q ! start loop, increment msg counter!
    b,.pb,.ka ! page out previous, get new!
    12i` ! insert at msg start!
    .ua ! store msg top in qa!
    s^el^equ` ! srch 1 blank lines!
    .ub ! store end of headers qb!
    qajl2r ! go end of initial "From" line!
    .-4,.xm ! get year in qm!
    5r.uc ! qc at end of timezone/timeofday!
    r-s `::s^ea`"s2r.ucr-s `' ! if alpha timezone then backup!
    .,qcxn ! get time in qn!
    .-1uc-2s `.,qcxo ! 1-2 digit day-of-month in qo!
    3r-s ` ! go to start of month!
    .,.+3xp ! get month in qp!
    qaj ! search "From: " header!
    qb-qa,:s^elFrom: `"s ! if successful!
    -d9i` ! then change space to tab!
    0l1xlkqajgl-l ! move line to top!
    6c.uc ! save start of address qc!
    0,0xc0,0xl ! init qc(pers nam), ql(addr)!
    0a-34"e ! if 'From: "pp" ' sntx!
    c1:fb" `"s ! then if ending '" '!
    1:fb<`"s ! then if find starting '<'!
    1:fb>`"s ! then if ending '>' found!
    qcj ! then go start pers name!
    dqb-1ub ! delete leading '"', fixup qb!
    s"`-dqb-1ub ! find ending '"', del, fix qb!
    qc,.xc ! store pers name qc!
    qc,.k ! kill pers name!
    dqb-1ub ! delete space end pers name!
    s<`-dqb-1ub.ud ! find starting '<' and delete!
    s>`-dqb-1ub ! find ending '>' and delete!
    qd,.xlqd,.k ! store addr in ql and kill!
    |46^t.:=69^t1:=77^tqq=0tt ! else bad msg fmt, out err msg!
    ' ! endif!
    ' ! endif!
    | 1:fb"`"s ! else if 'From: "aa"aa (pp)' syntax!
    1:fb (`"s ! then if ' ('!
    1:fb)`"s ! then if ending ')' found!
    qcj ! then go start addr!
    s (`-2dqb-2ub ! delete ' (', fix qb!
    qc,.xlqc,.k ! put addr ql, delete!
    s)`-dqb-1ud ! go end pers, del ')', fx qb!
    qc,.xcqc,.k ! put pers name qc, delete!
    |46^t.:=69^t2:=77^tqq=0tt ! else bad msg fmt, out err msg!
    ' ! endif!
    |qcjl2rqc,.xlqc,.k0,0xc ! else assume 'From: "aa"aa' sntx!
    ' ! endif!
    |46^t.:=69^t3:=77^tqq=0tt ! else bad msg fmt, output err msg!
    ' ! endif!
    ' ! endif!
    | 1:fb <`"s ! else if 'From: pp ' sntx, if ' <'!
    1:fb>`"s ! then if ending '>' found!
    qcj ! then go start pers name!
    s <`-2dqb-2ub ! find starting ' <' and delete!
    qc,.xc ! store pers name qc!
    qc,.k ! kill pers name!
    s>`-dqb-1ub ! find ending '>' and delete!
    qc,.xlqc,.k ! store addr in ql and kill!
    |46^t.:=69^t4:=77^tqq=0tt ! else bad msg fmt, output err msg!
    ' ! endif!
    | ! else!
    1:fb (`"s ! if 'From: aa (pp) sntx, if ' ('!
    1:fb)`"s ! then if ending ')' found!
    qcj ! then go start addr!
    s (`-2dqb-2ub ! delete ' (', fix qb!
    qc,.xlqc,.k ! put addr ql, delete!
    s)`-dqb-1ud ! go end pers, del ')', fix qb!
    qc,.xcqc,.k ! put pers name qc, delete!
    |46^t.:=69^t5:=77^tqq=0tt ! else bad msg fmt, outpt err msg!
    ' ! endif!
    |qcj ! else assume single addr case!
    ::s<`"s-ds>`-dqb-2ub' ! handle case 'From: '!
    l2rqc,.xlqc,.k0,0xc ! assume 'From: aa' syntax!
    ' ! endif!
    ' ! endif!
    ' ! endif!
    qcjgl.ud ! go end "From:", insert addr!
    qcj -s^egv`i"`s^egt` ! quote previous delimiter token!
    s^egv`ri"`qb+2ubqd+2ud ! quote next sendmail delimiter token!
    > ! end loop!

    :qc"g ! if pers name nonnull!
    qdji `qb+1ub ! then insrt space delimiter!
    i"`gci"`qb+2ub ! insrt pers nam w/quotes!
    ' ! endif!
    |qajiFrom:`9i` ! else insrt "From:" anyway!
    i""`13i`10i`qb+19ub ! create "" from, fixup qb!
    ' ! endif!
    qajqb-qa,:s^elTo: `"s ! if 'To:' header found!
    -d9i` ! then chg space to tab!
    l::s `"s-3dqb-3ub ! if additional 'To:' header lines!
    <::s `;-dqb-1ub>i `qb+1ub ! then append & kill leading spaces!
    l::fs `To:` ! Add 'To:' hdr if more addressee!
    ' ! endif!
    -l1xlkqajlgl ! move 'To:' line to new loc!
    |qajliTo:`9i`i`13i`10i`qb+6ub ! else insert empty 'To:'!
    ' ! endif!

    qajqb-qa,:s^elCc: `"s ! if 'Cc:' header found!
    -3diC:`9i` ! then do same stuff!
    l::s `"s-3dqb-3ub ! if additional 'Cc:' header lines!
    <::s `;-dqb-1ub>i `qb+1ub ! then append & kill leading spaces!
    l::fs `Cc:` ! Add 'Cc:' hdr if more addressee!
    ' ! endif!
    -l1xlkqaj2lgl
    |qaj2liCC:`9i`i`13i`10i`qb+6ub ! else insert empty 'CC:'!
    ' ! endif!

    qajqb-qa,:s^elSubject: `"s ! if 'Subject:' found!
    -5di:`9i`qb-3ub ! then do it again!
    <::s `"u0;'-dqb-1ub> ! delete leading spaces in Subj line!
    0l1xlkqaj3lgl ! move Subj line to Mail-11 header!
    |qaj3liSubj:`9i`i`13i`10i`qb+8ub ! else!
    ' ! endif!

    13i`10i`qb+1ub ! mark end of Mail-11 hdr!
    qajl2r ! goto end of From: line!
    .uc ! mark current pos in qc!
    i `goi-`gp ! insert timestmp dlmtr,yy,mm!
    3r0a&223i`d0a&223i`d0a&223i`d ! upcase month!
    i-`gmi `gn ! add rest of timestamp!
    .-qc+qbub ! fixup qb!
    qbj-l ! goto end of headers!

    .-z"ea'::sFrom `"s0l0;' ! if endbuff append, if newmsg exit loop!
    ::s>From `"sfrFrom `|-l'> ! replace '>From ' hack, next loop!
    ::sFrom `;0l ! exit loop if no more messages!
    >`` ! end main loop!


    !erase buffer, load local DCL symbol "c_line_count" with line
    count by: creating appropriate teco command, loading it in Q
    register A, and executing it!
    ji:egsym msg_count `qq\27i`b,.xab,.kma``

    ex`` ! exit with status!
    $!
    $! exit and (hack alert) pass back count as part of return status in the
    $! facility number and message number fields (set the suppress msg, customer
    $! specific, and success status bits just to be politically correct).
    $ if f$inte(msg_count) .le. %x07fffff8/8 ! 16777215 in decimal
    $ then exit (f$inte(msg_count)*8).or.%x18000003
    $ else exit 1 ! pass back count = 0
    $ endif
    $ENDSUBROUTINE


  19. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    In article <150820071723550618%nospam@yrl.co.uk>, Elliott Roper
    writes:

    > In article <130820070946381392%nospam@yrl.co.uk>, Elliott Roper
    > wrote:
    > Update:
    > It is now a much smaller pile, changes below. Probably not worth
    > bothering with unless you are close and are really keen for spares.


    Nice to see that most of the stuff went to a good home. Now I don't
    feel so bad that I didn't have a larger car and/or house. :-)

    The following stuff still looks interesting for hobbyists, at least for
    spares:

    > 1 x 4000 60 no memory, low-res graphics
    > 5 x 4000 VLC
    > 1 x 3100 38 SPX


    > 1 x 3000 (in poor state)


    > 4 x VT420
    > 2 x VT320


    > much reduced pile of various monitor and SCSI cables, power cables



  20. Re: Free to good home. Microvaxes, Vaxstations, Alphas

    Elliott Roper wrote:
    > Update:
    > It is now a much smaller pile, changes below. Probably not worth
    > bothering with unless you are close and are really keen for spares.



    > 5 x 4000 VLC


    Wish you were close to me, rather than being on another continent. I can't
    believe no one has grabbed these. Five of them would be rather fun. I use
    a VLC as my DECnet router for HECnet.

    Zane


+ Reply to Thread
Page 1 of 3 1 2 3 LastLast