[RBASE-L] - Re: Bail-Out After Prnsetup Invoked, LASTKEY Usage

[Alastair Burr]

Brad,   It _looks_ to me as if the version you have currently should work BUT do you have the variable vLast declared beforehand?   If not, try adding:   SET VAR vLast INTEGER = NULL   after your line: -- Per RSyntax Version   Regards, Alastair.   ----- Original Message ----- From: Brad Davidson To: RBASE-L Mailing List Sent: Wednesday, March 26, 2003 4:41 PM Subject: [RBASE-L] - Bail-Out After Prnsetup Invoked, LASTKEY Usage R:Base Windows 6.5++ Bld 1.864 Appreciate some advice on this. How does one "bail-out" after prnsetup invoked? See LASTKEY usage after prnsetup below. Have attempted 2 scripting methods, both fail when running at the r:\ prompt - that is, the file is printed anyway, though ESC key pressed. Inconsistent behaviour while tracing: sometimes prints, sometimes doesn't, and when it doesn't, flashes back to r:\  with no error message and disappearing cursor (assuming some error occurs but can't trap it). TIA! Brad Davidson ******************************** -- LISTABLE.RMD CLS CLEAR VAR vtab CLEAR VAR vlast SET VAR vtab TEXT = NULL CHOOSE vtab FROM #TABLES AT 5 10 TITLE 'TABLE INFO' + CAPTION 'Print Table Specs For ONE Table, As Selected' + LINES 20 FORMATTED IF vtab IS NULL OR vtab = '[Esc]' THEN   GOTO finish ENDIF DELETE tempfile.txt OUTPUT tempfile.txt SET LINES 0 LIST .vtab SET LINES 20 OUTPUT SCREEN PRNSETUP -- IF (LASTKEY(0)='[esc]') THEN --  GOTO finish -- ENDIF -- Per RSyntax Version SET VARIABLE vlast = (LASTKEY(0))   IF vlast = '[Esc]' THEN    GOTO finish ENDIF OUTPUT PRINTER TYPE tempfile.txt OUTPUT SCREEN LABEL finish CLS RETURN