Note H - Weighted Average Shares Outstanding - Weighted Average Shares of Common Stock Outstanding (Details) - shares	3 Months Ended
Jul. 31, 2022	Jul. 31, 2021
Weighted average shares outstanding-basic (in shares)	6,373,326	6,604,194
Dilutive options and restricted stock (in shares)	228,260	393,741
Weighted average shares outstanding-diluted (in shares)	6,601,586	6,997,935
Share-Based Payment Arrangement, Option [Member]
Antidilutive securities (in shares)	220,000	30,000
Restricted Stock [Member]
Antidilutive securities (in shares)	5,132	0

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 https://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 https://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 https://asc.fasb.org/extlink&oid=126958026&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 https://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 https://asc.fasb.org/extlink&oid=126958026&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: