'================================================================= ' semi-analog clock by computothought ' '-------------------------------------------------------- 'housekeeping cls true% = -1 locate 4,1: print "Hours"; locate 6,1: print "Minutes"; locate 8,1: print "Seconds"; locate 15,1: print "Hours"; locate 18,1: print "Minutes"; locate 21,1: print "Seconds"; '-------------------------------------------------------- 'Main loop while true% locate 2,10 : print "The time is: "; time$;"."; hr = val(left$(time$,2)) min = val(mid$(time$,4,2)) sec = val(mid$(time$,7,2)) hr$ = right$("00" + str$(hr),2) min$ = right$("00" + str$(min),2) sec$ = right$("00" + str$(sec),2) lhr$ = left$(hr$,1) rhr$ = right$(hr$,1) lmin$ = left$(min$,1) rmin$ = right$(min$,1) lsec$ = left$(sec$,1) rsec$ = right$(sec$,1) 'hours locate 5,1: print left$(string$(hr,"H") + string$(60, " "),60); 'mins locate 7,1: print left$(string$(min,"M") + string$(60, " "),60); 'secs locate 9,1: print left$(string$(sec,"S") + string$(60, " "),60); 'hours if hr = 0 then locate 16,1: print string$(60, " "); locate 16,1: print string$(hr - 1, " ");lhr$; string$(60 - hr, " "); if hr = 0 then locate 17,1: print string$(60, " "); locate 17,1: print string$(hr - 1, " ");rhr$; string$(60 - hr, " "); 'mins if min = 0 then locate 19,1: print string$(60, " "); locate 19,1: print string$(min - 1, " ");lmin$; string$(60 - hr, " "); if min = 0 then locate 20,1: print string$(60, " "); locate 20,1: print string$(min - 1, " ");rmin$; string$(60 - hr, " "); 'secs if sec = 0 then locate 22,1: print string$(60, " "); locate 22,1: print string$(sec - 1, " ");lsec$; string$(60 - hr, " "); if sec = 0 then locate 23,1: print string$(60, " "); locate 23,1: print string$(sec - 1, " ");rsec$; string$(60 - hr, " "); wend '------------------------------------------------ ' fake end locate 14,1 : print; end