I have noticed before that sometimes the program runs slowly and
requires time to update the screen, and put things in the graphic
window.
if it doesn't get it done before it gets the next command, it seems to
put the previous command "on hold", and catch it up soon.
I have noticed that you do occasionally need to give the program a
pause when updating the graphics window.
It is very annoying, I know!


On 31/08/2009, at 4:05 PM, Rob Keister wrote:

> When I run the following lines of code, the input box pops up
> and suppresses the word "hello" from printing until after the
> input box is answered.
>
> graphics 0
> moveto 20,200 : graphics drawtext "hello"
> yourName$ = inputbox("enter your name")
> moveto 60,200 : graphics drawtext yourName$
>
> If I add a line to wait for a half second, then it
> does things in the correct order:
>
> graphics 0
> moveto 20,200 : graphics drawtext "hello"
> macfunction "wait", .5
> yourName$ = inputbox("enter your name")
> moveto 60,200 : graphics drawtext yourName$
>
> Nothing to loose sleep over, but what the hey?!?
>
> Rob
> iMac 800mHz OS 10.4.11
> ______________________________
> An optimist laughs to forget. A pessimist forgets to laugh.
>
> [Non-text portions of this message have been removed]
>
>
>



[Non-text portions of this message have been removed]

Hello!

As an experiment in error handling, I have written this little program:

dim a(4)
start:
while true
	 bla()
wend
sub bla()
	 on error goto errors
	 input "Digit? "; z
	 if z = 9 then
		 quit
	 endif
	 a(z) = 100
	 exit sub
	 errors:
	 print errorstatus$
' list (erl-20)-(erl+5)
	 goto start
end sub

If the input is 9, it quits; if it's < 5, it asks for more; if it's > 4, it
prints "Bad subscript in line 32" and goes back to the input.

All that is quite in order, but it's imperfect, inasmuch as  the information 
yielded is insufficient: in a larger program, I might get "Bad subscript in line
2502" and wonder about what line 2502 is and what it does. Now, if  let the
error go all the way instead of catching it as above, I would be able to write
in the console "list 2475-2505"
and see what it is all about, but then I would have no further option but to
quit CB and start again.

That's why I tried to make it automatic and put in the line that's commented out
above: but, contrary to my hope, it does not work. The effect is to print a
complete listing of the program and a message "Syntax error, missing , in line
40".

So it appears that there is some difficulty to give parameters to the command
"list", except as plain numbers.

I would be grateful to anyone who could make suggestions towards solving this
problem.

Charles

try using the    exec ( STRINGEXPR )    command, and construct a
string expression that makes the LIST command play nicely with others.
Insert this line right after the print errorstatus$:

exec("list "+str$(erl-20)+"-"+str$(erl+5))

rob
iMac 800 MHz OS 10.4.11  CB v3.6.4(b8)


______________________________
"Don't it always seem to go that you don't know
what you've got 'til it's gone."  - Joni Mitchell


On Sep 13, 2009, at 10:36 AM, charles.trois wrote:

> Hello!
>
> As an experiment in error handling, I have written this little
> program:
>
> dim a(4)
> start:
> while true
> bla()
> wend
> sub bla()
> on error goto errors
> input "Digit? "; z
> if z = 9 then
> quit
> endif
> a(z) = 100
> exit sub
> errors:
> print errorstatus$
> ' list (erl-20)-(erl+5)
> goto start
> end sub
>
> If the input is 9, it quits; if it's < 5, it asks for more; if it's
> > 4, it prints "Bad subscript in line 32" and goes back to the input.
>
> All that is quite in order, but it's imperfect, inasmuch as the
> information yielded is insufficient: in a larger program, I might
> get "Bad subscript in line 2502" and wonder about what line 2502 is
> and what it does. Now, if let the error go all the way instead of
> catching it as above, I would be able to write in the console "list
> 2475-2505"
> and see what it is all about, but then I would have no further
> option but to quit CB and start again.
>
> That's why I tried to make it automatic and put in the line that's
> commented out above: but, contrary to my hope, it does not work.
> The effect is to print a complete listing of the program and a
> message "Syntax error, missing , in line 40".
>
> So it appears that there is some difficulty to give parameters to
> the command "list", except as plain numbers.
>
> I would be grateful to anyone who could make suggestions towards
> solving this problem.
>
> Charles
>
>



[Non-text portions of this message have been removed]

--- In chipmunkbasicforum@yahoogroups.com, Rob Keister <rkeister@...> wrote:
>
> try using the    exec ( STRINGEXPR )    command, and construct a
> string expression that makes the LIST command play nicely with others.
> Insert this line right after the print errorstatus$:
>
> exec("list "+str$(erl-20)+"-"+str$(erl+5))
>
Very smart. I had not thought of that. Works perfectly.
Many thanks.

Charles

I created a video tutorial for chipmunk basic with my 6th grader son and posted
it to youtube in HD.

http://www.youtube.com/watch?v=MXRHt3R_9so
http://www.youtube.com/watch?v=mwDxnMBsUGQ
http://www.youtube.com/watch?v=h8L3oJzTPQE
http://www.youtube.com/watch?v=XU_EG5sBxG4

Feedback is welcome.

Thanks, bry

I have to create a program so that when someone enter a letter (has to be in
CAPS) I can output its position from 1 to 26. For instance B=2 Z=26, etc. Any
help that can be offered to get me started I would appreciate greatly. I can't
create 26 different command strings to filter the alphabet - I have to be able
to do it with just a couple of commands. Thanks.

You should study ASCII codes to complete your homework assignment.

______________________________
"It is better to debate a question without
settling it, than to settle a question without
debating it." --Joseph Joubert (1754-1824)




On Sep 23, 2009, at 4:03 AM, hot_kittykat wrote:

> I have to create a program so that when someone enter a letter (has
> to be in CAPS) I can output its position from 1 to 26. For instance
> B=2 Z=26, etc. Any help that can be offered to get me started I
> would appreciate greatly. I can't create 26 different command
> strings to filter the alphabet - I have to be able to do it with
> just a couple of commands. Thanks.
>
>



[Non-text portions of this message have been removed]

--- In chipmunkbasicforum@yahoogroups.com, "hot_kittykat" <hot_kittykat@...>
wrote:
>
> I have to create a program so that when someone enter a letter (has to be in
CAPS) I can output its position from 1 to 26. For instance B=2 Z=26, etc. Any
help that can be offered to get me started I would appreciate greatly. I can't
create 26 different command strings to filter the alphabet - I have to be able
to do it with just a couple of commands. Thanks.
>

ok I did your program in five lines, but I'm not going to let you cheat :-)
I'll give you hints though.
First you want to use inkey$ to capture the keyboard in a string variable, loop
back to that line if the variable is empty.

Second convert the string variable to an ASCII numerical value using the asc()
function.

Then subtract 96 for lower case or 64 for upper case, ie, use and if...then to
check the value and do the appropriate math.

Then print the final value or you could use print string variable "=" number
variable.

Finally loop back to the initial keyboard capture line.

Done! With lets see six commands and about seven lines.

Have fun.

Mr Bill

A = ASCII 65
Command would be something like:

A$ = input$
Number = asc(a$) - 64

Sent from my iPhone

On Sep 23, 2009, at 4:03 AM, hot_kittykat <hot_kittykat@...>
wrote:

> I have to create a program so that when someone enter a letter (has
> to be in CAPS) I can output its position from 1 to 26. For instance
> B=2 Z=26, etc. Any help that can be offered to get me started I
> would appreciate greatly. I can't create 26 different command
> strings to filter the alphabet - I have to be able to do it with
> just a couple of commands. Thanks.
>
>


[Non-text portions of this message have been removed]

I made a four part video tutorial for Chipmunk BASIC:

http://www.youtube.com/watch?v=MXRHt3R_9so
http://www.youtube.com/watch?v=mwDxnMBsUGQ&feature=related
http://www.youtube.com/watch?v=h8L3oJzTPQE&feature=related
http://www.youtube.com/watch?v=XU_EG5sBxG4&feature=related

It¹s a tutorial on how to program in general but Chipmunk BASIC is my focus
for these videos. Lot¹s of cool color graphic examples explored. Comments
are most welcome.

Thank you,
Bryan McDonald
Applied Mathematics/Computer Science graduate from UC Berkeley Œ89


[Non-text portions of this message have been removed]

i did it in three lines

i guess i'd get in big trouble if i say the answer...so here are my hints

10 a$ = something to do with the inkey$ command
20 if a$ <> nothing then print the ascii value of a$-the ascii value of capital
A - 1
30 goto the first line in this program

--- In chipmunkbasicforum@yahoogroups.com, "griffin239" <bill@...> wrote:
>
> --- In chipmunkbasicforum@yahoogroups.com, "hot_kittykat" <hot_kittykat@>
wrote:
> >
> > I have to create a program so that when someone enter a letter (has to be in
CAPS) I can output its position from 1 to 26. For instance B=2 Z=26, etc. Any
help that can be offered to get me started I would appreciate greatly. I can't
create 26 different command strings to filter the alphabet - I have to be able
to do it with just a couple of commands. Thanks.
> >
>
> ok I did your program in five lines, but I'm not going to let you cheat :-)
> I'll give you hints though.
> First you want to use inkey$ to capture the keyboard in a string variable,
loop back to that line if the variable is empty.
>
> Second convert the string variable to an ASCII numerical value using the asc()
function.
>
> Then subtract 96 for lower case or 64 for upper case, ie, use and if...then to
check the value and do the appropriate math.
>
> Then print the final value or you could use print string variable "=" number
variable.
>
> Finally loop back to the initial keyboard capture line.
>
> Done! With lets see six commands and about seven lines.
>
> Have fun.
>
> Mr Bill
>

Hi Guys,

I am having trouble getting several of the commands to work with OS 10.6.1.  I
am running Chipmunk Basic v3.6.3(b8) mb2-2008/06b1.
   In particular:
820     open "Newdata.dat" for output as #2 --returns "file not found in line
820";
260 macfunction("DrawFromFile","/Users/TFess/Projects/Chipmunk
Basic/house.jpg",100,300) --produces no graphics output;
Changing house.jpg to a pict file and using-- graphics PICT   100,300,
"house.pict" -- doesn't work either.

490     open "sRain.dat" for input as #1 --works just fine!

Any help would be appreciated.

Thanks Tom

I've got an Intel iMac.

I downloaded the file(s), and when I open the .dmg file, I don't know where to
put all the files it has with it.

Thank you!
Andy

I'd put it in your applications folder but it does not really matter as I've
found it'll work fine pretty much anywhere you place the files (i.e. desktop,
applications folder or other folders).

thanks, bry

--- In chipmunkbasicforum@yahoogroups.com, "Andy" <andygrow1971@...> wrote:
>
> I've got an Intel iMac.
>
> I downloaded the file(s), and when I open the .dmg file, I don't know where to
put all the files it has with it.
>
> Thank you!
> Andy
>

hello
you put the chipmunk folder in your applications folder
AAA++
Le 14 nov. 09 à 07:11, Andy a écrit :

> I've got an Intel iMac.
>
> I downloaded the file(s), and when I open the .dmg file, I don't
> know where to put all the files it has with it.
>
> Thank you!
> Andy
>
>
>



[Non-text portions of this message have been removed]

I received a request for the source code of the programs used in the tutorials.
In roughly chronological order of the tutorial, here they are:

random colors.bas
10 graphics window 600,600
20 pset rnd(800),rnd(800)
30 graphics color rnd(100),rnd(100),rnd(100)
40 goto 20

color bounce.bas
10 graphics 0
20 graphics window 600,600
30 dx1 = 3 : dy1 = 4 : dx2 = 5 : dy2 = 6 : dx3 = 7 : dy3 = 8
40 for j = 1 to 400
50 x1 = x1+dx1 : x2 = x2+dx2 : x3 = x3+dx3
60 y1 = y1+dy1 : y2 = y2+dy2 : y3 = y3+dy3
70 if x1 > 600 or x1 < 0 then dx1 = -dx1
80 if x2 > 600 or x2 < 0 then dx2 = -dx2
90 if x3 > 600 or x3 < 0 then dx3 = -dx3
100 if y1 > 600 or y1 < 0 then dy1 = -dy1
110 if y2 > 600 or y2 < 0 then dy2 = -dy2
120 if y3 > 600 or y3 < 0 then dy3 = -dy3
122 graphics color rnd(100),rnd(100),rnd(100)
130 graphics lineto x1,y1 : graphics lineto x2,y2 : graphics lineto x3,y3 :
graphics lineto x1,y1
140 for i = 1 to 1000000 : next
150 next
160 cls : goto 40

color bounce no pause.bas
10 graphics 0
20 graphics window 600,600
30 dx1 = 3 : dy1 = 4 : dx2 = 5 : dy2 = 6 : dx3 = 7 : dy3 = 8
50 x1 = x1+dx1 : x2 = x2+dx2 : x3 = x3+dx3
60 y1 = y1+dy1 : y2 = y2+dy2 : y3 = y3+dy3
70 if x1 > 600 or x1 < 0 then dx1 = -dx1
80 if x2 > 600 or x2 < 0 then dx2 = -dx2
90 if x3 > 600 or x3 < 0 then dx3 = -dx3
100 if y1 > 600 or y1 < 0 then dy1 = -dy1
110 if y2 > 600 or y2 < 0 then dy2 = -dy2
120 if y3 > 600 or y3 < 0 then dy3 = -dy3
122 graphics color rnd(100),rnd(100),rnd(100)
130 graphics lineto x1,y1 : graphics lineto x2,y2 : graphics lineto x3,y3 :
graphics lineto x1,y1
160 goto 50

hideMenuBar.bas

>list
10 macfunction("hideMenuBar")
20 goto 10

If I forgot any programs, I welcome your input. My comments are verbal in the
tutorial :-)

have fun!

--- In chipmunkbasicforum@yahoogroups.com, Bryan McDonald <dude1@...> wrote:
>
> I made a four part video tutorial for Chipmunk BASIC:
>
> http://www.youtube.com/watch?v=MXRHt3R_9so
> http://www.youtube.com/watch?v=mwDxnMBsUGQ&feature=related
> http://www.youtube.com/watch?v=h8L3oJzTPQE&feature=related
> http://www.youtube.com/watch?v=XU_EG5sBxG4&feature=related
>
> It¹s a tutorial on how to program in general but Chipmunk BASIC is my focus
> for these videos. Lot¹s of cool color graphic examples explored. Comments
> are most welcome.
>
> Thank you,
> Bryan McDonald
> Applied Mathematics/Computer Science graduate from UC Berkeley Œ89
>
>
> [Non-text portions of this message have been removed]
>

you should be able to put the files anywhere. apps usually go in the application
folder but that's just for organization purposes. I have placed the files on the
desktop, application folder or other folders and it works fine.

thanks, bry

--- In chipmunkbasicforum@yahoogroups.com, "Andy" <andygrow1971@...> wrote:
>
> I've got an Intel iMac.
>
> I downloaded the file(s), and when I open the .dmg file, I don't know where to
put all the files it has with it.
>
> Thank you!
> Andy
>

Andy, you can put the files anywhere you want and it should work fine. Most
people put applications in their applications folder but this is not a
requirement, it's more a housekeeping/organization thing. I sometimes leave it
on my desktop or sometimes make a folder dedicated just to basic (including
basic stamps, my favorite microcontroller).

If there is a specific problem you are having, I welcome your input.

--- In chipmunkbasicforum@yahoogroups.com, "Andy" <andygrow1971@...> wrote:
>
> I've got an Intel iMac.
>
> I downloaded the file(s), and when I open the .dmg file, I don't know where to
put all the files it has with it.
>
> Thank you!
> Andy
>

Hello!

I am writing a lengthy program, the central element of which looks like this:

sub central()
	 sub1()
	 sub2()
	 < more sub calls and code >
	 out:
end sub

For debugging, I introduce these lines in suitable places:

if debug then
	 print <  whatever values are useful >
	 pause()
endif

The routine pause() halts the program until a key is pressed:

sub pause()
	 x$ = ""
	 while x$ <> " "
		 x$ = inkey$
		 if x$ = chr$(13) then
			 goto out
		 endif
	 wend
end sub

I believe that this routine is correctly written; at least, it works nicely in
this test program:

for i = 1 to 10
	 pause()
	 print i
next i
out:
print 100

When I press SPACE, it prints 1, 2, 3...; when I press ENTER, it prints 100 and
stops.

The intended effect of the routine is to advance one step by pressing SPACE and
to cause a clean exit from central() (through the goto out) by pressing ENTER.
But what happens in the real world is that the program makes one step forward in
both cases.

So it appears that the goto just causes exit from the loop, but does not
transfer control to the label.  In other words, goto doesn't go anywhere. There
is no error message.

I should be  grateful for all comments or hints: do I make an improper use of
GOTO?
If so, what would be right?

Cheers.

Charles

I think you need to follow the label name with a colon.

sub pause()
	 x$ = ""
	 while x$ <> " "
		 x$ = inkey$
		 if x$ = chr$(13) then
			 goto out:
		 endif
	 wend
end sub

Right now, CB thinks you want to GOTO the value of a numeric variable
called "out", which is duly created and set to 0.

But you shouldn't need a GOTO at all. Have you tried this:

sub pause()
	 x$ = ""
	 while x$ <> " "
		 x$ = inkey$
		 if x$ = chr$(13) then
			 print 100
			 exit
		 endif
	 wend
end sub

Also, I don't find PAUSE in the list of reserved keywords for CB, but
a lot of BASIC dialects use it as a synonym for WAIT. Try renaming
that subroutine to pauseme() and see if it makes a difference.

The only other thing I can think of is to check that you haven't
somehow set the background and foreground colors to the same color.
Been there, done that ...


On 21 Nov 2009, at 7:54 PM, René wrote:

> Hello!
>
> I am writing a lengthy program, the central element of which looks
> like this:
>
> sub central()
>  sub1()
>  sub2()
>  < more sub calls and code >
>  out:
> end sub
>
> For debugging, I introduce these lines in suitable places:
>
> if debug then
>  print <  whatever values are useful >
>  pause()
> endif
>
> The routine pause() halts the program until a key is pressed:
>
> sub pause()
>  x$ = ""
>  while x$ <> " "
> 	 x$ = inkey$
> 	 if x$ = chr$(13) then
> 		 goto out
> 	 endif
>  wend
> end sub
>
> I believe that this routine is correctly written; at least, it works
> nicely in this test program:
>
> for i = 1 to 10
>  pause()
>  print i
> next i
> out:
> print 100
>
> When I press SPACE, it prints 1, 2, 3...; when I press ENTER, it
> prints 100 and stops.
>
> The intended effect of the routine is to advance one step by
> pressing SPACE and to cause a clean exit from central() (through the
> goto out) by pressing ENTER. But what happens in the real world is
> that the program makes one step forward in both cases.
>
> So it appears that the goto just causes exit from the loop, but does
> not transfer control to the label.  In other words, goto doesn't go
> anywhere. There is no error message.
>
> I should be  grateful for all comments or hints: do I make an
> improper use of GOTO?
> If so, what would be right?
>
> Cheers.
>
> Charles
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
>

---------------------
Michel Clasquin-Johnson
e-mail: clasqm@...
website: http://mysite.mweb.co.za/residents/clasqm/



[Non-text portions of this message have been removed]

--- In chipmunkbasicforum@yahoogroups.com, Michel Clasquin-Johnson <clasqm@...>
wrote:
>
> I think you need to follow the label name with a colon.
>

Tried it, no change.

> Right now, CB thinks you want to GOTO the value of a numeric variable
> called "out", which is duly created and set to 0.
>
> But you shouldn't need a GOTO at all. Have you tried this:
>
> sub pause()
>  x$ = ""
>  while x$ <> " "
> 	 x$ = inkey$
> 	 if x$ = chr$(13) then
> 		 print 100
> 		 exit
> 	 endif
>  wend
> end sub

No success here either.

> Also, I don't find PAUSE in the list of reserved keywords for CB, but
> a lot of BASIC dialects use it as a synonym for WAIT. Try renaming
> that subroutine to pauseme() and see if it makes a difference.

Tried  it too, no luck.

Not having much hope left in goto, I did differently, at the price of a slight
complication in the debug version of the program: pause(), instead of attempting
a goto, now just raises a flag that I manage to trace along the chain of
subroutine calls, causing at the end the sub central() to exit.

Debugging is thus made much more comfortable.

Many thanks at any rate for your interest and remarks.

Charles

I'm new to this Basic, but have used Libertybasic on windows. Could someone
explain the relationship between defining a radio button graphics item with it's
subroutine to be executed on a click and the command 'doevents()'? What goes in
the '()' after the command?

Why am I getting a 'file not found' error when I'm trying to open/create a new
output file???

$ basic output_file.bas
  File not found  in line 2
>list
2 open "output_file.lis" for output as #10
4 print #10,"This is a test"
6 close #10

The README.txt file tells you where and how to place the files...  In short,
using the Terminal App:

$ cd /Volumes/ChipmunkBasicMacOSX
$ sudo cp basic /usr/bin/.
$ sudo cp Documentation/man/basic.1 /usr/share/man/man1/.

--- In chipmunkbasicforum@yahoogroups.com, "sailing314" <dude1@...> wrote:
>
> I'd put it in your applications folder but it does not really matter as I've
found it'll work fine pretty much anywhere you place the files (i.e. desktop,
applications folder or other folders).
>
> thanks, bry
>
> --- In chipmunkbasicforum@yahoogroups.com, "Andy" <andygrow1971@> wrote:
> >
> > I've got an Intel iMac.
> >
> > I downloaded the file(s), and when I open the .dmg file, I don't know where
to put all the files it has with it.
> >
> > Thank you!
> > Andy
> >
>

I can't get Chipmunk to save.. I do a simple program of 4 lines and try saving
it and I keep getting Type mismatch error. What am I doing wrong? I type in -   
save test

help?

For all intents and purposes, YOUR example IS the same.  The check is performed
BEFORE execution of the loop.

In school, many years ago, I used a BASIC that had a 'repeat...until' statement
- not too unlike this 'do...loop until'.

The difference between the two is that the check, for the repeat...until, was
not done until at least ONE execution of the loop.  The syntax did not let you
put the check logic next to the repeat.  A representation of it follows:

cls
print "Do loop";
x=10
do
    print " "; x;
    x=x+1
loop until x>5
print

print "While loop";
x=10
while x>5
    print " "; x;
    x=x-1
wend
print

Ron, the author of Chipmunk BASIC, has implemented these interchangeably. 
You'll note, using $ man basic, or by reading the basic.manual.txt, that the
while...wend also allows you to place the logic check at the bottom of the
statement (e.g. while...wend x>5)

You only have 9 channels to play with, numbered from #0 to #8

change #10 to #8 and see what happens

On 11 Dec 2009, at 5:08 PM, Larr wrote:

>
> Why am I getting a 'file not found' error when I'm trying to open/
> create a new output file???
>
> $ basic output_file.bas
> File not found  in line 2
>> list
> 2 open "output_file.lis" for output as #10
> 4 print #10,"This is a test"
> 6 close #10

---------------------
Michel Clasquin-Johnson
e-mail: clasqm@...
website: http://mysite.mweb.co.za/residents/clasqm/



[Non-text portions of this message have been removed]

Filenames need to be string variables or string constants.

save "test.bas"


--- In chipmunkbasicforum@yahoogroups.com, "n/a" <silexworm@...> wrote:
>
> I can't get Chipmunk to save.. I do a simple program of 4 lines and try saving
it and I keep getting Type mismatch error. What am I doing wrong? I type in -   
save test
>
> help?
>

OK Thanks it's working for me now.. =o)

--- On Tue, 12/22/09, rhnlogic <rhnlogic@...> wrote:

From: rhnlogic <rhnlogic@...>
Subject: [Chipmunk Basic Forum] Re: Saving and loading
To: chipmunkbasicforum@yahoogroups.com
Date: Tuesday, December 22, 2009, 12:48 AM
















 









       Filenames need to be string variables or string constants.



save "test.bas"



--- In chipmunkbasicforum@ yahoogroups. com, "n/a" <silexworm@. ..> wrote:

>

> I can't get Chipmunk to save.. I do a simple program of 4 lines and try saving
it and I keep getting Type mismatch error. What am I doing wrong? I type in -   
save test

>

> help?

>






























[Non-text portions of this message have been removed]

Hello!

In TextWrangler 3.0, the function popup menu lists everything that is named
sub...().

But in TextWrangler 3.1, the only subroutines that are shown are the "primary"
ones, I mean those that get called directly from the menu.  The "secondary"
ones, that  get called through those, are not listed.

This makes things a bit awkward when there are numerous subs: would it be
possible to update the CB syntax module so that it works with TW 3.1, listing
every subroutine?

Thanks for your attention to this problem.

Charles