VERBatim - RText Replacement for V16

At long last, the RTEXT replacement program promised in issue #5. As this is of such specialised interest we present it without any further comments other than to say that if users want to use V16 with the TEXT facility, they shuld enter this code and catalog it as RTEXT. If you have any further queries please feel free to contact us.

SUBROUTINE RTEXT(A,B,IVAL,D,LEFT,F,TOP,WIDTH,I,TITLE,K,L,M)
*
*    Author    AmcA
*    Date      December 1989
*    Purpose   To provide RTEXT replacement for use with V16
*    Copyright Sprezzatura Ltd 1989 Permission is granted for REVMEDIA
*              subscribers to use this program for any purpose.  No
*              liability accepted for use.  Dummy variables used in call
*              as they are passed and must therefore be accepted.
*
DECLARE SUBROUTINE VIDEO.RW, SCRIBE, BORDER.UP, MESSAGE
DEPTH = 21 ; RIGHT = 79 ; BOTTOM = 21
* Save screen, clear it, put up box and title
VIDEO.RW(0,0,79,21,"R",IMAGE)
VIDEO.RW(0,0,79,21,"C","")
BORDER.UP(0,0,79,21,1,CURATR())
MESSAGE(INT((80-LEN(TITLE))/2),0,TITLE,CURATR(),"UP",DUMMY)
* Set up SCRIBE parameters
STATE = ""; PROTECTED=0 ; EXIT=CHAR(27) :@FM: CHAR(0):CHAR(67)
EXCEPT = "" ; COL = 1 ; ROW = 1 ; DLEN = 78
COLOR = @XW<8> : @FM : @XW<5> : @FM : @XW<4>
FLAGS = '' ; FLAGS<4> = TITLE ; FLAGS<5> = 1
FLAGS<7> = 1 ; FLAGS<8> = 1
CHANGE = "" ; MV.DEPTH = 20 ; KEY = "" ; IPAT = "" ; OPAT = ""
JUST = 'L' ; DELIM = @FM ; MASK = "" ; CHAR.COUNT= 0
* Get info until user presses F9 or <Esc>, note that down
* arrow causes SCRIBE to exit so reinvoke SCRIBE 'til exit
LOOP
UNTIL INDEX(EXIT,KEY,l)
  SCRIBE(IVAL,PROTECTED,EXIT,EXCEPT,COL,ROW,DLEN,COLOR,FLAGS,CHANGE,
  -----> MV.DEPTH,KEY,IPAT,OPAT,JUST,DELIM,MASK,CHAR.COUNT,STATE)
REPEAT
* If <Esc> restore data to old form
IF KEY = CHAR(27) THEN IVAL = STATE[I,@RM]
* Restore screen and clear it with spaces
VIDEO.RW(LEFT,TOP,RIGHT,BOTTOM,'W',IMAGE)
PRINT @(0,0) . STR(SPACE(80),21)
RETURN

(Volume 1, Issue 8, Page 8)