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

2897CPUs, and LOCATE

Expand Messages
  • Gordon Sweet
    Jan 1, 2002
      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
       
      '=============================================
    • Show all 3 messages in this topic