Posted by Grant Foraker on April 11, 2006 at 09:40:52: Uploaded files: 2
In Reply to: Re: CAW - Something Extra posted by Jim Guerber on April 11, 2006 at 08:23:26:
Can't guess what the mnemonic might be. This only happens in CAW. I've attached the full source.
The calling program (IQ) does Case 4 ...
GetEvent:
SELECT EVENT$
CASE '1'
LET PASS$ = CINBR$
ENTER 'QBI10' ! P/O ITEMS ON ORDER
CASE '2'
LET PASS$ = CINBR$
ENTER 'OIQ10' ! SALES ITEMS ON ORDER
CASE '3'
LET PASS$ = CINBR$ + 'N' + CIDESC$
ENTER 'IM20' ! ITEM UPC INFORMATION
CASE '4'
LET PASS$ = CINBR$ + 'N' + CIDESC$
ENTER 'IM21' ! ITEM TECH SPECIFICATION
ENDSELECT
EVENTSUB GetEvent, EVENT$, SOURCE$ ! RESET EVENT
RETURN
The popup exits with UPDATE$ = "N"
eventwait
!==================== Program Exit ======================================================!
ProgExit:
IF UPDATE$ EQ 'Y'
WRITE (21,0921) KEY = INBR$
ENDIF
EXIT