EMPLOYER TAX.C

FILE INFORMATION

FILENAME(S): EMPLOYER TAX.C

FILE TYPE(S): PRG

FILE SIZE: 2.1K

FIRST SEEN: 2025-11-30 01:08:00

APPEARS ON: 3 disk(s)

FILE HASH

eec3697960fb3cf3434e0ee8ba254203c5a44846f4b67bfdffafa9ab9f7e7052

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FREESOFT DISK NR	EMPLOYER TAX.C	PRG	Treasure Chest - Wolfgang Rauprich	23	11	DOWNLOAD FILE
U TILITIE	EMPLOYER TAX.C	PRG	Treasure Chest - Wolfgang Rauprich	23	11	DOWNLOAD FILE
TPUG DEC 83 C	EMPLOYER TAX.C	PRG	DuncanTwain	30	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1A 08 14 00 8F 20  22 45 4D 50 4C 4F 59 45  |....... "EMPLOYE|
00000010: 52 27 53 20 54 41 58 45  53 22 00 23 08 1E 00 99  |R'S TAXES".#....|
00000020: 22 93 22 00 42 08 28 00  97 20 35 33 32 38 30 2C  |".".B.(.. 53280,|
00000030: 38 3A 97 20 35 33 32 38  31 2C 38 3A 99 20 C7 28  |8:. 53281,8:. .(|
00000040: 35 29 00 54 08 32 00 99  3A 99 3A 99 3A 99 3A 99  |5).T.2..:.:.:.:.|
00000050: 3A 99 3A 99 00 7F 08 3C  00 99 22 20 20 20 20 2A  |:.:....<.."    *|
00000060: 20 2A 20 2A 20 2A 20 2A  20 2A 20 2A 20 2A 20 2A  | * * * * * * * *|
00000070: 20 2A 20 2A 20 2A 20 2A  20 2A 20 2A 20 2A 22 00  | * * * * * * *".|
00000080: 85 08 46 00 99 00 B2 08  50 00 99 22 43 4F 4D 50  |..F.....P.."COMP|
00000090: 55 54 45 52 20 41 53 53  49 53 54 41 4E 43 45 20  |UTER ASSISTANCE |
000000A0: 46 4F 52 20 43 4F 4D 50  4C 45 54 49 4F 4E 20 4F  |FOR COMPLETION O|
000000B0: 46 22 00 B8 08 5A 00 99  00 E5 08 64 00 99 22 20  |F"...Z.....d.." |
000000C0: 20 49 52 53 20 46 4F 52  4D 20 39 34 31 20 2D 20  | IRS FORM 941 - |
000000D0: 45 4D 50 4C 4F 59 45 52  27 53 20 51 55 41 52 54  |EMPLOYER'S QUART|
000000E0: 45 52 4C 59 22 00 EB 08  69 00 99 00 0B 09 6E 00  |ERLY"...i.....n.|
000000F0: 99 22 20 20 20 20 20 20  46 45 44 45 52 41 4C 20  |."      FEDERAL |
00000100: 54 41 58 20 52 45 54 55  52 4E 22 00 11 09 78 00  |TAX RETURN"...x.|
00000110: 99 00 3B 09 82 00 99 22  20 20 20 2A 20 2A 20 2A  |..;...."   * * *|
00000120: 20 2A 20 2A 20 2A 20 2A  20 2A 20 2A 20 2A 20 2A  | * * * * * * * *|
00000130: 20 2A 20 2A 20 2A 20 2A  20 2A 22 00 4E 09 8C 00  | * * * * *".N...|
00000140: 81 20 58 B2 31 A4 35 30  30 30 3A 82 20 58 00 57  |. X.1.5000:. X.W|
00000150: 09 96 00 99 22 93 22 00  5F 09 A0 00 99 3A 99 00  |...."."._....:..|
00000160: 83 09 AA 00 99 22 54 48  49 53 20 50 52 4F 47 52  |....."THIS PROGR|
00000170: 41 4D 20 57 41 53 20 57  52 49 54 54 45 4E 20 49  |AM WAS WRITTEN I|
00000180: 4E 20 22 00 AF 09 BE 00  99 22 53 45 50 54 45 4D  |N "......"SEPTEM|
00000190: 42 45 52 20 31 39 38 33  20 42 59 20 44 52 2E 20  |BER 1983 BY DR. |
000001A0: 4A 4F 48 4E 20 50 2E 20  4D 45 53 43 48 2C 22 00  |JOHN P. MESCH,".|
000001B0: DD 09 D2 00 99 22 50 2E  4F 2E 20 42 4F 58 20 32  |....."P.O. BOX 2|
000001C0: 32 39 2C 20 45 4D 50 49  52 45 2C 20 4D 49 43 48  |29, EMPIRE, MICH|
000001D0: 49 47 41 4E 2C 20 34 39  36 33 30 2E 22 00 E3 09  |IGAN, 49630."...|
000001E0: DC 00 99 00 0E 0A E6 00  99 22 54 48 45 20 41 55  |........."THE AU|
000001F0: 54 48 4F 52 20 48 41 53  20 46 4F 55 4E 44 20 49  |THOR HAS FOUND I|
00000200: 54 20 48 45 4C 50 46 55  4C 20 49 4E 20 22 00 3B  |T HELPFUL IN ".;|
00000210: 0A FA 00 99 22 50 52 45  50 41 52 49 4E 47 20 49  |...."PREPARING I|
00000220: 52 53 20 46 4F 52 4D 20  39 34 31 2E 20 20 44 52  |RS FORM 941.  DR|
00000230: 2E 20 4D 45 53 43 48 20  49 53 22 00 67 0A 0E 01  |. MESCH IS".g...|
00000240: 99 22 4E 4F 54 20 41 4E  20 41 43 43 4F 55 4E 54  |."NOT AN ACCOUNT|
00000250: 41 4E 54 20 4F 52 20 54  41 58 20 41 44 56 49 53  |ANT OR TAX ADVIS|
00000260: 4F 52 20 41 4E 44 22 00  96 0A 22 01 99 22 41 53  |OR AND"...".."AS|
00000270: 53 55 4D 45 53 20 4E 4F  20 52 45 53 50 4F 4E 53  |SUMES NO RESPONS|
00000280: 49 42 49 4C 49 54 59 20  46 4F 52 20 45 52 52 4F  |IBILITY FOR ERRO|
00000290: 52 53 20 49 4E 22 00 C5  0A 36 01 99 22 54 41 58  |RS IN"...6.."TAX|
000002A0: 20 52 45 54 55 52 4E 53  2E 20 20 49 46 20 46 4F  | RETURNS.  IF FO|
000002B0: 52 4D 20 39 34 31 20 49  53 20 52 45 56 49 53 45  |RM 941 IS REVISE|
000002C0: 44 20 4F 52 22 00 EF 0A  4A 01 99 22 54 48 45 20  |D OR"...J.."THE |
000002D0: 46 49 43 41 20 54 41 58  20 49 53 20 43 48 41 4E  |FICA TAX IS CHAN|
000002E0: 47 45 44 2C 20 54 48 45  4E 20 54 48 49 53 22 00  |GED, THEN THIS".|
000002F0: 18 0B 5E 01 99 22 50 52  4F 47 52 41 4D 20 57 49  |..^.."PROGRAM WI|
00000300: 4C 4C 20 48 41 56 45 20  54 4F 20 42 45 20 4D 4F  |LL HAVE TO BE MO|
00000310: 44 49 46 49 45 44 2E 22  00 1E 0B 68 01 99 00 4D  |DIFIED."...h...M|
00000320: 0B 72 01 99 22 54 48 49  53 20 50 52 4F 47 52 41  |.r.."THIS PROGRA|
00000330: 4D 20 57 4F 52 4B 53 20  46 4F 52 20 4D 4F 53 54  |M WORKS FOR MOST|
00000340: 20 43 41 53 45 53 20 57  48 45 52 45 22 00 78 0B  | CASES WHERE".x.|
00000350: 86 01 99 22 54 48 45 52  45 20 41 52 45 20 4E 4F  |..."THERE ARE NO|
00000360: 20 54 49 50 53 20 4F 52  20 41 44 4A 55 53 54 4D  | TIPS OR ADJUSTM|
00000370: 45 4E 54 53 20 54 4F 22  00 8E 0B 9A 01 99 22 42  |ENTS TO"......"B|
00000380: 45 20 43 4F 4E 53 49 44  45 52 45 44 2E 22 00 A2  |E CONSIDERED."..|
00000390: 0B A4 01 81 20 49 B2 31  A4 31 30 30 30 30 3A 82  |.... I.1.10000:.|
000003A0: 20 49 00 AB 0B AE 01 99  22 93 22 00 C1 0B B8 01  | I......".".....|
000003B0: 97 35 33 32 38 30 2C 36  3A 97 35 33 32 38 31 2C  |.53280,6:.53281,|
000003C0: 36 00 CB 0B C2 01 99 C7  28 35 29 00 F3 0B CC 01  |6.......(5).....|
000003D0: 99 22 49 53 20 54 48 49  53 20 54 48 45 20 46 49  |."IS THIS THE FI|
000003E0: 52 53 54 20 51 55 41 52  54 45 52 27 53 20 39 34  |RST QUARTER'S 94|
000003F0: 31 2C 22 00 1D 0C D6 01  85 20 22 44 55 45 20 41  |1,"...... "DUE A|
00000400: 50 52 49 4C 20 33 30 20  3F 20 28 41 4E 53 57 45  |PRIL 30 ? (ANSWE|
00000410: 52 20 59 20 4F 52 20 4E  29 22 3B 46 24 00 23 0C  |R Y OR N)";F$.#.|
00000420: DB 01 99 00 38 0C E0 01  8B 20 46 24 B2 22 59 22  |....8.... F$."Y"|
00000430: 20 A7 20 89 20 35 31 30  00 4D 0C EA 01 8B 20 46  | . . 510.M.... F|
00000440: 24 B2 22 4E 22 20 A7 20  89 20 35 34 30 00 6D 0C  |$."N" . . 540.m.|
00000450: F4 01 8B 20 46 24 B3 B1  22 59 22 20 B0 20 46 24  |... F$.."Y" . F$|
00000460: B3 B1 22 4E 22 20 A7 20  89 20 34 36 30 00 9A 0C  |.."N" . . 460...|
00000470: FE 01 99 20 22 45 4E 54  45 52 20 54 48 45 20 4E  |... "ENTER THE N|
00000480: 55 4D 42 45 52 20 4F 46  20 45 4D 50 4C 4F 59 45  |UMBER OF EMPLOYE|
00000490: 45 53 20 49 4E 20 54 48  45 22 00 C6 0C 08 02 85  |ES IN THE"......|
000004A0: 20 22 50 41 59 20 50 45  52 49 4F 44 20 54 48 41  | "PAY PERIOD THA|
000004B0: 54 20 49 4E 43 4C 55 44  45 53 20 4D 41 52 43 48  |T INCLUDES MARCH|
000004C0: 20 31 32 22 3B 45 00 CC  0C 12 02 99 00 F4 0C 1C  | 12";E..........|
000004D0: 02 99 22 45 4E 54 45 52  20 54 48 45 20 54 4F 54  |.."ENTER THE TOT|
000004E0: 41 4C 20 57 41 47 45 53  20 53 55 42 4A 45 43 54  |AL WAGES SUBJECT|
000004F0: 20 54 4F 22 00 09 0D 26  02 85 22 57 49 54 48 48  | TO"...&.."WITHH|
00000500: 4F 4C 44 49 4E 47 22 3B  57 00 0F 0D 30 02 99 00  |OLDING";W...0...|
00000510: 38 0D 3A 02 85 22 45 4E  54 45 52 20 54 4F 54 41  |8.:.."ENTER TOTA|
00000520: 4C 20 49 4E 43 4F 4D 45  20 54 41 58 20 57 49 54  |L INCOME TAX WIT|
00000530: 48 48 45 4C 44 22 3B 54  00 3E 0D 44 02 99 00 67  |HHELD";T.>.D...g|
00000540: 0D 4E 02 85 22 45 4E 54  45 52 20 54 48 45 20 54  |.N.."ENTER THE T|
00000550: 4F 54 41 4C 20 46 49 43  41 20 57 41 47 45 53 20  |OTAL FICA WAGES |
00000560: 50 41 49 44 22 3B 46 00  6D 0D 53 02 99 00 90 0D  |PAID";F.m.S.....|
00000570: 58 02 99 22 45 4E 54 45  52 20 54 48 45 20 54 4F  |X.."ENTER THE TO|
00000580: 54 41 4C 20 4F 46 20 44  45 50 4F 53 49 54 53 22  |TAL OF DEPOSITS"|
00000590: 00 B6 0D 6C 02 99 22 4D  41 44 45 20 54 48 49 53  |...l.."MADE THIS|
000005A0: 20 51 55 41 52 54 45 52  20 41 47 41 49 4E 53 54  | QUARTER AGAINST|
000005B0: 20 54 48 49 53 22 00 D3  0D 76 02 85 22 54 41 58  | THIS"...v.."TAX|
000005C0: 20 4C 49 41 42 49 4C 49  54 59 22 3B 20 20 20 20  | LIABILITY";    |
000005D0: 20 20 44 00 D9 0D 80 02  99 00 DF 0D 8A 02 99 00  |  D.............|
000005E0: E5 0D 94 02 99 00 EB 0D  9E 02 99 00 F1 0D A8 02  |................|
000005F0: 99 00 14 0E B2 02 85 22  41 52 45 20 59 4F 55 20  |......."ARE YOU |
00000600: 52 45 41 44 59 20 54 4F  20 43 4F 4D 50 55 54 45  |READY TO COMPUTE|
00000610: 22 3B 52 24 00 27 0E BC  02 8B 20 52 24 B2 22 59  |";R$.'.... R$."Y|
00000620: 22 20 89 20 37 32 30 00  3B 0E C6 02 8B 20 52 24  |" . 720.;.... R$|
00000630: B3 B1 22 59 22 20 89 20  36 35 30 00 48 0E D0 02  |.."Y" . 650.H...|
00000640: 53 B2 46 AC 2E 31 33 34  00 52 0E DA 02 5A B2 53  |S.F..134.R...Z.S|
00000650: AA 54 00 60 0E E4 02 50  B2 28 53 AA 54 29 AB 44  |.T.`...P.(S.T).D|
00000660: 00 69 0E EE 02 99 22 93  22 00 91 0E F8 02 99 22  |.i...."."......"|
00000670: 45 4E 54 45 52 20 54 48  45 20 41 4D 4F 55 4E 54  |ENTER THE AMOUNT|
00000680: 53 20 49 4E 44 49 43 41  54 45 44 20 46 4F 52 20  |S INDICATED FOR |
00000690: 22 00 B0 0E 02 03 99 22  45 41 43 48 20 4C 49 4E  |"......"EACH LIN|
000006A0: 45 20 23 20 4F 4E 20 46  4F 52 4D 20 39 34 31 22  |E # ON FORM 941"|
000006B0: 00 B6 0E 0C 03 99 00 D3  0E 16 03 8B 20 45 B3 B1  |............ E..|
000006C0: 30 20 A7 20 99 22 4C 49  4E 45 20 31 20 2D 3E 20  |0 . ."LINE 1 -> |
000006D0: 22 3B 45 00 E7 0E 20 03  99 22 4C 49 4E 45 20 32  |";E... .."LINE 2|
000006E0: 20 2D 3E 20 22 3B 57 00  FB 0E 34 03 99 22 4C 49  | -> ";W...4.."LI|
000006F0: 4E 45 20 33 20 2D 3E 20  22 3B 54 00 0F 0F 48 03  |NE 3 -> ";T...H.|
00000700: 99 22 4C 49 4E 45 20 35  20 2D 3E 20 22 3B 54 00  |."LINE 5 -> ";T.|
00000710: 2F 0F 5C 03 99 22 4C 49  4E 45 20 36 20 2D 3E 20  |/.\.."LINE 6 -> |
00000720: 22 3B 46 3B 22 41 4E 44  20 2D 3E 20 22 3B 53 00  |";F;"AND -> ";S.|
00000730: 43 0F 70 03 99 22 4C 49  4E 45 20 38 20 2D 3E 20  |C.p.."LINE 8 -> |
00000740: 22 3B 53 00 58 0F 84 03  99 22 4C 49 4E 45 20 31  |";S.X...."LINE 1|
00000750: 30 20 2D 3E 20 22 3B 53  00 6D 0F 98 03 99 22 4C  |0 -> ";S.m...."L|
00000760: 49 4E 45 20 31 31 20 2D  3E 20 22 3B 5A 00 82 0F  |INE 11 -> ";Z...|
00000770: AC 03 99 22 4C 49 4E 45  20 31 33 20 2D 3E 20 22  |..."LINE 13 -> "|
00000780: 3B 5A 00 97 0F C0 03 99  22 4C 49 4E 45 20 31 34  |;Z......"LINE 14|
00000790: 20 2D 3E 20 22 3B 44 00  C8 0F D4 03 8B 20 50 B1  | -> ";D...... P.|
000007A0: B2 30 20 A7 20 99 22 4C  49 4E 45 20 31 35 20 2D  |.0 . ."LINE 15 -|
000007B0: 3E 20 22 3B 50 3B 22 28  45 4E 43 4C 4F 53 45 20  |> ";P;"(ENCLOSE |
000007C0: 41 20 43 48 45 43 4B 22  00 FC 0F E8 03 8B 20 50  |A CHECK"...... P|
000007D0: B3 30 20 A7 20 99 22 4C  49 4E 45 20 31 36 20 2D  |.0 . ."LINE 16 -|
000007E0: 3E 20 22 3B AB 28 50 29  22 28 59 4F 55 20 48 41  |> ";.(P)"(YOU HA|
000007F0: 56 45 20 41 20 43 52 45  44 49 54 22 00 14 10 ED  |VE A CREDIT"....|
00000800: 03 99 22 46 4F 52 20 54  48 49 53 20 41 4D 4F 55  |.."FOR THIS AMOU|
00000810: 4E 54 29 22 00 1A 10 F2  03 99 00 49 10 FC 03 99  |NT)".......I....|
00000820: 22 4D 41 4B 45 20 53 55  52 45 20 59 4F 55 52 20  |"MAKE SURE YOUR |
00000830: 45 4D 50 4C 4F 59 45 52  20 49 44 20 4E 55 4D 42  |EMPLOYER ID NUMB|
00000840: 45 52 20 49 53 20 4F 4E  22 00 76 10 06 04 99 22  |ER IS ON".v...."|
00000850: 54 48 45 20 46 4F 52 4D  20 41 4E 44 20 44 4F 4E  |THE FORM AND DON|
00000860: 27 54 20 46 4F 52 47 45  54 20 54 4F 20 53 49 47  |'T FORGET TO SIG|
00000870: 4E 20 49 54 2E 22 00 7C  10 10 04 80 00 00 00     |N IT.".|....... |

....... "EMPLOYER'S TAXES".#....".".B.(.
. 53280,8:. 53281,8:. G(5).T.2..:.:.:.:.
:.:...<.."    * * * * * * * * * * * * *
 * * *"...F.....P.."COMPUTER ASSISTANCE 
FOR COMPLETION OF"...Z.....D.."  IRS FOR
M 941 - EMPLOYER'S QUARTERLY"...I.....N.
."      FEDERAL TAX RETURN"...X...;...."
   * * * * * * * * * * * * * * * *".N...
. X.1.5000:. X.W...."."._. ..:......."TH
IS PROGRAM WAS WRITTEN IN "......"SEPTEM
BER 1983 BY DR. JOHN P. MESCH,"...R.."P.
O. BOX 229, EMPIRE, MICHIGAN, 49630."...
........."THE AUTHOR HAS FOUND IT HELPFU
L IN ".;...."PREPARING IRS FORM 941.  DR
. MESCH IS".G...."NOT AN ACCOUNTANT OR T
AX ADVISOR AND"...".."ASSUMES NO RESPONS
IBILITY FOR ERRORS IN".E.6.."TAX RETURNS
.  IF FORM 941 IS REVISED OR"...J.."THE 
FICA TAX IS CHANGED, THEN THIS"...^.."PR
OGRAM WILL HAVE TO BE MODIFIED."...H...M
.R.."THIS PROGRAM WORKS FOR MOST CASES W
HERE".X...."THERE ARE NO TIPS OR ADJUSTM
ENTS TO"......"BE CONSIDERED."...... I.1
.10000:. I......".".A....53280,6:.53281,
6.K.B..G(5)...L.."IS THIS THE FIRST QUAR
TER'S 941,"...V.. "DUE APRIL 30 ? (ANSWE
R Y OR N)";F$.#.....8.... F$."Y" . . 510
.M.... F$."N" . . 540.M.... F$.."Y" . F$
.."N" . . 460...... "ENTER THE NUMBER OF
 EMPLOYEES IN THE".F.... "PAY PERIOD THA
T INCLUDES MARCH 12";E.L.........."ENTER
 THE TOTAL WAGES SUBJECT TO"...&.."WITHH
OLDING";W...0...8.:.."ENTER TOTAL INCOME
 TAX WITHHELD";T.>.D...G.N.."ENTER THE T
OTAL FICA WAGES PAID";F.M.S.....X.."ENTE
R THE TOTAL OF DEPOSITS"...L.."MADE THIS
 QUARTER AGAINST THIS".S.V.."TAX LIABILI
TY";      D.Y...........................
......."ARE YOU READY TO COMPUTE";R$.'..
.. R$."Y" . 720.;.F.. R$.."Y" . 650.H.P.
S.F..134.R.Z.Z.S.T.`...P.(S.T).D.I....".
"......"ENTER THE AMOUNTS INDICATED FOR 
"......"EACH LINE # ON FORM 941".......S
.... E..0 . ."LINE 1 -> ";E... .."LINE 2
 -> ";W...4.."LINE 3 -> ";T...H.."LINE 5
 -> ";T./.\.."LINE 6 -> ";F;"AND -> ";S.
C.P.."LINE 8 -> ";S.X...."LINE 10 -> ";S
.M...."LINE 11 -> ";Z......"LINE 13 -> "
;Z......"LINE 14 -> ";D.H.T.. P..0 . ."L
INE 15 -> ";P;"(ENCLOSE A CHECK"...... P
.0 . ."LINE 16 -> ";.(P)"(YOU HAVE A CRE
DIT"......"FOR THIS AMOUNT)".......I....
"MAKE SURE YOUR EMPLOYER ID NUMBER IS ON
".V...."THE FORM AND DON'T FORGET TO SIG
N IT.".|.......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL