cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	subroutine mfmain
	include	'INCLUDE/msf.h'

	character	namev*12, amtv*12

	call mfopen (
     &  'DATABASE'
     &  , 'loans', 'r')
	print 10
10	format (1x, 'Employees of Joe''s Garage with Loans Greater',
     &			' Than $100.00', //1x, 
     &		'Name        Loans', /)

	call mfqc ('>', 'amount', '100.00')

	call mfgetb ('loans', char(0))

20	if (mfget () .ne. 1) goto 40
		junk = mfgetv (namev, 12, 'name')
		junk = mfgetv (amtv,  12, 'amount')
		print 30, namev, amtv
30		format (1x, a12, a12)
		goto 20
40	call mfgete

	call mfclos ('loans')
	end
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.ff
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Employees of Joe's Garage with Loans Greater Than $100.00

Name        Loans

Mosca       $150.00     
Kilroy      $250.00     
Mosca       $200.00     
Jones       $300.00     
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Comparing with a constant
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
