********************************** * Program TEK125 * * * * Submitted by Ronald Beetz * * AKZO PHARMA * * Oss, Holland * * * ********************************** TEK125 is a program to display TEKTRONIX PLOT-10 information on a VT125 terminal. TEK125 is maybe the easiest solution for your conversion problems. The idea is : 1. The PLOT-10 library has minor changes: INITT,ADEOUT and FINITT Because of these changes all graphical information can be send to a file instead of the terminal. 2. TEK125 can read that file and converts its information to the VT125. 3. With few changes in TEK125 the program can be used for other devices than VT125 like a CALCOMP plotter. Note: All alphanumirical information on the graphs must be written with the AOUTST routine of the PLOT-10 library to get it in the file. Writes to the terminal, what is rather usual for TEKTRONIX plots, will go to the terminal and not to the file. The changes in PLOT-10: 1. INITT The routine asks for an output file, default teminal what is the original situation, and opens that file on unit number 13 (Never use unit 13 yourself!) 2. ADEOUT This macro routine with the .TTYOUT program request has been replaced by a FORTRAN routine that writes characters one by one to unit 13. This way of output is somewhat slower than the original one. 3. FINITT Unit 13 is closed here. Additional I removed the stupid STOP-statement. Device dependency of TEK125: 1. In the main program the terminal is initialized with a [2JPpS(E). For other devices you need another initialization. 2. Subroutine TRAS - draws a line to position IX,IY visible or unvisible. 3. Subroutine PCARS - writes L characters of TEXT starting on the current position. The character type, height and width are fixed, because TEKTRONIX does not know otherwise.