subroutine plots(imode,ires,ilun) C C subroutine to initialize REGIS device C C imode,ires(integer) are dummy args retained for compatibility C with other CALCOMP routines C ilun(integer) = the logical unit to which all REGIS commands are C to be written C I have usually set it to 6. Then, before running C any programs using this code I issue a monitor C SET DEV: 6 where device might be TT: for direct C screen output or DK: if I want the commands stored C in a file. C C C clear the screen first using screen control codes C CSI 0m - turn off all screen attributes C CSI H - move to the home position C CSI J - erase to end of the screen C Pp = DCS p - enter REGIS at previous command level C S(I0,E) - set background dark and erase it C S(A[0,479][799,0]) - set the screen coordinates at 0,799,0,499 C W(P1) - start off using solid line types C call bdata(ilun) write(ilun,10)27,27,27,27 10 format(' 'A1'[0m'A1'[H'A1'[J'A1'Pp S(I0,E) + S(A[0,479][799,0])W(P1)') return end