Content
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