• Home
 · 
• Games
 · 
• etch-a-sketch

etch-a-sketch

etch-a-sketch

Rate etch-a-sketch

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

LET x = 10
LET y = 10
CALL menu
!***********************
SUB menu
    PRINT "1. play"
    PRINT "2. quit"
    INPUT menu
    IF menu = 2 then
       PRINT "thanks for stopping by"
       STOP
    ELSE IF menu = 1 then
       CALL game
    END IF
    CLEAR
END SUB
!**********************
SUB game
    CLEAR
    PRINT "would you like to"
    PRINT "1. view instructions"
    PRINT "2. sketch stuff"
    INPUT choice
    IF choice = 1 then
       CALL instructions
       CLEAR

    ELSE IF choice = 2 then
       CLEAR
       CALL draw
       CLEAR
    END IF
    CLEAR
END SUB
!***************************
CALL draw
SUB draw
    DO

       GET KEY a
       SELECT CASE a
       CASE 304
            PLOT x,y;x-10,y
            LET x = x-10
       CASE 303

            PLOT x,y;x+10,y
            LET x = x+10
       CASE 301

            PLOT x,y;x,y+10
            LET y = y+10
       CASE 302

            PLOT x,y;x,y-10
            LET y = y-10

       CASE 114
            SET COLOR 4
       CASE 98
            SET COLOR 1
       CASE 103
            SET COLOR 2
       CASE 32
            SET COLOR 0
       CASE 8
            SET COLOR 15
       CASE 27
            CLEAR
       CASE 115
            LET s = int(rnd*14)+1
            SET COLOR s
       CASE 102
            FLOOD x+1,y
       CASE 109
            CLEAR
            CALL menu
       CASE 113
            CALL mouse
       CASE else
            STOP
       END SELECT
    LOOP

END SUB
!********************
SUB instructions
    PRINT "left button=left"
    PRINT "right button=right"
    PRINT "up button= up"
    PRINT "down button=down"
    PRINT ""
    PRINT ""

    PRINT "r= red"
    PRINT "b=blue"
    PRINT "g=green"
    PRINT "space = black"
    PRINT "f=flood to the right of the line"
    PRINT "q puts into flood mode- click to flood and press t to go back to drawing"
    PRINT "m=menu"
    PRINT ""
    PRINT "escape = clear all"
    PRINT ""
    PRINT "to erase a line hit back space then backspace,"
    PRINT "backspace makes the color white."
    PRINT ""
    PRINT ""
    CALL menu
END SUB
!********************
SUB mouse
    DO
       GET MOUSE u,i,s
       IF s = 2 then
          FLOOD u,i
          CALL draw
       END IF
    LOOP
END SUB
!****************
END