1 '3 OF 9 TIME CLOCK:VS 1.5 -BY CARROLL M. LEWIS-MAY '93 2 CLEAR0,MAXRAM:MAXFILES=3:CLEAR500,61788:LOADM"B3OF9.CO":RUNM"B3OF9.CO" 3 CLS:OPEN "WAND:"FORINPUTAS1:KEY(1)ON:ONKEYGOSUB25:ONERRORGOTO29 4 DEFSTRA,B,C,D,E,F,J,T,W:DEFINTZ,V,O,I,L 5 '(DEFSTR) A=FIRST 2 CHARACTERS OF WAND INPUT:B=INPUT OF F3 FILE:C=CHORE TYPE:D= DATE:E=EMPLOYEE:F=FILES:J=JOB:T=TIME:W=WAND input: T1,D1,C1,J1 are time date chore and job from F2 file: 6 '(DEFINT) V=ERROR info:Z=VAL OF TIME FOR MATH CALCS.:OH&OM=out(stop) hours&mins:IH&IM=in(start) hours&mins.:LH&LM=lapsed hours&min: 7 CLS:PRINT@6,"Is there ANYBODY out there ?":IFT3<>""THENT3="":W=E:GOTO10 8 PRINT@87,"Scan your ID code please !" 9 LINEINPUT#1,W:GOSUB26:IFW=""THEN9ELSEIFA="TH"THEN36ELSEIFA="QU"THEN25ELSEIFA<>"EN"THENCLS:GOTO8 10 CLS:D=DATE$:T=TIME$:GOSUB26:PRINT@16,T:E=W:PRINT@40+((40-Z)/2),"Hello,";RIGHT$(E,Z1):PRINT@86,"What TASK will you be doing?" 11 LINE INPUT#1,W:GOSUB26:IFA="GO"THEN12ELSEIFA="CN"THEN13ELSEPRINT@210,"Please scan TASK code !":GOTO11 12 C=W:J="XXXXXXXXX":CLS:PRINT@172,"HAVE A GOOD ONE!":GOTO15 13 C=W:PRINT@210,SPACE$(24):PRINT@120+((40-LEN(W))/2),RIGHT$(C,Z1):PRINT@166,"What JOB are you working on?" 14 LINEINPUT#1,W:J=W:GOSUB26:IFA<>"JN"THENPRINT@210,"Scan JOB code please!":GOTO14ELSEPRINT@210,SPACE$(22):PRINT@200+((40-(Z-9))/2),RIGHT$(J,(Z-9)):PRINT@240,"Thank-you and remember..SAFETY FIRST !" 15 OH=VAL(T):OM=VAL(MID$(T,4,2)) 16 F2="LAST"+MID$(E,3,2)+".DO":F3=MID$(E,3,2)+LEFT$(D,2)+MID$(D,4,2)+".DO":OPENF2FORINPUTAS2 17 INPUT#2,D1,T1,J1,C1:CLOSE2 18 IH=VAL(T1):IM=VAL(MID$(T1,4,2)) 19 OPENF3FORINPUTAS3 20 LH=OH-IH:LM=OM-IM:IFLM<0THENLM=(OM+60)-IM:LH=LH-1 21 CLOSE3:OPENF3FORAPPENDAS3:PRINT#3,D1","T1","J1","C1","T","LH":"LM:CLOSE3 22 OPENF2FOROUTPUTAS2:PRINT#2,D","T","J","C:CLOSE2 23 IFLEFT$(C,8)="GOING HO"ANDD=D1THENCLOSE3:GOTO27 24 CLOSE2,3:GOTO7 25 CLOSE:CALL61807:CLEAR256,MAXRAM:MAXFILES=1:MENU 26 Z=LEN(W):Z1=LEN(W)-4:A=LEFT$(W,2):RETURN 27 OPEN F3 FOR INPUT AS3:LINEINPUT#3,B$:INPUT#3,D2,T2,J2,C2,T4,LH$:CLOSE3:SH=VAL(T2):SM=VAL(MID$(T2,4,2)):HT=OH-SH:MT=OM-SM:IFMT<0THENMT=(OM+60)-SM:HT=HT-1 28 OPENF3FORAPPENDAS3:PRINT#3,"DAY START AT "T2", END DAY AT "T" TOTAL DAY ="HT":"MT:CLOSE3:GOTO24 29 V=ERR:VV=ERL:RESUME30 30 IFV=52ANDVV=16THEN33 31 IFV=52ANDVV=19THEN34 32 CLS:PRINT@55,"ERROR #"V"IN LINE"VV:INPUT#1,W:GOTO25 33 CLOSE2:OPENF2FOROUTPUTAS2:PRINT#2,D","T","J","C:CLOSE2:OPENF3FOROUTPUTAS3:PRINT#3,E", "DAY$" ,"D", in at "T:CLOSE3:GOTO7 34 CLOSE3:IFLEFT$(C1,8)<>"GOING HO"THENGOTO35ELSEOPENF3FOROUTPUTAS3:PRINT#3,E", "DAY$" ,"D", in at "T:CLOSE3:GOTO22 35 BEEP:CLS:PRINT@40,"You did not 'CLOCK' out on"D1:BEEP:PRINT@132,"Go get the boss!":BEEP:PRINT@160,"LAST = "D1", "T1" , "J1" , "C1:INPUT"OUT TIME HH:MM:SS";T3:J="XXXXXXXXX":C="GOING HOME ":T=T3:D=D1:GOTO15 36 CLS:PRINT@46,"Scan 'THE BOSS' to return OR":PRINT@125,"Scan the employee's ID to check":INPUT#1,W:IFW="THE BOSS"THEN7ELSEOPEN"LAST"+MID$(W,3,2)+".DO"FORINPUT AS2:INPUT#2,D1,T1,J1,C1:CLOSE2:CLS 37 PRINT@40+((40-LEN(W))/2),W:PRINT@132,"Time on "T1:PRINT@200,J1" "C1:PRINT@289,"Scan ANYTHING when done";:INPUT#1,W2:GOTO36