Note H - Weighted Average Shares Outstanding - Weighted Average Shares of Common Stock Outstanding (Details) - shares	3 Months Ended	6 Months Ended
Oct. 31, 2021	Oct. 31, 2020	Oct. 31, 2021	Oct. 31, 2020
Weighted average shares outstanding-basic (in shares)	6,529,846	6,627,780	6,567,020	6,630,112
Dilutive options and restricted stock (in shares)	333,427	307,927	363,584	295,539
Weighted average shares outstanding-diluted (in shares)	6,863,273	6,935,707	6,930,604	6,925,651
Share-based Payment Arrangement, Option [Member]
Antidilutive securities (in shares)	25,000	225,000	55,000	225,000
Restricted Stock [Member]
Antidilutive securities (in shares)	4,000	0	4,000	2,112

Securities (including those issuable pursuant to contingent stock agreements) that could potentially dilute basic earnings per share (EPS) or earnings per unit (EPU) in the future that were not included in the computation of diluted EPS or EPU because to do so would increase EPS or EPU amounts or decrease loss per share or unit amounts for the period presented.

Name:	us-gaap_AntidilutiveSecuritiesExcludedFromComputationOfEarningsPerShareAmount
Namespace Prefix:	us-gaap_
Data Type:	xbrli:sharesItemType
Balance Type:	na
Period Type:	duration

- Definition

The sum of dilutive potential common shares or units used in the calculation of the diluted per-share or per-unit computation.

+ References

Reference 1: http://www.xbrl.org/2009/role/commonPracticeRef
-Publisher FASB
-Name Accounting Standards Codification
-Topic 260
-SubTopic 10
-Section 50
-Paragraph 1
-Subparagraph (a)
-URI http://asc.fasb.org/extlink&oid=124432515&loc=d3e3550-109257

+ Details

Name:	us-gaap_WeightedAverageNumberDilutedSharesOutstandingAdjustment
Namespace Prefix:	us-gaap_
Data Type:	xbrli:sharesItemType
Balance Type:	na
Period Type:	duration

- Definition

The average number of shares or units issued and outstanding that are used in calculating diluted EPS or earnings per unit (EPU), determined based on the timing of issuance of shares or units in the period.

+ References

Reference 1: http://www.xbrl.org/2003/role/disclosureRef
-Publisher FASB
-Name Accounting Standards Codification
-Topic 260
-SubTopic 10
-Section 50
-Paragraph 1
-Subparagraph (a)
-URI http://asc.fasb.org/extlink&oid=124432515&loc=d3e3550-109257

Reference 2: http://www.xbrl.org/2003/role/disclosureRef
-Publisher FASB
-Name Accounting Standards Codification
-Topic 260
-SubTopic 10
-Section 45
-Paragraph 16
-URI http://asc.fasb.org/extlink&oid=125511455&loc=d3e1505-109256

+ Details

Name:	us-gaap_WeightedAverageNumberOfDilutedSharesOutstanding
Namespace Prefix:	us-gaap_
Data Type:	xbrli:sharesItemType
Balance Type:	na
Period Type:	duration

- Definition

Number of [basic] shares or units, after adjustment for contingently issuable shares or units and other shares or units not deemed outstanding, determined by relating the portion of time within a reporting period that common shares or units have been outstanding to the total time in that period.

+ References

Reference 1: http://www.xbrl.org/2003/role/disclosureRef
-Publisher FASB
-Name Accounting Standards Codification
-Topic 260
-SubTopic 10
-Section 50
-Paragraph 1
-Subparagraph (a)
-URI http://asc.fasb.org/extlink&oid=124432515&loc=d3e3550-109257

Reference 2: http://www.xbrl.org/2003/role/disclosureRef
-Publisher FASB
-Name Accounting Standards Codification
-Topic 260
-SubTopic 10
-Section 45
-Paragraph 10
-URI http://asc.fasb.org/extlink&oid=125511455&loc=d3e1448-109256

+ Details

Name:	us-gaap_WeightedAverageNumberOfSharesOutstandingBasic
Namespace Prefix:	us-gaap_
Data Type:	xbrli:sharesItemType
Balance Type:	na
Period Type:	duration

- Details

Name:	us-gaap_AntidilutiveSecuritiesExcludedFromComputationOfEarningsPerShareByAntidilutiveSecuritiesAxis=us-gaap_EmployeeStockOptionMember
Namespace Prefix:
Data Type:	na
Balance Type:
Period Type:

- Details

Name:	us-gaap_AntidilutiveSecuritiesExcludedFromComputationOfEarningsPerShareByAntidilutiveSecuritiesAxis=us-gaap_RestrictedStockMember
Namespace Prefix:
Data Type:	na
Balance Type:
Period Type: