! VUE.BAS how to use Dave Pallman's VUE.SBR
! by James A. Jarboe IV, GR/AM (409) 295-5767
! 02/20/86
!
! VUE.SBR by Dave Pallman allows editing of a string with VUE-like editing.
! This is a simple demo of how I use it
! Hope it helps someone else
!
! XCALL VUE,ST,ROWS,COLUMNS,LEFTROW,LEFTCOL
!
! ST = variable string to input or change
! I map it as ARRAY(?) to make display 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 = the row that you wish the editing to begin on.
! This is actually the row minus 1. In other words if you
! want the display to start on row 5 then make START'ROW = 4
!
! START'COL = the column that you wish the editing to begin on.
! This is actually the column minus 1. In other words if you
! want the display to start on column 8 then make START'COL = 7
!
! ESCAPE : the escape key gets you out of the VUE.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
!
MAP1 ST ! make string length as long as you want
MAP2 ARRAY(4),S,64 ! easier way to get at display of ST
! this string is 256 bytes long
MAP1 ROWS,F,6,4 ! maximum number of rows you want to have
MAP1 COLUMNS,F,6,64 ! maximum number of columns per row that you want
MAP1 START'ROW,F,6,3 ! what screen row you want to start display at-1
MAP1 START'COL,F,6,3 ! what screen col you want to start display at-1
MAP1 DASH,S,66 ! horizontal border
FOR I = 1 TO 2
DASH=DASH+"---------------------------------"
NEXT I
CLEAR'SCREEN:
? tab(-1,0);
PRINT'BORDER:
! print borders around editing area and show user some columns and rows
! for reference
? TAB(START'ROW,START'COL);DASH
FOR I=1 TO 4
? TAB(START'ROW+I,START'COL);"|";
? TAB(START'ROW+I,START'COL+COLUMNS+1);"|";
NEXT I
? TAB(START'ROW+ROWS+1,START'COL);DASH
? TAB(1,1);"1234567890";! lets see what column is where
? " column positions"
FOR I=2 TO 9 ! lets see what row is where
? TAB(I,1);I USING "#"
NEXT I
LOAD'STRING:
! could be a read statement or could be nothing
ST = "THIS IS THE STRING ST. IT CAN BE INPUT BY PROGRAM OR BY &
READING A SEQUENTIAL OR RANDOM FILE AND INPUTTING THE DATA &
TO THE STRINGST. MAKE ANY CHANGES YOU WANT, HIT THE <ESC> &
AND I WILL SHOW YOUTHE CHANGES YOU MADE."
PRINT'STRING:
! display data to edit using VUE.SBR
FOR I= 1 TO 4
? TAB(START'ROW+I,START'COL+1);ARRAY(I);
NEXT I
SHOW'TABLE:
! what you can do in VUE.SBR
? TAB(10,1);
? " These are the useable control codes in vue.sbr"
?
? " ^H (BACKSPACE, LEFT-ARROW)"
? " ^L (RIGHT ARROW)"
? " ^K (UP-ARROW)"
? " ^J (LINE FEED, DOWN-ARROW)"
? " ^M (RETURN)"
? " ^U (BEGINNING OF LINE)"
? " ^N (END OF LINE)"
? " ^Y (ERASE FROM CURSOR TO END OF LINE"
? " <ESC> GET OUT OF VUE.SBR OR BACK TO PROGRAM"
VUE:
! here it is the infamous VUE.SBR
XCALL VUE, ST,ROWS,COLUMNS,START'ROW,START'COL
RESHOW'DATA:
! reprint string just to show that vue.sbr does change the string
FOR I=1 TO 4
? TAB(START'ROW+I,START'COL+1);ARRAY(I);
NEXT I
DO'AGAIN:
? TAB(23,1);
INPUT "Would you like to re-edit the string ?",Y$
? tab(23,1);TAB(-1,10);
IF Y$[1;1]="Y" THEN GOTO VUE
? TAB(-1,0);"Hope this helps someone !!!!"
END
