:59468,12< TCARD COPYRIGHT (C) 1979 GLEN FISHERf INSPIRED BY A PROGRAM BY HERB SANDY BOX 1535, CORINTH, MS 38834: CURSOR #13, SEPT, 1979 BOX 550, GOLETA, CA. 93017 LINES 61000-65000 (C) 1979 CURSOR MAGAZINE: AS OF SEP 25 799ZPG$"TCARD":NM$"13":62000Yd8600:EI$""NENE1:100vnT$:T$""NPNP1:110MT10:IN(MT),OU(MT),RG(NP),OV(NP),NP$(NP):I1NE:8600:I:T$I1NP:NP$(I):I:T$,HR60:HD12HRE1NE 8600#EI$EI$" ("EN$")";"EMPLOYEE ";EI$dI1NP:RG(I)0:OV(I)0:I:RT0:OT0pLP1NPV"ENTER TIMES FOR ";NP$(P);":"`N17000:IN0NN1:1400IN(N)IN:OU(N)OUNN1:NMT1200"I CAN ONLY HANDLE";MT;"INTERVALS":NN1:1400&xN01500]"SKIP EMPLOYEE ";EI$;" FOR ";NP$(P);"? ";:60000u(IN$,1)"Y"1110P12100"SKIP EMPLOYEE ";EI$;" ALTOGETHER? ";:60000(IN$,1)"Y"21002400"";EI$;" FOR ";NP$(P)" # IN OUT"I1N/((I),2);" ";MTMIN(I):8500:TM$;" ";eTMOU(I):8500:TM$l"I@"ANY CHANGES? ";:60000JIN$""(IN$,1)"N"2000"WHICH ENTRY? ";:60000IN$""1500I(IN$):I0IN1750- IN1IMT"NUMBERS FROM 1 TO";N;", PLEASE":1700> IN1NN1S 7000:IT01700o IN(I)IN:OU(I)OU:1700 TM0:I1N ETOU(I)IN(I):ET0ETETHDHD TMTMET:I "EMPLOYEE ";EI$;" FOR ";NP$(P);"" 7200:"WORK TIME: ";TM$) 7100:RG(P)RG:OV(P)OV:RTRTRG:OTOTOV8 OV02100] "REGULAR: ";:TMRG:7200:TM$; " OVERTIME: ";:TMOV:7200:TM$ 4" >P H"PRESS ANY KEY FOR SUMMARY" RT$:T$""2130 "";EI$;" SSN ";SS$:"";WG$;" ";$ MS$"M""MARRIED";< MS$"S""SINGLE";_ MS$"M"MS$"S"MS$;"???"; " ";EX$;" EXEMPTION";:EX$"1""S"; :10);" REG OVER" I1NP:NP$(I);10); TMRG(I):7200:TM$; TMOV(I):7200:" ";TM$ I# 10);" ":10);9 TMRT:7200:TM$;S TMOT:7200:" ";TM$b PNP2400  "PRESS ANY KEY TO CONTINUE";  T$:T$""2310 ` E "WANT TO RUN THIS AGAIN? ";:60000 (IN$,1)"Y"900 XPR$" IN":8000:INTM:IN0T bPR$"OUT":8000:TM0"IN TIME IGNORED.":7000` lOUTM: OV0:RGTM:TM8HR(WG$,1)"E" RG8HR:OVTMRG: H(TMHR):MTMHHR *TM$(" "(H),3)":"((100M),2): @PR$;": "; 60000:IN$""TM1:39000:Z1"HOUR NOT GIVEN":8000cH((IN$,Z1)):IN$(IN$,Z1):Z$":"8200xH100M0:8300T(H100):MHT100:HT8300 9000:M((IN$,Z1)) IN$(IN$,Z1) Z3"MINUTES MUST BE TWO DIGITS":8000l H1H12"NO SUCH HOUR":8000Dv M0M59"NO SUCH MINUTE":8000o{ Z$" "Z$(IN$,1):IN$(IN$,2):8315 PM0:Z$"A"Z$"M"8400 Z$"P"Z$"N"PM1:8400 Z$"""USE AM,PM,NOON,OR MIDNITE":8000 H6(H6M0)H12PM1 TMH60M:TMHDTMTMHD& PMTMTMHD, M4!ZTM:PM0:ZHDPM1:ZZHD^>!ZHRZZHDrC!ZHRZZHDHDH!H(Z60):MZH60R!TM$((H),2)":"((100M),2)" ":PMTM$TM$""W!TM$TM$("AP",1PM,1)"M"\!!EI$:EI$""!EN$,SS$,WG$,MS$,EX$1(#Z1(IN$):Z$(IN$,Z,1)F2#Z$"0"Z$"9"`<#Z:Z(IN$)1:Z$"":f '' CODE, NAME, SSN, WAGE, SINGLE/MARRIED,# OF EXEMPTIONS''001,"FG",550-13-9042,9.50,S,1'002,"SAM D",533-83-7002,2.75E,M,3$'003,"DP",000-00-0000,1.25,S,0$.'""J*"MON","TUE","WED","THU","FRI",""k`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255).ZL25460010IIN$IN$Z$:Z$;ZD$;Z$;hZ13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010(PN060250-605002"PRESS RETURN TO ";%"12 MIDNIGHT, AS YOU MIGHT GUESS, IS:H"12:00AM, 12:00MIDNIGHT OR 12MR"YOU CAN SKIP AN EMPLOYEE BY PRESSING\"RETURN WHEN ASKED FOR THE TIME-IN.]"IF YOU ENTER AN INCORRECT 'IN' TIME,H^"YOU CAN PRESS RETURN WHEN ASKED FORv_"THE OUT TIME. WHEN YOU DO THIS, YOU'LL`"BE ASKED AGAIN FOR THE 'IN' TIME.e60200f"WHEN ASKED 'ANY CHANGES', YOU CAN GIVEp"THE LINE YOU WANT TO CHANGE. IF YOU WANT6z"TO ADD ANOTHER TIME ENTRY, GIVE A NUMBERd"ONE HIGHER THAN THE HIGHEST ENTRY. (FOR"EXAMPLE, 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