ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "" "" "" "" "" "" "" "" "*" "13:FORM 8615 - TAX FOR CHILDREN UNDER AGE OF 14 OMB No. 1545-0998" "14: WHO HAVE INVESTMENT INCOME OF MORE THAN $1,000 Attach Seq No.33 " "*" "16:Child's Name: SocSecNo. 000-00-0000" "-" "18:Parent's Name: SocSecNo. 000-00-0000" "-" "20:Parent's Filing Status: " "-" "22:Enter Number of Exemptions on Parent's Return: " "*" "24:STEP 1 - FIGURE CHILD'S NET INVESTMENT INCOME " "*" "26: 1. Enter the child's investment income ....................... 1 $ ####### " "27: 2. If child did not itemize deductions, enter $1,000; " "28: if child did itemize, see instructions .................... 2 $ ####### " "29: 3. Subtract line 2 from line 1 ............................... 3 $ ####### " "30: 4. Enter the child's taxable income (Form 1040, line 27) ..... 4 $ ####### " "31: 5. Compare lines 3&4. Enter the smaller amount here ......... 5 $ ####### " "*" "33:STEP 2 - FIGURE TENTATIVE TAX BASED ON THE TAX RATE OF THE LISTED PARENT " "*" "-" "36: 6. Enter the parent's taxable income ......................... 6 $ ####### " "37: 7. Enter the total, if any, of the net investmnt income " "38: of all other children of the parent ....................... 7 $ ####### " "39: 8. Add the amounts on lines 5,6 and 7. Enter total here ..... 8 $ ####### " "40: 9. Tax on the amount on line 8 based on parent's filing status 9 $ ####### " "41:10. Enter the parent's tax (Form 1040, line 38) ............... 10 $ ####### " "42:11. Subtract line 10 from line 9. Enter the result here ....... 11 $ ####### " "43:12a. Add the amounts on lines 5 and 7. Enter the total ......... 12a $ ####### " "44:12b. Divide line 5 by line 12. Enter amount as a decimal ....... 12b ##.### " "45:13. Multiply line 5 by line 12a. Enter the result here ........ 13 $ ####### " "*" "47:STEP 3 - FIGURE CHILD'S TAX " "*" "49:14. Subtract line 5 from line 4. Enter the result.. 14 $ ####### " "50:15. Tax on the amount on line 14 based on child's filing status 15 $ ####### " "51:16. Add lines 13 and 15. Enter the total here ................. 16 $ ####### " "52:17. Tax on the amount on line 4 based on child's filing status. 17 $ ####### " "53:18. Compare lines 16&17. Enter the larger amount here ......... 18 $ ####### " "54: Also enter the total on Form 1040, line 38 " "" "-" "57:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" "" "" "" "" "" " " ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "" "" "" "*" "08:FORM 4562 - DEPRECIATION AND AMORTIZATION Page 2 OMB No. 1545-0172" "09: Attach Seq No.67 " "*" "11:Names: SocSecNo. 000-00-0000" "" "*" "14:PART V - LISTED PROPERTY: AUTOMOBILES, COMPUTERS, ETC. " "15:Section A - Depreciation " "16:22a. Do you have supportive evidence: 22b. If yes, is it written: " "-" "18:a.Type b.Date c.Bus% d.Cost e.Basis f.Per g.Meth h.Dedct i. 179 " "-" "20:23. Property used more than 50% in a trade or business " "-" "22: ##.#### ####### ####### ####### ####### " "23: ##.#### ####### ####### ####### ####### " "-" "25:24. Property used 50% or less in a trade or business " "-" "27: ##.#### ####### ####### S/L ####### ####### " "28: ##.#### ####### ####### S/L ####### ####### " "-" "30:25. Total (Enter here and on line 19, page 1) ......... 25 $ ####### " "31:26. Total (Enter here and on line 7, page 1) .................. 26 $ ####### " "*" "33:Section B - Information Regarding Use of Vehicles " "-" "35: Veh 1 Veh 2 Veh 3 Veh 4 Veh 5 Veh 6 " "-" "37:27. Total business miles .... ###### ###### ###### ###### " "38:28. Total commuting miles ... ###### ###### ###### ###### " "39:29. Total personal miles .... ###### ###### ###### ###### " "40:30. Total miles ............. ###### ###### ###### ###### " "41:31. Was vehicle available ... " "42:32. Used by 5% owner ........ " "43:33. Another vehicle available " "*" "45:Section C - Questions for Employers Who Provide Vehicles for Employees " "-" "47:34. Maintain a written policy prohibiting personal use & commuting ... " "48:35. Maintain a written policy prohibiting personal but not commuting . " "49:36. Do you treat all use by employees as personal use ................ " "50:37. Do you provide more than 5 vehicles & retain employee info ....... " "51:38. Do you meet the requirements re: qualified demonstration ......... " "*" "53:PART II - AMORTIZATION " "-" "55:39. (a) Description (b) Date (c) Cost (d) Code (e) Percent (f) Amount " "-" "57: $ ####### #.#### $ ####### " "58: $ ####### #.#### $ ####### " "59:40. Amortization for property placed in service before 1990 ... 40 $ ####### " "60:41. Total ..................................................... 41 $ ####### " "*" "62:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "*" "05:FORM 4562 - DEPRECIATION AND AMORTIZATION OMB No. 1545-0172" "06: Attach Seq No.67 " "*" "08:Names: SocSecNo. 000-00-0000" "09:Business to which form relates: " "-" "11:PART I - ELECTION TO EXPENSE CERTAIN TANGIBLE PROPERTY (SECTION 179) " "*" "13: 1. Maximum dollar limitation (see instructions) .............. 1 $ 10000 " "14: 2. Total cost of section 179 property placed during tax year . 2 $ ####### " "15: 3. Threshold cost of section 179 property before reduction ... 3 $ 200000 " "16: 4. Reduction in limitation (subtract line 3 from line 2) ..... 4 $ ####### " "17: 5. Dollar limitation for tax year (subtract line 4 from 1) ... 5 $ ####### " "18: (a) Description (b) Cost (c) Elected Cost " "19: 6. $ ####### $ ####### " "20: $ ####### $ ####### " "21: 7. Listed property - Enter amount from line 26 ............... 7 $ ####### " "22: 8. Total elected cost of section 179 property (add 6(c)&7 .... 8 $ ####### " "23: 9. Tentative deduction. Enter lesser of line 5 or line 8 ..... 9 $ ####### " "24:10. Carryover of disallowed deduction from 1989 ............... 10 $ ####### " "25:11. Taxable income limit. Lesser of taxable income or line 5 .. 11 $ ####### " "26:12. Section 179 expense deduction (add lines 9&10) ............ 12 $ ####### " "27:13. Carryover of disallowed deduction to 1991 ...... $ ####### " "*" "29:PART II - MACRS DEPRECIATION FOR ASSETS PLACE DURING 1990 TAX YEAR (ONLY) " "-" "31: (a) Class (b) Date (c) Basis (d) Period (e) Conv (f) Method (g) Deduct " "32:14. General Depreciation System: " "33: a. 3-year $ ####### $ ####### " "34: b. 5-year $ ####### $ ####### " "35: c. 7-year $ ####### $ ####### " "36: d. 10-year $ ####### $ ####### " "37: e 15-year $ ####### $ ####### " "38: f. 20-year $ ####### $ ####### " "39: g. Res Rental $ ####### 27 yrs MM S/L $ ####### " "40: Res Rental $ ####### 27 yrs MM S/L $ ####### " "41: h. Nonres Real $ ####### 31 yrs MM S/L $ ####### " "42: Nonres Real $ ####### 31 yrs MM S/L $ ####### " "-" "44:15. Alternative Depreciation System (ADS) " "-" "46: a. Class life $ ####### S/L $ ####### " "47: b. 12-year $ ####### 12 yrs S/L $ ####### " "48: c. 40-year $ ####### 40 yrs MM S/L $ ####### " "-" "*" "51:PART III - OTHER DEPRECIATION (DO NOT INCLUDE LISTED PROPERTY) " "-" "53:16. GDS & ADS deductions for assets in service before 1990 .... 16 $ ####### " "54:17. Property subject to secion 168(f)(1) election ............. 17 $ ####### " "55:18. ACRS and/or other depreciation ............................ 18 $ ####### " "*" "57:Section D - Summary " "-" "59:19. Listed property - Enter amount from line 25 .............. 19 $ ####### " "60:20. Total (Add lines 12, 14, 15(g) and 16 through 19) ......... 20 $ ####### " "61:21. Portion of basis attributable to Section 263A .. $ ####### " "*" "63:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" " ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"ALIGN BLANK PAPER":‡@231,"FORM 2441 - SIDE 1":پ¦6:ˆے‰(X$)پ¥8003,1710_ü™ "I",#1,"P2441-1/PRT"hLN³1…€X³1¥13:پ¦16:‹ :ƒLINE 13ژپ¦21¬°€X³15¥21:پ¦16:‹ :ƒLINE 21¹؛V³4:پ¦90×€X³23¥30:پ¦16:‹ :ƒLINE 30ه(V³21:پ¦182€X³32¥34:پ¦16:‹ :ƒLINE 34|V³33:پ¦18 L~V³34:پ¦18 Z€V³35:پ¦18 h‚V³36:پ¦18 {ƒپ¦16 :ƒLINE 30 ‰„V³37:پ¦18 §ˆ€X³32¥34:پ¦16:‹ :ƒLINE 34 µٹV³38:پ¦18 ةŒ€X³36¥66:پ¦16:‹ رذڑ#1!X‚ **********END OF PRINT ROUTINE 1***********************!C¨…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140!w²…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140!«¼…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140!كئ…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140" ذ…ے†(&HFA23)³255§PR$³"P8615":پ¦9010:پ¥7140"عLR³0:پ¥3",نسPR$«"/BAS",R"M@‚ ********** BACKWARDS CALLS"tC…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140"™D…ے†(&HFA25)³255§PR$³"PSE":پ¥7140"½E…ے†(&HFA1E)³255§PR$³"PE":پ¥7140"لF…ے†(&HFA1C)³255§PR$³"PD":پ¥7140#G…ے†(&HFA1B)³255§PR$³"PC":پ¥7140#8H…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140#\I…ے†(&HFA22)³255§PR$³"PA":پ¥7140#sJPR$³"P1040":پ¥7140#¬#(‚ ********** SUBROUTINES ***************************#½#2’&HFA38,LR:گ#÷#<‚ **********DISK DIRECTORY SUBROUTINE ***************$#FQ$³"1990 /BAS":DD³3:PC³0$„#P€S³3¥11:ك0,17,S,X$,Y$:€X³1¥4:DI$(X)³ےگ(X$,(X32)¬31,32):‹X:€X³1¥4:DI$(X«4)³ےگ(Y$,(X32)¬31,32):‹X:€X³1¥8$،#Z…ےژ(DI$(X),1)³ے‹(0)§9080$ہ#d…ےژ(DI$(X),1)³ے‹(255)§9090$َ#n…DD³3§…Q$³ےژ(DI$(X),8)«"/"«ےگ(DI$(X),9,3)§PC³1$‎#x‹X:‹S%#‚…PC³1§9120%R#Œ‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE"%n#–Q$³ے’:…Q$³""§9110:„9030%t# گ%¤#ھ‚ ********** SCREEN DIRECTORY *************%±#´‍:‡A$(1)%ه#¾‡ے،(5,&H83)«"MASTER PRINT DIRECTORY"«ے،(5,&H83)& #ب‡@128,"A FORM 1040 H FORM 2106"&5#ز‡@160,"B SCHEDULE A I FORM 2441"&`#ـ‡@192,"C SCHEDULE B J FORM 4562(C)"&Œ#و‡@224,"D SCHEDULE C K FORM 4562(E)A"&¸#ً‡@256,"E SCHEDULE D L FORM 4562(E)B"&ن#ْ‡@288,"F SCHEDULE E N FORM 4562(E)C"'$‡@320,"G SCHEDULE SE O FORM 8615"'#$‡@448,ے،(32,&H83);'D$‡@487,"SELECT OR ";'k$"€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹'§$,Q$³ے’:…Q$³""§9260:„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§LR³50:پ¥3($6Q³ےٹ(Q$)¬64:ˆ Q پ¥9280,9290,9300,9305,9310,9320,9330,9340,1010,9360,9370,9380,3,9390,9400:پ¥9260(#$@PR$³"P1040":پ¥7140(N$J…ے†(&HFA22)³255§PR$³"PA":پ¥7140::„9430(ˆ$T…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140::„9430(³$Y…ے†(&HFA1B)³255§PR$³"PC":پ¥7140::„9430(ق$^…ے†(&HFA1C)³255§PR$³"PD":پ¥7140::„9430) $h…ے†(&HFA1E)³255§PR$³"PE":پ¥7140::„9430)5$r…ے†(&HFA25)³255§PR$³"PSE":پ¥7140::„9430)c$|…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140::„9430)‘$†…ے†(&HFA24)³255§PR$³"P2441":پ¥7140::„9430)ج$گ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140::„9430*$ڑ…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140::„9430*B$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140::„9430*}$®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140::„9430*²$¸…ے†(&HFA23)³255§PR$³"P8615":پ¦9010:پ¥7140::„9430*؟$آLR³0:پ¥3*ر$جسPR$«"/BAS",R*â$ض 50,1:پ¥9260"P4562":LR³18:پ¦9010:پ¥714ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے.......... 24b $ ####### $ ####### " "41:24c. Subtract line 24b from line 24a ................ 24c $ ####### $ ####### " "42:25. Value of employer-provided vehicle ............. 25 $ ####### $ ####### " "43:26. Add lines 23, 24c and 25 ....................... 26 $ ####### $ ####### " "44:27. Multiply line 26 by the percentage on line 15 .. 27 $ ####### $ ####### " "45:28. Enter the amount from line 38 below ............ 28 $ ####### $ ####### " "46:29. Add lines 27 and 28 ............................ 29 $ ####### $ ####### " "-" "48:Section D - Depreciation of Vehicles " "-" "50:30. Enter cost or other basis ...................... 30 $ ####### $ ####### " "51:31. Enter amount of Section 179 deduction .......... 31 $ ####### $ ####### " "52:32. Multiply line 30 by line 15 .................... 32 $ ####### $ ####### " "53:33. Enter depreciation method ...................... 33 " "54: Percentage or other basis ...................... ##.### ##.### " "55:34. Multiply line 32 by the percentage on line 33 .. 34 $ ####### $ ####### " "56:35. Add lines 31 and 34 ............................ 35 $ ####### $ ####### " "57:36. Enter the limitation amount (see instructions) . 36 $ ####### $ ####### " "58:37. Multiply line 36 by the percentage on line 15 .. 37 $ ####### $ ####### " "59:38. Enter the smaller of line 35 or line 37 ........ 38 $ ####### $ ####### " "-" "61:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" "" * *************** "" "" "" "" "" "" "" "" "" "" "" "*" "13:FORM 2106 - EMPLOYEE BUSINESS EXPENSES OMB No. 1545-0139" "14: ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےمپ¥110L‚ **********LEAD ROUTINES & SUBROUTINES*********************°‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE":پ¦4:پ¦9030:پ¦9010:ژ"1040/BAS"ئQ$³ے’:…Q$³""§4:„گّ 200,2:’&HFA3E,&HE0:’&HFA3F,&H01:’&HFA3A,SN:گ=‡@487,"///";:€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹GQ$³ے’©پ¦4:…Q$³""§8::„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§9140::„…ےٹ(Q$)³94§X$³"1":„…ےٹ(Q$)³10§X$³"2"::„X$³""¯ گ» ‰#1,PS$ض…PS$³""§PS$³ے،(82," ")ٍ…PS$³"*"§PS$³ے،(82,"*") …PS$³"-"§PS$³ے،(82,"-")#PS$³ےڈ(PS$,79):گ9ےگ(PS$,T)³S$(V):گ]پ¦30:گ :ƒPRINT DIRECT FROM DISKyپ¦40:گ :ƒPRINT 1 STRING”پ¦50:گ :ƒPRINT 1 VALUE؛پ¦60:گ :ƒPRINT 1 STRING & 1 VALUEضپ¦70:گ :ƒPRINT 2 VALUESپ¦10:T³8:Q$³A$(1):ےگ(PS$,T)³Q$:T³69:Q$³A$(7):ےگ(PS$,T)³Q$:‡#¬2,PS$:گ@‚ *** PRINT DIRECT FROM DISKhپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ ‡#¬2,PS$:LN³LN«1:گڑ(‚ *** PRINT ONE STRINGا)پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ق*‡#¬2,PS$:LN³LN«1:گّ2‚ *** PRINT ONE VALUE 3پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$C4‡#¬2,ح PS$;ے‰(S$(V)):LN³LN«1:گj<‚ *** PRINT ONE STRING & ONE VALUE—=پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$؛>‡#¬2,ح PS$;ے‰(S$(W)):LN³LN«1:گصF‚ *** PRINT TWO VALUES‎Gپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$*H‡#¬2,ح PS$;ے‰(S$(V)),ے‰(S$(W)):LN³LN«1:گFP‚ *** PRINT TWO STRINGSOQپ¦10ٹRT³59:پ¦15:T³70:V³W:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$£W‡#¬2,ح PS$:LN³LN«1:گأZ‚ *** SPECIAL FOR FORM 2441ج[پ¦10\T³10:V³1:پ¦15:T³34:V³2:پ¦15:T³56:V³3:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$<]‡#¬2,ح PS$;ے‰(S$(4)):LN³LN«1:گu_‚ *** SPECIAL FOR SCHEDULE E - 1 STRING AND 3 VALUES¢`پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$كa‡#¬2,ح PS$;ے‰(S$(V«1)),ے‰(S$(V«2)),ے‰(S$(V«3)):LN³LN«1:گd‚ **********MEMORY, ARRAYS, DEFINITIONS, DISK LOAD *******In•5500:¹ےƒ3³&HFA09:¹ےƒ4³&HFA0C:ŒS$(100)axUN$³"":X³&HFA30:Y³2t‚…ے†(X«2)³0§Y³1‡Œ…ے†(X«1)³0§Y³0ک–…ے†(X)³0§170¾ €Z³X ¥X«Y:A³ے†(Z):UN$³UN$«ے‹(A):‹ضھUF$³"":X³&HFA33:Y³2é´…ے†(X«2)³0§Y³1ü¾…ے†(X«1)³0§Y³0 ب…ے†(X)³0§2203ز€Z³X ¥X«Y:A³ے†(Z):UF$³UF$«ے‹(A):‹EـLR³ے†(&HFA38)†وSN³0:پ¦5:€V³1¥7:Y³ےƒ3(0):A$(V)³ے،(Y," "):Z³ےƒ4(ے‌(A$(V))):‹VتëSN³18:پ¦5:€V³1¥100:Y³ےƒ3(0):S$(V)³ے،(Y," "):Z³ےƒ4(ے‌(S$(V))):‹Vëè‚ ********** P2441/BAS *****Dٍ‍:‡A$(1):‡@168,"" "" "" "" "" "" "" "" "" "" "" "*" "13:FORM 2106 - EMPLOYEE BUSINESS EXPENSES OMB No. 1545-0139" "14: Attach Seq No.54 " "*" "16:Name: SocSecNo. 000-00-0000" "17:Occupation in which expenses were incurred: " "" "-" "" "*" "22:PART I EMPLOYEE BUSINESS EXPENSES " "*" "" "25:Step 1 Enter Your Expenses Column A Column B " "26: Non Meals & Meals and " "27: Entertainmnt Entertain " "-" "29: 1. Vehicle expense from line 22 or line 29 ........ 1 $ ####### " "30: 2. Parking fees, tolls & local transporation ...... 2 $ ####### " "31: 3. Travel expense away from home overnight ........ 3 $ ####### " "32: 4. Business expenses not included on lines 1 - 3 .. 4 $ ####### " "33: 5. Meals and entertainment ........................ 5 $ ####### " "34: 6. Add lines 1 through 5 .......................... 6 $ ####### $ ####### " "-" "*" "" "38:Step 2 Enter Amounts Your Employer Gave You For Expenses Listed in Step 1 " "-" "40: 7. Enter unreported amounts received from employer. 7 $ ####### $ ####### " "-" "*" "" "44:Step 3 Figure Expenses To Deduct on Schedule A (Form 1040) " "-" "46: 8. Subtract line 7 from line 6 .................... 8 $ ####### $ ####### " "47: 9. Enter 20% of line 8, Column B .................. 9 $ ####### " "48:10. Subtract line 9 from line 8 .................... 10 $ ####### $ ####### " "49:11. Add the amounts on line 10 of both columns ..... 11 $ ####### " "50: Also enter the total on Schedule A, line 20 " "" "-" "53:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" "" "" "" "" "" "" "" "" "" " " "" "" "" "" "" "*" "07:FORM 2106 - EMPLOYEE BUSINESS EXPENSES - Page 2 OMB No. 1545-0139" "08: Attach Seq No.54 " "09:Name: SocSecNo. 000-00-0000" "*" "11:PART II VEHICLE EXPENSES " "*" "13:Section A - General Information Vehicle 1 Vehicle 2 " "-" "15:12. Enter the date vehicle was place in service .... 12 " "16:13. Total mileage vehicle was used during 1989 ..... 13 ###### ###### " "17:14. Miles included on line 15 that vehicle was " "18: used for business .............................. 14 ###### ###### " "19:15. Percent of business use ........................ 15 ##.### ##.### " "20:16. Average daily round trip commuting distance .... 16 ###### ###### " "21:17. Miles included on line 13 that vehicle was " "22: use for commuting .............................. 17 ###### ###### " "23:18. Other personal mileage ......................... 18 ###### ###### " "24:19. Do you (or spouse) have another vehicle " "25: available for personal use ..................... 19 " "26:20. If your employer provided you with a vehicle " "27: is personal use during off duty hours permitted 20 " "28:21a. Do you have evidence to support your deduction . 21a " "29:21b. If 'Yes', is the evidence written .............. 21b " "-" "31:Section B - Standard Mileage Rate " "-" "33:22. Multiply line 14 by 26 cents ................... 22 $ ####### " "34: Enter the result here and on line 1 " "-" "36:Section C - Actual Expenses Vehicle 1 Vehicle 2 " "-" "38:23. Gasoline, oil, repairs, vehicle insurance ...... 23 $ ####### $ ####### " "39:24a. Vehicle rentals ................................ 24a $ ####### $ ####### " "40:24b. Inclusion amount ..................... ####### ####### " "42: ####### ####### ####### ####### " "-" "44:33a. ####### ####### " "45: b. ####### ####### " "-" "47:34. Add amounts in columns (d) and (f) of line 33(a) ............. $ ####### " "48:35. Add amounts in columns (c) and (e) of line 33(b) ............. $ ####### " "49:36. Combine the amounts on lines 34 and 35 ....................... $ ####### " "*" "51:PART IV - INCOME OR LOSS FROM REAL ESTATE MORTGAGE INVESTMENT CONDUITS " "52: (a)Name (b) EIN (c)Xcess Inclsn (d)Taxable Inc (e)Income " "53:37. " "54 38. Combine amounts in columns (d) and (e) ....................... " "*" "56:PART V - SUMMARY OF PARTS I THROUGH IV " "57:39. Net farm rental income(loss) from Form 4835 .................. " "58:40. Total income or loss. Combine lines 26,31,36,38 & 39 ........ $ ####### " "*" "60:41. Farmers and fishermen: Enter gross farming and fishing income " "*" "62:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" " " ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "" "" "" "" "" "" "" "*" "12:SCHEDULE SE - SOCIAL SECURITY SELF-EMPLOYMENT TAX OMB No. 1545-0074" "13:(Form 1040) Attach Seq No.17 " "*" "15:Name: SocSecNo. 000-00-0000" "-" "*" "18:SECTION A - SHORT SCHEDULE SE " "*" "20: 1. Net farm profit/loss from Schedule F ...................... 1 $ ####### " "21: 2. Net profit/loss from Schedule C ........................... 2 $ ####### " "22: 3. Combine lines 1 and 2 ..................................... 3 $ ####### " "23: 4. Multiply line 3 by .9235 .................................. 4 $ ####### " "24: 5. Maximum amount of combined wages & self-employment earnings 5 $ 51300 " "25: 6. Total social security wages and tips ...................... 6 $ ####### " "26: 7. Subtract line 6 from line 5. Enter the result here ....... 7 $ ####### " "27: 8. Enter the smaller of line 4 or line 7 ..................... 8 $ ####### " "28: 9. Rate of tax ............................................. . 9 $ x .153 " "29:10. Self employment tax ....................................... 10 $ ####### " "*" "31:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" " ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے $ ####### $ ####### " "42:15. Taxes .................. $ ####### $ ####### $ ####### " "43:16. Utilities .............. $ ####### $ ####### $ ####### " "44:17. Wages and salaries ..... $ ####### $ ####### $ ####### " "45:18. Other: $ ####### $ ####### $ ####### " "46: $ ####### $ ####### $ ####### " "47: $ ####### $ ####### $ ####### " "48: $ ####### $ ####### $ ####### " "49: $ ####### $ ####### $ ####### " "-" "51:19. Add lines 5 thru 18 .... $ ####### $ ####### $ ####### $ ####### " "52:20. Depreciation/Depletion . $ ####### $ ####### $ ####### $ ####### " "53:21. Total Expenses ......... $ ####### $ ####### $ ####### " "54:22. Income/Loss ............ $ ####### $ ####### $ ####### " "55:23. Deductible rental loss . $ ####### $ ####### $ ####### " "56:24. Income ....................................................... $ ####### " "57:25. Losses ....................................................... $ ####### " "58:26. Combine amounts on lines 24 and 25 ........................... $ ####### " "*" "60:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" "" "" ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "" "" "*" "07:SCHEDULE E - SUPPLEMENTAL INCOME AND LOSS OMB No. 1545-0074" "08:(Form 1040) Attach Seq No.13 " "*" "10:Names: SocSecNo. 000-00-0000" "-" "*" "13:PART II - INCOME OR LOSS FROM PARTNERSHIPS AND S CORPORATIONS " "14:27. (a) Name (b) Type (c) Foreign (d) EIN (e) All (f) Some " "15: A. " "16: B. " "17: C. " "18: D. " "-" "20: - -(g)- -Passive- -(h)- - - -(i)- -Nonpassive- -(j)- - - - - -(k)- " "21: Loss Gain Loss Sec 179 Income " "22: A. ####### ####### ####### ####### ####### " "23: B. ####### ####### ####### ####### ####### " "24: C. ####### ####### ####### ####### ####### " "25: D. ####### ####### ####### ####### ####### " "-" "27:28a. ####### ####### " "28: b. ####### ####### ####### " "-" "30:29. Add amounts in columns (h) and (k) of line 28(a) ............. $ ####### " "31:30. Add amounts in columns (g), (i), and (j) of line 28(b) ....... $ ####### " "32:31. Combine the amounts on lines 32 and 33 ....................... $ ####### " "*" "34:PART III - INCOME OR LOSS FROM ESTATES AND TRUSTS " "35:32. (a) Name (b) Employer ID No. " "36: " "37: " "-" "39: - -(c)- -Passive- -(d)- - - -(e)- -Nonpassive- -(f)- - " "40: Loss Income Loss Income " "41: ####### ####### ..................... 32 " "42:33. Enter the amount, if any, shown on line 25 ............ 33 " "43:34. Subtract line 33 from line 32, not less than zero ..... 34 " "44:35. Add lines 31 and 34 ................................... 35 " "45:36. Subtract line 35 from line 30, not less than zero ..... 36 " "*" "47:PART V - COMPLETE THIS PART ONLY IF YOU ELECT OUT OF INSTALLMENT METHOD " "48:37. Check here if you elect out of installment method ..... 37 " "49:38. Enter the face amount of the note or other obligation . 38 " "50:39. Enter the percentage of valuation of the note ......... 39 " "*" "52:PART VI - RECONCILE FORMS 1099 B FOR BARTERING TRANSACTIONS " "53:40. Form 1040, line 22 .................................... 40 " "54:41. Schedule C (Form 1040) ................................ 41 " "55:42. Schedule D (Form 1040) ................................ 42 " "56:43. Schedule E (Form 1040) ................................ 43 " "57:44. Schedule F (Form 1040) ................................ 44 " "58:45. Other form: 45 " "" "60:46. Total (Add lines 40 through 45) ....................... 46 " "*" "62:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "" "" "" "" "*" "09:SCHEDULE E - SUPPLEMENTAL INCOME AND LOSS OMB No. 1545-0074" "10:(Form 1040) Attach Seq No.13 " "*" "12:Names: SocSecNo. 000-00-0000" "-" "*" "15:PART I - INCOME OR LOSS FROM RENTALS AND ROYALTIES " "16: 1. Show the kind and location of rental property: " "17: Property A: " "18: Property B: " "19: Property C: " "-" "21: 2. Did you or family use it for personal purposes greater " "22 than 14 days or 10% of the total rented days? " "23: Property A: " "24: Property B: " "25: Property C: " "-" "27:Rental and Royalty Income: Property A Property B Property C Total " "28: 3. Rents received ......... $ ####### $ ####### $ ####### $ ####### " "29: 4. Royalties received ..... $ ####### $ ####### $ ####### $ ####### " "-" "31:Rental and Royalty Expenses: " "32: 5. Advertising ............ $ ####### $ ####### $ ####### " "33: 6. Auto and travel ........ $ ####### $ ####### $ ####### " "34: 7. Cleaning & maintenance . $ ####### $ ####### $ ####### " "35: 8. Commissions ............ $ ####### $ ####### $ ####### " "36: 9. Insurance .............. $ ####### $ ####### $ ####### " "37:10. Legal/Professional fees $ ####### $ ####### $ ####### " "38:11. Mortgage interest ...... $ ####### $ ####### $ ####### $ ####### " "39:12. Other interest ......... $ ####### $ ####### $ ####### " "40:13. Repairs ................ $ ####### $ ####### $ ####### " "41:14. Supplies ............... $ ####### 990 /BAS":DD³3:PC³0&‚#P€S³3¥11:ك0,17,S,X$,Y$:€X³1¥4:DI$(X)³ےگ(X$,(X32)¬31,32):‹X:€X³1¥4:DI$(X«4)³ےگ(Y$,(X32)¬31,32):‹X:€X³1¥8&ں#Z…ےژ(DI$(X),1)³ے‹(0)§9080&¾#d…ےژ(DI$(X),1)³ے‹(255)§9090&ٌ#n…DD³3§…Q$³ےژ(DI$(X),8)«"/"«ےگ(DI$(X),9,3)§PC³1&û#x‹X:‹S' #‚…PC³1§9120'P#Œ‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE"'l#–Q$³ے’:…Q$³""§9110:„9030'r# گ'¢#ھ‚ ********** SCREEN DIRECTORY *************'¯#´‍:‡A$(1)'م#¾‡ے،(5,&H83)«"MASTER PRINT DIRECTORY"«ے،(5,&H83)(#ب‡@128,"A FORM 1040 H FORM 2106"(3#ز‡@160,"B SCHEDULE A I FORM 2441"(^#ـ‡@192,"C SCHEDULE B J FORM 4562(C)"(ٹ#و‡@224,"D SCHEDULE C K FORM 4562(E)A"(¶#ً‡@256,"E SCHEDULE D L FORM 4562(E)B"(â#ْ‡@288,"F SCHEDULE E N FORM 4562(E)C") $‡@320,"G SCHEDULE SE O FORM 8615")!$‡@448,ے،(32,&H83);)B$‡@487,"SELECT OR ";)i$"€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹)¥$,Q$³ے’:…Q$³""§9260:„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§LR³50:پ¥3* $6Q³ےٹ(Q$)¬64:ˆ Q پ¥9280,9290,9300,9305,1010,9320,9330,9340,9350,9360,9370,9380,3,9390,9400:پ¥9260*!$@PR$³"P1040":پ¥7140*L$J…ے†(&HFA22)³255§PR$³"PA":پ¥7140::„9430*†$T…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140::„9430*±$Y…ے†(&HFA1B)³255§PR$³"PC":پ¥7140::„9430*ـ$^…ے†(&HFA1C)³255§PR$³"PD":پ¥7140::„9430+$h…ے†(&HFA1E)³255§PR$³"PE":پ¥7140::„9430+3$r…ے†(&HFA25)³255§PR$³"PSE":پ¥7140::„9430+a$|…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140::„9430+ڈ$†…ے†(&HFA24)³255§PR$³"P2441":پ¥7140::„9430+ت$گ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140::„9430,$ڑ…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140::„9430,@$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140::„9430,{$®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140::„9430,¶$¸…ے†(&HFA23)³255§PR$³"P8615":LR³18:پ¦9010:پ¥7140::„9430,أ$آLR³0:پ¥3,ص$جسPR$«"/BAS",R,و$ض 50,1:پ¥9260-'"پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$-1'#‡#¬2,ح PS$;ے‰(B$(V)):LN³LN«1:گ-L'$‚ *** PRINT TWO VALUES-t'.پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$-،'8‡#¬2,ح PS$;ے‰(B$(V)),ے‰(B$(W)):LN³LN«1:گ9010:پ¥7140::„9430,أ$آLR³0:پ¥3,ص$جسPR$«"/BAS",R,و$ض 50,1:پ¥9260-'"پ¦10:…ےپ(LN®2)³LN®2§ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "" "05: Page 2 " "*" "07:SCHEDULE D - CAPITAL GAINS AND LOSSES OMB No. 1545-0074" "08:(Form 1040) Attach Seq No.12A" "*" "10:Names: SocSecNo. 000-00-0000" "-" "*" "13:PART III - SUMMARY OF PARTS I AND II " "14:18. Combine lines 8 and 17 and enter net gain/loss here ... 18 $ ####### " "15:19. If line 18 is a loss, enter here and 1040 line 13, the " "16: smaller of: " "17: a. The loss on line 18; or " "18: b. $3,000, or if married filing separate ($1,500) ........ 19 $ ####### " "*" "20:PART IV - FIGURE YOUR CAPITAL LOSS CARRYOVERS FROM 1990 TO 1991 " "21:Section A - Figure Your Carryover Limit " "-" "23:20. Enter taxable income of loss from 1040, line 37 ....... 20 " "24:21. Enter the loss shown on line 19 ....................... 21 " "25:22. Enter the amount shown on 1040, line 36 ............... 22 " "26:23. Combine lines 20, 21 and 22. If zero or less enter zero 23 " "27:24. Enter the smaller of line 21 or line 23 ............... 24 " "-" "29:Section B - Figure Your Short Term Capital Loss Carryover " "-" "31:25. Enter the loss shown on line 8 ........................ 25 " "32:26. Enter the gain, if any, shown on line 17 .............. 26 " "33:27. Enter the amount shown on line 24 ..................... 27 " "34:28. Add lines 26 and 27 ................................... 28 " "35:29. Subtract line 28 from line 25, not less than zero ..... 29 " "-" "37:Section C - Figure Your Long Term Capital Loss Carryover " "-" "39:30. Enter the loss shown on line 17 ....................... 30 " "40:31. Enter the gain, if any, shown on line 8 ............... 31 " "41:32. Enter the amount shown on line 24ے¢پ¥110L‚ **********LEAD ROUTINES & SUBROUTINES*********************°‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE":پ¦4:پ¦9030:پ¦9010:ژ"1040/BAS"ئQ$³ے’:…Q$³""§4:„گّ 200,2:’&HFA3E,&HE0:’&HFA3F,&H01:’&HFA3A,SN:گ=‡@487,"///";:€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹GQ$³ے’©پ¦4:…Q$³""§8::„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§9140::„…ےٹ(Q$)³94§X$³"1":„…ےٹ(Q$)³10§X$³"2"::„X$³""¯ گ» ‰#1,PS$ض…PS$³""§PS$³ے،(82," ")ٍ…PS$³"*"§PS$³ے،(82,"*") …PS$³"-"§PS$³ے،(82,"-")#PS$³ےڈ(PS$,79):گ9ےگ(PS$,T)³G$(V):گ]پ¦30:گ :ƒPRINT DIRECT FROM DISKyپ¦40:گ :ƒPRINT 1 STRING”پ¦50:گ :ƒPRINT 1 VALUE؛پ¦60:گ :ƒPRINT 1 STRING & 1 VALUEضپ¦70:گ :ƒPRINT 2 VALUESپ¦10:T³8:Q$³A$(1):ےگ(PS$,T)³Q$:T³69:Q$³A$(7):ےگ(PS$,T)³Q$:‡#¬2,PS$:گ@‚ *** PRINT DIRECT FROM DISKhپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ ‡#¬2,PS$:LN³LN«1:گڑ(‚ *** PRINT ONE STRINGآ)پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ق*پ¦15:‡#¬2,PS$:LN³LN«1:گّ2‚ *** PRINT ONE VALUE 3پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$C4‡#¬2,ح PS$;ے‰(G$(V)):LN³LN«1:گj<‚ *** PRINT ONE STRING & ONE VALUE’=پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$؛>پ¦15:‡#¬2,ح PS$;ے‰(G$(W)):LN³LN«1:گصF‚ *** PRINT TWO VALUES‎Gپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$*H‡#¬2,ح PS$;ے‰(G$(V)),ے‰(G$(W)):LN³LN«1:گLP‚ *** SPECIAL FOR SCHEDULE D UQپ¦10fRT³1:V³V:پ¦15zST³15:V³V«1:پ¦15ژTT³26:V³V«1:پ¦15±U…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$èV…ے‰(G$(W))´0§LO³ے‰(G$(W)):GA³0::„LO³0:GA³ے‰(G$(W))W‡#¬2,ح PS$;ے‰(G$(V«1)),ے‰(G$(V«2)),LO,GA:LN³LN«1:گAZ‚ *** SPECIAL FOR SCHEDULE D J[پ¦10m_…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$¥`…ے‰(G$(V))´0§LO$³ے‰(G$(V)):GA³0::„LO³0:GA³ے‰(G$(V))ؤa‡#¬2,ح PS$;LO,GA:LN³LN«1:گd‚ **********MEMORY, ARRAYS, DEFINITIONS, DISK LOAD *******6n•5500:¹ےƒ3³&HFA09:¹ےƒ4³&HFA0C:ŒG$(100),B$(100)NxUN$³"":X³&HFA30:Y³2a‚…ے†(X«2)³0§Y³1tŒ…ے†(X«1)³0§Y³0…–…ے†(X)³0§170« €Z³X ¥X«Y:A³ے†(Z):UN$³UN$«ے‹(A):‹أھUF$³"":X³&HFA33:Y³2ض´…ے†(X«2)³0§Y³1é¾…ے†(X«1)³0§Y³0ْب…ے†(X)³0§220 ز€Z³X ¥X«Y:A³ے†(Z):UF$³UF$«ے‹(A):‹2ـLR³ے†(&HFA38)sوSN³0:پ¦5:€V³1¥7:Y³ےƒ3(0):A$(V)³ے،(Y," "):Z³ےƒ4(ے‌(A$(V))):‹V¶ëSN³1:پ¦5:€V³1¥100:Y³ےƒ3(0):B$(V)³ے،(Y," "):Z³ےƒ4(ے‌(B$(V))):‹VùًSN³6:پ¦5:€V³1¥100:Y³ےƒ3(0):G$(V)³ے،(Y," "):Z³ےƒ4(ے‌(G$(V))):‹Vè‚ ********** PD/BAS *****qٍ‍:‡A$(1):‡@168,"ALIGN BLANK PAPER":‡@231,"SCHEDULE D - SIDE 1":پ¦6:ˆے‰(X$)پ¥8010,1710‰ü™ "I",#1,"PD-1/PRT"’LN³1¤پ¦16 :ƒLINE 1پ¦16¶پ¦16؟$پ¦16ر.پ¦16 :ƒLINE 5ع8پ¦16مBپ¦16ىLپ¦16ُVپ¦16`پ¦21 :ƒLINE 10jپ¦16tپ¦16'~V³1:پ¦180ˆپ¦16C’پ¦16 :ƒLINE 15L—پ¦16Uœپ¦16^¦پ¦16g°پ¦16z؛پ¦16 :ƒLINE 20ƒؤپ¦16•ئV³2:W³82:پ¦80§بV³7:W³83:پ¦80؛خV³12:W³84:پ¦80×طV³17:W³85:پ¦80 :ƒLINE 25êِV³22:W³86:پ¦80َپ¦16 V³87:پ¦18 پ¦16'(V³27:W³88:پ¦80 :ƒLINE 30:2V³32:W³89:پ¦80C<پ¦16QFV³88:پ¦18_PV³89:پ¦18wZV³39:پ¦90 :ƒLINE 35…dV³40:پ¦18کnV³90:W³91:پ¦20¦xV³92:پ¦18¯‚پ¦16آŒپ¦16 :ƒLINE 40ث–پ¦16ش پ¦16çھV³41:W³93:پ¦80ْ´V³46:W³94:پ¦80 ¾V³51:W³95:پ¦80 :ƒLINE 45 *بV³56:W³96:پ¦80 =زV³61:W³97:پ¦80 Fـپ¦16 TوV³98:پ¦18 gًپ¦16 :ƒLINE 50 zْV³66:W³99:پ¦80 ژV³71:W³100:پ¦80 —@پ¦16 ¥JV³76:پ¦18 ½LV³77:پ¦18 :ƒLINE 55 ثNV³78:پ¦90 ظOV³79:پ¦18 çPV³80:پ¦18 ُSV³81:پ¦18!TV³75:W³76:پ¦10020 :ƒLINE 60!&^V³77:پ¦10018!:h€X³62¥66:پ¦16:‹!Bڑڑ#1!V¤‚ ****** SIDE 2!°®‍:‡A$(1):‡@168,"ALIGN BLANK PAPER":‡@231,"SCHEDULE D - SIDE 2":پ¦6:ˆے‰(X$)پ¥1010,7040!ب³™ "I",#1,"PD-2/PRT"!ر¸LN³1!مآپ¦16 :ƒLINE 1!ىجپ¦16!ُضپ¦16!‏àپ¦16"êپ¦16 :ƒLINE 5"ôپ¦16""‏پ¦16"+پ¦16"4پ¦16"Gپ¦21 :ƒLINE 10"P&پ¦16"Y0پ¦16"b:پ¦16"sDV³78:پ¦10018"†Nپ¦16 :ƒLINE 15"ڈXپ¦16"کbپ¦16"©lV³79:پ¦10018"¾v€X³19¥66:پ¦16:‹X"ئذڑ#1#X‚ **********END OF PRINT ROUTINE 1***********************#(€…ے†(&HFA1E)³255§PR$³"PE":پ¥7140#Mٹ…ے†(&HFA25)³255§PR$³"PSE":پ¥7140#t”…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140#›‍…ے†(&HFA24)³255§PR$³"P2441":پ¥7140#د¨…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140$²…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140$7¼…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140$kئ…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140$ںذ…ے†(&HFA23)³255§PR$³"P8615":LR³18:پ¦9010:پ¥7140$¬عLR³0:پ¥3$¾نسPR$«"/BAS",R$ك@‚ ********** BACKWARDS CALLS%G…ے†(&HFA1B)³255§PR$³"PC":پ¥7140%6H…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140%ZI…ے†(&HFA22)³255§PR$³"PA":پ¥7140%qJPR$³"P1040":پ¥7140%ھ#(‚ ********** SUBROUTINES ***************************%»#2’&HFA38,LR:گ%ُ#<‚ **********DISK DIRECTORY SUBROUTINE ***************&#FQ$³"1"" "" "" "" "" "*" "07:SCHEDULE C - PROFIT OR LOSS FROM BUSINESS OMB No. 1545-0074" "08:(Form 1040) Attach Seq No. 09" "*" "10:Names: SocSecNo. 000-00-0000" "-" "12:A. Principal Business: B. Bus.Code: " "13:C. Business Name: " "14: Business Adrs: D. EIN No. : " "15:E. Accounting Method: " "16:F. Method used to value closing inventory: " "17:G. Was there any change in determining inventory valuation: " "18:H. Are you deducting business expenses for your home .....: " "19:I. Did you materially participate in the business in 1990.: " "20:J. If this is the first Schedule C filed " "21: for this business, check here: " "-" "*" "24:PART I - Income " "25: 1. Gross receipts or sales ............................... 1 $ ####### " "26: 2. Returns and allowances ................................ 2 $ ####### " "27: 3. Subtract line 2 from line 1. Enter the result here ... 3 $ ####### " "28: 4. Cost of goods sold and/or operations from line 38 ..... 4 $ ####### " "29: 5. Subtract line 4 from line 3. Enter gross profit here . 5 $ ####### " "30: 6. Other income, including gasoline or fuel credits ...... 6 $ ####### " "31: 7. Add lines 5 and 6. This is your gross income ......... 7 $ ####### " "*" "33:PART II - Expenses " "34: 8. Advertising .. 8 $ ####### 21. Repairs ........... 21 $ ####### " "35: 9. Bad debts from 22. Supplies .......... 22 $ ####### " "36: sales/services 9 $ ####### 23. Taxes & licenses .. 23 $ ####### " "37:10. Car & truck .. 10 $ ####### 24. Travel,meals,entertainment: " "38:11. Commissions .. 11 $ ####### a. Travel ............ 24a $ ####### " "39:12. Depletion .... 12 $ ####### b. Meals/Entertainment 24b $ ####### " "40:13. Depreciation . 13 $ ####### c. 20% of line 25b ... 24c $ ####### " "41:14. Employee Benes 14 $ ####### d. 25b from 25c ...... 24d $ ####### " "42: 25. Utilities ......... 25 $ ####### " "43:15. Insurance .... 15 $ ####### 26. Wages ............. 26 $ ####### " "44:16. Interest: 27a. Other Expenses: " "45: a. Mortgage ..... a $ ####### $ ####### " "46: b. Other ........ b $ ####### $ ####### " "47:17. Legal/Profsnl. 17 $ ####### $ ####### " "48:18. Office exps .. 18 $ ####### $ ####### " "49:19. Pension ...... 19 $ ####### " "50:20. Rent or lease: Total Other Exps .. 27b $ ####### " "51: a. Machines/Equip a $ ####### " "52: b. Other property b $ ####### " "-" "54:28. Total Expenses. Add lines 8 through 27b .............. 28 $ ####### " "-" "56:29. Net profit or (loss). Subtract line 28 from line 7 .... 29 $ ####### " "-" "58:30. If you have a loss, you MUST check the box that a All at risk : " "59: describes your investment in this activity ........... b Some at risk: " "*" "61:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" "" " ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےW³20:پ¦19 :ƒLINE 24)ِT³6:V³21:W³22:پ¦192پ¦16@ V³50:پ¦18NV³23:پ¦18f(V³51:پ¦18 :ƒLINE 29o2پ¦16x<پ¦16پFپ¦16کPT³6:V³24:W³25:پ¦19¹ZT³6:V³26:W³27:پ¦19 :ƒLINE 34ذdT³6:V³28:W³29:پ¦19çnT³6:V³30:W³31:پ¦19‏xT³6:V³32:W³33:پ¦19‚T³6:V³34:W³35:پ¦196ŒT³6:V³36:W³37:پ¦19 :ƒLINE 39M–T³6:V³38:W³39:پ¦19d T³6:V³40:W³41:پ¦19{ھT³6:V³42:W³43:پ¦19„بپ¦16œزV³52:پ¦18 :ƒLINE 44ھـV³44:پ¦18¸وV³45:پ¦18ئًV³53:پ¦18شْV³54:پ¦18è,€X³49¥66:پ¦16:‹ًڑڑ#1.X‚ **********END OF PRINT ROUTINE 1***********************Rl…ے†(&HFA1B)³255§PR$³"PC":پ¥7140vv…ے†(&HFA1C)³255§PR$³"PD":پ¥7140ڑ€…ے†(&HFA1E)³255§PR$³"PE":پ¥7140؟ٹ…ے†(&HFA25)³255§PR$³"PSE":پ¥7140و”…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140 ‍…ے†(&HFA24)³255§PR$³"P2441":پ¥7140 A¨…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140 u²…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140 ©¼…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140 فئ…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140!ذ…ے†(&HFA23)³255§PR$³"P8615":LR³18:پ¦9010:پ¥7140!عLR³0:پ¥3!0نسPR$«"/BAS",R!Q@‚ ********** BACKWARDS CALLS!„I…ے†(&HFA22)³255±ے†(&HFA2C)³255§PR$³"PA":پ¥7140!›JPR$³"P1040":پ¥7140!ش#(‚ ********** SUBROUTINES ***************************!ه#2’&HFA38,LR:گ"#<‚ **********DISK DIRECTORY SUBROUTINE ***************"?#FQ$³"1990 /BAS":DD³3:PC³0"¬#P€S³3¥11:ك0,17,S,X$,Y$:€X³1¥4:DI$(X)³ےگ(X$,(X32)¬31,32):‹X:€X³1¥4:DI$(X«4)³ےگ(Y$,(X32)¬31,32):‹X:€X³1¥8"ة#Z…ےژ(DI$(X),1)³ے‹(0)§9080"è#d…ےژ(DI$(X),1)³ے‹(255)§9090##n…DD³3§…Q$³ےژ(DI$(X),8)«"/"«ےگ(DI$(X),9,3)§PC³1#%#x‹X:‹S#4#‚…PC³1§9120#z#Œ‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE"#–#–Q$³ے’:…Q$³""§9110:„9030#œ# گ#ج#ھ‚ ********** SCREEN DIRECTORY *************#ظ#´‍:‡A$(1)$ #¾‡ے،(5,&H83)«"MASTER PRINT DIRECTORY"«ے،(5,&H83)$5#ب‡@128,"A FORM 1040 H FORM 2106"$]#ز‡@160,"B SCHEDULE A I FORM 2441"$ˆ#ـ‡@192,"C SCHEDULE B J FORM 4562(C)"$´#و‡@224,"D SCHEDULE C K FORM 4562(E)A"$à#ً‡@256,"E SCHEDULE D L FORM 4562(E)B"%#ْ‡@288,"F SCHEDULE E N FORM 4562(E)C"%4$‡@320,"G SCHEDULE SE O FORM 8615"%K$‡@448,ے،(32,&H83);%l$‡@487,"SELECT OR ";%“$"€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹%د$,Q$³ے’:…Q$³""§9260:„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§LR³50:پ¥3&4$6Q³ےٹ(Q$)¬64:ˆ Q پ¥9280,9290,1010,9300,9310,9320,9330,9340,9350,9360,9370,9380,3,9390,9400:پ¥9260&K$@PR$³"P1040":پ¥7140&…$J…ے†(&HFA22)³255±ے†(&HFA2C)³255§PR$³"PA":پ¥7140::„9430&؟$O…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140::„9430&ê$T…ے†(&HFA1B)³255§PR$³"PC":پ¥7140::„9430'$^…ے†(&HFA1C)³255§PR$³"PD":پ¥7140::„9430'@$h…ے†(&HFA1E)³255§PR$³"PE":پ¥7140::„9430'l$r…ے†(&HFA25)³255§PR$³"PSE":پ¥7140::„9430'ڑ$|…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140::„9430'ب$†…ے†(&HFA24)³255§PR$³"P2441":پ¥7140::„9430($گ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140::„9430(>$ڑ…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140::„9430(y$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140::„9430(´$®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140::„9430(é$¸…ے†(&HFA23)³255§PR$³"P8615":پ¦9010:پ¥7140::„9430(ِ$آLR³0:پ¥3)$جسPR$«"/BAS",R)$ض 50,1:پ¥9260"P4562":LR³18:پ¦9010:پ¥7140::„9430(y$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140::„9430(´$®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140::„9430(é$¸…ے†(&HFA23)³255§PR$³"P8615":پ¦9010:پ¥7140::„9430(ِ$آLR³0:پ¥3)$جسPR$ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے-O> OR ";&2$"€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹&n$,Q$³ے’:…Q$³""§9260:„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§LR³50:پ¥3&س$6Q³ےٹ(Q$)¬64:ˆ Q پ¥9280,1010,9290,9300,9310,9320,9330,9340,9350,9360,9370,9380,3,9390,9400:پ¥9260&ê$@PR$³"P1040":پ¥7140'$$E…ے†(&HFA22)³255±ے†(&HFA2C)³255§PR$³"PA":پ¥7140::„9430'^$J…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140::„9430'‰$T…ے†(&HFA1B)³255§PR$³"PC":پ¥7140::„9430'´$^…ے†(&HFA1C)³255§PR$³"PD":پ¥7140::„9430'ك$h…ے†(&HFA1E)³255§PR$³"PE":پ¥7140::„9430($r…ے†(&HFA25)³255§PR$³"PSE":پ¥7140::„9430(9$|…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140::„9430(g$†…ے†(&HFA24)³255§PR$³"P2441":پ¥7140::„9430(¢$گ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140::„9430(ف$ڑ…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140::„9430)$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140::„9430)S$®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140::„9430)ژ$¸…ے†(&HFA23)³255§PR$³"P8615":LR³18:پ¦9010:پ¥7140::„9430)›$آLR³0:پ¥3)$جسPR$«"/BAS",R)¾$ض 50,1:پ¥9260":LR³18:پ¦9010:پ¥7140::„9430)$¤…ے†(&HFA2A)³255§PR$³"P4562":Lےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےپ¥110L‚ **********LEAD ROUTINES & SUBROUTINES*********************°‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE":پ¦4:پ¦9030:پ¦9010:ژ"1040/BAS"ئQ$³ے’:…Q$³""§4:„گّ 200,2:’&HFA3E,&HE0:’&HFA3F,&H01:’&HFA3A,SN:گ=‡@487,"///";:€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹GQ$³ے’©پ¦4:…Q$³""§8::„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§9140::„…ےٹ(Q$)³94§X$³"1":„…ےٹ(Q$)³10§X$³"2"::„X$³""¯ گ» ‰#1,PS$ض…PS$³""§PS$³ے،(82," ")ٍ…PS$³"*"§PS$³ے،(82,"*") …PS$³"-"§PS$³ے،(82,"-")#PS$³ےڈ(PS$,79):گ9ےگ(PS$,T)³E$(V):گ]پ¦30:گ :ƒPRINT DIRECT FROM DISKyپ¦40:گ :ƒPRINT 1 STRING”پ¦50:گ :ƒPRINT 1 VALUE؛پ¦60:گ :ƒPRINT 1 STRING & 1 VALUEضپ¦70:گ :ƒPRINT 2 VALUES3پ¦10:T³8:Q$³A$(1):ےگ(PS$,T)³Q$:T³69:Q$³A$(7):ےگ(PS$,T)³Q$:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$B‡#¬2,PS$:گc‚ *** PRINT DIRECT FROM DISK‹پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$¢ ‡#¬2,PS$:LN³LN«1:گ½(‚ *** PRINT ONE STRINGê)پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$*‡#¬2,PS$:LN³LN«1:گ2‚ *** PRINT ONE VALUEC3پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$f4‡#¬2,ح PS$;ے‰(E$(V)):LN³LN«1:گچ<‚ *** PRINT ONE STRING & ONE VALUE؛=پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ف>‡#¬2,ح PS$;ے‰(E$(W)):LN³LN«1:گّF‚ *** PRINT TWO VALUES Gپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$MH‡#¬2,ح PS$;ے‰(E$(V)),ے‰(E$(W)):LN³LN«1:گŒd‚ **********MEMORY, ARRAYS, DEFINITIONS, DISK LOAD *******·n•5500:¹ےƒ3³&HFA09:¹ےƒ4³&HFA0C:ŒE$(100)دxUN$³"":X³&HFA30:Y³2â‚…ے†(X«2)³0§Y³1ُŒ…ے†(X«1)³0§Y³0–…ے†(X)³0§170, €Z³X ¥X«Y:A³ے†(Z):UN$³UN$«ے‹(A):‹DھUF$³"":X³&HFA33:Y³2W´…ے†(X«2)³0§Y³1j¾…ے†(X«1)³0§Y³0{ب…ے†(X)³0§220،ز€Z³X ¥X«Y:A³ے†(Z):UF$³UF$«ے‹(A):‹³ـLR³ے†(&HFA38)ôوSN³0:پ¦5:€V³1¥7:Y³ےƒ3(0):A$(V)³ے،(Y," "):Z³ےƒ4(ے‌(A$(V))):‹V6ًSN³4:پ¦5:€V³1¥54:Y³ےƒ3(0):E$(V)³ے،(Y," "):Z³ےƒ4(ے‌(E$(V))):‹VTè‚ ********** PB/BAS *****¥ٍ‍:‡A$(1):‡@168,"ALIGN BLANK PAPER":‡@236,"SCHEDULE B":پ¦6:ˆے‰(X$)پ¥8009,7020»ü™ "I",#1,"PB/PRT"ؤLN³1ض€X³1¥8:پ¦16:‹é`پ¦21 :ƒLINE 10ٍjپ¦16ûtپ¦16~پ¦16ˆT³21:V³1:W³2:پ¦19-’پ¦16 :ƒLINE 146—پ¦16KœT³6:V³3:W³4:پ¦19`¦T³6:V³5:W³6:پ¦19u°T³6:V³7:W³8:پ¦19•؛T³6:V³9:W³10:پ¦19 :ƒLINE 19¬ؤT³6:V³11:W³12:پ¦19أخT³6:V³13:W³14:پ¦19عطT³6:V³15:W³16:پ¦19ٌâT³6:V³17:W³18:پ¦19ىT³6:V³19:ے؟پ¥110L‚ **********LEAD ROUTINES & SUBROUTINES*********************°‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE":پ¦4:پ¦9030:پ¦9010:ژ"1040/BAS"ئQ$³ے’:…Q$³""§4:„گّ 200,2:’&HFA3E,&HE0:’&HFA3F,&H01:’&HFA3A,SN:گ=‡@487,"///";:€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹GQ$³ے’©پ¦4:…Q$³""§8::„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§9140::„…ےٹ(Q$)³94§X$³"1":„…ےٹ(Q$)³10§X$³"2"::„X$³""¯ گ» ‰#1,PS$ض…PS$³""§PS$³ے،(82," ")ٍ…PS$³"*"§PS$³ے،(82,"*") …PS$³"-"§PS$³ے،(82,"-")#PS$³ےڈ(PS$,79):گ9ےگ(PS$,T)³D$(V):گ]پ¦30:گ :ƒPRINT DIRECT FROM DISKyپ¦40:گ :ƒPRINT 1 STRING”پ¦50:گ :ƒPRINT 1 VALUE؛پ¦60:گ :ƒPRINT 1 STRING & 1 VALUEضپ¦70:گ :ƒPRINT 2 VALUESپ¦10:T³8:V³1:پ¦25:T³69:V³7:پ¦25:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$.‡#¬2,PS$:LN³LN«1Dےگ(PS$,T)³A$(V):گe‚ *** PRINT DIRECT FROM DISKچپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$¤ ‡#¬2,PS$:LN³LN«1:گ؟(‚ *** PRINT ONE STRINGى)پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$*‡#¬2,PS$:LN³LN«1:گ2‚ *** PRINT ONE VALUEE3پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$h4‡#¬2,ح PS$;ے‰(D$(V)):LN³LN«1:گڈ<‚ *** PRINT ONE STRING & ONE VALUE¼=پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ك>‡#¬2,ح PS$;ے‰(D$(W)):LN³LN«1:گْF‚ *** PRINT TWO VALUES"Gپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$OH‡#¬2,ح PS$;ے‰(D$(V)),ے‰(D$(W)):LN³LN«1:گژd‚ **********MEMORY, ARRAYS, DEFINITIONS, DISK LOAD *******¹n•5500:¹ےƒ3³&HFA09:¹ےƒ4³&HFA0C:ŒD$(100)رxUN$³"":X³&HFA30:Y³2ن‚…ے†(X«2)³0§Y³1÷Œ…ے†(X«1)³0§Y³0–…ے†(X)³0§170. €Z³X ¥X«Y:A³ے†(Z):UN$³UN$«ے‹(A):‹FھUF$³"":X³&HFA33:Y³2Y´…ے†(X«2)³0§Y³1l¾…ے†(X«1)³0§Y³0}ب…ے†(X)³0§220£ز€Z³X ¥X«Y:A³ے†(Z):UF$³UF$«ے‹(A):‹µـLR³ے†(&HFA38)ِوSN³0:پ¦5:€V³1¥7:Y³ےƒ3(0):A$(V)³ے،(Y," "):Z³ےƒ4(ے‌(A$(V))):‹V8ًSN³3:پ¦5:€V³1¥37:Y³ےƒ3(0):D$(V)³ے،(Y," "):Z³ےƒ4(ے‌(D$(V))):‹VVè‚ ********** PA/BAS *****§ٍ‍:‡A$(1):‡@168,"ALIGN BLANK PAPER":‡@236,"SCHEDULE A":پ¦6:ˆے‰(X$)پ¥8010,7010½ü™ "I",#1,"PA/PRT"ئLN³1طپ¦16 :ƒLINE 1لپ¦16êپ¦16َ$پ¦16.پ¦16 :ƒLINE 58پ¦16Bپ¦16 Lپ¦21)Vپ¦16<`پ¦16 :ƒLINE 10IjV³1:پ¦18WtV³25:پ¦18e~V³26:پ¦18sˆV³27:پ¦18†’پ¦16 :ƒLINE 15ڈœپ¦16œ¦V³2:پ¦18©°V³3:پ¦18¶؛V³5:پ¦18رؤT³6:V³4:پ¦17 :ƒLINE 20كخV³28:پ¦18èطپ¦16ٌâپ¦16ْىپ¦16ِV³6:پ¦18 :ƒLINE 25پ¦16' V³7:پ¦18sپ¦10:T³6:Q$³D$(8)«" "«D$(9):ےگ(PS$,T)³Q$:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ˆ‡#¬2,PS$:LN³LN«1–V³10:پ¦18®(V³11:پ¦18 :ƒLINE 30¼2V³12:پ¦18ت TO CONTINUE"$5#–Q$³ے’:…Q$³""§9110:„9030$;# گ$k#ھ‚ ********** SCREEN DIRECTORY *************$x#´‍:‡A$(1)$¬#¾‡ے،(5,&H83)«"MASTER PRINT DIRECTORY"«ے،(5,&H83)$ش#ب‡@128,"A FORM 1040 H FORM 2106"$ü#ز‡@160,"B SCHEDULE A I FORM 2441"%'#ـ‡@192,"C SCHEDULE B J FORM 4562(C)"%S#و‡@224,"D SCHEDULE C K FORM 4562(E)A"%#ً‡@256,"E SCHEDULE D L FORM 4562(E)B"%«#ْ‡@288,"F SCHEDULE E N FORM 4562(E)C"%س$‡@320,"G SCHEDULE SE O FORM 8615"%ê$‡@448,ے،(32,&H83);&$‡@487,"SELECT TO CONTINUE":پ¦5:پ¦9030:پ¦9010:ژ"1040/BAS"إ€X³1¥Y:‡#¬2:‹X:گغQ$³ے’:…Q$³""§5:„گî‡#¬2,¤T);Q$;:گ 200,2:’&HFA3E,&HE0:’&HFA3F,&H01:’&HFA3A,SN:گ5T³50¬ےڑ(¬2):پ¥10J T³65¬ےڑ(¬2):پ¥10^ T$³ے،(T," ")«V$z‡#¬2,حT$;ے‰(Q$):T$³"":گ؟‡@487,"///";:€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹ة Q$³ے’ پ¦5:…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§9140::„…ےٹ(Q$)³94§X$³"1":„…ےٹ(Q$)³10§X$³"2"::„X$³""&گ`‍:‡@138,"ALIGN MARKER":‡@230," TO CONTINUE":گںd‚ **********MEMORY, ARRAYS, DEFINITIONS, DISK LOAD *******àn•5500:¹ےƒ3³&HFA09:¹ےƒ4³&HFA0C:ŒA$(100),B$(100):V$³"########"ٍxLR³ے†(&HFA38)5‚SN³0:پ¦7:€V³1¥100:Y³ےƒ3(0):A$(V)³ے،(Y," "):Z³ےƒ4(ے‌(A$(V))):‹VxŒSN³1:پ¦7:€V³1¥100:Y³ےƒ3(0):B$(V)³ے،(Y," "):Z³ےƒ4(ے‌(B$(V))):‹V·è‚ **********FORM P1040/BAS *******************************ٍ‍:‡A$(1):‡@132,"ALIGN THE FRONT SIDE OF":‡@166,"FORM 1040 IN PRINTER":پ¦12:ˆے‰(X$)پ¥1010,2010%üY³4:پ¦4>‡#¬2,¤50);"XXXXXXXX"M‍:پ¦16:پ¦5V‡#¬2گ$T³17:Q$³A$(1):پ¦6:‡#¬2,¤63);ےژ(A$(7),3)" "ےڈ(A$(7),8)™.‡#¬2¼3…A$(9)³"3"§X$³A$(11):„X$³A$(8)ً8T³17:Q$³A$(2):پ¦6:‡#¬2,¤63);ےژ(X$,3)" "ےڈ(X$,8)ùB‡#¬2LT³17:Q$³A$(3):پ¦6:‡#¬2V‡#¬2I`T³17:Q$³A$(4)«", "«A$(5)«" "«A$(6):پ¦6Rj‡#¬2^tY³2:پ¦4چ~T³16:Q$³"XX":…A$(9)³"1"§پ¦6:Y³6:پ¦4:پ¥1240–ˆ‡#¬2¸’…A$(9)³"2"§پ¦6:Y³5:پ¦4:پ¥1240ءœ‡#¬2ُ¦…A$(9)³"3"§پ¦6:‡#¬2,¤58);A$(10);:Y³4:پ¦4:پ¥1240°Y³2:پ¦45؛…A$(9)³"4"§پ¦6:‡#¬2,¤41);A$(12);:Y³2:پ¦4:پ¥1240>ؤ‡#¬2hخ…A$(9)³"5"§پ¦6:‡#¬2,¤52);A$(13):„‡#¬2‰طQ$³"XX":…A$(14)³"X"§T³15:پ¦6£â‡#¬2:‡#¬2,¤73);A$(78)ؤىQ$³"XX":…A$(15)³"X"§T³15:پ¦6ذِY³2:پ¦4ه‡#¬2,¤73);A$(79)M T³16:Q$³A$(16):پ¦6:T³33:Q$³A$(17):پ¦6:T³36:Q$³A$(18):پ¦6:T³48:Q$³A$(19):پ¦6:T³59:Q$³A$(20):پ¦6:‡#¬2µT³16:Q$³A$(21):پ¦6:T³33:Q$³A$(22):پ¦6:T³36:Q$³A$(23):پ¦6:T³48:Q$³A$(24):پ¦6:T³59:Q$³A$(25):پ¦6:‡#¬2T³16:Q$³A$(26):پ¦6:T³33:Q$³A$(27):پ¦6:T³36:Q$³A$(28):پ¦6:T³48:Q$³A$(29):پ¦6:T³59:Q$³A$(30):پ¦6:‡#¬2‘(T³16:Q$³A$(31):پ¦6:T³33:Q$³A$(32):پ¦6:T³36:Q$³A$(33):پ¦6:T³48:Q$³A$(34):پ¦6:T³59:Q$³A$(35):پ¦6:‡#¬2,¤73);A$(80)2T³16:Q$³A$(36):پ¦6:T³33:Q$³A$(37):پ¦6:T³36:Q$³A$(38):پ¦6:T³48:Q$³A$(39):پ¦6:T³59:Q$³A$(40):پ¦6:‡#¬2,¤73);A$(81)m €X³86¥87:Q$³A$(X):پ¦9:‹PھQ$³A$(58):پ¦9b´Q$³A$(59):پ¦9ڑ¾T$³ے،(33," ")«V$:‡#¬2,حT$;ے‰(A$(60));:Q$³A$(61):پ¦9زبT$³ے،(33," ")«V$:‡#¬2,حT$;ے‰(A$(62));:Q$³A$(63):پ¦9نزQ$³A$(88):پ¦9ـ€X³65¥66:Q$³A$(X):پ¦9:‹8وT$³ے،(33," ")«V$:‡#¬2,حT$;ے‰(A$(77));:Q$³A$(89):پ¦9]ًT³39:Q$³A$(68):پ¦6:Q$³A$(69):پ¦9oْQ$³A$(90):پ¦9‡‚ ***** ADJUSTMENTS£€X³91¥94:Q$³A$(X):پ¦8:‹؟€X³73¥74:Q$³A$(X):پ¦8:‹ن"T³32:Q$³A$(76):پ¦6:Q$³A$(75):پ¦8ِ,Q$³A$(95):پ¦9ے6‡#¬2 @Q$³A$(96):پ¦9 JY³4:پ¦4 Wذ‚ ********** FORM 1040 BACK SIDE ******************** ¸ع‍:‡A$(1):‡@133,"ALIGN THE BACK SIDE OF":‡@166,"FORM 1040 IN PRINTER":پ¦12:ˆے‰(X$)پ¥1010,8010 ؤنY³2:پ¦4 فî‡#¬2,¤63);" XXXXXXX" ىّ‍:پ¦16:پ¦5!Q$³B$(50):پ¦9:Q$³"XX"!…B$(1)³"Y"§T³18:پ¦6!6…B$(2)³"Y"§T³30:پ¦6!N …B$(3)³"Y"§T³36:پ¦6!f*…B$(4)³"Y"§T³50:پ¦6!o4‡#¬2!„>‡#¬2,¤58);B$(51)!œH…B$(5)³"Y"§T³57:پ¦6!¨RY³2:پ¦4!ہ\…B$(6)³"Y"§T³57:پ¦6!جfY³2:پ¦4!قpQ$³B$(52):پ¦9!çz‡#¬2"„…B$(7)³"Y"§Q$³"XX":T³50:پ¦6:‡#¬2:„‡#¬2".ژ€X³53¥55:Q$³B$(X):پ¦9:‹":کQ$³"XX""R¢…B$(8)³"Y"§T³26:پ¦6"j¬…B$(9)³"Y"§T³33:پ¦6"ƒ¶…B$(10)³"Y"§T³48:پ¦6"Œہ‡#¬2"¹تQ$³B$(11):T³43:پ¦6:Q$³B$(56):پ¦9:Q$³"XX""زش…B$(13)³"Y"§T³36:پ¦6"ëق…B$(14)³"Y"§T³47:پ¦6"‎èQ$³B$(12):پ¦9#ٍQ$³B$(57):پ¦9#!üQ$³B$(58):پ¦8#3 Q$³B$(16):پ¦8#E Q$³B$(17):پ¦8#V ‡#¬2:Q$³"XX"#o $…B$(19)³"Y"§T³14:پ¦6#œ .…B$(20)³"Y"§:T³26:پ¦6:T³36:Q$³B$(21):پ¦6#® 8Q$³B$(18):پ¦8#ہ BQ$³B$(22):پ¦8#ـ L€X³59¥61:Q$³B$(X):پ¦9:‹#î VQ$³B$(24):پ¦9$ `Q$³"XX":…B$(26)³"Y"§T³36:پ¦6$( j…B$(27)³"Y"§T³47:پ¦6$: tQ$³B$(25):پ¦9$V ~€X³28¥30:Q$³B$(X):پ¦9:‹$h ˆQ$³B$(62):پ¦9$q ’‡#¬2$’ œQ$³"XX":…B$(32)³"Y"§T³18:پ¦6$¤ ¦Q$³B$(31):پ¦8$¶ °Q$³B$(33):پ¦8$ب ؛Q$³B$(63):پ¦8$ع ؤQ$³B$(35):پ¦8$ى خQ$³B$(64):پ¦8% ط€X³37¥38:Q$³B$(X):پ¦8:‹%$ â€X³65¥67:Q$³B$(X):پ¦9:‹%6 ىQ$³B$(39):پ¦8%D ِ‡#¬2:‡#¬2%V Q$³B$(68):پ¦9%h Q$³B$(40):پ¦8%t Y³3:پ¦4%‰ ‡#¬2,¤56);B$(41)%’ (‡#¬2%§ 2‡#¬2,¤56);B$(42)%ُ <:ƒ** PROGRAMMING NOTES - EDIT LINES BELOW TO INCLUDE PREPARER'S NAME, ETC& F‡#¬2:ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےأؤا إاة ئئئئباؤؤ!"#آ%ا'ب)*بئ-ا/01ئ34ء67بةب;<=>أ@AآےےP1040 BAS —PA BASآPA PRTے$àPB BASPB PRTے&0PC BAS(×PC-1 PRTےŒPC-2 PRTے+HPD BAS¥PD-1 PRTے,ژPD-2 PRTےëPE BAS.çPE-1 PRTےçPE-2 PRTےIPSE BAS2LPSE PRTےڑP2106 BAS5P2106-1 PRTے1P2106-2 PRTے ;P2441 BASوP2441-1 PRTے8شP2441-2 PRTے9‡P4562 BAS:ƒP4562-1 PRTےگP4562-2 PRTے²P8615 BAS?‰P8615 PRTےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے‡#¬2&Q P‡#¬2 :ƒPRINT#-2,TAB(26);"PREPARER'S NAME";:PRINT#-2,TAB(65);"00-0000000""&ڑ Z‡#¬2 :ƒPRINT#-2,TAB(26);"PREPARER'S ADDRESS";:PRINT#-2,TAB(66);"ZIP"&¬ d€X³1¥5:‡#¬2:‹&ê@‚ **********END OF PRINT ROUTINE 1***********************'J…ے†(&HFA22)³255§PR$³"PA":پ¥8150'AT…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥8150'e^…ے†(&HFA1B)³255§PR$³"PC":پ¥8150'‰h…ے†(&HFA1C)³255§PR$³"PD":پ¥8150'r…ے†(&HFA1E)³255§PR$³"PE":پ¥8150'ز|…ے†(&HFA25)³255§PR$³"PSE":پ¥8150'ù†…ے†(&HFA1D)³255§PR$³"P2106":پ¥8150( گ…ے†(&HFA24)³255§PR$³"P2441":پ¥8150(Tڑ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥8150(ˆ¤…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥8150(¼®…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥8150(ً¸…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥8150)آ…ے†(&HFA23)³255§PR$³"P8615":پ¦9010:پ¥8150)+جLR³0:پ¥3)=ضسPR$«"/BAS",R)v#(‚ ********** SUBROUTINES ***************************)‡#2’&HFA38,LR:گ)ء#<‚ **********DISK DIRECTORY SUBROUTINE ***************)ل#FQ$³"1990 /BAS":DD³3:PC³0*N#P€S³3¥11:ك0,17,S,X$,Y$:€X³1¥4:DI$(X)³ےگ(X$,(X32)¬31,32):‹X:€X³1¥4:DI$(X«4)³ےگ(Y$,(X32)¬31,32):‹X:€X³1¥8*k#Z…ےژ(DI$(X),1)³ے‹(0)§9080*ٹ#d…ےژ(DI$(X),1)³ے‹(255)§9090*½#n…DD³3§…Q$³ےژ(DI$(X),8)«"/"«ےگ(DI$(X),9,3)§PC³1*ا#x‹X:‹S*ض#‚…PC³1§9120+#Œ‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE"+8#–Q$³ے’:…Q$³""§9110:„9030+># گ+n#ھ‚ ********** SCREEN DIRECTORY *************+{#´‍:‡A$(1)+¯#¾‡ے،(5,&H83)«"MASTER PRINT DIRECTORY"«ے،(5,&H83)+×#ب‡@128,"A FORM 1040 H FORM 2106"+ے#ز‡@160,"B SCHEDULE A I FORM 2441",*#ـ‡@192,"C SCHEDULE B J FORM 4562(C)",V#و‡@224,"D SCHEDULE C K FORM 4562(E)A",‚#ً‡@256,"E SCHEDULE D L FORM 4562(E)B",®#ْ‡@288,"F SCHEDULE E N FORM 4562(E)C",ض$‡@320,"G SCHEDULE SE O FORM 8615",ي$‡@448,ے،(32,&H83);-$‡@485,"SELECT OR ";-9$"€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹-u$,Q$³ے’:…Q$³""§9260:„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§LR³50:پ¥3-ع$6Q³ےٹ(Q$)¬64:ˆ Q پ¥1010,9290,9300,9310,9320,9330,9340,9350,9360,9370,9380,9390,3,9400,9410:پ¥9260-َ$@LR³0:PR$³"P1040":پ¥3.$J…ے†(&HFA22)³255§PR$³"PA":پ¥8150::„9420.X$T…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥8150::„9420.ƒ$^…ے†(&HFA1B)³255§PR$³"PC":پ¥8150::„9420.®$h…ے†(&HFA1C)³255§PR$³"PD":پ¥8150::„9420.ظ$r…ے†(&HFA1E)³255§PR$³"PE":پ¥8150::„9420/$|…ے†(&HFA25)³255§PR$³"PSE":پ¥8150::„9420/3$†…ے†(&HFA1D)³255§PR$³"P2106":پ¥8150::„9420/a$گ…ے†(&HFA24)³255§PR$³"P2441":پ¥8150::„9420/œ$ڑ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥8150::„9420/×$¤…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥8150::„94200$®…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥8150::„94200M$¸…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥8150::„94200‚$آ…ے†(&HFA23)³255§PR$³"P8615":پ¦9010:پ¥8150::„94200“$ج 50,1:پ¥9260:„9420/×$¤…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥8150::„94200$®…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "*" "05:SCHEDULE A - ITEMIZED DEDUCTIONS OMB No. 1545-0074" "06:(Form 1040) Attach Seq No. 07" "*" "08:Names: SocSecNo. 000-00-0000" "-" "10:***** MEDICAL AND DENTAL EXPENSES *********************************************" "11: 1. Medical and dental expenses ........................... 1 $ ####### " "12: 2. Enter amount from Form 1040, line 32 .................. 2 $ ####### " "13: 3. Multiply the amount on line 2 by 7.5% ................. 3 $ ####### " "14: 4. Subtract line 3 from line 1. If zero or less, enter 0. 4 $ ####### " "-" "16:***** TAXES YOU PAID **********************************************************" "17: 5. State and local income taxes .......................... 5 $ ####### " "18: 6. Real estate taxes ..................................... 6 $ ####### " "19: 7. Other taxes (List - include personal property tax) .... 7 $ ####### " "20: " "21: 8. Add the amounts on line 5 through 7. Enter total here . 8 $ ####### " "-" "23:***** INTEREST YOU PAID *******************************************************" "24: 9a. Deductible home mortgage interest (from Form 1098) that " "25: you paid to financial institutions .................... 9a $ ####### " "26: b. Other deductible home mortgage interest (if an individ- " "27: ual, show person's name and address: 9b $ ####### " "" "29:10. Deductible points. (See instructions for rules) ...... 10 $ ####### " "30:11. Deductible investment interest. (See page 28) ......... 11 $ ####### " "31:12a. Personal interest you paid (See page 28) .............. 12a $ ####### " "32: b. Multiply the amount on line 12a by 10%. Enter here ... 12b $ ####### " "33:13. Add the amounts on lines 9a through 11, and 12b ....... 13 $ ####### " "-" "35:***** GIFTS TO CHARITY ********************************************************" "36:14. Contributions by cash or check ........................ 14 $ ####### " "37:15. Other than cash or check (over $500 attach Form 8283) . 15 $ ####### " "38:16. Carryover from prior year ............................. 16 $ ####### " "39:17. Add the amounts on lines 14 through 16. Enter total .. 17 $ ####### " "-" "41:***** CASUALTY AND THEFT LOSSES ***********************************************" "42:18. Casualty or theft losses from Form 4684 ............... 18 $ ####### " "-" "44:***** MOVING EXPENSES *********************************************************" "45:19. Moving expenses from Form 3903 ........................ 19 $ ####### " "-" "47:***** JOB EXPENSES AND MOST OTHER MISCELLANEOUS DEDUCTIONS ********************" "48:20. Unreimbursed employee expenses-job travel, union dues, " "49: education, etc. ....................................... 20 $ ####### " "50:21. Other expenses (investment, tax prep, safe deposit) " "51: List: 21 $ ####### " "52:22. Add the amounts on lines 20 and 21. Enter total ...... 22 $ ####### " "53:23. Enter the amount on Form 1040, line 32 ................ 23 $ ####### " "54:24. Multiply the amount on line 23 by 2% .................. 24 $ ####### " "55:25. Subtract line 24 from line 22. Zero or less enter 0 .. 25 $ ####### " "-" "57:***** OTHER MISCELLANEOUS DEDUCTIONS ******************************************" "58:26. Other (from list on page 30 of Instructions) .......... 26 $ ####### " "-" "60:***** TOTAL ITEMIZED DEDUCTIONS ***********************************************" "61:27. Add the amounts on lines 4,8,13,17,18,19,25 and 26 .... 27 $ ####### " "*" "63:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "" "*" "06:SCHEDULE B - INTEREST AND DIVIDEND INCOME OMB No. 1545-0074" "07:(Form 1040) Attach Seq No. 08" "*" "09:Names: SocSecNo. 000-00-0000" "-" "11:***** PART I - INTEREST INCOME ************************************************" "12: 1. Interest income from seller-financed mortgages " "13: Name of payer: 1a $ ####### " "-" "15: 1. Other interest income. (List name of payer) " "16: 1b $ ####### " "17: 1c $ ####### " "18: 1d $ ####### " "19: 1e $ ####### " "20: 1f $ ####### " "21: 1g $ ####### " "22: 1h $ ####### " "23: 1i $ ####### " "24: 1j $ ####### " "25: 1k $ ####### " "-" "27: 2. Add the amounts on line 1. Enter total here .......... 3 $ ####### " "28: 3. Enter excludable savings bond interest from Form 8815 . 4 $ ####### " "29: 4. Subtract line 3 from line 2. Enter result here ....... 5 $ ####### " "*" "31:****** PART II - DIVIDEND INCOME **********************************************" "32: 5. Dividend income. (List name of payer) " "33: 5a $ ####### " "34: 5b $ ####### " "35: 5c $ ####### " "36: 5d $ ####### " "37: 5e $ ####### " "38: 5f $ ####### " "39: 5g $ ####### " "40: 5h $ ####### " "41: 5i $ ####### " "42: 5j $ ####### " "-" "44: 6. Add the amounts on line 5. Enter total here .......... 6 $ ####### " "45: 7. Capital gain distributions. Enter here & on Sched D ... 7 $ ####### " "46: 8. Nontaxable distributions. See instructions ........... 8 $ ####### " "47: 9. Add the amounts on lines 7 and 8. Enter total here ... 9 $ ####### " "48:10. Subtract line 9 from line 6. Enter the total here .... 10 $ ####### " "*" "50:****** PART III - FOREIGN ACCOUNTS AND FOREIGN TRUSTS *************************" "51: Yes No " "-" "53:11a. At any time during 1990, did you have an interest in or " "54: other authority over a financial account in a foreign " "55: country? See page 31 of the Instructions ............. 11a " "56:11b. If yes, enter the name of the foreign country: " "57: Name: " "58:12. Were you the grantor of, or transferor to, a foreign " "59: trust that existed during 1990, whether or not you have " "60: any beneficial interest in it? .........................11 " "*" "62:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" " " ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےشپ¥110L‚ **********LEAD ROUTINES & SUBROUTINES*********************°‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE":پ¦4:پ¦9030:پ¦9010:ژ"1040/BAS"ئQ$³ے’:…Q$³""§4:„گّ 200,2:’&HFA3E,&HE0:’&HFA3F,&H01:’&HFA3A,SN:گ=‡@487,"///";:€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹GQ$³ے’©پ¦4:…Q$³""§8::„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§9140::„…ےٹ(Q$)³94§X$³"1":„…ےٹ(Q$)³10§X$³"2"::„X$³""¯ گ» ‰#1,PS$ض…PS$³""§PS$³ے،(82," ")ٍ…PS$³"*"§PS$³ے،(82,"*") …PS$³"-"§PS$³ے،(82,"-")#PS$³ےڈ(PS$,79):گ9ےگ(PS$,T)³F$(V):گ]پ¦30:گ :ƒPRINT DIRECT FROM DISKyپ¦40:گ :ƒPRINT 1 STRING”پ¦50:گ :ƒPRINT 1 VALUE؛پ¦60:گ :ƒPRINT 1 STRING & 1 VALUEضپ¦70:گ :ƒPRINT 2 VALUESپ¦10:T³8:Q$³A$(1):ےگ(PS$,T)³Q$:T³69:Q$³A$(7):ےگ(PS$,T)³Q$:‡#¬2,PS$:گ@‚ *** PRINT DIRECT FROM DISKhپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ ‡#¬2,PS$:LN³LN«1:گڑ(‚ *** PRINT ONE STRINGا)پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ق*‡#¬2,PS$:LN³LN«1:گّ2‚ *** PRINT ONE VALUE 3پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$C4‡#¬2,ح PS$;ے‰(F$(V)):LN³LN«1:گj<‚ *** PRINT ONE STRING & ONE VALUE—=پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$؛>‡#¬2,ح PS$;ے‰(F$(W)):LN³LN«1:گصF‚ *** PRINT TWO VALUES‎Gپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$*H‡#¬2,ح PS$;ے‰(F$(V)),ے‰(F$(W)):LN³LN«1:گKP‚ *** SPECIAL FOR SCHEDULE CxQپ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$¥R‡#¬2,ح PS$;ے‰(F$(W)),ے‰(F$(U)):LN³LN«1:گنd‚ **********MEMORY, ARRAYS, DEFINITIONS, DISK LOAD *******n•5500:¹ےƒ3³&HFA09:¹ےƒ4³&HFA0C:ŒF$(100)'xUN$³"":X³&HFA30:Y³2:‚…ے†(X«2)³0§Y³1MŒ…ے†(X«1)³0§Y³0^–…ے†(X)³0§170„ €Z³X ¥X«Y:A³ے†(Z):UN$³UN$«ے‹(A):‹œھUF$³"":X³&HFA33:Y³2¯´…ے†(X«2)³0§Y³1آ¾…ے†(X«1)³0§Y³0سب…ے†(X)³0§220ùز€Z³X ¥X«Y:A³ے†(Z):UF$³UF$«ے‹(A):‹ـLR³ے†(&HFA38)LوSN³0:پ¦5:€V³1¥7:Y³ےƒ3(0):A$(V)³ے،(Y," "):Z³ےƒ4(ے‌(A$(V))):‹VژًSN³5:پ¦5:€V³1¥67:Y³ےƒ3(0):F$(V)³ے،(Y," "):Z³ےƒ4(ے‌(F$(V))):‹V¬è‚ ********** PC/BAS *****ٍ‍:‡A$(1):‡@168,"ALIGN BLANK PAPER":‡@231,"SCHEDULE C - SIDE 1":پ¦6:ˆے‰(X$)پ¥8010,1710ü™ "I",#1,"PC-1/PRT"'LN³19پ¦16 :ƒLINE 1Bپ¦16Kپ¦16T$پ¦16f.پ¦16 :ƒLINE 5o8پ¦16xBپ¦16پLپ¦16ٹVپ¦16‌`پ¦21 :ƒLINE 10¦jپ¦16ـtپ¦10:T³29:V³3:پ¦15:T³69:V³4:پ¦15:‡#¬2,PS$:LN³LN«1î~T³24:V³5:پ¦17$ˆپ¦10:T³24:V³6:پ¦15:T³69:V³7:پ¦15:‡#¬2,PS$:LN³LN«1=ٹ…F$(8)³"1"§Q$³"CASH"YŒ…F$(8)³"2"§Q$³"ACCRUAL"}ژ…F$(8)³"3"§Q$³"OTHER (SPECIFY)"ک’T³28:پ¦10:ےگ(PS$,T)³Q$»”…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ع–‡#¬2,PS$:LN³LN«1 :ƒLINE 15َک…F$(9)³"1"§Q$³"COST"™…F$(9)³"2"§Q$³"LOWER OF COST OR MARKET"Nڑ…F$(9)³"3"§Q$³"OTHER - ATTACH EXPLANATION"q›…F$(9)³"4"§Q$³"DOES NOT APPLY"ŒœT³47:پ¦10:ےگ(PS$,T)³Q$¯‍…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ؤ ‡#¬2,PS$:LN³LN«1×¥T³65:V³10:پ¦17ê¦T³65:V³11:پ¦17‎°T³65:V³12:پ¦17؛پ¦16 :ƒLINE 20#ؤT³36:V³13:پ¦17,خپ¦165طپ¦16>âپ¦16VىV³14:پ¦18 :ƒLINE 25dِV³16:پ¦18rV³66:پ¦18€ V³67:پ¦18ژV³56:پ¦18¦(V³17:پ¦18 :ƒLINE 30´2V³57:پ¦18½<پ¦16ئFپ¦16ظPV³18:W³33:پ¦20ٌZV³34:پ¦18 :ƒLINE 35 dV³19:W³35:پ¦20 nV³20:پ¦18 %xV³21:W³36:پ¦20 8‚V³22:W³37:پ¦20 UŒV³58:W³59:پ¦20 :ƒLINE 40 h–V³24:W³60:پ¦20 v V³38:پ¦18 ‰ھV³25:W³39:پ¦20 ’بپ¦16 ¹زT³43:V³40:W³26:U³41:پ¦80 :ƒLINE 45 ضـT³43:V³42:W³27:U³43:پ¦80 َوT³43:V³44:W³28:U³45:پ¦80!ًT³43:V³46:W³29:U³47:پ¦80!ْV³30:پ¦18!6"V³61:پ¦18 :ƒLINE 50!D,V³31:پ¦18!R6V³32:پ¦18![@پ¦16!iJV³62:پ¦18!|Lپ¦16 :ƒLINE 55!ٹNV³63:پ¦18!“Oپ¦16!¦PT³76:V³48:پ¦17!¹ST³76:V³49:پ¦17!جTپ¦16 :ƒLINE 60!ص^پ¦16!قhپ¦16!çrپ¦16!ً|پ¦16"†پ¦16 :ƒLINE 65"گپ¦16 :ƒLINE 66"ڑڑ#1"2¤‚ ****** SIDE 2"Œ®‍:‡A$(1):‡@168,"ALIGN BLANK PAPER":‡@231,"SCHEDULE C - SIDE 2":پ¦6:ˆے‰(X$)پ¥1010,7030"¤³™ "I",#1,"PC-2/PRT""¸LN³1"؟آپ¦16 :ƒLINE 1"بجپ¦16"رضپ¦16"عàپ¦16"ىêپ¦16 :ƒLINE 5"ُôپ¦16"‏‏پ¦16#پ¦16#پ¦16##پ¦21 :ƒLINE 10#,&پ¦16#50پ¦16#>:پ¦16#LDV³50:پ¦18#dNV³51:پ¦18 :ƒLINE 15#rXV³52:پ¦18#€bV³53:پ¦18#ژlV³54:پ¦18#œvV³64:پ¦18#´€V³55:پ¦18 :ƒLINE 20#آٹV³65:پ¦18#ض”€X³22¥66:پ¦16:‹#قذڑ#1$X‚ **********END OF PRINT ROUTINE 1***********************$@v…ے†(&HFA1C)³255§PR$³"PD":پ¥7140$d€…ے†(&HFA1E)³255§PR$³"PE":پ¥7140$‰ٹ…ے†(&HFA25)³255§PR$³"PSE":پ¥7140$°”…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140$×‍…ے†(&HFA24)³255§PR$³"P2441":پ¥7140%¨…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140%?²…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140%s¼…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140%§ئ…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140%غذ…ے†(&HFA23)³255§PR$³"P8615":LR³18:پ¦9010:پ¥7140%èعLR³0:پ¥3%ْنسPR$«"/BAS",R&@‚ ********** BACKWARDS CALLS&NH…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140&rI…ے†(&HFA22)³255§PR$³"PA":پ¥7140&‰JPR$³"P1040":پ¥7140&آ#(‚ ********** SUBROUTINES ***************************&س#2’&HFA38,LR:گ' #<‚ **********DISK DIRECTORY SUBROUTINE ***************'-#FQ$³"1990 /BAS":DD³3:PC³0'ڑ#P€S³3¥11:ك0,17,S,X$,Y$:€X³1¥4:DI$(X)³ےگ(X$,(X32)¬31,32):‹X:€X³1¥4:DI$(X«4)³ےگ(Y$,(X32)¬31,32):‹X:€X³1¥8'·#Z…ےژ(DI$(X),1)³ے‹(0)§9080'ض#d…ےژ(DI$(X),1)³ے‹(255)§9090( #n…DD³3§…Q$³ےژ(DI$(X),8)«"/"«ےگ(DI$(X),9,3)§PC³1(#x‹X:‹S("#‚…PC³1§9120(h#Œ‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE"(„#–Q$³ے’:…Q$³""§9110:„9030(ٹ# گ(؛#ھ‚ ********** SCREEN DIRECTORY *************(ا#´‍:‡A$(1)(û#¾‡ے،(5,&H83)«"MASTER PRINT DIRECTORY"«ے،(5,&H83))##ب‡@128,"A FORM 1040 H FORM 2106")K#ز‡@160,"B SCHEDULE A I FORM 2441")v#ـ‡@192,"C SCHEDULE B J FORM 4562(C)")¢#و‡@224,"D SCHEDULE C K FORM 4562(E)A")خ#ً‡@256,"E SCHEDULE D L FORM 4562(E)B")ْ#ْ‡@288,"F SCHEDULE E N FORM 4562(E)C"*"$‡@320,"G SCHEDULE SE O FORM 8615"*9$‡@448,ے،(32,&H83);*Z$‡@487,"SELECT OR ";*پ$"€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹*½$,Q$³ے’:…Q$³""§9260:„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§LR³50:پ¥3+"$6Q³ےٹ(Q$)¬64:ˆ Q پ¥9280,9290,9300,1010,9310,9320,9330,9340,9350,9360,9370,9380,3,9390,9400:پ¥9260+9$@PR$³"P1040":پ¥7140+d$J…ے†(&HFA22)³255§PR$³"PA":پ¥7140::„9430+‍$T…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140::„9430+ة$^…ے†(&HFA1C)³255§PR$³"PD":پ¥7140::„9430+ô$h…ے†(&HFA1E)³255§PR$³"PE":پ¥7140::„9430, $r…ے†(&HFA25)³255§PR$³"PSE":پ¥7140::„9430,N$|…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140::„9430,|$†…ے†(&HFA24)³255§PR$³"P2441":پ¥7140::„9430,·$گ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140::„9430,ٍ$ڑ…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140::„9430--$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140::„9430-h$®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140::„9430-£$¸…ے†(&HFA23)³255§PR$³"P8615":LR³18:پ¦9010:پ¥7140::„9430-°$آLR³0:پ¥3-آ$جسPR$«"/BAS",R-س$ض 50,1:پ¥9260":LR³18:پ¦9010:پ¥7140::„9430--$¤…ے†(&HFAےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "" "05: Page 2 " "*" "07:SCHEDULE C - PROFIT OR LOSS FROM BUSINESS OMB No. 1545-0074" "08:(Form 1040) Attach Seq No. 09" "*" "10:Names: SocSecNo. 000-00-0000" "-" "*" "13:PART III - COST OF GOODS SOLD AND/OR OPERATIONS " "14:31. Inventory at beginning of year ........................ 31. $ ####### " "15:32. Purchases less cost of items withdrawn for personal use 32. $ ####### " "16:33. Cost of Labor ......................................... 33. $ ####### " "17:34. Materials and supplies ................................ 34. $ ####### " "18:35. Other costs ........................................... 35. $ ####### " "19:36. Add lines 31 through 35 ............................... 36. $ ####### " "20:37. Inventory at end of year .............................. 37. $ ####### " "21:38. Cost of goods sold and/or operations .................. 38. $ ####### " "-" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "*" "61:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" "" " " ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "" "" "*" "07:SCHEDULE D - CAPITAL GAINS AND LOSSES OMB No. 1545-0074" "08:(Form 1040) Attach Seq No.12A" "*" "10:Names: SocSecNo. 000-00-0000" "-" "12: 1. Report here the total sales of stocks, bonds, etc., " "13: reported to you on Forms 1099(B) or equivalent form ... 1 $ ####### " "-" "*" "16:PART I - SHORT TERM CAPITAL GAINS AND LOSSES - Assets held less than 1 year " "17: (a) (b) (c) (d) (e) (f) (g) " "18:Description Purchase Sold Price Cost Loss Gain " "-" "20: 2a. Stocks, Bonds, and Other Securities: " "-" "22: ####### ####### ####### ####### " "23: ####### ####### ####### ####### " "24: ####### ####### ####### ####### " "25: ####### ####### ####### ####### " "26: ####### ####### ####### ####### " "27: 2b. Amounts from Schedule D-1 " "28: 2c. Total of column (d) ####### " "29: 2d. Other Transactions: " "30: ####### ####### ####### ####### " "31: ####### ####### ####### ####### " "-" "33: 3. Short term gain from sale or exchange of home . 3 ####### " "34: 4. Short term gain from installment sales ........ 4 ####### " "35: 5. Net short term gain/loss from partnerships, etc 5 ####### ####### " "36: 6. Short term capital loss carryover ............. 6 ####### " "37: 7. Add all of the transactions, columns (f) & (g) 7 ####### ####### " "38: 8. Net short term gain/loss, combine cols (f)&(g). 8 ####### " "*" "40: PART II - LONG TERM CAPITAL GAINS AND LOSSES - Assets held more than 1 year " "41: 9a. Stocks, Bonds, and Other Securities: " "-" "43: ####### ####### ####### ####### " "44: ####### ####### ####### ####### " "45: ####### ####### ####### ####### " "46: ####### ####### ####### ####### " "47: ####### ####### ####### ####### " "48: 9b. Amounts from Schedule D-1 " "49: 9c. Total of column (d) ####### " "50: 9d. Other Transactions: " "51: ####### ####### ####### ####### " "52: ####### ####### ####### ####### " "-" "54:10. Long term gain from sale or exchange of home .. 10 ####### " "55:11. Long term gain from installment sales ......... 11 ####### " "56:12. Net long term gain/loss from partnerships, etc. 12 ####### ####### " "57:13. Capital gain distributions .................... 13 ####### " "58:14. Enter gain from Form 4797, line 7 or 9 ........ 14 ####### " "59:15. Long term capital loss carryover .............. 15 ####### " "60:16. Add lines 9a, 9b, 9d, and 10 through 15 ....... 16 ####### ####### " "61:17. Net long term gain/loss, combine 16(f) & (g) ...17 ####### " "*" "63:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" " ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے نپ¥110L‚ **********LEAD ROUTINES & SUBROUTINES*********************°‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE":پ¦4:پ¦9030:پ¦9010:ژ"1040/BAS"ئQ$³ے’:…Q$³""§4:„گّ 200,2:’&HFA3E,&HE0:’&HFA3F,&H01:’&HFA3A,SN:گ=‡@487,"///";:€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹GQ$³ے’©پ¦4:…Q$³""§8::„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§9140::„…ےٹ(Q$)³94§X$³"1":„…ےٹ(Q$)³10§X$³"2"::„X$³""¯ گ» ‰#1,PS$ض…PS$³""§PS$³ے،(82," ")ٍ…PS$³"*"§PS$³ے،(82,"*") …PS$³"-"§PS$³ے،(82,"-")#PS$³ےڈ(PS$,79):گ9ےگ(PS$,T)³H$(V):گ]پ¦30:گ :ƒPRINT DIRECT FROM DISKyپ¦40:گ :ƒPRINT 1 STRING”پ¦50:گ :ƒPRINT 1 VALUE؛پ¦60:گ :ƒPRINT 1 STRING & 1 VALUEضپ¦70:گ :ƒPRINT 2 VALUESپ¦10:T³8:Q$³A$(1):ےگ(PS$,T)³Q$:T³69:Q$³A$(7):ےگ(PS$,T)³Q$:‡#¬2,PS$:گ@‚ *** PRINT DIRECT FROM DISKhپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ ‡#¬2,PS$:LN³LN«1:گڑ(‚ *** PRINT ONE STRINGا)پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ق*‡#¬2,PS$:LN³LN«1:گّ2‚ *** PRINT ONE VALUE 3پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$C4‡#¬2,ح PS$;ے‰(H$(V)):LN³LN«1:گj<‚ *** PRINT ONE STRING & ONE VALUE—=پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$؛>‡#¬2,ح PS$;ے‰(H$(W)):LN³LN«1:گصF‚ *** PRINT TWO VALUES‎Gپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$*H‡#¬2,ح PS$;ے‰(H$(V)),ے‰(H$(W)):LN³LN«1:گVP‚ *** SPECIAL FOR SCHEDULE E - 4 VALUES~Qپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$أW‡#¬2,ح PS$;ے‰(H$(V)),ے‰(H$(V«1)),ے‰(H$(V«2)),ے‰(H$(W)):LN³LN«1:گïZ‚ *** SPECIAL FOR SCHEDULE E - 3 VALUES[پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$R\‡#¬2,ح PS$;ے‰(H$(V)),ے‰(H$(V«1)),ے‰(H$(V«2)):LN³LN«1:گ‹_‚ *** SPECIAL FOR SCHEDULE E - 1 STRING AND 3 VALUES¸`پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ُa‡#¬2,ح PS$;ے‰(H$(V«1)),ے‰(H$(V«2)),ے‰(H$(V«3)):LN³LN«1:گ4d‚ **********MEMORY, ARRAYS, DEFINITIONS, DISK LOAD *******gn•5500:¹ےƒ3³&HFA09:¹ےƒ4³&HFA0C:ŒH$(100),I$(100)xUN$³"":X³&HFA30:Y³2’‚…ے†(X«2)³0§Y³1¥Œ…ے†(X«1)³0§Y³0¶–…ے†(X)³0§170ـ €Z³X ¥X«Y:A³ے†(Z):UN$³UN$«ے‹(A):‹ôھUF$³"":X³&HFA33:Y³2´…ے†(X«2)³0§Y³1¾…ے†(X«1)³0§Y³0+ب…ے†(X)³0§220Qز€Z³X ¥X«Y:A³ے†(Z):UF$³UF$«ے‹(A):‹cـLR³ے†(&HFA38)¤وSN³0:پ¦5:€V³1¥7:Y³ےƒ3(0):A$(V)³ے،(Y," "):Z³ےƒ4(ے‌(A$(V))):‹VçëSN³7:پ¦5:€V³1¥100:Y³ےƒ3(0):H$(V)³ے،(Y," "):Z³ےƒ4(ے‌(H$(V))):‹V)ًSN³8:پ¦5:€V³1¥85:Y³ےƒ3(0):I$(V)³ے،(Y," "):Z³ےƒ4(ے‌(I$(V))):‹VGè‚ ********** PE/BAS *****،ٍ‍:‡A$(1):‡@168,"ALIGN BLANK PAPER":‡@231,"SCHEDULE E - SIDE 1":پ¦6:ˆے‰(X$)پ¥8010,1710¹ü™ "I",#1,"PE-1/PRT"آLN³1شپ¦16 :ƒLINE 1فپ¦16وپ¦16ï$پ¦16.پ¦16 :ƒLINE 5 8پ¦16Bپ¦16Lپ¦16%Vپ¦168`پ¦16 :ƒLINE 10Ajپ¦16Jtپ¦21S~پ¦16\ˆپ¦16o’پ¦16 :ƒLINE 15x—پ¦16ٹœT³19:V³1:پ¦17œ¦T³19:V³4:پ¦17®°T³19:B³7:پ¦17ء؛پ¦16 :ƒLINE 20تؤپ¦16سخپ¦16هطT³19:V³2:پ¦17÷ِT³19:V³5:پ¦17T³19:V³8:پ¦17 :ƒLINE 25پ¦16%پ¦168 V³10:W³79:پ¦80KV³13:W³80:پ¦80^(پ¦16 :ƒLINE 30g2پ¦16u¤V³82:پ¦10018%O¦V³83:پ¦10018%`¨V³84:پ¦10018%uھ€X³50¥57:پ¦16:‹X%†¬V³85:پ¦10018%ڑ®€X³59¥66:پ¦16:‹%¢ذڑ#1%àX‚ **********END OF PRINT ROUTINE 1***********************&ٹ…ے†(&HFA25)³255§PR$³"PSE":پ¥7140&,”…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140&S‍…ے†(&HFA24)³255§PR$³"P2441":پ¥7140&‡¨…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140&»²…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140&ï¼…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140'#ئ…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140'Wذ…ے†(&HFA23)³255§PR$³"P8615":LR³18:پ¦9010:پ¥7140'dعLR³0:پ¥3'vنسPR$«"/BAS",R'—@‚ ********** BACKWARDS CALLS'»F…ے†(&HFA1C)³255§PR$³"PD":پ¥7140'كG…ے†(&HFA1B)³255§PR$³"PC":پ¥7140(H…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140(6I…ے†(&HFA22)³255§PR$³"PA":پ¥7140(MJPR$³"P1040":پ¥7140(†#(‚ ********** SUBROUTINES ***************************(—#2’&HFA38,LR:گ(ر#<‚ **********DISK DIRECTORY SUBROUTINE ***************(ٌ#FQ$³"1990 /BAS":DD³3:PC³0)^#P€S³3¥11:ك0,17,S,X$,Y$:€X³1¥4:DI$(X)³ےگ(X$,(X32)¬31,32):‹X:€X³1¥4:DI$(X«4)³ےگ(Y$,(X32)¬31,32):‹X:€X³1¥8){#Z…ےژ(DI$(X),1)³ے‹(0)§9080)ڑ#d…ےژ(DI$(X),1)³ے‹(255)§9090)ح#n…DD³3§…Q$³ےژ(DI$(X),8)«"/"«ےگ(DI$(X),9,3)§PC³1)×#x‹X:‹S)و#‚…PC³1§9120*,#Œ‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE"*H#–Q$³ے’:…Q$³""§9110:„9030*N# گ*~#ھ‚ ********** SCREEN DIRECTORY **************‹#´‍:‡A$(1)*؟#¾‡ے،(5,&H83)«"MASTER PRINT DIRECTORY"«ے،(5,&H83)*ç#ب‡@128,"A FORM 1040 H FORM 2106"+#ز‡@160,"B SCHEDULE A I FORM 2441"+:#ـ‡@192,"C SCHEDULE B J FORM 4562(C)"+f#و‡@224,"D SCHEDULE C K FORM 4562(E)A"+’#ً‡@256,"E SCHEDULE D L FORM 4562(E)B"+¾#ْ‡@288,"F SCHEDULE E N FORM 4562(E)C"+و$‡@320,"G SCHEDULE SE O FORM 8615"+‎$‡@448,ے،(32,&H83);,$‡@487,"SELECT OR ";,E$"€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹,پ$,Q$³ے’:…Q$³""§9260:„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§LR³50:پ¥3,و$6Q³ےٹ(Q$)¬64:ˆ Q پ¥9280,9290,9300,9305,9310,1010,9330,9340,9350,9360,9370,9380,3,9390,9400:پ¥9260,‎$@PR$³"P1040":پ¥7140-($J…ے†(&HFA22)³255§PR$³"PA":پ¥7140::„9430-b$T…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140::„9430-چ$Y…ے†(&HFA1B)³255§PR$³"PC":پ¥7140::„9430-¸$^…ے†(&HFA1C)³255§PR$³"PD":پ¥7140::„9430-م$h…ے†(&HFA1E)³255§PR$³"PE":پ¥7140::„9430.$r…ے†(&HFA25)³255§PR$³"PSE":پ¥7140::„9430.=$|…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140::„9430.k$†…ے†(&HFA24)³255§PR$³"P2441":پ¥7140::„9430.¦$گ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140::„9430.ل$ڑ…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140::„9430/$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140::„9430/W$®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140::„9430/’$¸…ے†(&HFA23)³255§PR$³"P8615":LR³18:پ¦9010:پ¥7140::„9430/ں$آLR³0:پ¥3/±$جسPR$«"/BAS",R/آ$ض 50,1:پ¥9260/ع'‚ ***** I$ ROUTINES/ً'ےگ(PS$,T)³I$(V):گ0'!پ¦10040:گ :ƒPRINT 1 STRING0-'"پ¦10050:گ :ƒPRINT 1 VALUE0V'#پ¦10060:گ :ƒPRINT 1 STRING & 1 VALUE0u'$پ¦10070:گ :ƒPRINT 2 VALUES0گ'8‚ *** PRINT ONE STRING0¸'9پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$0×':پ¦10015:‡#¬2,PS$:LN³LN«1:گ0ٌ'B‚ *** PRINT ONE VALUE1'Cپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$1<'D‡#¬2,ح PS$;ے‰(I$(V)):LN³LN«1:گ1c'L‚ *** PRINT ONE STRING & ONE VALUE1‹'Mپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$1³'Nپ¦15:‡#¬2,ح PS$;ے‰(I$(W)):LN³LN«1:گ1خ'V‚ *** PRINT TWO VALUES1ِ'Wپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$2#'X‡#¬2,ح PS$;ے‰(I$(V)),ے‰(I$(W)):LN³LN«1:گ2O'`‚ *** SPECIAL FOR SCHEDULE E - 5 VALUES2w'aپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$2ت'g‡#¬2,ح PS$;ے‰(I$(V)),ے‰(I$(V«1)),ے‰(I$(V«2)),ے‰(I$(V«3)),ے‰(I$(V«4)):LN³LN«1:گ2ِ'j‚ *** SPECIAL FOR SCHEDULE E - 3 VALUES3'kپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$3U'l‡#¬2,ح PS$;ے‰(I$(V)),ے‰(I$(W)),ے‰(I$(U)):LN³LN«1:گ3r't‚ *** PRINT FIVE STRINGS3{'~پ¦103Œ'ˆT³10:پ¦100153£'’T³36:V³V«1:پ¦100153؛'œT³48:V³V«1:پ¦100153ر'¦T³55:V³V«1:پ¦100154'«Q$³"XX":…I$(V)³"Y"§T³69:ےگ(PS$,T)³Q$::„T³76:ےگ(PS$,T)³Q$41'؟…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$4H'ؤ‡#¬2,PS$:LN³LN«1:گ4t'ط‚ *** SPECIAL FOR SCHEDULE E - 4 VALUES4œ'âپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$4م'ى‡#¬2,ح PS$;ے‰(I$(V)),ے‰(I$(V«1)),ے‰(I$(V«2)),ے‰(I$(V«3)):LN³LN«1:گY"§T³69:ےگ(PS$,T)³Q$::„T³ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےIپ¥110L‚ **********LEAD ROUTINES & SUBROUTINES*********************°‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE":پ¦4:پ¦9030:پ¦9010:ژ"1040/BAS"ئQ$³ے’:…Q$³""§4:„گّ 200,2:’&HFA3E,&HE0:’&HFA3F,&H01:’&HFA3A,SN:گ=‡@487,"///";:€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹GQ$³ے’©پ¦4:…Q$³""§8::„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§9140::„…ےٹ(Q$)³94§X$³"1":„…ےٹ(Q$)³10§X$³"2"::„X$³""¯ گ» ‰#1,PS$ض…PS$³""§PS$³ے،(82," ")ٍ…PS$³"*"§PS$³ے،(82,"*") …PS$³"-"§PS$³ے،(82,"-")#PS$³ےڈ(PS$,79):گ9ےگ(PS$,T)³U$(V):گ]پ¦30:گ :ƒPRINT DIRECT FROM DISKyپ¦40:گ :ƒPRINT 1 STRING”پ¦50:گ :ƒPRINT 1 VALUE؛پ¦60:گ :ƒPRINT 1 STRING & 1 VALUEضپ¦70:گ :ƒPRINT 2 VALUESپ¦10:T³8:V³1:پ¦15:T³69:V³2:پ¦15:‡#¬2,PS$:گ&‚ *** PRINT DIRECT FROM DISKNپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$e ‡#¬2,PS$:LN³LN«1:گ€(‚ *** PRINT ONE STRING)پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ؤ*‡#¬2,PS$:LN³LN«1:گق2‚ *** PRINT ONE VALUE3پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$)4‡#¬2,ح PS$;ے‰(U$(V)):LN³LN«1:گP<‚ *** PRINT ONE STRING & ONE VALUE}=پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ >‡#¬2,ح PS$;ے‰(U$(W)):LN³LN«1:گ»F‚ *** PRINT TWO VALUESمGپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$H‡#¬2,ح PS$;ے‰(U$(V)),ے‰(U$(W)):LN³LN«1:گOd‚ **********MEMORY, ARRAYS, DEFINITIONS, DISK LOAD *******zn•5500:¹ےƒ3³&HFA09:¹ےƒ4³&HFA0C:ŒU$(100)’xUN$³"":X³&HFA30:Y³2¥‚…ے†(X«2)³0§Y³1¸Œ…ے†(X«1)³0§Y³0ة–…ے†(X)³0§170ï €Z³X ¥X«Y:A³ے†(Z):UN$³UN$«ے‹(A):‹ھUF$³"":X³&HFA33:Y³2´…ے†(X«2)³0§Y³1-¾…ے†(X«1)³0§Y³0>ب…ے†(X)³0§220dز€Z³X ¥X«Y:A³ے†(Z):UF$³UF$«ے‹(A):‹vـLR³ے†(&HFA38)·وSN³0:پ¦5:€V³1¥7:Y³ےƒ3(0):A$(V)³ے،(Y," "):Z³ےƒ4(ے‌(A$(V))):‹VًْSN³20:پ¦5:€V³1¥10:Y³ےƒ3(0):U$(V)³ے،(Y," "):Z³ےƒ4(ے‌(U$(V))):‹Vè‚ ********** PSE/BAS *****kٍ‍:‡A$(1):‡@168,"ALIGN BLANK PAPER":‡@235,"SCHEDULE SE":پ¦6:ˆے‰(X$)پ¥8010,7060‚ü™ "I",#1,"PSE/PRT"‹LN³1‍€X³1¥14:پ¦16:‹±’پ¦21 :ƒLINE 15إ—€X³16¥19:پ¦16:‹ـ؛V³3:پ¦18 :ƒLINE 20éؤV³4:پ¦18ِخV³6:پ¦18طV³7:پ¦18âپ¦16#ىV³5:پ¦18 :ƒLINE 250ِV³8:پ¦18=V³9:پ¦18F پ¦16TV³10:پ¦18h(€X³30¥66:پ¦16:‹pڑڑ#1®X‚ **********END OF PRINT ROUTINE 1***********************ص”…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140ü‍…ے†(&HFA24)³255§PR$³"P2441":پ¥71400¨…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140d²…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140ک¼…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140جئ…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140ْذ…ے†(&HFA23)³255§PR$³"P8615":پ¦9010:پ¥7140عLR³0:پ¥3نسPR$«"/BAS",R:@‚ ********** BACKWARDS CALLS^E…ے†(&HFA1E)³255§PR$³"PE":پ¥7140‚F…ے†(&HFA1C)³255§PR$³"PD":پ¥7140¦G…ے†(&HFA1B)³255§PR$³"PC":پ¥7140تI…ے†(&HFA22)³255§PR$³"PA":پ¥7140لJPR$³"P1040":پ¥7140#(‚ ********** SUBROUTINES ***************************+#2’&HFA38,LR:گe#<‚ **********DISK DIRECTORY SUBROUTINE ***************…#FQ$³"1990 /BAS":DD³3:PC³0ٍ#P€S³3¥11:ك0,17,S,X$,Y$:€X³1¥4:DI$(X)³ےگ(X$,(X32)¬31,32):‹X:€X³1¥4:DI$(X«4)³ےگ(Y$,(X32)¬31,32):‹X:€X³1¥8 #Z…ےژ(DI$(X),1)³ے‹(0)§9080 .#d…ےژ(DI$(X),1)³ے‹(255)§9090 a#n…DD³3§…Q$³ےژ(DI$(X),8)«"/"«ےگ(DI$(X),9,3)§PC³1 k#x‹X:‹S z#‚…PC³1§9120 ہ#Œ‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE" ـ#–Q$³ے’:…Q$³""§9110:„9030 â# گ!#ھ‚ ********** SCREEN DIRECTORY *************!#´‍:‡A$(1)!S#¾‡ے،(5,&H83)«"MASTER PRINT DIRECTORY"«ے،(5,&H83)!{#ب‡@128,"A FORM 1040 H FORM 2106"!£#ز‡@160,"B SCHEDULE A I FORM 2441"!خ#ـ‡@192,"C SCHEDULE B J FORM 4562(C)"!ْ#و‡@224,"D SCHEDULE C K FORM 4562(E)A""&#ً‡@256,"E SCHEDULE D L FORM 4562(E)B""R#ْ‡@288,"F SCHEDULE E N FORM 4562(E)C""z$‡@320,"G SCHEDULE SE O FORM 8615""‘$‡@448,ے،(32,&H83);"²$‡@487,"SELECT OR ";"ظ$"€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹#$,Q$³ے’:…Q$³""§9260:„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§LR³50:پ¥3#z$6Q³ےٹ(Q$)¬64:ˆ Q پ¥9280,9290,9295,9300,9310,9320,1010,9340,9350,9360,9370,9380,3,9390,9400:پ¥9260#‘$@PR$³"P1040":پ¥7140#¼$J…ے†(&HFA22)³255§PR$³"PA":پ¥7140::„9430#è$O…ے†(&HFA25)³255§PR$³"PSE":پ¥7140::„9430$$T…ے†(&HFA1B)³255§PR$³"PC":پ¥7140::„9430$>$^…ے†(&HFA1C)³255§PR$³"PD":پ¥7140::„9430$i$h…ے†(&HFA1E)³255§PR$³"PE":پ¥7140::„9430$•$r…ے†(&HFA25)³255§PR$³"PSE":پ¥7140::„9430$أ$|…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140::„9430$ٌ$†…ے†(&HFA24)³255§PR$³"P2441":پ¥7140::„9430%,$گ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140::„9430%g$ڑ…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140::„9430%¢$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140::„9430%ف$®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140::„9430&$¸…ے†(&HFA23)³255§PR$³"P8615":LR³18:پ¦9010:پ¥7140::„9430&%$آLR³0:پ¥3&7$جسPR$«"/BAS",R&H$ض 50,1:پ¥9260":LR³18:پ¦9010:پ¥7140::„9430%¢$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140::„9430%ف$®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140::„9430&$¸…ے†(&HFA23)³255§PR$³"P8615":Lےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےپ¥110L‚ **********LEAD ROUTINES & SUBROUTINES*********************°‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE":پ¦4:پ¦9030:پ¦9010:ژ"1040/BAS"ئQ$³ے’:…Q$³""§4:„گّ 200,2:’&HFA3E,&HE0:’&HFA3F,&H01:’&HFA3A,SN:گ=‡@487,"///";:€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹GQ$³ے’©پ¦4:…Q$³""§8::„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§9140::„…ےٹ(Q$)³94§X$³"1":„…ےٹ(Q$)³10§X$³"2"::„X$³""¯ گ» ‰#1,PS$ض…PS$³""§PS$³ے،(82," ")ٍ…PS$³"*"§PS$³ے،(82,"*") …PS$³"-"§PS$³ے،(82,"-")#PS$³ےڈ(PS$,79):گ9ےگ(PS$,T)³R$(V):گ]پ¦30:گ :ƒPRINT DIRECT FROM DISKyپ¦40:گ :ƒPRINT 1 STRING”پ¦50:گ :ƒPRINT 1 VALUE؛پ¦60:گ :ƒPRINT 1 STRING & 1 VALUEضپ¦70:گ :ƒPRINT 2 VALUES3پ¦10:T³8:Q$³A$(1):ےگ(PS$,T)³Q$:T³69:Q$³A$(7):ےگ(PS$,T)³Q$:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$J‡#¬2,PS$:LN³LN«1:گk‚ *** PRINT DIRECT FROM DISK“پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ھ ‡#¬2,PS$:LN³LN«1:گإ(‚ *** PRINT ONE STRINGٍ)پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ *‡#¬2,PS$:LN³LN«1:گ#2‚ *** PRINT ONE VALUEK3پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$n4‡#¬2,ح PS$;ے‰(R$(V)):LN³LN«1:گ•<‚ *** PRINT ONE STRING & ONE VALUEآ=پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ه>‡#¬2,ح PS$;ے‰(R$(W)):LN³LN«1:گF‚ *** PRINT TWO VALUES(Gپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$UH‡#¬2,ح PS$;ے‰(R$(V)),ے‰(R$(W)):LN³LN«1:گqP‚ *** PRINT TWO STRINGS’Qپ¦10:T³61:پ¦15:T³72:V³W:پ¦15µS…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$حW‡#¬2, PS$:LN³LN«1:گùZ‚ *** SPECIAL FOR SCHEDULE E - 3 VALUES![پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$\\‡#¬2,ح PS$;ے‰(R$(V)),ے‰(R$(V«1)),ے‰(R$(V«2)):LN³LN«1:گ•_‚ *** SPECIAL FOR SCHEDULE E - 1 STRING AND 3 VALUESآ`پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ےa‡#¬2,ح PS$;ے‰(R$(V«1)),ے‰(R$(V«2)),ے‰(R$(V«3)):LN³LN«1:گ>d‚ **********MEMORY, ARRAYS, DEFINITIONS, DISK LOAD *******in•5500:¹ےƒ3³&HFA09:¹ےƒ4³&HFA0C:ŒR$(100)پxUN$³"":X³&HFA30:Y³2”‚…ے†(X«2)³0§Y³1§Œ…ے†(X«1)³0§Y³0¸–…ے†(X)³0§170ق €Z³X ¥X«Y:A³ے†(Z):UN$³UN$«ے‹(A):‹ِھUF$³"":X³&HFA33:Y³2 ´…ے†(X«2)³0§Y³1¾…ے†(X«1)³0§Y³0-ب…ے†(X)³0§220Sز€Z³X ¥X«Y:A³ے†(Z):UF$³UF$«ے‹(A):‹eـLR³ے†(&HFA38)¦وSN³0:پ¦5:€V³1¥7:Y³ےƒ3(0):A$(V)³ے،(Y," "):Z³ےƒ4(ے‌(A$(V))):‹VêëSN³17:پ¦5:€V³1¥100:Y³ےƒ3(0):R$(V)³ے،(Y," "):Z³ےƒ4(ے‌(R$(V))):‹Vè‚ ********** P2106/BAS *****dٍ‍:‡A$(1):‡@168,"ALIGN BLANK PAPER":‡@231,"FORM 2106 - SIDE 1":پ¦6:ˆے‰(X$)پ¥8004,1710ü™ "I",#1,"P2106-1/PRT"ˆLN³1¥€X³1¥15:پ¦16:‹ :ƒLINE 15®œپ¦21ہ¦T³45:V³3:پ¦17ق°€X³18¥28:پ¦16:‹ :ƒLINE 28ىV³50:پ¦18(V³4:پ¦18 :ƒLINE 302V³5:پ¦18 TO CONTINUE"'—#–Q$³ے’:…Q$³""§9110:„9030'‌# گ'ح#ھ‚ ********** SCREEN DIRECTORY *************'ع#´‍:‡A$(1)(#¾‡ے،(5,&H83)«"MASTER PRINT DIRECTORY"«ے،(5,&H83)(6#ب‡@128,"A FORM 1040 H FORM 2106"(^#ز‡@160,"B SCHEDULE A I FORM 2441"(‰#ـ‡@192,"C SCHEDULE B J FORM 4562(C)"(µ#و‡@224,"D SCHEDULE C K FORM 4562(E)A"(ل#ً‡@256,"E SCHEDULE D L FORM 4562(E)B") #ْ‡@288,"F SCHEDULE E N FORM 4562(E)C")5$‡@320,"G SCHEDULE SE O FORM 8615")L$‡@448,ے،(32,&H83);)m$‡@487,"SELECT OR ";)”$"€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹)ذ$,Q$³ے’:…Q$³""§9260:„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§LR³50:پ¥3*5$6Q³ےٹ(Q$)¬64:ˆ Q پ¥9280,9290,9300,9305,9310,9320,9330,1010,9350,9360,9370,9380,3,9390,9400:پ¥9260*L$@PR$³"P1040":پ¥7140*w$J…ے†(&HFA22)³255§PR$³"PA":پ¥7140::„9430*±$T…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140::„9430*ـ$Y…ے†(&HFA1B)³255§PR$³"PC":پ¥7140::„9430+$^…ے†(&HFA1C)³255§PR$³"PD":پ¥7140::„9430+2$h…ے†(&HFA1E)³255§PR$³"PE":پ¥7140::„9430+^$r…ے†(&HFA25)³255§PR$³"PSE":پ¥7140::„9430+Œ$|…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140::„9430+؛$†…ے†(&HFA24)³255§PR$³"P2441":پ¥7140::„9430+ُ$گ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥7140::„9430,0$ڑ…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥7140::„9430,k$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140::„9430,¦$®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140::„9430,غ$¸…ے†(&HFA23)³255§PR$³"P8615":پ¦9010:پ¥7140::„9430,è$آLR³0:پ¥3,ْ$جسPR$«"/BAS",R-$ض 50,1:پ¥9260"P4562":LR³18:پ¦9010:پ¥7140::„9430,k$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥7140::„9430,¦$®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥7140::„9430,غ$¸…ے†(&HFA23)³255§PR$³"P8615":پ¦9010:پ¥7140::„9430,è$آLR³0:پ¥3,ْ$جسPR$«"/BAS",R-$ضےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے"" "" "" "" "" "" "" "" "" "*" "11:FORM 2441 - CHILD AND DEPENDENT CARE EXPENSES OMB No. 1545-0068" "12: Attach Seq No.21 " "*" "14:Name(s): SocSecNo. 000-00-0000" "-" "" "*" "18:PART I PERSONS OR ORGANIZATIONS WHO PROVIDED THE CARE " "*" "20: 1. (a) Name (b) Address (c) EIN (d) Amount" "-" " $ ######" "" "-" "" "" "-" "" "" "-" "31: 2. Add the amounts in column (d) and enter total ............. 2 $ ####### " "*" "33:PART II CREDIT FOR CHILD AND DEPENDENT CARE EXPENSES " "*" "35: 3. Enter the number of qualifying persons .................... 3 ## " "36: 4. Enter the amount of qualified expenses .................... 4 $ ####### " "37: 5. Enter $2,400 ($4,800 if filing married joint) ............. 5 $ ####### " "38: 6. Enter the excluded benefits, if any, from line 25 ......... 6 $ ####### " "39: 7. Subtract line 6 from line 5 and enter the result .......... 7 $ ####### " "40: 8. Compare the amounts on lines 4 and 7. Enter the smaller ... 8 $ ####### " "41: 9. You must enter your earned income ......................... 9 $ ####### " "42:10. If married filing joint, enter your spouse's earned income 10 $ ####### " "43:11. If married joint, compare lines 9&10. Enter the smaller ... 11 $ ####### " "44:12. If married joint, compare lines 8&11. Enter the smaller ... 12 $ ####### " "45: All others compare lines 8&9. Enter the smaller here " "46:13. Enter the decimal amount from the table ................... 13 ##.### " "47:14. Multiply the amount on line 12 by line 13 ................. 14 $ ####### " "48:15. Multiply 1989 expenses paid in 1990 by the percentage " "49: that applied to the 1989 adjusted gross income ............ 15 $ ####### " "50:16. Add the amounts on lines 14 and 15 ........................ 16 $ ####### " "" "-" "53:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "*" "13:FORM 2441 - CHILD AND DEPENDENT CARE EXPENSES - Page 2 OMB No. 1545-0068" "14: Attach Seq No.21 " "*" "16:Name(s): SocSecNo. 000-00-0000" "-" "" "*" "20:PART III EMPLOYER-PROVIDED DEPENDENT CARE BENEFITS " "*" "22:17. Enter total employer-provided benefits received in 1990 .. 17 $ ####### " "23:18. Enter the amount forfeited, if any (see instructions) .... 18 $ ####### " "24:19. Subtract line 18 from line 17 ............................ 19 $ ####### " "25:20. Enter the total amount of 1990 qualified expenses ........ 20 $ ####### " "26:21. Compare lines 19 and 20 and enter the smaller here ....... 21 $ ####### " "27:22. You must enter your earned income ........................ 22 $ ####### " "28:23. If married at end of 1990, enter spouse's earned income .. 23 $ ####### " "29:24. If married at end of 1990, compare 22&23, enter smaller .. 24 $ ####### " "30: If unmarried, enter the amount from line 22 here " "31:25. Excluded benefits. Enter the smallest of: 25 $ ####### " "32: * the amount from line 21, or " "33: * the amount from line 24, or " "34: * $5,000 ($2,500 if filing married separately. " "35:26. Taxable benefits. Subtract line 25 from line 19 .......... 26 $ ####### " "36: Enter the result, but not less than zero. Also include " "37: this amount in the total on Form 1040, line 7 " "" "*" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "-" "55:For Paperwork Reduction Act Notice, See Form 1040 Instructions " "" "" "" "" "" "" "" "" "" "" "" " ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے&€پ¥110L‚ **********LEAD ROUTINES & SUBROUTINES*********************°‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE":پ¦4:پ¦9030:پ¦9010:ژ"1040/BAS"ئQ$³ے’:…Q$³""§4:„گّ 200,2:’&HFA3E,&HE0:’&HFA3F,&H01:’&HFA3A,SN:گ=‡@487,"///";:€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹GQ$³ے’©پ¦4:…Q$³""§8::„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§9140::„…ےٹ(Q$)³94§X$³"1":„…ےٹ(Q$)³10§X$³"2"::„X$³""¯ گ» ‰#1,PS$ض…PS$³""§PS$³ے،(82," ")ٍ…PS$³"*"§PS$³ے،(82,"*") …PS$³"-"§PS$³ے،(82,"-")#PS$³ےڈ(PS$,79):گ9ےگ(PS$,T)³X$(V):گ]پ¦30:گ :ƒPRINT DIRECT FROM DISKyپ¦40:گ :ƒPRINT 1 STRING”پ¦50:گ :ƒPRINT 1 VALUE؛پ¦60:گ :ƒPRINT 1 STRING & 1 VALUEضپ¦70:گ :ƒPRINT 2 VALUESپ¦10:T³8:Q$³A$(1):ےگ(PS$,T)³Q$:T³69:Q$³A$(7):ےگ(PS$,T)³Q$7…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$N‡#¬2,PS$:LN³LN«1:گo‚ *** PRINT DIRECT FROM DISK—پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$® ‡#¬2,PS$:LN³LN«1:گة(‚ *** PRINT ONE STRINGِ)پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ *‡#¬2,PS$:LN³LN«1:گ'2‚ *** PRINT ONE VALUEO3پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$r4‡#¬2,ح PS$;ے‰(X$(V)):LN³LN«1:گ™<‚ *** PRINT ONE STRING & ONE VALUEئ=پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$é>‡#¬2,ح PS$;ے‰(X$(W)):LN³LN«1:گF‚ *** PRINT TWO VALUES,Gپ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$YH‡#¬2,ح PS$;ے‰(X$(V)),ے‰(X$(W)):LN³LN«1:گژP‚ *** PRINT ONE STRING&TWO VALUES - MACRS PART 2ہQپ¦10:T³18:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ïW‡#¬2,ح PS$;ے‰(X$(V«1)),ے‰(X$(W)):LN³LN«1:گZ‚ *** SPECIAL FOR FORM 4562 - ELECTIONK[پ¦10:T³6:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$|]‡#¬2,ح PS$;ے‰(X$(V«1)),ے‰(X$(V«2)):LN³LN«1:گ¤_‚ *** SPECIAL FOR FORM 4562 - MACRS`پ¦10aT³42:V³V«1:پ¦15:T³53:V³V«1:پ¦15:T³62:V³V«1:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$/b‡#¬2,ح PS$;ے‰(X$(V¬3)),ے‰(X$(W)):LN³LN«1:گnd‚ **********MEMORY, ARRAYS, DEFINITIONS, DISK LOAD *******،n•5500:¹ےƒ3³&HFA09:¹ےƒ4³&HFA0C:ŒX$(100),Y$(100)¹xUN$³"":X³&HFA30:Y³2ج‚…ے†(X«2)³0§Y³1كŒ…ے†(X«1)³0§Y³0ً–…ے†(X)³0§170 €Z³X ¥X«Y:A³ے†(Z):UN$³UN$«ے‹(A):‹.ھUF$³"":X³&HFA33:Y³2A´…ے†(X«2)³0§Y³1T¾…ے†(X«1)³0§Y³0eب…ے†(X)³0§220‹ز€Z³X ¥X«Y:A³ے†(Z):UF$³UF$«ے‹(A):‹‌ـLR³ے†(&HFA38)قوSN³0:پ¦5:€V³1¥7:Y³ےƒ3(0):A$(V)³ے،(Y," "):Z³ےƒ4(ے‌(A$(V))):‹Vhç…LR³17§SN³9:پ¦5:€V³1¥100:Y³ےƒ3(0):X$(V)³ے،(Y," "):Z³ےƒ4(ے‌(X$(V))):‹V:SN³10:پ¦5:€V³1¥100:Y³ےƒ3(0):Y$(V)³ے،(Y," "):Z³ےƒ4(ے‌(Y$(V))):‹Vَè…LR³18§SN³11:پ¦5:€V³1¥100:Y³ےƒ3(0):X$(V)³ے،(Y," "):Z³ےƒ4(ے‌(X$(V))):‹V:SN³12:پ¦5:€V³1¥100:Y³ےƒ3(0):Y$(V)³ے،(Y," "):Z³ےƒ4(ے‌(Y$(V))):‹V~é…LR³19§SN³13:پ¦5:€V³1¥100:Y³ےƒ3(0):X$(V)³ے،(Y," "):Z³ےƒ4(ے‌(X$(V))):‹V:SN³14:پ¦5:€V³1¥100:Y³ےƒ3(0):Y$(V)³ے،(Y," "):Z³ےƒ4(ے‌(Y$(V))):‹V ê…LR³20§SN³15:پ¦5:€V³1¥100:Y³ےƒ3(0):X$(V)³ے،(Y," "):Z³ےƒ4(ے‌(X$(V))):‹V:SN³16:پ¦5:€V³1¥100:Y³ےƒ3(0):Y$(V)³ے،(Y," "):Z³ےƒ4(ے‌(Y$(V))):‹Vً…LR³17§TI³1:پ¥2805ْ…LR³18§TI³2:پ¥290K…LR³19§TI³3:پ¥300f…LR³20§TI³4:LR³0:پ¥310†…ے†(&HFA29)³255§LR³18:پ¥310¦"…ے†(&HFA2A)³255§LR³19:پ¥310ئ,…ے†(&HFA2B)³255§LR³20:پ¥310د1LR³0ه6‚ 'KEEP THIS LINE è‚ ********** P4562/BAS ***** _ٍ‍:‡A$(1):‡@168,"ALIGN BLANK PAPER":‡@231,"FORM 4562 - SIDE 1":پ¦6:ˆے‰(X$)پ¥8003,1710 zü™ "I",#1,"P4562-1/PRT" ƒLN³1 ‍€X³1¥7:پ¦16:‹ :ƒLINE 7 §پ¦21 ع…TI³1§Q$³"SCHEDULE C - SELF EMPLOYMENT INCOME"!…TI³2§Q$³"SCHEDULE E - RENTAL PROPERTY A"!6…TI³3§Q$³"SCHEDULE E - RENTAL PROPERTY B"!d…TI³4§Q$³"SCHEDULE E - RENTAL PROPERTY C"!پ¦10:T³33:ےگ(PS$,T)³Q$!¢…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$!·‡#¬2,PS$:LN³LN«1!ص$€X³10¥13:پ¦16:‹ :ƒLINE 13!â.V³1:پ¦18!ُ8پ¦16 :ƒLINE 15"BV³71:پ¦18"LV³72:پ¦18"Vپ¦16"'`V³2:پ¦90">jV³5:پ¦90 :ƒLINE 20"L°V³73:پ¦18"Z؛V³74:پ¦18"hؤV³75:پ¦18"uخV³8:پ¦18"چطV³76:پ¦18 :ƒLINE 25"›âV³77:پ¦18"©ىV³78:پ¦18"اِ€X³28¥32:پ¦16:‹ :ƒLINE 32"ظ2V³9:W³79:پ¦95"ى7V³14:W³80:پ¦95# TO CONTINUE"-#–Q$³ے’:…Q$³""§9110:„9030-## گ-S#ھ‚ ********** SCREEN DIRECTORY *************-`#´‍:‡A$(1)-”#¾‡ے،(5,&H83)«"MASTER PRINT DIRECTORY"«ے،(5,&H83)-¼#ب‡@128,"A FORM 1040 H FORM 2106"-ن#ز‡@160,"B SCHEDULE A I FORM 2441".#ـ‡@192,"C SCHEDULE B J FORM 4562(C)".;#و‡@224,"D SCHEDULE C K FORM 4562(E)A".g#ً‡@256,"E SCHEDULE D L FORM 4562(E)B".“#ْ‡@288,"F SCHEDULE E N FORM 4562(E)C".»$‡@320,"G SCHEDULE SE O FORM 8615".ز$‡@448,ے،(32,&H83);.َ$‡@487,"SELECT OR ";/$"€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹/V$,Q$³ے’:…Q$³""§9260:„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§LR³50:پ¥3/»$6Q³ےٹ(Q$)¬64:ˆ Q پ¥9280,9290,9300,9305,9310,9320,9330,9340,9350,1010,9370,9380,3,9390,9400:پ¥9260/ز$@PR$³"P1040":پ¥7140/‎$J…ے†(&HFA22)³255§PR$³"PA":پ¥7140::„943007$T…ے†(&HFA18)³255±ے†(&HFA19)³255§PR$³"PB":پ¥7140::„94300b$Y…ے†(&HFA1B)³255§PR$³"PC":پ¥7140::„94300چ$^…ے†(&HFA1C)³255§PR$³"PD":پ¥7140::„94300¸$h…ے†(&HFA1E)³255§PR$³"PE":پ¥7140::„94300ن$r…ے†(&HFA25)³255§PR$³"PSE":پ¥7140::„94301$|…ے†(&HFA1D)³255§PR$³"P2106":پ¥7140::„94301@$†…ے†(&HFA24)³255§PR$³"P2441":پ¥7140::„94301z$گ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥100::„94301´$ڑ…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥100::„94301î$¤…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥100::„94302($®…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥100::„94302]$¸…ے†(&HFA23)³255§PR$³"P8615":پ¦9010:پ¥7140::„94302j$آLR³0:پ¥32|$جسPR$«"/BAS",R2چ$ض 50,1:پ¥92602'‚ MISCELLANEOUS SUBROUTINES2·'‚ ADS2ك'$‚ *** SPECIAL FOR FORM 4562 - MACRS2è'.پ¦103+'8T³42:V³V«1:پ¦15:T³53:V³V«1:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$3Z'B‡#¬2,ح PS$;ے‰(X$(V¬2)),ے‰(X$(W)):LN³LN«1:گ3z'L‚ *** SPECIAL FOR FORM 45623ƒ'Vپ¦103¶'`T³53:V³V«1:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$3ه'j‡#¬2,ح PS$;ے‰(X$(V¬1)),ے‰(X$(W)):LN³LN«1:گ4't‚ *** SPECIAL FOR FORM 45624'~پ¦104;'ˆT³18:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$4j'’‡#¬2,ح PS$;ے‰(X$(V«1)),ے‰(X$(W)):LN³LN«1:گ4“:ک‚ *** SPECIAL FOR FORM 4562 - SIDE 24œ:¢پ¦105:¬T³1:پ¦20015:T³14:V³V«1:پ¦20015:T³47:V³V«3:پ¦20015:T³56:V³V«1:پ¦20015:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$5W:¶‡#¬2,ح PS$;ے‰(Y$(V¬3)),ے‰(Y$(V¬2)),ے‰(Y$(W)),ے‰(Y$(W«1)),ے‰(Y$(V«2)):LN³LN«1:گ5`:تپ¦105µ:شT³1:پ¦20015:T³14:V³V«1:پ¦20015:T³47:V³V«3:پ¦20015:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$5ü:ق‡#¬2,ح PS$;ے‰(Y$(V¬2)),ے‰(Y$(V¬1)),ے‰(Y$(W)),ے‰(Y$(W«1)):LN³LN«1:گ6%:ü‚ *** SPECIAL FOR FORM 4562 - SIDE 26M;پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$6–;‡#¬2,ح PS$;ے‰(Y$(V)),ے‰(Y$(V«6)),ے‰(Y$(V«12)),ے‰(Y$(V«18)):LN³LN«1:گ6؟;.‚ *** SPECIAL FOR FORM 4562 - SIDE 26ç;8پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$7.;B‡#¬2,ح PS$;ے‰(Y$(V)),ے‰(Y$(V«1)),ے‰(Y$(V«2)),ے‰(Y$(V«3)):LN³LN«1:گ7W;`‚ *** SPECIAL FOR FORM 4562 - SIDE 27`;jپ¦107پ;l…Y$(V)³"Y"§Q$³"YES":„Q$³"NO"7¤;n…Y$(V«6)³"Y"§R$³"YES":„R$³"NO"7ب;p…Y$(V«12)³"Y"§S$³"YES":„S$³"NO"7ى;r…Y$(V«18)³"Y"§T$³"YES":„T$³"NO"8i;tT³36:ےگ(PS$,T)³Q$:T³44:V³V«6:ےگ(PS$,T)³R$:T³52:V³V«6:ےگ(PS$,T)³S$:T³60:V³V«6:ےگ(PS$,T)³T$:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$8€;~‡#¬2,PS$:LN³LN«1:گ8©;’‚ *** SPECIAL FOR FORM 4562 - SIDE 28د;œپ¦10:…Y$(V)³"Y"§Q$³"YES":„Q$³"NO"9;¦T³73:ےگ(PS$,T)³Q$:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$9;°‡#¬2,PS$:LN³LN«1:گ9D;ؤ‚ *** SPECIAL FOR FORM 4562 - SIDE 29M;خپ¦109¢;طT³6:پ¦20015:T³24:V³V«1:پ¦20015:T³50:V³V«2:پ¦20015:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$9ف;â‡#¬2,ح PS$;ے‰(Y$(V¬1)),ے‰(Y$(V«1)),ے‰(Y$(W)):LN³LN«1:گ9÷<(‚ *** PRINT ONE VALUE:<2پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$:B<<‡#¬2,ح PS$;ے‰(Y$(V)):LN³LN«1:گ:iN ‚ ******** MISC SIDE 2 SUBROUTINES:N/ےگ(PS$,T)³Y$(V):گ5:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$9ف;â‡#¬2,ح PS$;ے‰(Y$(V¬1)),ے‰(Y$(V«1)),ے‰(Y$(W)):LN³LN«1:گ9÷<(‚ *** PRINT ONE VALUE:<2پ¦1ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے†پ¥110L‚ **********LEAD ROUTINES & SUBROUTINES*********************°‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE":پ¦4:پ¦9030:پ¦9010:ژ"1040/BAS"ئQ$³ے’:…Q$³""§4:„گّ 200,2:’&HFA3E,&HE0:’&HFA3F,&H01:’&HFA3A,SN:گ=‡@487,"///";:€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹GQ$³ے’©پ¦4:…Q$³""§8::„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§9140::„…ےٹ(Q$)³94§X$³"1":„…ےٹ(Q$)³10§X$³"2"::„X$³""¯ گ» ‰#1,PS$ض…PS$³""§PS$³ے،(82," ")ٍ…PS$³"*"§PS$³ے،(82,"*") …PS$³"-"§PS$³ے،(82,"-")#PS$³ےڈ(PS$,79):گ9ےگ(PS$,T)³T$(V):گ]پ¦25:گ :ƒPRINT DIRECT FROM DISKyپ¦28:گ :ƒPRINT 1 STRING”پ¦31:گ :ƒPRINT 1 VALUE؛پ¦34:گ :ƒPRINT 1 STRING & 1 VALUEضپ¦37:گ :ƒPRINT 2 VALUES4پ¦10:T³15:Q$³A$(1):ےگ(PS$,T)³Q$:T³69:Q$³A$(7):ےگ(PS$,T)³Q$:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$K‡#¬2,PS$:LN³LN«1:گھپ¦10:T³16:Q$³T$(1):ےگ(PS$,T)³Q$::T³69:Q$³T$(2):ےگ(PS$,T)³Q$:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ء‡#¬2,PS$:LN³LN«1:گâ‚ *** PRINT DIRECT FROM DISK پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$!‡#¬2,PS$:LN³LN«1:گ<‚ *** PRINT ONE STRINGiپ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$€‡#¬2,PS$:LN³LN«1:گڑ‚ *** PRINT ONE VALUEآ پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ه!‡#¬2,ح PS$;ے‰(T$(V)):LN³LN«1:گ"‚ *** PRINT ONE STRING & ONE VALUE9#پ¦10:پ¦15:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$\$‡#¬2,ح PS$;ے‰(T$(W)):LN³LN«1:گw%‚ *** PRINT TWO VALUESں&پ¦10:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$ج'‡#¬2,ح PS$;ے‰(T$(V)),ے‰(T$(W)):LN³LN«1:گd‚ **********MEMORY, ARRAYS, DEFINITIONS, DISK LOAD *******6n•5500:¹ےƒ3³&HFA09:¹ےƒ4³&HFA0C:ŒT$(100)NxUN$³"":X³&HFA30:Y³2a‚…ے†(X«2)³0§Y³1tŒ…ے†(X«1)³0§Y³0…–…ے†(X)³0§170« €Z³X ¥X«Y:A³ے†(Z):UN$³UN$«ے‹(A):‹أھUF$³"":X³&HFA33:Y³2ض´…ے†(X«2)³0§Y³1é¾…ے†(X«1)³0§Y³0ْب…ے†(X)³0§220 ز€Z³X ¥X«Y:A³ے†(Z):UF$³UF$«ے‹(A):‹2ـLR³ے†(&HFA38)sوSN³0:پ¦5:€V³1¥7:Y³ےƒ3(0):A$(V)³ے،(Y," "):Z³ےƒ4(ے‌(A$(V))):‹V·ًSN³19:پ¦5:€V³1¥100:Y³ےƒ3(0):T$(V)³ے،(Y," "):Z³ےƒ4(ے‌(T$(V))):‹Vطè‚ ********** P8615/BAS *****(ٍ‍:‡A$(1):‡@168,"ALIGN BLANK PAPER":‡@236,"FORM 8615":پ¦6:ˆے‰(X$)پ¥7050,7010Aü™ "I",#1,"P8615/PRT"JLN³1g€X³1¥15:پ¦16:‹ :ƒLINE 15pپ¦21y$پ¦16‚.پ¦23‹8پ¦16¦B…T$(3)³"1"§Q$³"SINGLE"رL…T$(3)³"2"§Q$³"MARRIED FILING JOINTLY"ےV…T$(3)³"3"§Q$³"MARRIED FILING SEPARATELY"%`…T$(3)³"4"§Q$³"HEAD OF HOUSEHOLD"Lj…T$(3)³"5"§Q$³"QUALIFYING WIDOWER"‚tپ¦10:ےگ(PS$,25)³Q$:…ےپ(LN®2)³LN®2§PS$³UN$«PS$«UF$،~‡#¬2,PS$:LN³LN«1 :ƒLINE 20ھˆپ¦16¼’T³48:V³3:پ¦17غœ€X³23¥25:پ¦16:‹ :ƒ LINE 25é¦V³20:پ¦18ٍ°پ¦16؛€V³21¥24:پ¦18:‹ :ƒLINE 31.ؤ€X³32¥35:پ¦16:‹ :ƒLINE 35;خV³5:پ¦18Dطپ¦16RظV³10:پ¦18`عV³25:پ¦18nغV³26:پ¦18{ـV³6:پ¦18™â€V³27¥30:پ¦18:‹ :ƒLINE 45·ى€X³46¥48:پ¦16:‹ :ƒLINE 48صِ€V³31¥35:پ¦18:‹ :ƒLINE 53َ€X³54¥66:پ¦16:‹ :ƒLINE 66û ڑ#19p‚ **********END OF PRINT ROUTINE 1***********************FzLR³0:پ¥3X„سPR$«"/BAS",RyX‚ ********** BACKWARDS CALLS‌b…ے†(&HFA1E)³255§PR$³"PE":پ¥6020ءl…ے†(&HFA1C)³255§PR$³"PD":پ¥6020هv…ے†(&HFA1B)³255§PR$³"PC":پ¥6020 €…ے†(&HFA22)³255§PR$³"PA":پ¥6020 ٹPR$³"P1040":پ¥6020 Y#(‚ ********** SUBROUTINES *************************** j#2’&HFA38,LR:گ ¤#<‚ **********DISK DIRECTORY SUBROUTINE *************** ؤ#FQ$³"1990 /BAS":DD³3:PC³0!1#P€S³3¥11:ك0,17,S,X$,Y$:€X³1¥4:DI$(X)³ےگ(X$,(X32)¬31,32):‹X:€X³1¥4:DI$(X«4)³ےگ(Y$,(X32)¬31,32):‹X:€X³1¥8!N#Z…ےژ(DI$(X),1)³ے‹(0)§9080!m#d…ےژ(DI$(X),1)³ے‹(255)§9090! #n…DD³3§…Q$³ےژ(DI$(X),8)«"/"«ےگ(DI$(X),9,3)§PC³1!ھ#x‹X:‹S!¹#‚…PC³1§9120!ے#Œ‍: 50,5:‡@134,"INSERT SYSTEM DISK A":‡@230," TO CONTINUE""#–Q$³ے’:…Q$³""§9110:„9030"!# گ"Q#ھ‚ ********** SCREEN DIRECTORY *************"^#´‍:‡A$(1)"’#¾‡ے،(5,&H83)«"MASTER PRINT DIRECTORY"«ے،(5,&H83)"؛#ب‡@128,"A FORM 1040 I FORM 2441""ن#ز‡@160,"B SCHEDULE A J FORM 4562(C)##ـ‡@192,"C SCHEDULE B K FORM 4562(E)A"#<#و‡@224,"D SCHEDULE C L FORM 4562(E)B"#d#ً‡@256,"E SCHEDULE D M MAIN MENU"#گ#ْ‡@288,"F SCHEDULE E N FORM 4562(E)C"#¨$‡@320,"H FORM 2106"#؟$‡@448,ے،(32,&H83);#à$‡@487,"SELECT OR ";$$"€X³1505¥1534:Y³ے†(X):Y³Y¬64:’X,Y:‹$C$,Q$³ے’:…Q$³""§9260:„…Q$³"M"§LR³0:پ¥3::„…Q$³"S"§LR³50:پ¥3$¨$6Q³ےٹ(Q$)¬64:ˆ Q پ¥9280,9290,9300,9310,9320,9330,1010,9350,9360,9370,9380,9390,3,9400,9410:پ¥9260$؟$@PR$³"P1040":پ¥6020$ù$J…ے†(&HFA22)³255±ے†(&HFA2D)³255§PR$³"PA":پ¥6020::„9440%%$T…ے†(&HFA25)³255§PR$³"PSE":پ¥6020::„9440%P$^…ے†(&HFA1B)³255§PR$³"PC":پ¥6020::„9440%{$h…ے†(&HFA1C)³255§PR$³"PD":پ¥6020::„9440%¦$r…ے†(&HFA1E)³255§PR$³"PE":پ¥6020::„9440%ز$|…ے†(&HFA25)³255§PR$³"PSE":پ¥6020::„9440&$†…ے†(&HFA1D)³255§PR$³"P2106":پ¥6020::„9440&.$گ…ے†(&HFA24)³255§PR$³"P2441":پ¥6020::„9440&i$ڑ…ے†(&HFA28)³255§PR$³"P4562":LR³17:پ¦9010:پ¥6020::„9440&¤$¤…ے†(&HFA29)³255§PR$³"P4562":LR³18:پ¦9010:پ¥6020::„9440&ك$®…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥6020::„9440'$¸…ے†(&HFA2B)³255§PR$³"P4562":LR³20:پ¦9010:پ¥6020::„9440'U$آ…ے†(&HFA23)³255§PR$³"P8615":LR³18:پ¦9010:پ¥6020::„9440'b$جLR³0:پ¥3't$ضسPR$«"/BAS",R'…$à 50,1:پ¥9260":LR³18:پ¦9010:پ¥6020::„9440&ك$®…ے†(&HFA2A)³255§PR$³"P4562":LR³19:پ¦9010:پ¥6020::„9440'$¸…ے†(&HFA2B)³255§PR$³"P4562"ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے