•Ï”錾@‹¤’Ê,•¶Žš—ñ{&barcode,&barcode1,&–ò•i–¼,&d—Ê,&–ò•i[10],&Œ»ƒpƒX} •Ï”錾@‹¤’Ê,”’l{&Šm”F,&N,&weight1,&weight,&d[10],&hWnd,&OK,&‡Œvd—Ê,&V‹K,&ù,&‘d,•N1,&N2} &Œ»ƒpƒX”ƒf[ƒ^ƒpƒX–¼ •\@"ŽU܃}ƒXƒ^[.TBL",ƒ‚[ƒh = ‹¤—LŽQÆ,•\”Ô† = 1 ƒEƒBƒ“ƒhƒEì¬@hŽUÜ•\Ž¦.wfm",ƒnƒ“ƒhƒ‹ = &hWnd &barcode1="1",&N=0,•V‹K0,&‡Œvd—Ê=0 –¼ŽD@ƒƒCƒ“ˆ— ŒJ‚è•Ô‚µ @@@&N=&N+1 @@@Žè‘±‚«ŽÀs@ƒo[ƒR[ƒh“ü—Í @@@@@&barcode1=&barcode @@@ðŒi•V‹K‚OjŽè‘±‚«ŽÀs@ƒnƒJƒŠ @@@•V‹K‚O ŒJ‚è•Ô‚µI—¹ I—¹@ –¼ŽD@ƒo[ƒR[ƒh“ü—Í ƒL[“ü—Í@(01,01), ƒvƒƒ“ƒvƒg = "ƒo[ƒR[ƒh“ü—Í"CI—¹ó‘Ô =•Šm”F,ƒ‚[ƒh = –³•ÏŠ·,&barcode @@@@ðŒ@i•Šm”F‚Oj@I—¹@‹Ë @@@@ðŒ@(&barcode=&barcode1) •ªŠò@Žæ‚èÁ‚µ @@@@ðŒ@(&barcode="4902102030847") •ªŠò@ƒtƒB[ƒh ŒŸõ@[ƒo[ƒR[ƒh]{&barcode} ,I—¹ó‘Ô =&Šm”F ifi•Šm”F-1j @@ƒTƒEƒ“ƒh@ĶC&Œ»ƒpƒX{"chord.wav"C”ñ“¯Šú •ªŠò@ƒo[ƒR[ƒh“ü—Í else @@ƒTƒEƒ“ƒh@ĶC&Œ»ƒpƒX{"BAROK.wav"C”ñ“¯Šú @@•–ò•i–¼[–ò•i–¼],&ù=[‚Pùd—Ê] end @ðŒ@(”•”•ª—ñi•–ò•i–¼,1,2)="•¡‡"j•ªŠò@•¡‡“ü—Í ðŒ (&N=11) &N=1 &–ò•i[&N]=•–ò•i–¼ •V‹K=0 ƒEƒBƒ“ƒhƒEXV@-1 Žè‘±‚«I—¹ –¼ŽD@ƒnƒJƒŠ •weight10,&weight=0 &d—Ê="" ŒJ‚è•Ô‚µ@(1) @@ŒJ‚è•Ô‚µ@i&d—Ê="") @@@ƒtƒ@ƒCƒ‹“ü—ÍŠJŽn@@ &Œ»ƒpƒX{"JURYO.txt" CI—¹ó‘Ô =•Šm”F @@@@ifi•Šm”F‚Pj @@@@@ƒtƒ@ƒCƒ‹“ü—Í@&d—Ê,s @@@@@ƒtƒ@ƒCƒ‹“ü—ÍI—¹ @@@@@ƒtƒ@ƒCƒ‹íœ@&Œ»ƒpƒX{"JURYO.txt" @@@@end @@ŒJ‚è•Ô‚µI—¹ @ &weight1=#”’l(#LTRIM(#•”•ª—ñ(&d—Ê,2,7))j @ðŒ (”•”•ª—ñ(&d—Ê,‚PC‚Pj="-")@•weight1=-1*&weight1 @ðŒi@&weight1<-0.05 .and &weight>0)@ƒTƒEƒ“ƒh@ĶC&Œ»ƒpƒX{"start.wav"C”ñ“¯Šú @ðŒi@&weight1<-0.05 .and &weight>0)@ŒJ‚è•Ô‚µ’†Ž~ @ðŒi&weight1>0.09) &weight=&weight1 @ðŒi&weight1>0.09) ƒTƒEƒ“ƒh@ĶC&Œ»ƒpƒX{"weight4.wav"C”ñ“¯Šú @&d—Ê="" ŒJ‚è•Ô‚µI—¹ •‡Œvd—Ê•‡Œvd—Ê{&weight @ðŒ@(”•”•ª—ñi•–ò•i–¼,1,2)="•¡‡"j•ªŠò@•¡‡d—Ê if i&ù„0j @@&d[&N]=#ŽlŽÌŒÜ“ü(&weight/&ù,2) @@&d—Ê" "+#‘SŠp(#•¶Žš—ñ(&d[&N]j){hùh else @@&d[&N]=&weight @@&d—Ê#‘SŠp(#•¶Žš—ñ(&weightj){h‚‡h @@if (&weight<10) @@@&d—Ê" "+ &d—Ê @@end@ end •–ò•i–¼”•”•ª—ñi•–ò•i–¼,1,-28) ƒEƒBƒ“ƒhƒEXV@-1 ŒJ‚è•Ô‚µ@i‚Pj ˆóŽšŠJŽn@"ˆóŽš.txt",I—¹ó‘Ô&OK ðŒ@i&OK=1) ŒJ‚è•Ô‚µ’†Ž~ ŒJ‚è•Ô‚µI—¹ @@@ˆóŽš •–ò•i–¼," ",•d—Ê ˆóŽšI—¹ ƒVƒFƒ‹ŽÀs@"RSPRINT.EXE",&OK Žè‘±‚«I—¹ –¼ŽD@ƒtƒB[ƒh •Šm”F#—”( 600 ){2 IF (&Šm”Fƒ‚Sj ƒTƒEƒ“ƒh@ĶC&Œ»ƒpƒX{"end"+#•¶Žš—ñ(&Šm”F)+".wav"C”ñ“¯Šú ELSE ƒTƒEƒ“ƒh@ĶC&Œ»ƒpƒX{"end.wav"C”ñ“¯Šú END &d—Ê" @@@@ ‡Œv"+#‘SŠp(#•¶Žš—ñ(&‡Œvd—Êj){h‚‡h ŒJ‚è•Ô‚µ@i‚Pj ˆóŽšŠJŽn@"ˆóŽš.txt",I—¹ó‘Ô&OK ðŒ@i&OK=1) ŒJ‚è•Ô‚µ’†Ž~ ŒJ‚è•Ô‚µI—¹ ˆóŽš •d—Ê ŒJ‚è•Ô‚µ@&Šm”F‚PC‚W ˆóŽš@"-" ŒJ‚è•Ô‚µI—¹ ˆóŽšI—¹ ƒVƒFƒ‹ŽÀs@"RSPRINT.EXE",&OK &–ò•i={""},&d={""},&N=0,&V‹K=1,&barcode="1",&‡Œvd—Ê=0 ƒEƒBƒ“ƒhƒEXV@-1 Žè‘±‚«I—¹ –¼ŽD@Žæ‚èÁ‚µ ƒTƒEƒ“ƒh@ĶC&Œ»ƒpƒX{"torikeshi.wav"C”ñ“¯Šú &‡Œvd—Ê=&‡Œvd—Ê-•weight ŒJ‚è•Ô‚µ@i‚Pj ˆóŽšŠJŽn@"ˆóŽš.txt",I—¹ó‘Ô&OK ðŒ@i&OK=1) ŒJ‚è•Ô‚µ’†Ž~ ŒJ‚è•Ô‚µI—¹ •–ò•i–¼= "Žæ‚èÁ‚µ@"+”•”•ª—ñi•–ò•i–¼,1,-26) ˆóŽš •–ò•i–¼ ˆóŽšI—¹ ƒVƒFƒ‹ŽÀs@"RSPRINT.EXE",&OK &V‹K=1,&barcode="1" ƒEƒBƒ“ƒhƒEXV@-1 Žè‘±‚«I—¹ –¼ŽD@•¡‡“ü—Í •\@&Œ»ƒpƒX{"data\"+•–ò•i–¼ •ÒW•\@&Œ»ƒpƒX{"data\"+•–ò•i–¼,ƒ‚[ƒh =‹¤—LŽQÆ €–ÚWŒv@[B] &‘d&‡Œv’l •Šm”F&N,&N1=0 ŒJ‚è•Ô‚µ @if ( #eof ) @@@ŒJ‚è•Ô‚µ’†Ž~ @end @ðŒi&Šm”F11)@&Šm”F1 @&–ò•i[&Šm”F]="*"+[A],&d[&Šm”F]=[B] @•N1=•N1+1 @•Šm”F•Šm”F+1 @ƒWƒƒƒ“ƒv@s”Ô† = ŽŸs ŒJ‚è•Ô‚µI—¹ I—¹@•\@•ÒW‘ÎÛ•\ ƒEƒBƒ“ƒhƒEXV@-1 Žè‘±‚«I—¹ –¼ŽD@•¡‡d—Ê ŒJ‚è•Ô‚µ ˆóŽšŠJŽn@"ˆóŽš.txt",I—¹ó‘Ô&OK ðŒ@i&OK=1) ŒJ‚è•Ô‚µ’†Ž~ ŒJ‚è•Ô‚µI—¹ ŒJ‚è•Ô‚µ •N2&N,&N+&N1 @•Šm”F&N2 @ðŒi&Šm”F„‚P‚Oj&Šm”F&Šm”F-10 @&d[&Šm”F]=#ŽlŽÌŒÜ“ü( •weight–&d[&Šm”F]/&‘d,2) &d—Ê#‘SŠp(#•¶Žš—ñ(&d[&Šm”F]j){h‚‡h if (&d[&Šm”F]<10) &d—Ê" "+ &d—Ê end@ •–ò•i–¼”•”•ª—ñi•–ò•i[&Šm”F],1,-28) @@@ˆóŽš •–ò•i–¼," ",•d—Ê ŒJ‚è•Ô‚µI—¹ ˆóŽšI—¹ ƒVƒFƒ‹ŽÀs@"RSPRINT.EXE",&OK &N=•Šm”F ƒEƒBƒ“ƒhƒEXV@-1 Žè‘±‚«I—¹