Loading ...
Sorry, an error occurred while loading the content.

CPUs, and LOCATE

Expand Messages
  • Gordon Sweet
    Thank you kindly from everyone, for so much advice on CPU speeds. Being a complete amateur I never realised the complexity of the problem. I just wondered how
    Message 1 of 3 , Jan 1, 2002
    • 0 Attachment
      Thank you kindly from everyone, for so much advice on CPU speeds. Being a complete amateur I never realised the complexity of the problem. I just wondered how to evaluate why other PCs appear to be so slow, even to my old PC showing as 450.94 Mhz with a AMD K6-2. I am trying to update some 20 year old Basic producing patterns, which I will publish if I succeed. Is there a way of producing colour filled triangles for a Kaleidoscope program, similar to BOXFILLED ?    Menawhile I set out 3 ways of simulating Qbasic Locate provided to me by the group in the past.     Gordon   
       

      '===============================================
          'LOCATE for Graphics Window
          nomainwin
          open "Locate Column Row" for graphics_fs as #1
          print #1, "place 200 100"
          print #1, "\Printed at x 200 and y 100"
          wait : close #1 : end
      '===============================================
          'LOCATE for large data in Text Window
          nomainwin
          open "Locate using temporary file" for text_fs as #1
          open "temp.$$$" for output as #2
          print #2, "What ever you want"
          open "temp.$$$" for input as #3
          print #1, "!contents #2";
          close #2 : close #3 : kill "temp.$$$"
          print #1, "!origin 1 1" ; : rem returns scroolbar to top
          wait
          close #1  : end
      '============================================
          'LOCATE small data Text Window
          nomainwin
          texteditor #1.tb 20,20,0,0 'this is invisible
          open "Locate Small Data" for text_fs as #1
          for l = 1 to 40
          f = (int(rnd(1)*10000)+1)/100
          print #1.tb, using("##",l);using("####.##",f)
          c=20 :  gosub [tbox]
          next n
          print #1, "!origin 1 1"; : rem returns scrollbar to top
          wait
          close #1 : end
       
      [tbox]
          print #1.tb, "!selectall";
          print #1.tb, "!cut";
          p$="!select "+str$(c)+" "+str$(l) : print #1, p$;
          print #1, "!paste";
          return
       
      '=============================================
    • Chergarj@cs.com
      In a message dated 01/01/2002 7:19:35 AM Pacific Standard Time, ... Is that something new? , The general form of taking the contents of
      Message 2 of 3 , Jan 1, 2002
      • 0 Attachment
        In a message dated 01/01/2002 7:19:35 AM Pacific Standard Time, gordon@... writes:


        'LOCATE for large data in Text Window
           nomainwin
           open "Locate using temporary file" for text_fs as #1
           open "temp.$$$" for output as #2
           print #2, "What ever you want"
           open "temp.$$$" for input as #3
           print #1, "!contents #2";
           close #2 : close #3 : kill "temp.$$$"
           print #1, "!origin 1 1" ; : rem returns scroolbar to top
           wait
           close #1  : end

        Is that something new?  <<   "!contents #2"  >>,    
        The general form of taking the contents of a textbox control is "!contents VarNme".
        Can one really get the contents of a opened file as you have coded?  Also, are you using the dollars signs as variable characters?   $$$ is probably the extension .txt?

        Maybe the code works; I have not tried it.  

        G C
      • Bill Jennings
        Message 3 of 3 , Jan 1, 2002
        • 0 Attachment
        Your message has been successfully submitted and would be delivered to recipients shortly.