Program TRIAL c c Author: S L Hewett c c Basic Test routine for VT241, HVPLOT Library c c c Initialise the system c character*80 string character*1 ans character*8 col data col/'RGBCYMWD'/ call init() !Basic set-up and select device call scale(-32.0,+32.0,-32.0,+32.0) 10 type *,'Do you wish to send a special string (Y/N) ?' 15 accept 1000,ans 1000 format(a1) if(ans.ne.'Y'.and.ans.ne.'y')goto 20 type *,'Input string to be sent to terminal' accept 1080,string 1080 format(a) call send(string) type *,'Another string ?' goto 15 20 Type *,'Colour Trials' do 30 j=1,8 do 30 k=1,8 do 30 m=1,8 do 30 i=1,8 string='S(M0(A'//col(i:i)//')1(A'//col(j:j)//')2(A'//col(k:k) 1//')3(A'//col(m:m)//'),E)' call send(string) type *,i,j,k,m side=i+j+k+l call block(side) 30 continue c Clean up 100 call home !Return pen to holder and eject paper call ploff !Disable the plotter c stop end c c Subroutine BLOCK(side) c call jump(-side,-side) call draw(-side,+side) call draw(+side,+side) call draw(+side,-side) call draw(-side,-side) c return end c