[Info-vax] Teco / TECOC (was: Re: Intel proposal to simplify x86-64)

[Arne Vajhøj]

On 6/7/2023 8:10 PM, Arne Vajhøj wrote:
> And it still works on VMS Alpha.
> 
> $ type myteco.for
>        program myteco
>        integer*4 dot, z
>        character*255 text
>        call teco$init()
>        call teco$load_text('ABCDE')
>        call teco$set_dot(1)
>        call teco$delete_text(3)
>        call teco$set_dot(0)
>        call teco$pointers(dot, z)
>        call teco$get_text(text)
>        write(*,*) z, text(1:z)
>        end
> $ for/tie myteco
> $ link/nonative myteco + sys$input/opt
> sys$library:tecoshr_tv/share
> $
> $ run myteco
>            2 AE

And a more "callable editor"ish example:

$ type mytecox.for
       program mytecox
       call teco$init()
       call teco$edit()
       end
$ for/tie mytecox
$ link/nonative mytecox + sys$input/opt
sys$library:tecoshr_tv/share
$
$ run mytecox
*ex$$

Arne