Draw

Gallery

Source Code

   5 PRINT "%D%R%A%W%I%N%G"
  10 LET X=0
  20 LET Y=10
  30 LET F$="R"
 100 IF INKEY$="R" THEN LET F$=INKEY$
 110 IF INKEY$="D" THEN LET F$=INKEY$
 190 IF F$="R" THEN UNPLOT X,Y
 200 IF INKEY$="5" THEN LET X=X-1
 210 IF INKEY$="6" THEN LET Y=Y-1
 220 IF INKEY$="7" THEN LET Y=Y+1
 230 IF INKEY$="8" THEN LET X=X+1
 300 IF X>50 THEN LET X=50
 310 IF X<0 THEN LET X=0
 320 IF Y>43 THEN LET Y=43
 330 IF Y<10 THEN LET Y=10
 340 PLOT X,Y
 400 GOTO 100
 500 SAVE "1004%4"
 510 LIST