"`d ### PLOT INCOME AND TAX (PLOT2) ###-` ,@B` ";: I 0D 10 H"X` "A U 300,350 O"v` "0,1500 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  ,7a "0,";IMa "R D -25,0 U A"Ua Iva" ### 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 ###Ab I   ,ObDIbb "-200,";Inb "S13"vb Db (_)b Ib ### PRINT Y AXIS LABEL ###b "-250,900"b "S23 THOUSANDS OF $"b (_)b "600,1525"c& "S13 INCOME & TAXES"$c0 (_)-c: C$Ec? I,  ,fcD "U 0,";I;" D 2450,";I;" U"ncI IwcN C$cX ### MATRIX FOR SUB-X AXIS ###cb lcl "-350,-200"cv "S12 TAXABLE INCOME (W-2)"c (_)c "-350,-300"d "S12 INCOME TAX PAID"&d (_)>d I   Hd E,BXd I;",-200"dd "S12"{d "$$#####.##";Ed (_)d I;",-300"d "S12"d "$$#####.##";Bd (_)d Id  *** DRAW BARS ON GRAPH ***e* C$ e4 l"e> I ` ,eH F,C9eRPCFdFe\ I;",0"Xe^B(FSU)je`E(CSU)tef  }ep C$ez Ieb ### PAY AND TAXES DATA ###el 2875.95,401.30,7020.00,1036.65ev 10351.72,1357.15,17271.60,2797.93!f 25328.26,3351.27,39478.80,4785.00+f "@"5f ,;fgf *** SUBROUTINE TO DRAW BARS ***f "RD0,";B; " -45,0 0,";B;" U"f "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"g "##.#";P; g "%"+g (_)7g "A U"=g " D 0,";E;" 45,0 0,";E;" U" f "-90,";