REM SET MODE TO 8 USING VDU VDU 22,8 REM SET LINE THICKNESS TO 3 VDU 23,23,3| xx%=0:yy%=0:h%=100:v%=100:sw%=0:s%=0 continue$="":pass%=0 f$="" REM OFF GCOL 1 REPEAT DATA 800,800,100,300,800,500,3000,3000 READ h%,v% IF h%=3000 THEN RESTORE:READ h%,v%:f$="NO" REPEAT IF xx%<h% THEN xx%=xx%+1 IF yy%<v% THEN yy%=yy%+1 IF xx%>h% THEN xx%=xx%-1 IF yy%>v% THEN yy%=yy%-1 CLG * REFRESH OFF CIRCLE FILL xx%,yy%,100 MOVE 100,100:PRINT xx% MOVE 100,70:PRINT yy% * REFRESH IF xx%=h% THEN s%=1 IF yy%=v% THEN sw%=1 IF sw%=1 AND s%=1 THEN pass%=1 UNTIL pass%=1 pass%=0:s%=0:sw%=0 UNTIL continue$="done" END