簡単なサンプルプログラム公開します。以下を順番に入力していただくとAWSDで線が引けます。

NEW

5 CLS
7 GCLS
10 LET X=68
20 LET Y=24
30 A=GETKEY (0)
40 IF A=97 X=X-1
50 IF A=100 X=X+1
60 IF A=119 Y=Y-1
70 IF A=115 Y=Y+1
80 GPSET X,Y,1
90 VSYNC
100 GOTO 30

RUN