partno/'subscript test'

declar/real,a,b(10)
declar/point,c(2)
declar/text,t1,t2

$$t2=3
t1=text/'this is a test'
t2=text/'hello world, ',t1,' of the apt text system',$
	(text/' it appears to be working')
c=point/1,2
a=34
b(1)=5
b(2)=1
b(3)=76

print/a,b(2),c,t2

$$print/all


fini