	program kt
#
# 	Kommunikations-Test
#
# testet das Handshaking zwischen P16 und WANG ueber die SIO-A.
#
# Externe Routinen:	wang	init. die SIO-A zum WANG
#			wrts	wartet auf Request to Send-Zeichen
#			send	sendet ein Byte ueber die SIO-A
#
# Entwurf und Programmierung	A.Herrmann
#
define	VERSION '1.0 vom 09.01.84'
#
byte	g,gg		# Bytes
byte	bot,eos,eot	# Handshake Chars.
#
integer	h		# Hilfsgroesse
integer	i,j,k		# Laufindizes
#
data	yes/'Y'/
data	bot,eos,eot/1,5,6/
#
write(1,2)
2 format('1KT - der Kommunikations-Tester',20x,VERSION,/)
#
#	SIO-A Initialisierung aus Programm WANG
#
call wang				# SIO-A init.
#
#	Bild aus Program RGEN
#
1	write(1,10)
10 format(' SNDPIC'/)
k=49
call wrts				# wait for RTS
call send(k)
write(1,12)
12 format(' Bilddaten und'/)
call wrts
k=k+1
call send(k)
call wrts
write(1,20)
20 format(' Bild gesendet.'/)
#
#	Analysedaten aus Programm TRIAN
#
k=k+1
call wrts
call send(k)
write(1,30)
30 format(' Startpunkt'/)
do j=1,2
[
do i=1,3
[	k=k+1
	call wrts
	call send(bot)
	call wrts
	call send(k)
]
write(1,32)
32 format(' 3 Dreiecke'/)
call wrts
call send(eos)
k=k+1			# Schwerpunkt
call wrts
call send(k)
write(1,34)
34 format(' Schwerpkt.'/)
]
call wrts
call send(eot)
#
#	Ableitungsbaum aus Programm TRIAN
#
if (1==2)
[
k=k+1
call wrts
call send(k)
write(1,40)
40 format(' Abl.baum'/)
call send(eot)
]
#
call keybd(k)
if (k==0) goto 1
#
write(1,90)
90 format(//' RESTART (Y/N) ')
read(1,92) char
92 format(a1)
if (char==yes) goto 1
#
end
