TCARD

00000000: 01 04 11 04 00 00 9C 3A  97 35 39 34 36 38 2C 31  |.......:.59468,1|
00000010: 32 00 3C 04 01 00 8F 20  54 43 41 52 44 20 43 4F  |2.<.... TCARD CO|
00000020: 50 59 52 49 47 48 54 20  28 43 29 20 31 39 37 39  |PYRIGHT (C) 1979|
00000030: 20 47 4C 45 4E 20 46 49  53 48 45 52 00 66 04 02  | GLEN FISHER.f..|
00000040: 00 8F 20 49 4E 53 50 49  52 45 44 20 42 59 20 41  |.. INSPIRED BY A|
00000050: 20 50 52 4F 47 52 41 4D  20 42 59 20 48 45 52 42  | PROGRAM BY HERB|
00000060: 20 53 41 4E 44 59 00 88  04 03 00 8F 20 42 4F 58  | SANDY...... BOX|
00000070: 20 31 35 33 35 2C 20 43  4F 52 49 4E 54 48 2C 20  | 1535, CORINTH, |
00000080: 4D 53 20 33 38 38 33 34  00 8E 04 04 00 3A 00 AB  |MS 38834.....:..|
00000090: 04 05 00 8F 20 43 55 52  53 4F 52 20 23 31 33 2C  |.... CURSOR #13,|
000000A0: 20 53 45 50 54 2C 20 31  39 37 39 00 CC 04 06 00  | SEPT, 1979.....|
000000B0: 8F 20 42 4F 58 20 35 35  30 2C 20 47 4F 4C 45 54  |. BOX 550, GOLET|
000000C0: 41 2C 20 43 41 2E 20 39  33 30 31 37 00 FD 04 07  |A, CA. 93017....|
000000D0: 00 8F 20 4C 49 4E 45 53  20 36 31 30 30 30 2D 36  |.. LINES 61000-6|
000000E0: 35 30 30 30 20 28 43 29  20 31 39 37 39 20 43 55  |5000 (C) 1979 CU|
000000F0: 52 53 4F 52 20 4D 41 47  41 5A 49 4E 45 00 03 05  |RSOR MAGAZINE...|
00000100: 08 00 3A 00 19 05 0A 00  8F 20 41 53 20 4F 46 20  |..:...... AS OF |
00000110: 53 45 50 20 32 35 20 37  39 00 39 05 5A 00 50 47  |SEP 25 79.9.Z.PG|
00000120: 24 B2 22 54 43 41 52 44  22 3A 4E 4D 24 B2 22 31  |$."TCARD":NM$."1|
00000130: 33 22 3A 8D 36 32 30 30  30 00 59 05 64 00 8D 38  |3":.62000.Y.d..8|
00000140: 36 30 30 3A 8B 45 49 24  B3 B1 22 22 A7 4E 45 B2  |600:.EI$.."".NE.|
00000150: 4E 45 AA 31 3A 89 31 30  30 00 76 05 6E 00 87 54  |NE.1:.100.v.n..T|
00000160: 24 3A 8B 54 24 B3 B1 22  22 A7 4E 50 B2 4E 50 AA  |$:.T$.."".NP.NP.|
00000170: 31 3A 89 31 31 30 00 A5  05 C8 00 4D 54 B2 31 30  |1:.110.....MT.10|
00000180: 3A 86 49 4E 28 4D 54 29  2C 4F 55 28 4D 54 29 2C  |:.IN(MT),OU(MT),|
00000190: 52 47 28 4E 50 29 2C 4F  56 28 4E 50 29 2C 4E 50  |RG(NP),OV(NP),NP|
000001A0: 24 28 4E 50 29 00 C0 05  D2 00 8C 3A 81 49 B2 31  |$(NP)......:.I.1|
000001B0: A4 4E 45 3A 8D 38 36 30  30 3A 82 49 3A 87 54 24  |.NE:.8600:.I:.T$|
000001C0: 00 DB 05 DC 00 81 49 B2  31 A4 4E 50 3A 87 4E 50  |......I.1.NP:.NP|
000001D0: 24 28 49 29 3A 82 49 3A  87 54 24 00 EE 05 2C 01  |$(I):.I:.T$...,.|
000001E0: 48 52 B2 36 30 3A 48 44  B2 31 32 AC 48 52 00 F4  |HR.60:HD.12.HR..|
000001F0: 05 84 03 8C 00 00 06 E8  03 81 45 B2 31 A4 4E 45  |..........E.1.NE|
00000200: 00 0A 06 F2 03 8D 38 36  30 30 00 23 06 FC 03 45  |......8600.#...E|
00000210: 49 24 B2 45 49 24 AA 22  20 28 22 AA 45 4E 24 AA  |I$.EI$." (".EN$.|
00000220: 22 29 22 00 3B 06 06 04  99 22 93 11 11 45 4D 50  |")".;...."...EMP|
00000230: 4C 4F 59 45 45 20 22 3B  45 49 24 00 64 06 10 04  |LOYEE ";EI$.d...|
00000240: 81 49 B2 31 A4 4E 50 3A  52 47 28 49 29 B2 30 3A  |.I.1.NP:RG(I).0:|
00000250: 4F 56 28 49 29 B2 30 3A  82 49 3A 52 54 B2 30 3A  |OV(I).0:.I:RT.0:|
00000260: 4F 54 B2 30 00 70 06 4C  04 81 50 B2 31 A4 4E 50  |OT.0.p.L..P.1.NP|
00000270: 00 94 06 56 04 99 22 11  45 4E 54 45 52 20 54 49  |...V..".ENTER TI|
00000280: 4D 45 53 20 46 4F 52 20  22 3B 4E 50 24 28 50 29  |MES FOR ";NP$(P)|
00000290: 3B 22 3A 22 00 9C 06 60  04 4E B2 31 00 B8 06 B0  |;":"...`.N.1....|
000002A0: 04 8D 37 30 30 30 3A 8B  49 4E B3 30 A7 4E B2 4E  |..7000:.IN.0.N.N|
000002B0: AB 31 3A 89 31 34 30 30  00 CE 06 EC 04 49 4E 28  |.1:.1400.....IN(|
000002C0: 4E 29 B2 49 4E 3A 4F 55  28 4E 29 B2 4F 55 00 E4  |N).IN:OU(N).OU..|
000002D0: 06 F6 04 4E B2 4E AA 31  3A 8B 4E B3 B2 4D 54 A7  |...N.N.1:.N..MT.|
000002E0: 31 32 30 30 00 18 07 00  05 99 22 49 20 43 41 4E  |1200......"I CAN|
000002F0: 20 4F 4E 4C 59 20 48 41  4E 44 4C 45 22 3B 4D 54  | ONLY HANDLE";MT|
00000300: 3B 22 49 4E 54 45 52 56  41 4C 53 22 3A 4E B2 4E  |;"INTERVALS":N.N|
00000310: AB 31 3A 89 31 34 30 30  00 26 07 78 05 8B 4E B1  |.1:.1400.&.x..N.|
00000320: 30 A7 31 35 30 30 00 5D  07 82 05 99 22 11 53 4B  |0.1500.]....".SK|
00000330: 49 50 20 45 4D 50 4C 4F  59 45 45 20 22 3B 45 49  |IP EMPLOYEE ";EI|
00000340: 24 3B 22 20 46 4F 52 20  22 3B 4E 50 24 28 50 29  |$;" FOR ";NP$(P)|
00000350: 3B 22 3F 20 22 3B 3A 8D  36 30 30 30 30 00 75 07  |;"? ";:.60000.u.|
00000360: 8C 05 8B C8 28 49 4E 24  2C 31 29 B3 B1 22 59 22  |....(IN$,1).."Y"|
00000370: A7 31 31 31 30 00 84 07  96 05 8B 50 B3 B1 31 A7  |.1110......P..1.|
00000380: 32 31 30 30 00 B7 07 A0  05 99 22 11 53 4B 49 50  |2100......".SKIP|
00000390: 20 45 4D 50 4C 4F 59 45  45 20 22 3B 45 49 24 3B  | EMPLOYEE ";EI$;|
000003A0: 22 20 41 4C 54 4F 47 45  54 48 45 52 3F 20 22 3B  |" ALTOGETHER? ";|
000003B0: 3A 8D 36 30 30 30 30 00  CF 07 AA 05 8B C8 28 49  |:.60000.......(I|
000003C0: 4E 24 2C 31 29 B3 B1 22  59 22 A7 32 31 30 30 00  |N$,1).."Y".2100.|
000003D0: D9 07 B4 05 89 32 34 30  30 00 F5 07 DC 05 99 22  |.....2400......"|
000003E0: 11 22 3B 45 49 24 3B 22  20 46 4F 52 20 22 3B 4E  |.";EI$;" FOR ";N|
000003F0: 50 24 28 50 29 00 10 08  F0 05 99 22 20 23 20 20  |P$(P)......" #  |
00000400: 20 20 49 4E 20 20 20 20  20 20 20 20 4F 55 54 22  |  IN        OUT"|
00000410: 00 1B 08 FA 05 81 49 B2  31 A4 4E 00 2F 08 04 06  |......I.1.N./...|
00000420: 99 C9 28 C4 28 49 29 2C  32 29 3B 22 20 22 3B 00  |..(.(I),2);" ";.|
00000430: 4D 08 0E 06 54 4D B2 49  4E 28 49 29 3A 8D 38 35  |M...TM.IN(I):.85|
00000440: 30 30 3A 99 54 4D 24 3B  22 20 20 22 3B 00 65 08  |00:.TM$;"  ";.e.|
00000450: 18 06 54 4D B2 4F 55 28  49 29 3A 8D 38 35 30 30  |..TM.OU(I):.8500|
00000460: 3A 99 54 4D 24 00 6C 08  22 06 82 49 00 8A 08 40  |:.TM$.l."..I...@|
00000470: 06 99 22 11 41 4E 59 20  43 48 41 4E 47 45 53 3F  |..".ANY CHANGES?|
00000480: 20 22 3B 3A 8D 36 30 30  30 30 00 A8 08 4A 06 8B  | ";:.60000...J..|
00000490: 49 4E 24 B2 22 22 B0 C8  28 49 4E 24 2C 31 29 B2  |IN$.""..(IN$,1).|
000004A0: 22 4E 22 A7 32 30 30 30  00 C6 08 A4 06 99 22 11  |"N".2000......".|
000004B0: 57 48 49 43 48 20 45 4E  54 52 59 3F 20 22 3B 3A  |WHICH ENTRY? ";:|
000004C0: 8D 36 30 30 30 30 00 D7  08 AE 06 8B 49 4E 24 B2  |.60000......IN$.|
000004D0: 22 22 A7 31 35 30 30 00  F3 08 B8 06 49 B2 C5 28  |"".1500.....I..(|
000004E0: 49 4E 24 29 3A 8B 49 B1  30 AF 49 B3 B2 4E A7 31  |IN$):.I.0.I..N.1|
000004F0: 37 35 30 00 2D 09 C2 06  8B 49 B3 B1 4E AA 31 B0  |750.-....I..N.1.|
00000500: 49 B1 4D 54 A7 99 22 4E  55 4D 42 45 52 53 20 46  |I.MT.."NUMBERS F|
00000510: 52 4F 4D 20 31 20 54 4F  22 3B 4E 3B 22 9D 2C 20  |ROM 1 TO";N;"., |
00000520: 50 4C 45 41 53 45 22 3A  89 31 37 30 30 00 3E 09  |PLEASE":.1700.>.|
00000530: CC 06 8B 49 B2 4E AA 31  A7 4E B2 4E AA 31 00 53  |...I.N.1.N.N.1.S|
00000540: 09 D6 06 8D 37 30 30 30  3A 8B 49 54 B3 30 A7 31  |....7000:.IT.0.1|
00000550: 37 30 30 00 6F 09 E0 06  49 4E 28 49 29 B2 49 4E  |700.o...IN(I).IN|
00000560: 3A 4F 55 28 49 29 B2 4F  55 3A 89 31 37 30 30 00  |:OU(I).OU:.1700.|
00000570: 7F 09 D0 07 54 4D B2 30  3A 81 49 B2 31 A4 4E 00  |....TM.0:.I.1.N.|
00000580: A4 09 DA 07 45 54 B2 4F  55 28 49 29 AB 49 4E 28  |....ET.OU(I).IN(|
00000590: 49 29 3A 8B 45 54 B3 30  A7 45 54 B2 45 54 AA 48  |I):.ET.0.ET.ET.H|
000005A0: 44 AA 48 44 00 B4 09 E4  07 54 4D B2 54 4D AA 45  |D.HD.....TM.TM.E|
000005B0: 54 3A 82 49 00 DE 09 EE  07 99 22 11 11 45 4D 50  |T:.I......"..EMP|
000005C0: 4C 4F 59 45 45 20 22 3B  45 49 24 3B 22 20 46 4F  |LOYEE ";EI$;" FO|
000005D0: 52 20 22 3B 4E 50 24 28  50 29 3B 22 11 22 00 FB  |R ";NP$(P);"."..|
000005E0: 09 F8 07 8D 37 32 30 30  3A 99 22 57 4F 52 4B 20  |....7200:."WORK |
000005F0: 54 49 4D 45 3A 20 22 3B  54 4D 24 00 29 0A 02 08  |TIME: ";TM$.)...|
00000600: 8D 37 31 30 30 3A 52 47  28 50 29 B2 52 47 3A 4F  |.7100:RG(P).RG:O|
00000610: 56 28 50 29 B2 4F 56 3A  52 54 B2 52 54 AA 52 47  |V(P).OV:RT.RT.RG|
00000620: 3A 4F 54 B2 4F 54 AA 4F  56 00 38 0A 0C 08 8B 4F  |:OT.OT.OV.8....O|
00000630: 56 B2 30 A7 32 31 30 30  00 5D 0A 16 08 99 22 11  |V.0.2100.]....".|
00000640: 52 45 47 55 4C 41 52 3A  20 22 3B 3A 54 4D B2 52  |REGULAR: ";:TM.R|
00000650: 47 3A 8D 37 32 30 30 3A  99 54 4D 24 3B 00 84 0A  |G:.7200:.TM$;...|
00000660: 20 08 99 22 20 20 20 4F  56 45 52 54 49 4D 45 3A  | .."   OVERTIME:|
00000670: 20 22 3B 3A 54 4D B2 4F  56 3A 8D 37 32 30 30 3A  | ";:TM.OV:.7200:|
00000680: 99 54 4D 24 00 A4 0A 34  08 99 22 1D 1D 1D 11 11  |.TM$...4..".....|
00000690: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000006A0: C0 C0 11 11 00 AB 0A 3E  08 82 50 00 CE 0A 48 08  |.......>..P...H.|
000006B0: 99 22 11 11 50 52 45 53  53 20 41 4E 59 20 4B 45  |."..PRESS ANY KE|
000006C0: 59 20 46 4F 52 20 53 55  4D 4D 41 52 59 22 00 E2  |Y FOR SUMMARY"..|
000006D0: 0A 52 08 A1 54 24 3A 8B  54 24 B2 22 22 A7 32 31  |.R..T$:.T$."".21|
000006E0: 33 30 00 0B 0B 98 08 99  22 93 22 3B 45 49 24 3B  |30......".";EI$;|
000006F0: 22 20 20 53 53 4E 20 22  3B 53 53 24 3A 99 22 11  |"  SSN ";SS$:.".|
00000700: 22 3B 57 47 24 3B 22 20  20 22 3B 00 24 0B A2 08  |";WG$;"  ";.$...|
00000710: 8B 4D 53 24 B2 22 4D 22  A7 99 22 4D 41 52 52 49  |.MS$."M".."MARRI|
00000720: 45 44 22 3B 00 3C 0B A3  08 8B 4D 53 24 B2 22 53  |ED";.<....MS$."S|
00000730: 22 A7 99 22 53 49 4E 47  4C 45 22 3B 00 5F 0B AB  |".."SINGLE";._..|
00000740: 08 8B 4D 53 24 B3 B1 22  4D 22 AF 4D 53 24 B3 B1  |..MS$.."M".MS$..|
00000750: 22 53 22 A7 99 4D 53 24  3B 22 3F 3F 3F 22 3B 00  |"S"..MS$;"???";.|
00000760: 8B 0B AC 08 99 22 20 20  22 3B 45 58 24 3B 22 20  |....."  ";EX$;" |
00000770: 45 58 45 4D 50 54 49 4F  4E 22 3B 3A 8B 45 58 24  |EXEMPTION";:.EX$|
00000780: B3 B1 22 31 22 A7 99 22  53 22 3B 00 AA 0B B1 08  |.."1".."S";.....|
00000790: 99 3A 99 A3 31 30 29 3B  22 11 20 20 52 45 47 20  |.:..10);".  REG |
000007A0: 20 20 20 20 4F 56 45 52  11 22 00 C4 0B B6 08 81  |    OVER."......|
000007B0: 49 B2 31 A4 4E 50 3A 99  4E 50 24 28 49 29 3B A3  |I.1.NP:.NP$(I);.|
000007C0: 31 30 29 3B 00 DD 0B C0  08 54 4D B2 52 47 28 49  |10);.....TM.RG(I|
000007D0: 29 3A 8D 37 32 30 30 3A  99 54 4D 24 3B 00 FA 0B  |):.7200:.TM$;...|
000007E0: CA 08 54 4D B2 4F 56 28  49 29 3A 8D 37 32 30 30  |..TM.OV(I):.7200|
000007F0: 3A 99 22 20 20 22 3B 54  4D 24 00 01 0C D4 08 82  |:."  ";TM$......|
00000800: 49 00 23 0C DE 08 99 A3  31 30 29 3B 22 20 C0 C0  |I.#.....10);" ..|
00000810: C0 C0 C0 20 20 20 C0 C0  C0 C0 C0 22 3A 99 A3 31  |...   .....":..1|
00000820: 30 29 3B 00 39 0C E8 08  54 4D B2 52 54 3A 8D 37  |0);.9...TM.RT:.7|
00000830: 32 30 30 3A 99 54 4D 24  3B 00 53 0C F2 08 54 4D  |200:.TM$;.S...TM|
00000840: B2 4F 54 3A 8D 37 32 30  30 3A 99 22 20 20 22 3B  |.OT:.7200:."  ";|
00000850: 54 4D 24 00 62 0C FC 08  8B 50 B2 4E 50 A7 32 34  |TM$.b....P.NP.24|
00000860: 30 30 00 86 0C 01 09 99  22 11 11 50 52 45 53 53  |00......"..PRESS|
00000870: 20 41 4E 59 20 4B 45 59  20 54 4F 20 43 4F 4E 54  | ANY KEY TO CONT|
00000880: 49 4E 55 45 22 3B 00 9A  0C 06 09 A1 54 24 3A 8B  |INUE";......T$:.|
00000890: 54 24 B2 22 22 A7 32 33  31 30 00 A1 0C 60 09 82  |T$."".2310...`..|
000008A0: 45 00 E1 0C C4 09 99 22  13 11 11 11 11 11 11 11  |E......"........|
000008B0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
000008C0: 57 41 4E 54 20 54 4F 20  52 55 4E 20 54 48 49 53  |WANT TO RUN THIS|
000008D0: 20 41 47 41 49 4E 3F 20  22 3B 3A 8D 36 30 30 30  | AGAIN? ";:.6000|
000008E0: 30 00 F7 0C CE 09 8B C8  28 49 4E 24 2C 31 29 B2  |0.......(IN$,1).|
000008F0: 22 59 22 A7 39 30 30 00  FD 0C D8 09 80 00 20 0D  |"Y".900....... .|
00000900: 58 1B 50 52 24 B2 22 11  20 49 4E 22 3A 8D 38 30  |X.PR$.". IN":.80|
00000910: 30 30 3A 49 4E B2 54 4D  3A 8B 49 4E B3 30 A7 8E  |00:IN.TM:.IN.0..|
00000920: 00 54 0D 62 1B 50 52 24  B2 22 4F 55 54 22 3A 8D  |.T.b.PR$."OUT":.|
00000930: 38 30 30 30 3A 8B 54 4D  B3 30 A7 99 22 49 4E 20  |8000:.TM.0.."IN |
00000940: 54 49 4D 45 20 49 47 4E  4F 52 45 44 2E 22 3A 89  |TIME IGNORED.":.|
00000950: 37 30 30 30 00 60 0D 6C  1B 4F 55 B2 54 4D 3A 8E  |7000.`.l.OU.TM:.|
00000960: 00 88 0D BC 1B 4F 56 B2  30 3A 52 47 B2 54 4D 3A  |.....OV.0:RG.TM:|
00000970: 8B 54 4D B3 B2 38 AC 48  52 B0 C9 28 57 47 24 2C  |.TM..8.HR..(WG$,|
00000980: 31 29 B2 22 45 22 A7 8E  00 9F 0D C6 1B 52 47 B2  |1)."E".......RG.|
00000990: 38 AC 48 52 3A 4F 56 B2  54 4D AB 52 47 3A 8E 00  |8.HR:OV.TM.RG:..|
000009A0: B8 0D 20 1C 48 B2 B5 28  54 4D AD 48 52 29 3A 4D  |.. .H..(TM.HR):M|
000009B0: B2 54 4D AB 48 AC 48 52  00 E2 0D 2A 1C 54 4D 24  |.TM.H.HR...*.TM$|
000009C0: B2 C9 28 22 20 22 AA C4  28 48 29 2C 33 29 AA 22  |..(" "..(H),3)."|
000009D0: 3A 22 AA C9 28 C4 28 31  30 30 AA 4D 29 2C 32 29  |:"..(.(100.M),2)|
000009E0: 3A 8E 00 F1 0D 40 1F 99  50 52 24 3B 22 3A 20 22  |:....@..PR$;": "|
000009F0: 3B 00 0C 0E A4 1F 8D 36  30 30 30 30 3A 8B 49 4E  |;......60000:.IN|
00000A00: 24 B2 22 22 A7 54 4D B2  AB 31 3A 8E 00 33 0E AE  |$."".TM..1:..3..|
00000A10: 1F 8D 39 30 30 30 3A 8B  5A B2 31 A7 99 22 48 4F  |..9000:.Z.1.."HO|
00000A20: 55 52 20 4E 4F 54 20 47  49 56 45 4E 22 3A 89 38  |UR NOT GIVEN":.8|
00000A30: 30 30 30 00 63 0E B8 1F  48 B2 C5 28 C8 28 49 4E  |000.c...H..(.(IN|
00000A40: 24 2C 5A AB 31 29 29 3A  49 4E 24 B2 CA 28 49 4E  |$,Z.1)):IN$..(IN|
00000A50: 24 2C 5A AA 31 29 3A 8B  5A 24 B2 22 3A 22 A7 38  |$,Z.1):.Z$.":".8|
00000A60: 32 30 30 00 78 0E C2 1F  8B 48 B3 31 30 30 A7 4D  |200.x....H.100.M|
00000A70: B2 30 3A 89 38 33 30 30  00 95 0E CC 1F 54 B2 B5  |.0:.8300.....T..|
00000A80: 28 48 AD 31 30 30 29 3A  4D B2 48 AB 54 AC 31 30  |(H.100):M.H.T.10|
00000A90: 30 3A 48 B2 54 00 9F 0E  E0 1F 89 38 33 30 30 00  |0:H.T......8300.|
00000AA0: B9 0E 08 20 8D 39 30 30  30 3A 4D B2 C5 28 C8 28  |... .9000:M..(.(|
00000AB0: 49 4E 24 2C 5A AB 31 29  29 00 CC 0E 12 20 49 4E  |IN$,Z.1)).... IN|
00000AC0: 24 B2 CA 28 49 4E 24 2C  5A AA 31 29 00 FA 0E 1C  |$..(IN$,Z.1)....|
00000AD0: 20 8B 5A B3 B1 33 A7 99  22 4D 49 4E 55 54 45 53  | .Z..3.."MINUTES|
00000AE0: 20 4D 55 53 54 20 42 45  20 54 57 4F 20 44 49 47  | MUST BE TWO DIG|
00000AF0: 49 54 53 22 3A 89 38 30  30 30 00 1E 0F 6C 20 8B  |ITS":.8000...l .|
00000B00: 48 B3 31 B0 48 B1 31 32  A7 99 22 4E 4F 20 53 55  |H.1.H.12.."NO SU|
00000B10: 43 48 20 48 4F 55 52 22  3A 89 38 30 30 30 00 44  |CH HOUR":.8000.D|
00000B20: 0F 76 20 8B 4D B3 30 B0  4D B1 35 39 A7 99 22 4E  |.v .M.0.M.59.."N|
00000B30: 4F 20 53 55 43 48 20 4D  49 4E 55 54 45 22 3A 89  |O SUCH MINUTE":.|
00000B40: 38 30 30 30 00 6F 0F 7B  20 8B 5A 24 B2 22 20 22  |8000.o.{ .Z$." "|
00000B50: A7 5A 24 B2 C8 28 49 4E  24 2C 31 29 3A 49 4E 24  |.Z$..(IN$,1):IN$|
00000B60: B2 CA 28 49 4E 24 2C 32  29 3A 89 38 33 31 35 00  |..(IN$,2):.8315.|
00000B70: 8C 0F 80 20 50 4D B2 30  3A 8B 5A 24 B2 22 41 22  |... PM.0:.Z$."A"|
00000B80: B0 5A 24 B2 22 4D 22 A7  38 34 30 30 00 AA 0F 8A  |.Z$."M".8400....|
00000B90: 20 8B 5A 24 B2 22 50 22  B0 5A 24 B2 22 4E 22 A7  | .Z$."P".Z$."N".|
00000BA0: 50 4D B2 31 3A 89 38 34  30 30 00 D9 0F 94 20 8B  |PM.1:.8400.... .|
00000BB0: 5A 24 B3 B1 22 22 A7 99  22 55 53 45 20 41 4D 2C  |Z$.."".."USE AM,|
00000BC0: 50 4D 2C 4E 4F 4F 4E 2C  4F 52 20 4D 49 44 4E 49  |PM,NOON,OR MIDNI|
00000BD0: 54 45 22 3A 89 38 30 30  30 00 F6 0F 9E 20 8B 48  |TE":.8000.... .H|
00000BE0: B3 36 B0 28 48 B2 36 AF  4D B2 30 29 B0 48 B2 31  |.6.(H.6.M.0).H.1|
00000BF0: 32 A7 50 4D B2 31 00 15  10 D0 20 54 4D B2 48 AC  |2.PM.1.... TM.H.|
00000C00: 36 30 AA 4D 3A 8B 54 4D  B1 B2 48 44 A7 54 4D B2  |60.M:.TM..HD.TM.|
00000C10: 54 4D AB 48 44 00 26 10  DA 20 8B 50 4D A7 54 4D  |TM.HD.&.. .PM.TM|
00000C20: B2 54 4D AA 48 44 00 2C  10 E4 20 8E 00 4D 10 34  |.TM.HD.,.. ..M.4|
00000C30: 21 5A B2 54 4D 3A 50 4D  B2 30 3A 8B 5A B1 B2 48  |!Z.TM:PM.0:.Z..H|
00000C40: 44 A7 50 4D B2 31 3A 5A  B2 5A AB 48 44 00 5E 10  |D.PM.1:Z.Z.HD.^.|
00000C50: 3E 21 8B 5A B3 48 52 A7  5A B2 5A AA 48 44 00 72  |>!.Z.HR.Z.Z.HD.r|
00000C60: 10 43 21 8B 5A B3 48 52  A7 5A B2 5A AA 48 44 AA  |.C!.Z.HR.Z.Z.HD.|
00000C70: 48 44 00 89 10 48 21 48  B2 B5 28 5A AD 36 30 29  |HD...H!H..(Z.60)|
00000C80: 3A 4D B2 5A AB 48 AC 36  30 00 C1 10 52 21 54 4D  |:M.Z.H.60...R!TM|
00000C90: 24 B2 C9 28 C4 28 48 29  2C 32 29 AA 22 3A 22 AA  |$..(.(H),2).":".|
00000CA0: C9 28 C4 28 31 30 30 AA  4D 29 2C 32 29 AA 22 20  |.(.(100.M),2)." |
00000CB0: 22 3A 8B 50 4D A7 54 4D  24 B2 54 4D 24 AA 22 12  |":.PM.TM$.TM$.".|
00000CC0: 22 00 E1 10 57 21 54 4D  24 B2 54 4D 24 AA CA 28  |"...W!TM$.TM$..(|
00000CD0: 22 41 50 22 2C 31 AA 50  4D 2C 31 29 AA 22 4D 92  |"AP",1.PM,1)."M.|
00000CE0: 22 00 E7 10 5C 21 8E 00  FA 10 98 21 87 45 49 24  |"...\!.....!.EI$|
00000CF0: 3A 8B 45 49 24 B2 22 22  A7 8E 00 13 11 A2 21 87  |:.EI$.""......!.|
00000D00: 45 4E 24 2C 53 53 24 2C  57 47 24 2C 4D 53 24 2C  |EN$,SS$,WG$,MS$,|
00000D10: 45 58 24 00 31 11 28 23  81 5A B2 31 A4 C3 28 49  |EX$.1.(#.Z.1..(I|
00000D20: 4E 24 29 3A 5A 24 B2 CA  28 49 4E 24 2C 5A 2C 31  |N$):Z$..(IN$,Z,1|
00000D30: 29 00 46 11 32 23 8B 5A  24 B3 22 30 22 B0 5A 24  |).F.2#.Z$."0".Z$|
00000D40: B1 22 39 22 A7 8E 00 60  11 3C 23 82 5A 3A 5A B2  |."9"...`.<#.Z:Z.|
00000D50: C3 28 49 4E 24 29 AA 31  3A 5A 24 B2 22 22 3A 8E  |.(IN$).1:Z$."":.|
00000D60: 00 66 11 0D 27 8F 00 A9  11 0E 27 8F 20 43 4F 44  |.f..'.....'. COD|
00000D70: 45 2C 20 4E 41 4D 45 2C  20 53 53 4E 2C 20 57 41  |E, NAME, SSN, WA|
00000D80: 47 45 2C 20 20 20 20 20  20 20 20 53 49 4E 47 4C  |GE,        SINGL|
00000D90: 45 2F 4D 41 52 52 49 45  44 2C 23 20 4F 46 20 45  |E/MARRIED,# OF E|
00000DA0: 58 45 4D 50 54 49 4F 4E  53 00 AF 11 0F 27 8F 00  |XEMPTIONS....'..|
00000DB0: D2 11 10 27 83 30 30 31  2C 22 46 47 22 2C 35 35  |...'.001,"FG",55|
00000DC0: 30 2D 31 33 2D 39 30 34  32 2C 39 2E 35 30 2C 53  |0-13-9042,9.50,S|
00000DD0: 2C 31 00 F9 11 1A 27 83  30 30 32 2C 22 53 41 4D  |,1....'.002,"SAM|
00000DE0: 20 44 22 2C 35 33 33 2D  38 33 2D 37 30 30 32 2C  | D",533-83-7002,|
00000DF0: 32 2E 37 35 45 2C 4D 2C  33 00 1C 12 24 27 83 30  |2.75E,M,3...$'.0|
00000E00: 30 33 2C 22 44 50 22 2C  30 30 30 2D 30 30 2D 30  |03,"DP",000-00-0|
00000E10: 30 30 30 2C 31 2E 32 35  2C 53 2C 30 00 24 12 2E  |000,1.25,S,0.$..|
00000E20: 27 83 22 22 00 4A 12 F8  2A 83 22 4D 4F 4E 22 2C  |'."".J..*."MON",|
00000E30: 22 54 55 45 22 2C 22 57  45 44 22 2C 22 54 48 55  |"TUE","WED","THU|
00000E40: 22 2C 22 46 52 49 22 2C  22 22 00 6B 12 60 EA 49  |","FRI","".k.`.I|
00000E50: 4E 24 B2 22 20 22 3A 5A  54 B2 54 49 3A 5A 43 B2  |N$." ":ZT.TI:ZC.|
00000E60: 32 3A 5A 44 24 B2 C7 28  32 30 29 00 81 12 6A EA  |2:ZD$..(20)...j.|
00000E70: A1 5A 24 3A 8B 5A 24 B3  B1 22 22 A7 36 30 30 37  |.Z$:.Z$.."".6007|
00000E80: 30 00 B1 12 74 EA 8B 5A  54 B3 B2 54 49 A7 99 CA  |0...t..ZT..TI...|
00000E90: 28 22 20 A6 22 2C 5A 43  2C 31 29 3B 22 9D 22 3B  |(" .",ZC,1);".";|
00000EA0: 3A 5A 43 B2 33 AB 5A 43  3A 5A 54 B2 54 49 AA 31  |:ZC.3.ZC:ZT.TI.1|
00000EB0: 35 00 BC 12 7E EA 89 36  30 30 31 30 00 EC 12 A6  |5...~..60010....|
00000EC0: EA 5A B2 C6 28 5A 24 29  3A 5A 4C B2 C3 28 49 4E  |.Z..(Z$):ZL..(IN|
00000ED0: 24 29 3A 8B 28 5A AF 31  32 37 29 B3 33 32 A7 99  |$):.(Z.127).32..|
00000EE0: 22 20 9D 22 3B 3A 89 36  30 31 31 30 00 1C 13 B0  |" .";:.60110....|
00000EF0: EA 8B 46 4C AF 28 5A AF  31 32 37 29 B1 36 34 AF  |..FL.(Z.127).64.|
00000F00: 28 5A AF 31 32 37 29 B3  39 31 A7 5A 24 B2 C7 28  |(Z.127).91.Z$..(|
00000F10: 28 5A AA 31 32 38 29 AF  32 35 35 29 00 2E 13 BA  |(Z.128).255)....|
00000F20: EA 8B 5A 4C B1 32 35 34  A7 36 30 30 31 30 00 49  |..ZL.254.60010.I|
00000F30: 13 C4 EA 49 4E 24 B2 49  4E 24 AA 5A 24 3A 99 5A  |...IN$.IN$.Z$:.Z|
00000F40: 24 3B 5A 44 24 3B 5A 24  3B 00 68 13 CE EA 8B 5A  |$;ZD$;Z$;.h....Z|
00000F50: B2 31 33 A7 49 4E 24 B2  CA 28 49 4E 24 2C 32 29  |.13.IN$..(IN$,2)|
00000F60: 3A 99 43 52 24 3B 3A 8E  00 94 13 D8 EA 8B 5A B2  |:.CR$;:.......Z.|
00000F70: 32 30 AF 5A 4C B1 31 A7  49 4E 24 B2 C8 28 49 4E  |20.ZL.1.IN$..(IN|
00000F80: 24 2C 5A 4C AB 31 29 3A  99 22 9D 22 3B 3A 89 36  |$,ZL.1):.".";:.6|
00000F90: 30 30 31 30 00 C7 13 E2  EA 8B 5A B2 31 34 31 A7  |0010......Z.141.|
00000FA0: 5A 24 B2 C7 28 AB 32 30  AC 28 5A 4C B1 31 29 29  |Z$..(.20.(ZL.1))|
00000FB0: 3A 81 5A B2 32 A4 5A 4C  3A 99 5A 24 3B 3A 82 5A  |:.Z.2.ZL:.Z$;:.Z|
00000FC0: 3A 89 36 30 30 30 30 00  D2 13 EC EA 89 36 30 30  |:.60000......600|
00000FD0: 31 30 00 E2 13 28 EB 8B  50 4E B2 30 A7 36 30 32  |10...(..PN.0.602|
00000FE0: 35 30 00 ED 13 2D EB 8D  36 30 35 30 30 00 08 14  |50...-..60500...|
00000FF0: 32 EB 99 22 50 52 45 53  53 20 12 52 45 54 55 52  |2.."PRESS .RETUR|
00001000: 4E 92 20 54 4F 20 22 3B  00 25 14 3C EB 8B 50 4E  |N. TO ";.%.<..PN|
00001010: B2 4C 50 A7 99 22 42 45  47 49 4E 3A 22 3B 3A 89  |.LP.."BEGIN:";:.|
00001020: 36 30 32 34 30 00 37 14  46 EB 99 22 43 4F 4E 54  |60240.7.F.."CONT|
00001030: 49 4E 55 45 3A 22 3B 00  4C 14 50 EB A1 54 24 3A  |INUE:";.L.P..T$:|
00001040: 8B 54 24 B2 22 22 A7 36  30 32 34 30 00 5D 14 5A  |.T$."".60240.].Z|
00001050: EB 8B 50 4E B2 4C 50 A7  36 30 33 30 30 00 9B 14  |..PN.LP.60300...|
00001060: 64 EB 50 4E B2 50 4E AA  31 3A 99 22 93 22 3B 50  |d.PN.PN.1:.".";P|
00001070: 47 24 3B 22 20 2D 20 43  55 52 53 4F 52 20 23 22  |G$;" - CURSOR #"|
00001080: 3B 4E 4D 24 3B 22 20 20  28 43 29 20 31 39 37 39  |;NM$;"  (C) 1979|
00001090: 20 20 20 50 41 47 45 22  3B 50 4E 00 A6 14 69 EB  |   PAGE";PN...i.|
000010A0: 8D 36 30 35 30 30 00 AC  14 6E EB 8E 00 C3 14 8C  |.60500...n......|
000010B0: EB 99 22 93 22 3A 9C 3A  8D 36 30 34 30 30 3A 89  |..".":.:.60400:.|
000010C0: 31 30 30 00 00 15 F0 EB  51 4B B2 35 32 35 3A 51  |100.....QK.525:Q|
000010D0: 4C B2 32 34 35 3A 51 4D  B2 31 33 34 3A 51 50 B2  |L.245:QM.134:QP.|
000010E0: 35 31 35 3A 51 51 B2 32  33 34 3A 51 53 B2 35 31  |515:QQ.234:QS.51|
000010F0: 36 3A 51 56 B2 31 3A 43  52 24 B2 C7 28 31 33 29  |6:QV.1:CR$..(13)|
00001100: 00 12 15 FA EB 8B C2 28  35 30 30 30 30 29 B2 30  |.......(50000).0|
00001110: A7 8E 00 44 15 04 EC 51  4B B2 31 35 38 3A 51 4C  |...D...QK.158:QL|
00001120: B2 32 31 36 3A 51 4D B2  35 32 3A 51 50 B2 31 35  |.216:QM.52:QP.15|
00001130: 31 3A 51 51 B2 32 30 35  3A 51 53 B2 31 35 32 3A  |1:QQ.205:QS.152:|
00001140: 51 56 B2 32 00 4A 15 0E  EC 8E 00 64 15 54 EC 81  |QV.2.J.....d.T..|
00001150: 49 B2 31 A4 31 30 3A 99  22 C0 C0 C0 C0 22 3B 3A  |I.1.10:."....";:|
00001160: 82 49 3A 8E 00 8B 15 30  F2 99 22 93 11 11 22 3B  |.I:....0.."...";|
00001170: A3 39 29 3B 22 43 55 52  53 4F 52 20 23 22 3B 4E  |.9);"CURSOR #";N|
00001180: 4D 24 3B 22 20 20 22 3B  50 47 24 00 B7 15 3A F2  |M$;"  ";PG$...:.|
00001190: 99 22 11 20 43 4F 50 59  52 49 47 48 54 20 28 43  |.". COPYRIGHT (C|
000011A0: 29 20 31 39 37 39 20 20  42 59 20 47 4C 45 4E 20  |) 1979  BY GLEN |
000011B0: 46 49 53 48 45 52 11 00  C2 15 44 F2 8D 36 30 35  |FISHER....D..605|
000011C0: 30 30 00 E8 15 4E F2 99  22 11 50 45 52 46 4F 52  |00...N..".PERFOR|
000011D0: 4D 20 54 49 4D 45 20 43  41 52 44 20 43 41 4C 43  |M TIME CARD CALC|
000011E0: 55 4C 41 54 49 4F 4E 53  00 0C 16 80 F2 99 22 11  |ULATIONS......".|
000011F0: 11 11 57 41 4E 54 20 44  49 52 45 43 54 49 4F 4E  |..WANT DIRECTION|
00001200: 53 3F 20 22 3B 3A 8D 36  30 30 30 30 00 25 16 8A  |S? ";:.60000.%..|
00001210: F2 8B C8 28 49 4E 24 2C  31 29 B3 B1 22 59 22 A7  |...(IN$,1).."Y".|
00001220: 36 30 33 30 30 00 36 16  94 F2 4C 50 B2 34 3A 8D  |60300.6...LP.4:.|
00001230: 20 36 30 32 30 30 00 61  16 9E F2 99 22 54 48 49  | 60200.a...."THI|
00001240: 53 20 50 52 4F 47 52 41  4D 20 49 53 20 44 45 53  |S PROGRAM IS DES|
00001250: 49 47 4E 45 44 20 54 4F  20 48 45 4C 50 20 59 4F  |IGNED TO HELP YO|
00001260: 55 00 91 16 A8 F2 99 22  11 50 52 4F 43 45 53 53  |U......".PROCESS|
00001270: 20 54 49 4D 45 20 43 41  52 44 53 2E 20 49 54 20  | TIME CARDS. IT |
00001280: 43 41 4E 20 42 45 20 43  55 53 54 4F 4D 49 5A 45  |CAN BE CUSTOMIZE|
00001290: 44 00 BE 16 B2 F2 99 22  46 4F 52 20 59 4F 55 52  |D......"FOR YOUR|
000012A0: 20 42 55 53 49 4E 45 53  53 20 42 59 20 43 48 41  | BUSINESS BY CHA|
000012B0: 4E 47 49 4E 47 20 54 48  45 20 44 41 54 41 00 EA  |NGING THE DATA..|
000012C0: 16 BC F2 99 22 11 53 54  41 54 45 4D 45 4E 54 53  |....".STATEMENTS|
000012D0: 20 41 54 20 4C 49 4E 45  53 20 31 30 30 30 30 20  | AT LINES 10000 |
000012E0: 41 4E 44 20 31 31 30 30  30 2E 00 1B 17 C6 F2 99  |AND 11000.......|
000012F0: 22 11 11 46 4F 52 20 45  41 43 48 20 45 4D 50 4C  |"..FOR EACH EMPL|
00001300: 4F 59 45 45 20 49 4E 20  54 48 45 20 44 41 54 41  |OYEE IN THE DATA|
00001310: 20 53 54 41 54 45 4D 45  4E 54 53 00 46 17 D0 F2  | STATEMENTS.F...|
00001320: 99 22 41 54 20 4C 49 4E  45 20 31 30 30 30 30 2C  |."AT LINE 10000,|
00001330: 20 59 4F 55 20 57 49 4C  4C 20 42 45 20 41 53 4B  | YOU WILL BE ASK|
00001340: 45 44 20 46 4F 52 00 76  17 DA F2 99 22 11 27 49  |ED FOR.v....".'I|
00001350: 4E 27 20 41 4E 44 20 27  4F 55 54 27 20 54 49 4D  |N' AND 'OUT' TIM|
00001360: 45 53 20 46 4F 52 20 45  41 43 48 20 44 41 59 20  |ES FOR EACH DAY |
00001370: 49 4E 20 54 48 45 00 95  17 E4 F2 99 22 44 41 54  |IN THE......"DAT|
00001380: 41 20 53 54 41 54 45 4D  45 4E 54 20 41 54 20 31  |A STATEMENT AT 1|
00001390: 31 30 30 30 2E 00 A0 17  E9 F2 8D 36 30 32 30 30  |1000.......60200|
000013A0: 00 CC 17 EE F2 99 22 54  49 4D 45 20 43 41 4E 20  |......"TIME CAN |
000013B0: 42 45 20 45 4E 54 45 52  45 44 20 53 45 56 45 52  |BE ENTERED SEVER|
000013C0: 41 4C 20 57 41 59 53 2E  20 46 4F 52 00 FC 17 F8  |AL WAYS. FOR....|
000013D0: F2 99 22 11 45 58 41 4D  50 4C 45 20 27 38 27 2C  |..".EXAMPLE '8',|
000013E0: 20 27 38 3A 30 30 27 2C  20 27 38 41 27 2C 20 41  | '8:00', '8A', A|
000013F0: 4E 44 20 27 38 41 4D 27  20 41 4C 4C 00 11 18 02  |ND '8AM' ALL....|
00001400: F3 99 22 4D 45 41 4E 20  27 38 3A 30 30 41 4D 27  |.."MEAN '8:00AM'|
00001410: 2E 00 40 18 0C F3 99 22  11 11 11 12 4E 4F 54 45  |..@...."....NOTE|
00001420: 92 3A 20 57 45 20 41 53  53 55 4D 45 20 28 55 4E  |.: WE ASSUME (UN|
00001430: 4C 45 53 53 20 59 4F 55  20 53 50 45 43 49 46 59  |LESS YOU SPECIFY|
00001440: 00 70 18 16 F3 99 22 11  4F 54 48 45 52 57 49 53  |.p....".OTHERWIS|
00001450: 45 29 20 54 48 41 54 20  36 3A 30 31 2D 31 31 3A  |E) THAT 6:01-11:|
00001460: 35 39 20 41 52 45 20 27  41 4D 27 2C 20 41 4E 44  |59 ARE 'AM', AND|
00001470: 00 8B 18 20 F3 99 22 31  32 3A 30 30 2D 36 3A 30  |... .."12:00-6:0|
00001480: 30 20 41 52 45 20 27 50  4D 27 2E 00 BC 18 21 F3  |0 ARE 'PM'....!.|
00001490: 99 22 11 11 28 49 46 20  59 4F 55 20 44 4F 4E 27  |."..(IF YOU DON'|
000014A0: 54 20 43 41 52 45 20 54  4F 20 52 45 4D 45 4D 42  |T CARE TO REMEMB|
000014B0: 45 52 20 54 48 41 54 20  52 55 4C 45 00 EB 18 22  |ER THAT RULE..."|
000014C0: F3 99 22 59 4F 55 20 43  41 4E 20 41 4C 57 41 59  |.."YOU CAN ALWAY|
000014D0: 53 20 53 50 45 43 49 46  59 20 45 49 54 48 45 52  |S SPECIFY EITHER|
000014E0: 20 41 4D 20 4F 52 20 50  4D 2E 29 00 F6 18 29 F3  | AM OR PM.)...).|
000014F0: 8D 36 30 32 30 30 00 23  19 2A F3 99 22 31 32 20  |.60200.#.*.."12 |
00001500: 4F 27 43 4C 4F 43 4B 20  28 4E 4F 4F 4E 29 20 43  |O'CLOCK (NOON) C|
00001510: 41 4E 20 42 45 20 45 58  50 52 45 53 53 45 44 20  |AN BE EXPRESSED |
00001520: 41 53 3A 00 44 19 34 F3  99 22 11 31 32 3A 30 30  |AS:.D.4..".12:00|
00001530: 50 4D 2C 20 31 32 3A 30  30 4E 4F 4F 4E 20 4F 52  |PM, 12:00NOON OR|
00001540: 20 31 32 4E 00 71 19 3E  F3 99 22 11 11 31 32 20  | 12N.q.>.."..12 |
00001550: 4D 49 44 4E 49 47 48 54  2C 20 41 53 20 59 4F 55  |MIDNIGHT, AS YOU|
00001560: 20 4D 49 47 48 54 20 47  55 45 53 53 2C 20 49 53  | MIGHT GUESS, IS|
00001570: 3A 00 96 19 48 F3 99 22  11 31 32 3A 30 30 41 4D  |:...H..".12:00AM|
00001580: 2C 20 31 32 3A 30 30 4D  49 44 4E 49 47 48 54 20  |, 12:00MIDNIGHT |
00001590: 4F 52 20 31 32 4D 00 C3  19 52 F3 99 22 11 11 59  |OR 12M...R.."..Y|
000015A0: 4F 55 20 43 41 4E 20 53  4B 49 50 20 41 4E 20 45  |OU CAN SKIP AN E|
000015B0: 4D 50 4C 4F 59 45 45 20  42 59 20 50 52 45 53 53  |MPLOYEE BY PRESS|
000015C0: 49 4E 47 00 EF 19 5C F3  99 22 11 12 52 45 54 55  |ING...\.."..RETU|
000015D0: 52 4E 92 20 57 48 45 4E  20 41 53 4B 45 44 20 46  |RN. WHEN ASKED F|
000015E0: 4F 52 20 54 48 45 20 54  49 4D 45 2D 49 4E 2E 00  |OR THE TIME-IN..|
000015F0: 1B 1A 5D F3 99 22 11 49  46 20 59 4F 55 20 45 4E  |..]..".IF YOU EN|
00001600: 54 45 52 20 41 4E 20 49  4E 43 4F 52 52 45 43 54  |TER AN INCORRECT|
00001610: 20 27 49 4E 27 20 54 49  4D 45 2C 00 48 1A 5E F3  | 'IN' TIME,.H.^.|
00001620: 99 22 11 59 4F 55 20 43  41 4E 20 50 52 45 53 53  |.".YOU CAN PRESS|
00001630: 20 12 52 45 54 55 52 4E  92 20 57 48 45 4E 20 41  | .RETURN. WHEN A|
00001640: 53 4B 45 44 20 46 4F 52  00 76 1A 5F F3 99 22 11  |SKED FOR.v._..".|
00001650: 54 48 45 20 4F 55 54 20  54 49 4D 45 2E 20 57 48  |THE OUT TIME. WH|
00001660: 45 4E 20 59 4F 55 20 44  4F 20 54 48 49 53 2C 20  |EN YOU DO THIS, |
00001670: 59 4F 55 27 4C 4C 00 9F  1A 60 F3 99 22 11 42 45  |YOU'LL...`..".BE|
00001680: 20 41 53 4B 45 44 20 41  47 41 49 4E 20 46 4F 52  | ASKED AGAIN FOR|
00001690: 20 54 48 45 20 27 49 4E  27 20 54 49 4D 45 2E 00  | THE 'IN' TIME..|
000016A0: AA 1A 65 F3 8D 36 30 32  30 30 00 D7 1A 66 F3 99  |..e..60200...f..|
000016B0: 22 57 48 45 4E 20 41 53  4B 45 44 20 27 41 4E 59  |"WHEN ASKED 'ANY|
000016C0: 20 43 48 41 4E 47 45 53  27 2C 20 59 4F 55 20 43  | CHANGES', YOU C|
000016D0: 41 4E 20 47 49 56 45 00  07 1B 70 F3 99 22 11 54  |AN GIVE...p..".T|
000016E0: 48 45 20 4C 49 4E 45 20  59 4F 55 20 57 41 4E 54  |HE LINE YOU WANT|
000016F0: 20 54 4F 20 43 48 41 4E  47 45 2E 20 49 46 20 59  | TO CHANGE. IF Y|
00001700: 4F 55 20 57 41 4E 54 00  36 1B 7A F3 99 22 54 4F  |OU WANT.6.z.."TO|
00001710: 20 41 44 44 20 41 4E 4F  54 48 45 52 20 54 49 4D  | ADD ANOTHER TIM|
00001720: 45 20 45 4E 54 52 59 2C  20 47 49 56 45 20 41 20  |E ENTRY, GIVE A |
00001730: 4E 55 4D 42 45 52 00 64  1B 84 F3 99 22 4F 4E 45  |NUMBER.d...."ONE|
00001740: 20 48 49 47 48 45 52 20  54 48 41 4E 20 54 48 45  | HIGHER THAN THE|
00001750: 20 48 49 47 48 45 53 54  20 45 4E 54 52 59 2E 20  | HIGHEST ENTRY. |
00001760: 28 46 4F 52 00 90 1B 8E  F3 99 22 11 45 58 41 4D  |(FOR......".EXAM|
00001770: 50 4C 45 2C 20 49 46 20  54 48 45 52 45 20 41 52  |PLE, IF THERE AR|
00001780: 45 20 54 48 52 45 45 20  45 4E 54 52 49 45 53 2C  |E THREE ENTRIES,|
00001790: 00 BD 1B 98 F3 99 22 11  54 48 45 4E 20 47 49 56  |......".THEN GIV|
000017A0: 45 20 45 4E 54 52 59 20  4E 55 4D 42 45 52 20 34  |E ENTRY NUMBER 4|
000017B0: 20 54 4F 20 41 44 44 20  41 20 4E 45 57 00 EC 1B  | TO ADD A NEW...|
000017C0: A2 F3 99 22 11 45 4E 54  52 59 2E 29 20 20 59 4F  |...".ENTRY.)  YO|
000017D0: 55 20 57 49 4C 4C 20 54  48 45 4E 20 42 45 20 41  |U WILL THEN BE A|
000017E0: 53 4B 45 44 20 46 4F 52  20 54 48 45 00 FE 1B AC  |SKED FOR THE....|
000017F0: F3 99 22 11 4E 45 57 20  54 49 4D 45 53 2E 00 09  |..".NEW TIMES...|
00001800: 1C B6 F3 8D 36 30 32 30  30 00 00 00 01           |....60200....   |

.......:.59468,12.<.... TCARD COPYRIGHT 
(C) 1979 GLEN FISHER.F.... INSPIRED BY A
 PROGRAM BY HERB SANDY...... BOX 1535, C
ORINTH, MS 38834.....:...... CURSOR #13,
 SEPT, 1979.L.... BOX 550, GOLETA, CA. 9
3017...... LINES 61000-65000 (C) 1979 CU
RSOR MAGAZINE.....:...... AS OF SEP 25 7
9.9.Z.PG$."TCARD":NM$."13":.62000.Y.D..8
600:.EI$.."".NE.NE.1:.100.V.N..T$:.T$.."
".NP.NP.1:.110...H.MT.10:.IN(MT),OU(MT),
RG(NP),OV(NP),NP$(NP)...R..:.I.1.NE:.860
0:.I:.T$......I.1.NP:.NP$(I):.I:.T$...,.
HR.60:HD.12.HR............E.1.NE......86
00.#...EI$.EI$." (".EN$.")".;...."...EMP
LOYEE ";EI$.D....I.1.NP:RG(I).0:OV(I).0:
.I:RT.0:OT.0.P.L..P.1.NP...V..".ENTER TI
MES FOR ";NP$(P);":"...`.N.1......7000:.
IN.0.N.N.1:.1400.N...IN(N).IN:OU(N).OU..
...N.N.1:.N..MT.1200......"I CAN ONLY HA
NDLE";MT;"INTERVALS":N.N.1:.1400.&.X..N.
0.1500.]....".SKIP EMPLOYEE ";EI$;" FOR 
";NP$(P);"? ";:.60000.U....H(IN$,1).."Y"
.1110......P..1.2100... ..".SKIP EMPLOYE
E ";EI$;" ALTOGETHER? ";:.60000.O....H(I
N$,1).."Y".2100.Y....2400......".";EI$;"
 FOR ";NP$(P)......" #    IN        OUT"
......I.1.N./....I(D(I),2);" ";.M...TM.I
N(I):.8500:.TM$;"  ";.E...TM.OU(I):.8500
:.TM$.L."..I...@..".ANY CHANGES? ";:.600
00...J..IN$."".H(IN$,1)."N".2000.F....".
WHICH ENTRY? ";:.60000.W....IN$."".1500.
....I.E(IN$):.I.0.I..N.1750.-.B..I..N.1.
I.MT.."NUMBERS FROM 1 TO";N;"., PLEASE":
.1700.>.L..I.N.1.N.N.1.S.V..7000:.IT.0.1
700.O...IN(I).IN:OU(I).OU:.1700..P.TM.0
:.I.1.N...Z.ET.OU(I).IN(I):.ET.0.ET.ET.H
D.HD.....TM.TM.ET:.I......"..EMPLOYEE ";
EI$;" FOR ";NP$(P);"."......7200:."WORK 
TIME: ";TM$.)....7100:RG(P).RG:OV(P).OV:
RT.RT.RG:OT.OT.OV.8....OV.0.2100.]....".
REGULAR: ";:TM.RG:.7200:.TM$;... .."   O
VERTIME: ";:TM.OV:.7200:.TM$...4..".....
.......................>..P.N.H.."..PRES
S ANY KEY FOR SUMMARY"...R..T$:.T$."".21
30......".";EI$;"  SSN ";SS$:.".";WG$;" 
 ";.$....MS$."M".."MARRIED";.<....MS$."S
".."SINGLE";._....MS$.."M".MS$.."S"..MS$
;"???";......"  ";EX$;" EXEMPTION";:.EX$
.."1".."S";......:..10);".  REG     OVER
.".D....I.1.NP:.NP$(I);.10);.....TM.RG(I
):.7200:.TM$;...J.TM.OV(I):.7200:."  ";T
M$...T..I.#.....10);" .....   .....":..1
0);.9...TM.RT:.7200:.TM$;.S...TM.OT:.720
0:."  ";TM$.B....P.NP.2400......"..PRESS
 ANY KEY TO CONTINUE";......T$:.T$."".23
10...`..E...D.."........................
WANT TO RUN THIS AGAIN? ";:.60000...N..H
(IN$,1)."Y".900...X... .X.PR$.". IN":.80
00:IN.TM:.IN.0...T.B.PR$."OUT":.8000:.TM
.0.."IN TIME IGNORED.":.7000.`.L.OU.TM:.
.....OV.0:RG.TM:.TM..8.HR.I(WG$,1)."E"..
...F.RG.8.HR:OV.TM.RG:.... .H..(TM.HR):M
.TM.H.HR...*.TM$.I(" ".D(H),3).":".I(D(1
00.M),2):....@..PR$;": ";......60000:.IN
$."".TM..1:..3....9000:.Z.1.."HOUR NOT G
IVEN":.8000.C...H.E(H(IN$,Z.1)):IN$.J(IN
$,Z.1):.Z$.":".8200.X.B..H.100.M.0:.8300
...L.T..(H.100):M.H.T.100:H.T......8300.
... .9000:M.E(H(IN$,Z.1)).L.. IN$.J(IN$,
Z.1).... .Z..3.."MINUTES MUST BE TWO DIG
ITS":.8000...L .H.1.H.12.."NO SUCH HOUR"
:.8000.D.V .M.0.M.59.."NO SUCH MINUTE":.
8000.O.{ .Z$." ".Z$.H(IN$,1):IN$.J(IN$,2
):.8315.... PM.0:.Z$."A".Z$."M".8400....
 .Z$."P".Z$."N".PM.1:.8400.Y.. .Z$..""..
"USE AM,PM,NOON,OR MIDNITE":.8000.... .H
.6.(H.6.M.0).H.12.PM.1...P TM.H.60.M:.TM
..HD.TM.TM.HD.&.Z .PM.TM.TM.HD.,.. ..M.4
!Z.TM:PM.0:.Z..HD.PM.1:Z.Z.HD.^.>!.Z.HR.
Z.Z.HD.R.C!.Z.HR.Z.Z.HD.HD...H!H..(Z.60)
:M.Z.H.60.A.R!TM$.I(D(H),2).":".I(D(100.
M),2)." ":.PM.TM$.TM$."."...W!TM$.TM$.J(
"AP",1.PM,1)."M."...\!.....!.EI$:.EI$.""
......!.EN$,SS$,WG$,MS$,EX$.1.(#.Z.1.C(I
N$):Z$.J(IN$,Z,1).F.2#.Z$."0".Z$."9"...`
.<#.Z:Z.C(IN$).1:Z$."":..F..'.....'. COD
E, NAME, SSN, WAGE,        SINGLE/MARRIE
D,# OF EXEMPTIONS....'..R..'.001,"FG",55
0-13-9042,9.50,S,1....'.002,"SAM D",533-
83-7002,2.75E,M,3...$'.003,"DP",000-00-0
000,1.25,S,0.$..'."".J..*."MON","TUE","W
ED","THU","FRI","".K.`.IN$." ":ZT.TI:ZC.
2:ZD$.G(20)...J..Z$:.Z$.."".60070...T..Z
T..TI..J(" .",ZC,1);".";:ZC.3.ZC:ZT.TI.1
5...~..60010.....Z.F(Z$):ZL.C(IN$):.(Z.1
27).32.." .";:.60110......FL.(Z.127).64.
(Z.127).91.Z$.G((Z.128).255)......ZL.254
.60010.I.D.IN$.IN$.Z$:.Z$;ZD$;Z$;.H.N..Z
.13.IN$.J(IN$,2):.CR$;:....X..Z.20.ZL.1.
IN$.H(IN$,ZL.1):.".";:.60010.G....Z.141.
Z$.G(.20.(ZL.1)):.Z.2.ZL:.Z$;:.Z:.60000.
R....60010...(..PN.0.60250...-..60500...
2.."PRESS .RETURN. TO ";.%.<..PN.LP.."BE
GIN:";:.60240.7.F.."CONTINUE:";.L.P..T$:
.T$."".60240.].Z..PN.LP.60300...D.PN.PN.
1:.".";PG$;" - CURSOR #";NM$;"  (C) 1979
   PAGE";PN...I..60500...N...C....".":.:
.60400:.100.....QK.525:QL.245:QM.134:QP.
515:QQ.234:QS.516:QV.1:CR$.G(13)......B(
50000).0...D...QK.158:QL.216:QM.52:QP.15
1:QQ.205:QS.152:QV.2.J.....D.T..I.1.10:.
"....";:.I:....0.."...";.9);"CURSOR #";N
M$;"  ";PG$...:..". COPYRIGHT (C) 1979  
BY GLEN FISHER..B.D..60500...N..".PERFOR
M TIME CARD CALCULATIONS......"...WANT D
IRECTIONS? ";:.60000.%....H(IN$,1).."Y".
60300.6...LP.4:. 60200.A...."THIS PROGRA
M IS DESIGNED TO HELP YOU......".PROCESS
 TIME CARDS. IT CAN BE CUSTOMIZED......"
FOR YOUR BUSINESS BY CHANGING THE DATA..
....".STATEMENTS AT LINES 10000 AND 1100
0....F.."..FOR EACH EMPLOYEE IN THE DATA
 STATEMENTS.F.P.."AT LINE 10000, YOU WIL
L BE ASKED FOR.V.Z..".'IN' AND 'OUT' TIM
ES FOR EACH DAY IN THE......"DATA STATEM
ENT AT 11000.. ....60200.L...."TIME CAN 
BE ENTERED SEVERAL WAYS. FOR......".EXAM
PLE '8', '8:00', '8A', AND '8AM' ALL....
.."MEAN '8:00AM'..@...."....NOTE.: WE AS
SUME (UNLESS YOU SPECIFY.P....".OTHERWIS
E) THAT 6:01-11:59 ARE 'AM', AND... .."1
2:00-6:00 ARE 'PM'....!.."..(IF YOU DON'
T CARE TO REMEMBER THAT RULE...".."YOU C
AN ALWAYS SPECIFY EITHER AM OR PM.)...).
.60200.#.*.."12 O'CLOCK (NOON) CAN BE EX
PRESSED AS:.D.4..".12:00PM, 12:00NOON OR
 12N.Q.>.."..12 MIDNIGHT, AS YOU MIGHT G
UESS, IS:...H..".12:00AM, 12:00MIDNIGHT 
OR 12M.C.R.."..YOU CAN SKIP AN EMPLOYEE 
BY PRESSING...\.."..RETURN. WHEN ASKED F
OR THE TIME-IN....]..".IF YOU ENTER AN I
NCORRECT 'IN' TIME,.H.^..".YOU CAN PRESS
 .RETURN. WHEN ASKED FOR.V._..".THE OUT 
TIME. WHEN YOU DO THIS, YOU'LL...`..".BE
 ASKED AGAIN FOR THE 'IN' TIME....E..602
00.W.F.."WHEN ASKED 'ANY CHANGES', YOU C
AN GIVE...P..".THE LINE YOU WANT TO CHAN
GE. IF YOU WANT.6.Z.."TO ADD ANOTHER TIM
E ENTRY, GIVE A NUMBER.D...."ONE HIGHER 
THAN THE HIGHEST ENTRY. (FOR......".EXAM
PLE, IF THERE ARE THREE ENTRIES,......".
THEN GIVE ENTRY NUMBER 4 TO ADD A NEW...
...".ENTRY.)  YOU WILL THEN BE ASKED FOR
 THE......".NEW TIMES.......60200....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL