Quite BASIC -- Etchy-Sketchy!

Output

Canvas

BASIC Program

REM Etch-A-Sketch clone 
REM By Chill (http://d-s-i.blogspot.com/)

GOSUB 1098

REM X,Y will be the cursor position
LET X = 125 / 2
LET Y = 125 / 2


PLOT X, Y, "yellow"
LET C = getchar()
If C = "a" THEN GOSUB 1010
if C = "s" THEN GOSUB 1020
if C = "o" THEN GOSUB 1030
if C = "l" THEN GOSUB 1040
if C = "." THEN GOSUB 1050
if C = "x" THEN GOTO 318
GOTO 300
CLT
PRINT "Thanks for trying"
PRINT "Etchy-Sketchy by Chill"
PRINT "http://d-s-i.blogspot.com"
PRINT "email: iamchillin@gmail.com"
END

REM --Left--
PLOT X, Y
LET X = X - 1
IF X < 0 THEN LET X = 0
RETURN

REM --Right--
PLOT X, Y
LET X = X + 1
If X > 125 THEN LET X = 125
RETURN

REM --Up--
PLOT X, Y
LET Y = Y + 1
If Y > 125 THEN LET Y = 125
RETURN

REM --Down--
PLOT X, Y
LET Y = Y - 1
If Y < 0 THEN LET Y = 0
RETURN

REM --Shake--
FOR i = 1 TO 8
LET c = RAND(125)
LET d = RAND(125)
FOR j = 0 TO 50
PLOT c, d+j
NEXT j
NEXT i
GOSUB 1098
RETURN

CLS
REM Print the the title screen.  You know.
PRINT "================="
PRINT "Etchy-Sketchy"
PRINT "A digital drawing tool"
PRINT "by Chill"
PRINT  "================="
PRINT ""
PRINT "Controls:"
PRINT "Left/Right: A/S"
PRINT "Up/Down: O/L"
PRINT "Erase: ."
PRINT "Exit: X"
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
>