## CPUs, and LOCATE

Expand Messages
• 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
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

'=============================================
• 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
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
• Message 3 of 3 , Jan 1, 2002
Your message has been successfully submitted and would be delivered to recipients shortly.