1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | CLSSCREEN 1x=150y=100CIRCLE (x,y),20,2DO UNTIL a$="q"a$=INKEY$IF a$="a" THEN GOSUB a: IF a$="b" THEN GOSUB b:IF a$="c" THEN GOSUB c:IF a$="d" THEN GOSUB d:LOOPENDa:CIRCLE (x,y),20,0 : y=y-5: CIRCLE (x,y),20,2:RETURNb:CIRCLE (x,y),20,0 : y=y+5: CIRCLE (x,y),20,2:RETURNc:CIRCLE (x,y),20,0 : x=x-5: CIRCLE (x,y),20,2:RETURNd:CIRCLE (x,y),20,0 : x=x+5: CIRCLE (x,y),20,2:RETURN |