* EVAL.CMD
* 2nd Ed. 8/21/87
CLEAR
ERASE
@ 8,29 SAY "CLAIM FILE EVALUATION"
@ 10,33 SAY "By David Rice"
@ 12,33 SAY "Copyright1987"
@ 14,26 SAY "Initializing.  Please Wait!"
IF .not. file ('eval.mem')
	STORE "          " TO mpoln
	STORE "                                         " TO minsd
	STORE "                                    " TO mclmt
	STORE "                                    " TO matty
	STORE "      " TO mld
	STORE 00000.00 TO mmeds:k
	STORE 00000.00 TO mmeds:e
	STORE 00000.00 TO mwages
	STORE 00000.00 TO mexps
	STORE 000 TO mtd
	STORE 000 TO mpd
	STORE 000 TO mps
	STORE "                                                   " TO n1
	STORE "                                                   " TO n2
	STORE "                                                   " TO n3
	STORE "                                                   " TO n4
	STORE 00000.00 TO ttd
	STORE 00000.00 TO tpd
	STORE 00000.00 TO tps
	STORE 00000.00 TO tmax1
	STORE 00000.00 TO max
	STORE 00000.00 TO min
	STORE 000 TO tmin
	STORE " " TO ans
	STORE 1 TO neg
	STORE 00000.00 TO avg
	STORE 00000.00 TO lmin
	STORE 00000.00 TO lmax
	SAVE TO eval.mem
	ELSE
	RESTORE FROM eval.mem
ENDIF
* Second Screen
ERASE
@ 1,1 SAY "File Number" GET mpoln
@ 2,1 SAY "Adverse Party" GET minsd
@ 3,1 SAY "Loss Date" GET mld
@ 4,1 SAY "Injured Party" GET mclmt
@ 5,1 SAY "Attorney" GET matty
@ 6,1 SAY "Known Medicals" GET mmeds:k PICTURE "99999.99"
@ 7,1 SAY "Anticipated Medicals" GET mmeds:e PICTURE "99999.99"
@ 8,1 SAY "Other Expenses" GET mexps PICTURE "99999.99"
@ 9,1 SAY "Lost Wages" GET mwages PICTURE "99999.99"
@ 10,1 SAY "Weeks of Total Disability" GET mtd PICTURE "999"
@ 11,1 SAY "Weeks of Partial Disability" GET mpd PICTURE "999"
@ 12,1 SAY "Weeks of Discomformt" GET mps PICTURE "999"
@ 13,1 SAY "COMMENTS:"
@ 14,1 SAY " " GET n1 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 15,1 SAY " " GET n2 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 16,1 SAY " " GET n3 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 17,1 SAY " " GET n4 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
READ
@ 19,1 ACCEPT "Is negligence less than 100%?" TO ans
IF !(ans) = "Y"
	@ 20,1 INPUT "Enter percent of negligence:" TO neg
	STORE (neg/100) TO neg
ENDIF
STORE (((mmeds:k + mmeds:e)*3)) TO tmax1
STORE (mmeds:k + mmeds:e + tmax1 + mwages + mexps) TO max
STORE (mtd * 300.00) TO ttd
STORE (mpd * 150.00) TO tpd
STORE (mps * 75.00) TO tps
STORE (ttd + tpd + tps) TO tmin
STORE (tmin + mmeds:k + mmeds:e + mwages + mexps) TO min
STORE (((max + min)/2) * neg) TO avg
STORE (int(min * .8)) TO lmin
STORE (int(max * 1.2)) TO lmax
* Third Screen
ERASE
@ 1,1 SAY "Do you want a printout?  Y/N"
WAIT TO response
IF !(response) = "Y"
	DO showp
ELSE
	DO show
ENDIF
ERASE
RELEASE ALL
CLEAR
u want a printout?  Y/N"
WAIT TO response
IF !(respo