833 
Procedure readin ; 
Begin 
page ; 
writeln (' WELCOME TO PROGRAMME SPOTSLOPES '); 
writeln; 
writeln; 
writeln ( ' This program analyzes the shadows in sidelook SPOT imagery and '); 
writeln ('the visibility of steep slope facets around the lookdirection.'); 
writeln ('Stereo-observation establishes the presence of slopes.') ; 
writeln; 
writeln (' Enter NAME and DATE of image, max. 30 characters: '); 
write (' >')? 
readin (Imagename); 
writeln ; 
writeln (' ' Enter scene-identifiers [K/J]:') ; 
write (' >'); readin (scenid); 
writeln; 
writeln (' Enter sun elevation angle:'); 
write(' >'); readin (sunel); 
writeln; 
writeln (' Enter incidence angle:'); 
write(' >'); readin (lkang); 
visang := (90 - lkang); 
writeln; 
writeln (' Enter sun azimuth direction :'); 
write(' >'); readin (azim); 
shine (azim + 180); 
writeln; 
writeln (' Enter viewing direction :'); 
writeln (' (Normally - orientation + 270 if Rightlooking [* 278.7]) '); 
writeln (' (Normally - orientation + 90 if Leftlooking [- 98.7]) '); 
write(' >'); readin (view); 
writeln; 
end;{readin} 
Procedure header 
Begin 
writeln ; 
writeln 
writeln 
writeln 
writeln 
writeln 
writeln 
writeln 
writeln; 
writeln 
writeln 
writeln; 
end; {header} 
Image : 
imagename ) 
Scene-identifier: 
Sun elevation angle: 
Incidence angle: 
Sun azimuth : 
Look direction: 
SLOPE 
(degrees) 
NOT VISIBLE 
(exposure 
scenid); 
(sunel): 3 :1 ); 
' , (lkang):3:1 ); 
(azim): 3 :1 ); 
(view): 3 :1 ); 
SHADOWED'); 
directions ) ');