StretchASketch

5 REM simple graphics editor
6 REM by Dominic McGough 2006
10 CLS             1=ChngePen
11 PRINT "
 1stPickPen"
12 PRINT "
P=Rt,O=Lt"
13 PRINT "
Q=Up&A=Dn"
14 PRINT "
1=ChngePen
15 PRINT "
z=restart"         Stretch-
16 PRINT "






   "
17 PRINT "
--------
Stretch-
a-Sketch
--------

   "
18 PRINT "
(c)Dominic"
19 PRINT "
McGough'06"
20 INPUT A$
30 LET A=0
40 LET B=0
50 GO TO 60
53 INPUT A$
55 RETURN
60 IF INKEY$="p" AND A<>20 THE
N LET A=A+1
90 IF INKEY$="o" AND A<>0 THEN
LET A=A-1
100 IF INKEY$="q" AND b<>0 THEN
LET B=B-1
110 IF INKEY$="1! THEN GO SUB 5
3
130 IF INKEY$="z" THEN RUN
140 PRINT AT B,A;A$
150 GO TO 60