6 CLS:PRINT" This timecard records job number,":PRINT"job name or code, start and end times":PRINT"as well as start and end mileage.":PRINT" Total work time and mileage are"
7 PRINT"computed. In cases when the job starts" :PRINT"or ends before 6 AM yesterday's last":PRINT"entry may be checked.":PRINT" << press any key to continue >>";
20 PRINT@283,"<< press any key to continue >>";:IFINKEY$=""THEN20ELSECLS:GOTO41
21 CLS:PRINT@11,"UNFINISHED LAST JOB":PRINT" JOB";J;N:PRINT" START TIME ";:PRINTUSING"##.##";ST:PRINT@162,"<ENTER> or enter new":T=TIME$:U=VAL(LEFT$(T,2))+VAL(MID$(T,4,2))/100
22 K$="":PRINT@123,"END TIME ";:PRINTUSING"##.##";U;:PRINT" (HH.MM) ";:LINEINPUTK$:IFK$=""THENET=UELSEET=VAL(K$)
26 PRINTSPACE$(30):PRINT"START MILEAGE ";SM:INPUT" END MILEAGE ";EM:M=EM-SM:IFM<0THENM=M+100000
27 PRINT" MILES TRAVELED";M:PRINT" <ENTER> if correct or <-> to change END MILEAGE";
28 K$=INKEY$:IFK$=""THEN28
29 IFK$="-"THENCLS:GOTO26
30 PRINT:PRINT"<< type up to 2 lines of notes NO <ENTER> until end >>":PRINT"note: ";:LINEINPUTK$:CLS:PRINT@162,"STORING ABOVE DATA IN FILE ";F:OPENFFORAPPENDAS1:PRINT#1,"END ";:PRINT#1,USING"##.##";ET;:PRINT#1,USING" ######.#";EM
46 CLS:PRINT"JOB TITLE OR CODE:";J;:LINEINPUT"-";N:INPUT" START MILEAGE";SM:PRINT@122,"<ENTER> or enter new";:K$="":T=TIME$:U=VAL(LEFT$(T,2))+(VAL(MID$(T,4,2))/100):PRINT@80,"START TIME ";:PRINTUSING"##.##";U;:PRINT" (HH.MM) ";:LINEINPUTK$
47 IFK$=""THENST=UELSEST=VAL(K$)
48 CLS:PRINT@162,"STORING ABOVE DATA IN FILE ";F:F="TC"+LEFT$(D,2)+MID$(D,4,2):OPENFFORAPPENDAS1:PRINT#1,"";F;:PRINT#1,USING" ##";J;:PRINT#1,USING" \ \";N:PRINT#1,"START ";:PRINT#1,USING"##.##";ST;
49 PRINT#1,USING" ######.#";SM:CLOSE#1:FORX=1TO200:NEXTX:BEEP:CLS:K=0:PRINT"choose one <press>":PRINT" EXIT <1>":PRINT" CHECK SCHEDULE <2>"