Source Code
5 LET A=1
10 LET X=A
12 LET Y=A
13 LET P=A
15 PRINT "ENTER TITLE"
20 INPUT A$
25 CLS
27 PRINT A$
30 PLOT X,Y
40 UNPLOT X,Y
45 IF P=A THEN PLOT X,Y
50 IF INKEY$="5" THEN LET X=ABS (X-A)
60 IF INKEY$="6" THEN LET Y=ABS (Y-A)
70 IF INKEY$="7" THEN LET Y=Y+A
80 IF INKEY$="8" THEN LET X=X+A
90 IF INKEY$="0" THEN LET P=0
100 IF INKEY$="1" THEN LET P=A
110 IF INKEY$="S" THEN SAVE A$
120 IF X>63 THEN LET X=X-A
130 IF Y>41 THEN LET Y=Y-A
140 GOTO 30
150 IF INKEY$="0" THEN GOTO 30
160 IF INKEY$="S" THEN SAVE A$
170 GOTO 100
180 CLEAR
190 SAVE "1030%3"
200 RUN
