1 '============================================================================ 2 ' Program: LRCTIMER.BAS v1.0 qbasic 4.5 Released: 02/20/2009 3 ' Saved as LRCTIMER.BAS Modified: 4 ' Written by: Gerald Krug Email at: gdkss@hotmail.com 5 ' Comment; Helps remember times for creating .lrc lyrics files for Karaoke style digital music players. 6 ' Simply play your song then press 1 each time your lyric display must refresh. 8 'If you can't seem to calibrate at line 220 and 210 and 600 then go off-line 9 'and set affinity for qbasic 4.5 "above normal", with no other programs running 10 'or dedicate to a cpu if you have dual core... 11 ' http://www.online-tech-tips.com/windows-xp/set-processor-cpu-affinity/ 12 'Then your lrctimer.bas is the only thing running so the settings 13 'accuracy is true. 14 ' downloaded from http://boughtupcom.freeservers.com/LRCTIMER.BAS 18 '============================================================================ 50 d = .01: g = 0: a = 0: b = 0: c$ = "": d = 0: e$ = "": f = 0 60 PRINT "lrctimer, input 1 to add time, 2 to quit, 3 to start..." 70 INPUT f 80 PRINT "Started...>." 100 FOR a = a + 1 TO 100000000 200 b = b + 1 210 IF b = 11074440 THEN g = g + 1: b = 0: d = 0 'each minute 220 d = INT(b / 184574) 'each second 300 c$ = INKEY$ 310 IF c$ = "1" THEN a$ = STR$(g): h$ = STR$(d): a$ = "[0" + a$ + ":" + h$ + ".00]" 400 IF c$ = "1" THEN OPEN "lrc.txt" FOR OUTPUT AS #1: WRITE #1, a$: CLOSE #1 500 IF c$ = "1" THEN OPEN "lrc.txt" FOR INPUT AS #1: INPUT #1, e$: CLOSE #1: PRINT e$ 600 IF c$ = "1" THEN c$ = "": b = b - 158574 650 IF c$ = "2" THEN GOTO 800 700 NEXT a 800 END