10 CLS:PRINT:PRINTTAB(15);"SONG TIMER" 20 PRINTTAB(12);"T.G.MIHULKA 1993" 30 CLEAR8192,HIMEM 40 DIM T$(25),T1$(25),S(25),NS:BEEP 50 PRINT@280,"RESET----START-SONG-STOP-DISP------MENU"; 60 KEY ON 70 ON KEY GOSUB 100,,200,300,400,500,,600 80 GOTO 50 90 END 100 BEEP:RUN 200 PRINT@200,"SONG 1";:NS=1:T$(NS)=TIME$:BEEP:RETURN 300 PRINT@200,"SONG";NS+1;:NS=NS+1:T$(NS)=TIME$:BEEP:RETURN 400 PRINT@200,"END ";:NS=NS+1:T$(NS)=TIME$:BEEP:RETURN 500 CLS:PRINT:PRINT"DISPLAY":FOR TD=1 TO NS 505 TT$=T$(TD) 510 H$=LEFT$(TT$,2) 515 M$=MID$(TT$,4,2) 520 S$=RIGHT$(TT$,2) 525 SE=VAL(H$)*3600+VAL(M$)*60+VAL(S$) 530 S(TD)=SE:NEXT TD 535 FOR TD=NS TO 2 STEP -1 537 H$="":M$="":S$="" 540 T=S(TD)-S(TD-1) 545 H=INT(T/3600):T=T-H*3600 550 M=INT(T/60):T=T-M*60 555 IF H>0 THEN H$=STR$(H):IF LEN(H$)>2THENH$=RIGHT$(H$,2) 560 M$=STR$(M):IFLEN(M$)>2THENM$=RIGHT$(M$,2) 562 M$=M$+":" 565 S$=STR$(T):IFLEN(S$)>2THENS$=RIGHT$(S$,2) 567 IFLEFT$(S$,1)=" "THENS$="0"+RIGHT$(S$,1) 570 T1$(TD)=H$+M$+S$ 575 NEXT TD 580 FOR TD=2 TO NS 585 PRINT"SONG";TD-1;T1$(TD) 587 FORD=1TO500:NEXTD 590 NEXT TD:BEEP 595 RETURN 600 CLS:KEY OFF:CLEAR256,HIMEM:MENU NSTQT1Q