	program NERV
#
#	Analyse eines Nerven 
#
# Es sind nur diejenigen Programmteile implementiert, die zur Analyse der 
# Nervenfasern eines einzelnen Bildes benoetigt werden.
#
# Externe Routinen:
# Name		File,Bibliothek Zweck
# param		PARAM		liest die Segmentations-Parameter ein
# parser	PARSER		fuehrt die Analyse eines Bildes aus
#
define	VERSION 'Version 0.1 vom 16.05.85'
#
define DRIVE 0			# Default drive
define LUN 6			# Disk unit
define START 1			# Label
#
byte	char			# Einzelzeichen
byte	y,yy
integer	xanz,yanz		# Bildgroesse
real	bildfi(2)		# Name der Bilddatei (Eingabe)
real	filnam(3)		# Name der Bilddatei (mit Extension)
#
common	/bild/xanz,yanz
#
data	y,yy/'y','Y'/
data	filnam/'    ','    ','PIC '/
#
#	********* Programm - Anfang **********
#
START
write(1,10)
10 format('1NERV - ',VERSION,/)
#
#	Initialisierungen (maschinenbezogene Anfangsarbeiten)
#
#
#
#	Objektauswahl (nicht implementiert)
#
#	Wahl des Bildausschnitts (besteht nur im Einlesen einer Bild-Datei)
#
write(1,30)
30 format(' Name der Bild-Datei = ')
read(1,31) bildfi
31 format(2a4)
filnam(1)=bildfi(1) ; filnam(2)=bildfi(2)
write(1,33)
33 format(' Bildgroesse x,y = ')
read(1,34) xanz,yanz
34 format(2i4)
#
#	... muss noch vervollstaendigt werden ...
#
#
#	Wahl der Verfahrens-Parameter
#
call param
#
#	Analyse der Fasern
#
call parser
#
#	Verwaltung bzw. Ausgabe der Messwerte (nicht implementiert)
#
#	statistische Auswertung der Messdaten (nicht implementiert)
#
#	********** Programm - Ende ************
#
write(1,80)
80 format(//' NERV - Restart? (Y/N) ')
read(1,81) char
81 format(a1)
if (char==y !! char==yy) goto START
end
