end of REPORT
MAKEDEF$ RPT.HEADER RPT.SELECTION RPT.BODY RPT.TOTAL
#SET X$ 0
BREAK$T3
// RETURN
!A [] $43 |CI0
#IFDEF RPT.KEYPRESS
#ELSE
RPT.KEYPRESS:
// STRING AKEY$ 1
#IFDEF AKEY$
#ELSE
#STR V$ 1
#REPLACE AKEY$ |VS!v
#ENDIF
// SHOWLN 'A KEY HAS BEEN PRESSED.'
!A [] $142 |CS'A KEY HAS BEEN PRESSED.'
!A [] $143
// SHOW 'DO YOU WANT TO STOP THE REPORT (Y or N)? '
!A [] $142 |CS'DO YOU WANT TO STOP THE REPORT (Y or N)? '
// INKEY AKEY$
!A [] $147 AKEY$
!A [] $141 AKEY$
// IF NOT AKEY$ IN 'Yy' RETURN RPT.LOOP
INDCT$AS SELECT AS AKEY$ IN 'Yy'
//JJT-5.1
//[~ SELECT] RETURN RPT.LOOP
[~ SELECT] Gosub_RETURN RPT.LOOP
//JJT-5.1
//RETURN END$OF$REPORT // Necessary to pop stack
Gosub_RETURN END$OF$REPORT // Necessary to pop stack
#ENDIF
END$OF$REPORT: