[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