! VUESCR.BAS how to use VUESBR.SBR
! by James A. Jarboe IV, GR/AM (409) 295-5767
! 02/20/86
! makes use of:
! VUESBR.SBR
! VUESCR.INC
! WINDOW.SBR
!
! VUESBR.SBR (by James A. Jarboe) is an inhanced version of VUE.SBR by Dave Pallmann
!
! VUESBR.SBR allows editing of text in a VUE like fashion
! Hope it helps someone else
!
! XCALL VUESBR,ST,ROWS,COLUMNS,START'ROW,START'COL
!
! ST = variable string to input or change
! I map it as ARRAY(?) to make access easier
! although just using the ST as the variable will work just as well
! ROWS = the maximum amount of rows you choose to use
! COLUMNS = the maximum amount of columns you choose to use
! START'ROW = row number that you wish the editing to begin on.
! START'COL = column number that you wish the editing to begin on.
!
!
!
! ESCAPE : the escape key gets you out of the VUESCR.SBR editing mode and
! : returns the string ST with the changes you have made
!
! EXTRA - Using START'ROW, START'COL, ROWS, and COLUMNS for your ? TAB
! Statements makes movement of the editing area easier than changing
! everything. I.E. try changing the value of START'ROW to 5 and
! START'COL to 8 and everything moves accordingly
!
!
! WINDOW.SBR by James A. Jarboe IV draws an alternate set graphics window
! according to dimensions
!
! XCALL WINDOW, START'ROW, START'COL, COLUMNS, ROWS
!
! START'ROW = Row number you want corner of window to start on
! START'COL = Column number you want left vertical side to be on
! COL'LONG = number of columns wide you want window to be
! ROW'LONG = number of rows deep you want window to be
MAP1 ST ! make string length as long as you want
MAP2 ARRAY(22),X,77 ! easier way to get at ST
! this string is 256 bytes long
MAP1 ROWS,F,6,20 ! maximum number of rows you want to have
MAP1 COLUMNS,F,6,77 ! maximum number of columns per row that you want
MAP1 START'ROW,F,6,1 ! what screen row you want to start display at-1
MAP1 START'COL,F,6,1 ! what screen col you want to start display at-1
MAP1 COL'LONG,F
MAP1 ROW'LONG,F
CLEAR'SCREEN:
? tab(-1,0);
? TAB(1,1);"123456789*123456789*123456789*123456789*123456789*123456789*123456789*123456789*";
FOR A=1 TO 24
I=I+1
IF I=10 THEN I=0
? TAB(A,1);STR(I);
NEXT A
XCALL WINDOW,2,2,78,23
DEMO:
FOR A=3 TO 23
? TAB(A,3);SPACE$(76);
NEXT A
? TAB(3,20);"VUESCR.SBR Demonstration Program"
? tab(5,10);"Enter the number of screen ROWS to edit ";
INPUT "",ROWS
? TAB(6,10);"Enter the number of screen COLUMNS to edit ";
INPUT "",COLUMNS
? TAB(7,10);"Enter the ROW to start editing on ";
INPUT "",START'ROW
? TAB(8,10);"Enter the COLUMN to start editing on ";
INPUT "",START'COL
IF ROWS<22 AND COLUMNS<77 AND START'ROW>2 AND START'COL>2 &
AND START'ROW<23 AND START'COL<77 THEN GOTO VUE
IF ROWS>21 THEN ? TAB(10,3);"That many ROWS will upset the display"
IF COLUMNS > 76 THEN ? TAB(11,3);"That many COLUMNS will upset the display"
IF START'ROW<3 THEN ? TAB(12,3);"Starting on that ROW will upset the display"
IF START'COL<3 THEN ? TAB(13,3);"Starting on tha COLUMN will upset the display"
? TAB(15,3);"Enter a Carriage Return to Try Again ";:INPUT "",A$
GOTO DEMO
! here it is the infamous VUESCR.SBR
VUE:
XCALL WINDOW, START'ROW-1,START'COL-1,COLUMNS+2,ROWS+2
XCALL VUESCR, ST,ROWS,COLUMNS,START'ROW,START'COL
DO'AGAIN:
? TAB(22,3);
INPUT "Would you like to try again ?",Y$
? tab(22,3);" ";
IF UCS(Y$[1;1])="Y" THEN GOTO DEMO
? TAB(-1,0);"Hope this helps someone !!!!"
END
