GScript BASIC 1.4 beta

[limtc]

Just released GScript BASIC 1.4 beta, with better Applesoft
compatibility. Now you can finally sit down and type:

gr
color = 1
plot 10, 10
vlin 0, 30 at 20
hlin 0, 20 at 15

It will work!

You can test drive GScript BASIC 1.4 beta here: http://virtualgs.larwe.com/gsbasic/
(note that it will currently work on Firefox, Safari and Google
Chrome).

I am building GScript BASIC into an Applesoft BASIC like environment
for kids, where the kids can simply type in Applesoft BASIC like
commands and graphics and animation on the web. You can test drive all
the demos there and modify them on the fly.

[Bill Buckels]

"limtc" <thye...@gmail.com> wrote in message
news:291abdd8-1822-4b92...@t1g2000pra.googlegroups.com...

>Just released GScript BASIC 1.4 beta, with better Applesoft compatibility.

>Now you can finally sit down and type...

WOW!

Now THIS is progress! And this is BASIC. The only thing that would be
better - allow mixed case to be used.

Unless your discipline demands that the kids using this follow structured
practices and observe the nuance of case sensitivity.

Good Stuff!

Bill

PS - if it were me, I would not allow compounded statements on one line etc.
This leads to poor style since it takes years to undertand when gotos and
compound statements improve performance and/or readability and when they
just make a mess.

[limtc]

I just uploaded the final candidate. Please take a look.

I think we should call this 2.0...

On 9月7日, 下午6时29分, "Bill Buckels" <bbuck...@mts.net> wrote:
> "limtc" <thyech...@gmail.com> wrote in message

[limtc]

Some example codes for GScript BASIC - I really wanted to make it the
Applesoft BASIC for the web.

Pictures demo
--
hgr

inverse
print " Apple IIGS Pictures "
normal
print "The best Apple IIGS Super Hires images."

draw "gspics/fruits.jpg" at 0, 0
draw "gspics/girl.jpg" at 320, 0
draw "gspics/pam.jpg" at 0, 200
draw "gspics/redhood.jpg" at 320, 200
--

Animation Demo
--
i = 0
hcolor = 1

hgr
inverse
print " Demo "
normal
print "Color: " + hcolor
loop main

function main() {
circle rnd(640), rnd(400), rnd(5) + 1
hplot i * 20, 0, 0 to 400 - i * 14
hplot 640 - i * 20 to 399, 639, i * 14

i = i + 1
if (i > 31) {
i = 0
hcolor = hcolor + 1

if (hcolor > 15) {
home
inverse
print " Wow! "
normal
print "The amazing Super Hires!"

stoploop
return;
}

home
inverse
print " Demo "
normal
print "Color: " + hcolor
}
}

[limtc]

I just uploaded the final candidate.

http://virtualgs.larwe.com/gsbasic/

With this version, I also started to change the tag/goal to "Applesoft
BASIC for the web". This is my intended goal for the future direction
of the project.

Have fun!