"`d ### PLOT INCOME AND TAX (PLOT2) ###-` ,@B` ";: I 0D 10 H"X` "A U 300,400 O"v` "0,1200 D 0,0 2450,0 U"` ### MAKE X AXIS TIC MARKS ###` I `  ` "U";I;",0"` "R D 0,-25 U A"` Ia ### MAKE TIC MARKS Y AXIS ###)a I  6a "0,";ILa "R D -25,0 U A"Ta Iua" ### LAPEL X AXIS ###a, "56","60","65","70","75","80"a6 ,a@ I  aJ A$aTXI2a^ "U";X;",-80"ah "S13"am A$bn (_)br I)b ### LABEL Y AXIS ###?b I   JbDI]b "-200,";Iib "S13"qb D~b (_)b Ib ### PRINT Y AXIS LABEL ###b "-250,900"b "S23 THOUSANDS OF $"b (_)b "600,1400"c& "S13 INCOME & TAXES"c0 (_)(c: C$RcX ### MATRIX FOR SUB-X AXIS ###\cb lncl "-350,-200"cv "S12 TAXABLE INCOME (W-2)"c (_)c "-350,-300"c "S12 INCOME TAX PAID"c (_)c I   c E,B d I;",-200"d "S12",d "$$#####.##";E9d (_)Id I;",-300"Ud "S12"ld "$$#####.##";Byd (_)d Id  *** DRAW BARS ON GRAPH ***d* C$d4 ld> I ` dH F,CdRPCFdd\ I;",0"e^B(F()e`E(C()ef  (ep C$0ez IWeb ### PAY AND TAXES DATA ###|el 2875.95,401.30,7020.00,1036.65ev 10351.72,1357.15,17271.60,2797.93e 25328.26,3351.27,39478.80,4785.00e "@"e ,ef *** SUBROUTINE TO DRAW BARS ***6f "RD0,";B; " -45,0 0,";B;" U"ff "15,0 D 0,";B;" U 15,0 D 0,";B;" U 15,0"f " D 0,";E;" 45,0 0,";E;" U" f "-90,";(B)f "S12"f "##.#";P; f "%"f (_)f "A U"f