 1 Cls
 2 Print "Waiting for 0 second in minute..."
 3 While VAL#(MID$(TIME$,7,2))<>0
 4 Print TIME$
 5 Locate 1,2
 6 WEnd
 7 Let STARTTIME$=TIME$
 8 Print "Counting from 0 to 32000 (with step - 1.)."
 9 Print "Please waith..."
10 From INDEX#=0 To 32000
11 Next INDEX#
12 Print "End of work."
13 Let ENDTIME$=TIME$
14 Let STARTVALUE#=(VAL#(MID$(STARTTIME$,1,2))*3600)+(VAL#(MID$(STARTTIME$,4,2))*60)+VAL#(MID$(STARTTIME$,7,2))
15 Let ENDVALUE#=(VAL#(MID$(ENDTIME$,1,2))*3600)+(VAL#(MID$(ENDTIME$,4,2))*60)+VAL#(MID$(ENDTIME$,7,2))
16 Let VALUE#=ENDVALUE#-STARTVALUE#
17 Let WORKHOUR#=INT#(VALUE#/3600)
18 Let VALUE#=VALUE#-(WORKHOUR#*3600)
19 Let WORKMINUTE#=INT#(VALUE#/60)
20 Let WORKSECOND#=VALUE#-(WORKMINUTE#*60)
21 Let WORKTIME$=STRING$(2-LEN#(LTRIM$(STR$(WORKHOUR#))),"0")+LTRIM$(STR$(WORKHOUR#))+":"+STRING$(2-LEN#(LTRIM$(STR$(WORKMINUTE#))),"0")+LTRIM$(STR$(WORKMINUTE#))+":"+STRING$(2-LEN#(LTRIM$(STR$(WORKSECOND#))),"0")+LTRIM$(STR$(WORKSECOND#))
22 Cls
23 Print "Start time: "+STARTTIME$+"."
24 Print "  End time: "+ENDTIME$+"."
25 Print " Work time: "+WORKTIME$+"."