Hi David & Jim, 6 bit ASCII for carriage return was always 15 octal or 13 decimal as Jim says, and LF is 12 octal or 10 decimal. In the old days you used to have to do both, but some newer operating systems assume the line feed. These also mapped to control characters, so CR was also <Ctrl_N>, LF was <Ctrl_J> and FF was <Ctrl_L>. Many of the control characters had functions mapped to them, like <Ctrl_G> rang the bell on the teletype and still beeps the speaker on a PC. Others were paper, tape and modem controls, and they still are largely.
Dave Billing Tall Tree Business Solutions ----- Original Message ----- From: "David M. Blocker" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, June 18, 2002 9:44 AM Subject: Re: PAUSE 4 and Screen Flicker > > Jim > > I like this alot and consider it the best yet - CHAR(91) works well. > > I know that CHAR(13) is the [Enter] key, but what is CHAR(13)+CHAR(10)? > That is a simpler way to create the multi line pause box than my LJS method! > > David BLocker > > ----- Original Message ----- > From: "Jim Limburg" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Monday, June 17, 2002 1:46 PM > Subject: RE: PAUSE 4 and Screen Flicker > > > > Javier, David > > > > I have done a bit of tweaking myself to this cool code.. > > Run this in a Win version and watch the results.. > > I have found a balance between the vmsg, & the vmsg1 > > variables to let me have just the right size message box > > and still get the message to change on the second line. > > One space larger or smaller throws this out of kilter. > > or using a bar representation character that has a larger > > pixel representation will throw chunks as well, but hey > > it works. > > > > CLS > > SET VAR vnr INTEGER > > SET VAR vinc INTEGER > > SET VAR von INTEGER > > SET VAR vpct INTEGER > > SET VAR vno_recs = 100000 > > SET VAR vm_crlf TEXT = ((CHAR(13)) + (CHAR(10))) > > SET VAR vmsg = 'Processing .. PLEASE WAIT' > > SET VAR vmsg1 = 'Processing .. PLEASE WAIT' + .vm_crlf + + > > ' .' > > PAUSE 3 USING .vmsg1 AT 5 10 > > --'Going from 1 to 100,000 by 2 pct incr / a bargraph display' AT 5 10 > > SET VAR vinc = (.vno_recs / 50) > > SET VAR vnr = .vinc > > SET VAR vbar = ' ' > > SET VAR von = 0 > > SET VAR vpct = 2 > > > > WHILE von < .vno_recs THEN > > SET VAR von = (.von + 1) > > IF vnr = .von THEN > > -- Use a character other that 62 to display a different bar style > > --SET VAR vbar = ( .vbar + (CHAR(124)) ) --| pipe > > --SET VAR vbar = ( .vbar + (CHAR(22)) ) --Good-one horizontal bar > shaped > > --in dos, but pipe in win > version > > --SET VAR vbar = ( .vbar + (CHAR(93)) ) --] > > SET VAR vbar = ( .vbar + (CHAR(91)) ) --[ > > SET VAR vmessage = ( (CTXT(.vpct)) + '% ' + .vbar ) > > WRITE .vmessage AT 20 2 > > SET VAR vmessage = (.vmsg + .vm_crlf + .vmessage) > > PAUSE 4 USING .vmessage > > SET VAR vpct = (.vpct + 2) > > SET VAR vnr = (.vnr + .vinc) > > ENDIF > > ENDWHILE > > CLEAR VAR vnr,vinc,von,vpct,vno_recs,vbar,vmessage > > --CLS > > RETURN > > > > Jim Limburg > > > > --- Javier Valencia <[EMAIL PROTECTED]> wrote: > > > David: > > > Thank you for cleaning up the code. It is nice to be able to contribute > to > > > the List considering how much benefit I have gotten from it. I just have > to > > > figure out how to display the solid block on the completion bar; > although I > > > have a hunch that version 7 may have bigger and better answers. By the > way, > > > were you able to resolve the screen flicker problem? > > > > > > Javier Valencia, PE > > > President > > > Valencia Technology Group, L.L.C. > > > 14315 S. Twilight Ln., Suite #14 > > > Olathe, KS 66062-4571 > > > (913)829-0888 > > > (913)649-2904 FAX > > > > > > -----Original Message----- > > > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On > > > Behalf Of David M. Blocker > > > Sent: Sunday, June 16, 2002 3:35 PM > > > To: [EMAIL PROTECTED] > > > Subject: Re: PAUSE 4 and Screen Flicker > > > > > > Javier > > > > > > Thanks for sharing these. I've made a few minor adjustments for making > them > > > useful for teaching and here they are: > > > > > > David Blocker > > > > > > > *(************************************************************************** > > > ******************** > > > ** FILENAME: PAUSE4A.RMD > > > ** CREATED BY: Javier Valencia; posted on R:Base List server > > > ** 6/15/2002 > > > ** PURPOSE: Demonstrate PAUSE 4 vs. WRITE command: automatically > > > rewrites in > > > ** last PAUSE 3 box; counter bar for looping > > > programs! > > > ** DATE CREATED: 06/16/2002 > > > ** LAST UPDATE: > > > > **************************************************************************** > > > *****************) > > > > > > -- QUICK CODE TO SHOWS PERCENT AND PROGRESS BAR FOR A COUNTER > > > CLS > > > SET VAR vnr INTEGER > > > SET VAR vinc INTEGER > > > SET VAR von INTEGER > > > SET VAR vpct INTEGER > > > SET VAR vno_recs = 100000 > > > PAUSE 3 USING 'Counting from 1 to 100,000 by 2 pct increments with + > > > a bargraph display' AT 5 10 > > > SET VAR vinc = (.vno_recs / 50) > > > SET VAR vnr = .vinc > > > SET VAR vbar = ' ' > > > SET VAR von = 0 > > > SET VAR vpct = 2 > > > > > > WHILE von < .vno_recs THEN > > > SET VAR von = (.von + 1) > > > > > > IF vnr = .von THEN > > > -- Use a character other that 62 to display a different bar style > > > set var vbar = ( .vbar + (CHAR(62)) ) > > > set var vmessage = ( (CTXT(.vpct)) + ' % - ' + .vbar ) > > > write .vmessage at 20 2 > > > pause 4 using .vmessage > > > set var vpct = (.vpct + 2) > > > set var vnr = (.vnr + .vinc) > > > ENDIF > > > ENDWHILE > > > CLEAR VAR vnr,vinc,von,vpct,vno_recs,vbar,vmessage > > > RETURN > > > > > > > > > > *(************************************************************************** > > > ******************** > > > ** FILENAME: PAUSE4E.RMD > > > ** CREATED BY: Javier Valencia posted on R:Base List server > > > ** 6/15/2002 > > > ** PURPOSE: Demonstrate PAUSE command vs. WRITE command : show 255 > > > ** different characters to use for counter > > > percentage done bars. > > > ** great for looping programs! > > > ** DATE CREATED: 06/16/2002 > > > ** LAST UPDATE: > > > > **************************************************************************** > > > *****************) > > > > > > CLS > > > SET VAR xxx = 255 > > > SET VAR y = 0 > > > WHILE y < .xxx THEN > > > set var y = (.y + 1) > > > set var z1 = (CHAR(.y)) > > > set var z = ( (CTXT(.y)) + ' - ' + + > > > > > > > .z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+ > > > + > > > .z1+.z1+.z1 ) > > > SET VAR vMessage = ('+ > > > Counting bargraph display, testing different ASCII characters from 1 > to') > > > SET VAR vMessage = ( + > > > (LJS(.vMessage,75)) + (LJS('255. . .',75)) ) > > > SET VAR vMessage = ( (LJS(.vMessage,225)) + + > > > (LJS('Notice how the same character displays DIFFERENTLY with WRITE > and > > > PAUSE!',75)) ) > > > SET VAR vMessage = ( + > > > (LJS(.vMessage,375)) + + > > > ('Testing ASCII code CHAR') + '(' + (CTXT(.y)) + ')' ) > > > SET VAR vMessage = (+ > > > (LJS(.vMessage,450)) + .z) > > > WRITE .z > > > PAUSE 2 using .vMessage=75 > > > ENDWHILE > > > SET WIDTH 79 > > > CLE VAR xxx,y,z1,z,vMessage > > > RETURN > > > > > > ----- Original Message ----- > > > From: "Javier Valencia" <[EMAIL PROTECTED]> > > > To: <[EMAIL PROTECTED]> > > > Sent: Friday, June 14, 2002 5:05 PM > > > Subject: RE: PAUSE 4 and Screen Flicker > > > > > > > > > > David: > > > > Here is one more for your consideration. The quick code enclosed below > > > will > > > > take the number of records and display it at 2 percent increments or > 50 > > > > increments for the entire set, it also displays the counter as a > progress > > > > bar (very cool). You can easily change it to display at different > > > > increments. As you will see, when you use the CHAR(219) it displays > very > > > > neatly as a bar when using the WRITE command (great for DOS) but it > shows > > > > garbled in the message bar. I have also included a quick and dirty > code > > > that > > > > display a message (and WRITE display) for all the character codes (one > at > > > a > > > > time) as they are dependent (I think) on the character set that you > have > > > on > > > > your desktop (or R prompt as set in preferences). When I have a little > > > more > > > > time I will fine tune it to properly display a bar, in the mean time > fell > > > > free to play with it; I believe that it will take care of the screen > > > flicker > > > > as well with less load on resources. I believe that I will be using > this > > > > approach for my counters as it shows not only the percentage but a > good > > > > looking progress bar. > > > > > > > > ============================================================ > > > > -- QUICK CODE TO SHOWS PERCENT AND PROGRESS BAR FOR A COUNTER > > > > CLS > > > > SET VAR vnr INTEGER > > > > SET VAR vinc INTEGER > > > > SET VAR von INTEGER > > > > SET VAR vpct INTEGER > > > > SET VAR vnr INTEGER > > > > -- PAUSE 2 USING 'Counting from 1 to 10000; now on 10000' AT 5 10 > > > > SET VAR vno_recs = 10000 > > > > PAUSE 3 USING 'Counting from 1 to 10000 by 2 pct increments with .with > > > > bargraph display' + > > > > AT 5 10 > > > > SET VAR vinc = (.vno_recs / 50) > > > > SET VAR vnr = .vinc > > > > SET VAR vbar = ' ' > > > > SET VAR von = 0 > > > > SET VAR vpct = 2 > > > > > > > > WHILE von < .vno_recs THEN > > > > SET VAR von = (.von + 1) > > > > > > > > IF ( vnr = .von ) THEN > > > > -- Use a character other that 62 to display a different bar style > > > > set var vbar = ( .vbar + (CHAR(62)) ) > > > > set var vmessage = ( (CTXT(.vpct)) + ' % - ' + .vbar ) > > > > write .vmessage at 20 2 > > > > pause 4 using .vmessage > > > > set var vpct = (.vpct + 2) > > > > set var vnr = (.vnr + .vinc) > > > > ENDIF > > > > ENDWHILE > > > > CLEAR ALL VAR > > > > RETURN > > > > ============================================================ > > > > > > > > The following code will display a message with the different CHAR to > see > > > > which one you want to use. > > > > > > > > ============================================================ > > > > SET VAR xxx = 255 > > > > SET VAR y = 1 > > > > PAUSE 3 USING 'Counting from 1 to 10000 by 2 pct increments with .with > > > > bargraph display' + > > > > AT 5 10 > > > > WHILE y < .xxx THEN > > > > set var y = .y + 1 > > > > set var z1 = (CHAR(.y)) > > > > set var z = ( (CTXT(.y)) + ' - ' + > > > > > > > > .z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+.z1+ > > > > .z1+.z1+.z1 ) > > > > > === message truncated === > > > > > > __________________________________________________ > > Do You Yahoo!? > > Yahoo! - Official partner of 2002 FIFA World Cup > > http://fifaworldcup.yahoo.com > > ================================================ > > TO SEE MESSAGE POSTING GUIDELINES: > > Send a plain text email to [EMAIL PROTECTED] > > In the message body, put just two words: INTRO rbase-l > > ================================================ > > TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] > > In the message body, put just two words: UNSUBSCRIBE rbase-l > > ================================================ > > TO SEARCH ARCHIVES: > > http://www.mail-archive.com/rbase-l%40sonetmail.com/ > > > > > ================================================ > TO SEE MESSAGE POSTING GUIDELINES: > Send a plain text email to [EMAIL PROTECTED] > In the message body, put just two words: INTRO rbase-l > ================================================ > TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] > In the message body, put just two words: UNSUBSCRIBE rbase-l > ================================================ > TO SEARCH ARCHIVES: > http://www.mail-archive.com/rbase-l%40sonetmail.com/ ================================================ TO SEE MESSAGE POSTING GUIDELINES: Send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: INTRO rbase-l ================================================ TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: UNSUBSCRIBE rbase-l ================================================ TO SEARCH ARCHIVES: http://www.mail-archive.com/rbase-l%40sonetmail.com/
