Note H - Weighted Average Shares Outstanding - Weighted Average Shares of Common Stock Outstanding (Details) - shares	3 Months Ended
Jul. 31, 2019	Jul. 31, 2018
Weighted average shares outstanding-basic (in shares)	6,684,282	6,924,035
Dilutive options and restricted stock (in shares)	332,470	202,650
Weighted average shares outstanding-diluted (in shares)	7,016,752	7,126,685
Share-based Payment Arrangement, Option [Member]
Antidilutive securities not included:
Antidilutive securities (in shares)	25,000	120,000
Restricted Stock [Member]
Antidilutive securities not included:
Antidilutive securities (in shares)	3,000

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

- References

No definition available.

+ Details

Name:	us-gaap_EarningsPerShareDilutedOtherDisclosuresAbstract
Namespace Prefix:	us-gaap_
Data Type:	xbrli:stringItemType
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

+ 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://fasb.org/us-gaap/role/ref/legacyRef
-Publisher FASB
-Name Accounting Standards Codification
-Topic 260
-SubTopic 10
-Section 50
-Paragraph 1
-Subparagraph (a)
-URI http://asc.fasb.org/extlink&oid=6371337&loc=d3e3550-109257

Reference 2: http://fasb.org/us-gaap/role/ref/legacyRef
-Publisher FASB
-Name Accounting Standards Codification
-Topic 260
-SubTopic 10
-Section 45
-Paragraph 16
-URI http://asc.fasb.org/extlink&oid=117326831&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://fasb.org/us-gaap/role/ref/legacyRef
-Publisher FASB
-Name Accounting Standards Codification
-Topic 260
-SubTopic 10
-Section 45
-Paragraph 10
-URI http://asc.fasb.org/extlink&oid=117326831&loc=d3e1448-109256

Reference 2: http://fasb.org/us-gaap/role/ref/legacyRef
-Publisher FASB
-Name Accounting Standards Codification
-Topic 260
-SubTopic 10
-Section 50
-Paragraph 1
-Subparagraph (a)
-URI http://asc.fasb.org/extlink&oid=6371337&loc=d3e3550-109257

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