10 (null):(null):(null)
20 R=(null)/180
30 AY=-30
40 BY=30
50 Z=5
60 W=10
70 (null) 159+AX,99-AY,159+BX,99-BY
100 GET A$
110 IF A$="" THEN 100
113 (null) 0
117 (null) 159+AX,99-AY,159+BX,99-BY
120 IF A$="D" THEN AX=AX+Z:BX=BX+Z
130 IF A$="A" THEN AX=AX-Z:BX=BX-Z
140 IF A$="W" THEN AY=AY+Z:BY=BY+Z
150 IF A$="X" THEN AY=AY-Z:BY=BY-Z
160 IF A$="E" THEN T=-W:GOSUB 400
170 IF A$="Q" THEN T=W:GOSUB 400
180 (null) 1
190 (null) 159+AX,99-AY,159+BX,99-BY
200 GOTO 100
400 A=COS(T*R)*AX-SIN(T*R)*AY
410 B=COS(T*R)*BX-SIN(T*R)*BY
420 C=SIN(T*R)*AX+COS(T*R)*AY
430 D=SIN(T*R)*BX+COS(T*R)*BY
440 AX=A:BX=B:AY=C:BY=D
450 RETURN