Technical information

Serial Solutions Forterm
Figure 11-6. Forterm Main Program.________________________________
program FORterm
C Port parameters definition common data
integer*1 comno,baud,parity,databits,stopbits,brk
common /port/ comno,baud,parity,databits,stopbits,brk
C Port name
character*8 comname
common /port/ comname
C terminal data common
logical echol,echos
common /term/ echol,echos
C Internal variables common
integer nextunit
common /intvar/ nextunit
C Set up default values for translations
call initxlt
C Set up other program variables
echol = .FALSE.
echos = .FALSE.
C Internal variable, used by exec_file
nextunit = 7
C COM1, 1200 Baud, even parity, 7 data bits and one stop bit.
C Parameters are in form used by BIOS extended initialise.
comname = ’COM1 ’
comno = 0
baud = 4
parity = 2
databits = 2
stopbits = 0
brk = 0
call screen(’\n’C,0)
call exec_defaults
call open_com
C Main program- is infinite loop
do while (.TRUE.)
call switchout
call readin
end do
Page 170 Chapter 11