30 ON KEY GOSUB 40,,,80,,,,50:PRINT@174,TIME$:GOTO30
40 FOR H=HIMEM-8TOHIMEM-1:POKE H,ASC(MID$(TIME$,HIMEM-H,1)):NEXTH:PRINT@94,TIME$:GOTO30
50 FOR M=HIMEM-8TOHIMEM-1:T$=CHR$(PEEK(M))+T$:NEXTM
60 CLS:FILES:INPUT "Name of job";F$:IF F$=""THENF$="JOB"
70 OPEN F$ FOR APPEND AS 1:PRINT#1,DATE$;" ";T$;" ";TIME$;" ";(60*VAL(LEFT$(TIME$,2))+VAL(MID$(TIME$,4,2)))-(60*VAL(LEFT$(T$,2))+VAL(MID$(T$,4,2)));":Min."