210 IF Z=6 OR Z=1 OR Z=2 THEN COLOR=(0,7):COLOR=(7,0) 220 CONSOLE 24,1,0,1:LOCATE 0,24,0 230 END 240 *LINESUB 250 READ A,Y0,X0,Y,X 260 LINE(X0,Y0)-(X,Y),A 270 READ Y,X 280 IF X<0 AND Y<0 THEN GOTO 250 290 IF X>500 AND Y>500 THEN GOTO 320 300 LINE -(X,Y),A 310 GOTO 270 320 RETURN 330 *ERRORSUB 340 RESUME NEXT 350 RETURN 360 *PAINTSUB 370 READ X,Y,B,BC 380 IF X>0 THEN RETURN 390 PAINT(X,Y),C,BC 400 GOTO 370