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

Arne Vajhøj arne at vajhoej.dk
Wed Jun 7 20:17:31 EDT 2023


On 6/7/2023 8:10 PM, Arne Vajhøj wrote:
>        program myteco
>        integer*4 dot, z
>        character*255 text

Drop the following line as it is a leftover from something not used:

>        call lib$get_foreign(fnm,,fnmlen)
>        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

Arne





More information about the Info-vax mailing list