Quite BASIC -- Classic BASIC meets the web!

Output

Canvas

BASIC Program

CLS
PRINT "This BASIC program is just a sample of things you can do with Quite BASIC.  You will see drawing on the canvas, user input/output, and in the program are examples of most of the supported BASIC commands."
PRINT
LET R = 15
LET X = 20
LET Y = 20
LET N = 100
LET C = "green"
GOSUB 5000
LET R = 6
LET X = 35
LET Y = 30
LET N = 50
LET C = "red"
GOSUB 5000
LET R = 8
LET X = 15
LET Y = 40
LET N = 50
LET C = "blue"
GOSUB 5000
REM User input
PRINT "Three circles, how cool is that?"
PRINT "Press 1, 2, 3, 4, or 5!"
LET A = GETCHAR()
IF A = "1" OR A = "2" OR A = "3" OR A = "4" OR A = "5" THEN GOTO 2370
PAUSE 100
GOTO 2330 
PRINT
IF A = "1" THEN PRINT "Just one? OK, well you should try some of the real projects -- they are actually pretty cool (click the 'Projects' meny)."
IF A = "2" THEN PRINT "Just two? OK, well you should try some of the real projects -- they are actually pretty cool (click the 'Projects' meny)."
IF A = "3" THEN PRINT "Three. So, so? Well this is just the welcome project. Check out some of the real projects -- you will not be disappointed (click the 'Projects' meny)."
IF A = "4" THEN PRINT "You gave it a four. Great! You should see the real projects then -- I bet you'll like them even more (click the 'Projects' meny)."
IF A = "5" THEN PRINT "Five! Seriously. It's just three circles... Check out the real projects -- those will blow you away! (click the 'Projects' meny)"
END
REM Subroutine -- draw a circle
FOR F = 0 TO N
PLOT X + R * SIN(F/N * 2 * PI ),  Y + R * COS(F/N * 2 * PI ), C
NEXT F
RETURN
            
  

Controls

Line:

Expr:

Value:

>QUITE BASIC
>

fun and learning for smart kids

nostalgia for the rest of us

>QUITE BASIC>

fun and learning for smart kids

nostalgia for the rest of us

>QUITE BASIC
>