Note H - Weighted Average Shares Outstanding - Weighted Average Shares of Common Stock Outstanding (Details) - shares	3 Months Ended
Jul. 31, 2023	Jul. 31, 2022
Weighted average shares outstanding-basic (in shares)	6,381,704	6,373,326
Dilutive options and restricted stock (in shares)	253,298	228,260
Weighted average shares outstanding-diluted (in shares)	6,635,002	6,601,586
Share-Based Payment Arrangement, Option [Member]
Antidilutive securities (in shares)	240,000	220,000
Restricted Stock [Member]
Antidilutive securities (in shares)	0	5,132

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.

Reference 1: http://www.xbrl.org/2003/role/disclosureRef
-Topic 260
-SubTopic 10
-Name Accounting Standards Codification
-Section 50
-Paragraph 1
-Subparagraph (c)
-Publisher FASB
-URI https://asc.fasb.org//1943274/2147482662/260-10-50-1

+ Details

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
-Topic 260
-SubTopic 10
-Name Accounting Standards Codification
-Section 50
-Paragraph 1
-Subparagraph (a)
-Publisher FASB
-URI https://asc.fasb.org//1943274/2147482662/260-10-50-1

+ 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
-Topic 260
-SubTopic 10
-Name Accounting Standards Codification
-Section 50
-Paragraph 1
-Subparagraph (a)
-Publisher FASB
-URI https://asc.fasb.org//1943274/2147482662/260-10-50-1

Reference 2: http://www.xbrl.org/2003/role/disclosureRef
-Topic 260
-SubTopic 10
-Name Accounting Standards Codification
-Section 45
-Paragraph 16
-Publisher FASB
-URI https://asc.fasb.org//1943274/2147482689/260-10-45-16

+ 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
-Topic 260
-SubTopic 10
-Name Accounting Standards Codification
-Section 50
-Paragraph 1
-Subparagraph (a)
-Publisher FASB
-URI https://asc.fasb.org//1943274/2147482662/260-10-50-1

Reference 2: http://www.xbrl.org/2003/role/disclosureRef
-Topic 260
-SubTopic 10
-Name Accounting Standards Codification
-Section 45
-Paragraph 10
-Publisher FASB
-URI https://asc.fasb.org//1943274/2147482689/260-10-45-10

+ 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: