$baud=31250 bellPin Alias PortD.3 note Alias k Config bellPin=Output Dim voice As Integer Dim _H70 As Integer Dim _H00 As Integer Const C=60% Const D=62% Const E=64% Const F=66% Const G=67% Const A=69% Const B=71% Const c=72% Const d=74% Const e=76% Const f=78% Const g=79% Const Z=125% Const z=126% Const R=127% Const HIGH=1 Const LOW=0 Declare Sub noteOn(data1 As Integer,data2 As Integer) _H70=&H70 _H00=&H00 Do Print Chr(&HC0);Chr(voice); Restore NOTES For i=0 To 139 Read note If note=Z Then bellPin=HIGH Else If note=z Then bellPin=LOW Else If note=R Then Waitms 300 Else Call noteOn(note,_H70) Waitms 300 Call noteOn(note,_H00) End If End If End If Next i Waitms 2400 voice=voice+1 If voice>16 Then voice=11 End If Loop End Sub noteOn Print Chr(&H90);Chr(data1);Chr(data2); End Sub NOTES: Data R,D,D,B,A,G,D,R, R,D,D,B,A,G,E,R, R,E,E,c,B,A,F,R, R,d,d,d,c,A,B,R Data R,D,D,B,A,G,D,R, R,D,D,B,A,G,E,R, R,E,E,c,B,A,d,d, d,d,e,d,c,A,G,R, d,R Data Z,B,B,B,z,R, Z,B,B,B,z,R, B,d,G,A,B,R,R,R, c,c,c,c,c,B,B,B, B,A,A,B,A,R, d,R Data Z,B,B,B,z,R, Z,B,B,B,z,R, B,d,G,A,B,R,R,R, c,c,c,c,c,B,B,B, d,d,c,A,G,R, Z,g,z,R Content-Type: text/html Software Error

Software Error:

Lock is busy. at plugin/attach/AttachHandler.pm line 219. at lib/Util.pm line 743.