logo Welcome, Guest. Please Login or Register.
October 20, 2019, 03:19PM
Home Help Search Login Register
News: Collection of chess computers at: www.ismenio.com/chess_collection.html

  Chess Computer Community
  General Category
  Discussions about Chess Computers
(Moderators: Endspielgott, Overtom, bobosse)
  Tom's chess computer collection (Australia)
previous next
Pages: 1 [2] Reply Notify of replies Send the topic Print 
   Author  Topic: Tom's chess computer collection (Australia)  (Read 1942 times)
Chris
Guest

E-Mail
Re:Tom's chess computer collection (Australia)
« Reply #20 on: January 16, 2006, 11:05AM »
Reply with quote

Hi Tom 


Quote:


Hi Chris,

Thank you for the info on JustBasic. I dowloaded the editor and compiler. I can imagine JustBasic is an improvement after the BBC computer - although I must admit I've never worked with its Basic interpreter.

I wrote this program to generate and sort 2000 random numbers in a very primitive manner called bubble sort. I couldn't find a timing meschanism. So I just used my watch. It took about 57 seconds to run on my pc.

REM JustBasic:
dim a(2000)
BEEP
print "BEGIN"
for i=1 to 2000
    a(i) = int(5000*rnd(1))
next
[begin]
unsorted = 0
for i=1 to 1999
    if a(i)>a(i+1) then
        r=a(i)
        a(i)=a(i+1)
        a(i+1)=r
        unsorted = 1
    end if
next
if unsorted then goto [begin]
BEEP
print"finished"

I wrote the same program for Power Basic. I admit it takes a few more declarations. But this program took about 1 or 2 percent of the time taken by Just Basic:

REM Turbo Basic:
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG
    REM on JustBasic: 57 seconds
    DIM a(2000) AS INTEGER, unsorted AS INTEGER
    DIM i AS INTEGER, r AS INTEGER
    BEEP
    PRINT "BEGIN"
    FOR i=1 TO 2000
        a(i) = RND(0,5000)
    NEXT
    DO
        unsorted = 0
        FOR i=1 TO 1999
            IF a(i)>a(i+1) THEN
                r=a(i)
                a(i)=a(i+1)
                a(i+1)=r
                unsorted = 1
            END IF
        NEXT
    LOOP WHILE unsorted
    BEEP
    PRINT"finished"
END FUNCTION

Apart from the speed, I think the goto statement doesn't exactly lead to well-organized programs. If I had to write a chess program in Basic, 'Just Basic' is not the first language I would think of.

Best regards,

tom



Many thanks for this test which is very interesting (your program took 46 seconds on my computer! - I think there is a timer function in JB but I've not explored it as yet). I've followed your link to Power Basic which looks impressive (though i don't think free?)

What I like about JB is that it is user friendly for the inexperienced programmer. I suspect you are a much better programmer than I, and you are right my program is littered with Ifs and gotos and is not well structured. My newbie error was also to start coding without giving prior thought to program design! 

I had not appreciated the marked difference in speed between PB and JB, though for me this is not important. My goal is 'simply' to get something working which is stable that plays recognisable chess. This will be immensely satisfying for me and also a real challenge. It doesn't have to be very good and won't be...just as long as it works!  ... the only benchmark I have is that I want it eventually to be able to beat my CC3! (or if I'm feeling ambitious, my CC10 ! )

In terms of the program to date, after 7 months at it - I have about 1500 lines of 'messy' code but something that observes all chess rules (except so far for underpromotion and 50  move rule). Ok so it currently only looks 1 ply ahead but at least that 1 ply now includes only legal moves! 

Best wishes


Chris
Report to moderator Logged
Nethippy
Newbie
*

Offline

Posts: 5

I love Boardnation!

View Profile
Re:Tom's chess computer collection (Australia)
« Reply #21 on: January 15, 2006, 09:07PM »
Reply with quote

The Krypton Challenge on that site looks identical to the Excalibur Legend II that I have.
Report to moderator Logged
Overtom
Moderator
Co-admin
Hero Member
*****

Offline

Posts: 628



"Life is too short for Chess" (Lord Byron)

View Profile WWW E-Mail
Re:Tom's chess computer collection (Australia)
« Reply #22 on: January 13, 2006, 11:45AM »
Reply with quote


Quote from: Chris on January 13, 2006, 05:40AM   

Hi All /Tom 

I can also recommend 'Just Basic'

http://www.justbasic.com/

which is a free and powerful version of BASIC.

I am using this to write my chess program - great tools but unfortunately let down by a hopeless programmer (I am only hobbyist who last programmed on a BBC computer many years ago!).

Best wishes


Chris

Hi Chris,

Thank you for the info on JustBasic. I dowloaded the editor and compiler. I can imagine JustBasic is an improvement after the BBC computer - although I must admit I've never worked with its Basic interpreter.

I wrote this program to generate and sort 2000 random numbers in a very primitive manner called bubble sort. I couldn't find a timing meschanism. So I just used my watch. It took about 57 seconds to run on my pc.

REM JustBasic:
dim a(2000)
BEEP
print "BEGIN"
for i=1 to 2000
    a(i) = int(5000*rnd(1))
next
[begin]
unsorted = 0
for i=1 to 1999
    if a(i)>a(i+1) then
        r=a(i)
        a(i)=a(i+1)
        a(i+1)=r
        unsorted = 1
    end if
next
if unsorted then goto [begin]
BEEP
print"finished"

I wrote the same program for Power Basic. I admit it takes a few more declarations. But this program took about 1 or 2 percent of the time taken by Just Basic:

REM Turbo Basic:
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG
    REM on JustBasic: 57 seconds
    DIM a(2000) AS INTEGER, unsorted AS INTEGER
    DIM i AS INTEGER, r AS INTEGER
    BEEP
    PRINT "BEGIN"
    FOR i=1 TO 2000
        a(i) = RND(0,5000)
    NEXT
    DO
        unsorted = 0
        FOR i=1 TO 1999
            IF a(i)>a(i+1) THEN
                r=a(i)
                a(i)=a(i+1)
                a(i+1)=r
                unsorted = 1
            END IF
        NEXT
    LOOP WHILE unsorted
    BEEP
    PRINT"finished"
END FUNCTION

Apart from the speed, I think the goto statement doesn't exactly lead to well-organized programs. If I had to write a chess program in Basic, 'Just Basic' is not the first language I would think of.

Best regards,

tom
Report to moderator Logged
Chris
Guest

E-Mail
Re:Tom's chess computer collection (Australia)
« Reply #23 on: January 13, 2006, 05:40AM »
Reply with quote

Hi All /Tom 

I can also recommend 'Just Basic'

http://www.justbasic.com/

which is a free and powerful version of BASIC.

I am using this to write my chess program - great tools but unfortunately let down by a hopeless programmer (I am only hobbyist who last programmed on a BBC computer many years ago!).

Best wishes


Chris
Report to moderator Logged
Overtom
Moderator
Co-admin
Hero Member
*****

Offline

Posts: 628



"Life is too short for Chess" (Lord Byron)

View Profile WWW E-Mail
Re:Tom's chess computer collection (Australia)
« Reply #24 on: January 13, 2006, 05:20AM »
Reply with quote

What I specially like about the site is that he has published one game of each computer against a chess computer program named "Kanguruh".

Not only does this give some indication about the different playing styles.

But I also discovered that Tom McBurney made this program himself using a programming language called Power Basic. I recently acquired this language, and I'm surprised about this powerful dialect of Basic - although I'm aware many professional programmers have a rather unfounded aversion against Basic.

For the page about Kanguruh:

    http://home.pacific.net.au/~tommyinoz/kanguruh.html

For Power Basic:

    http://www.powerbasic.com/

Best regards,

tom
Report to moderator Logged
Ismenio
Horsie to pointy guy 6
Administrator
*****

Offline

Posts: 1753





View Profile WWW E-Mail
Tom's chess computer collection (Australia)
« Reply #25 on: January 11, 2006, 06:27PM »
Reply with quote

Here's a site I hadn't seen before! Tom's chess computer collection:

http://home.pacific.net.au/~tommyinoz/chesscomputers.html

Among the dedicated computers, he has a console+cartridge I didn't know of:

Mattel-Intellivision:




Keep'em coming!!!

Ismenio
Report to moderator Logged

Map of chess computer friends: http://www.frappr.com/chesscomputers
Pages: 1 [2] Reply Notify of replies Send the topic Print 
previous next
Jump to:  

Login with username, password and session length

Chess Computer Community
Get your Ad Free Message Board at Boardnation!   © 2013 Boardnation  Web hosting by Nubis