10 INPUT XB,YB,S,C:GOSUB 120'
W
W�
30 GOTO 30
120 RESTORE 170:SCREEN 2:COLOR 9:FOR X=1 TO 5:READ A,B
130 LINE (XB,YB)-STEP(A*S,B*S),C:NEXT:RESTORE 170:FOR X=1 TO 5:READ A,B:LINE-(A*S+XB,B*S+YB),C:NEXT:RETURN'
W
W�
170 DATA 10,2,6,10,-6,10,-10,-2,0,-10