9 CALL LINE(X,-100,X,100)
12 1500 DO 1600 Y=0,200,50
13 CALL LINE(0,Y-100,600,Y-100)
15 1300 DO 1400 Y=0,150,50
17 CALL LINE(X,Y-75,X+10,Y-75)
22 CALL LINE (0,-1,600,-1)
23 CALL LINE (-1,-100,-1,100)
24 CALL LINE (1,-100,1,100)
44 SUBROUTINE LINE(X1,Y1,X2,Y2)