Displaying note

sub(Str9,E+2,inString(Str9,"[xhat]E",D)-(2+E->Str7
For(G,0,int((length(Ans)-3)/23
"          "
If G=8
Text(56,30," "+Ans+Ans+Ans+Ans
For(O,1,min(23,length(Str7)-23G-2
sub(Str7,23G+O+2,1
Text(6G+8,4O-3,Ans
If inString("wm",Ans
Then
Text(6G+8,4O-3,sub("WM",inString("wm",Ans),1
Line(4O-3,53-6G,4O-1,53-6G,0
Pt-Off(4O-2,52-6G
End
End
End
"          "
If G!=8
Text(56,30," "+Ans+Ans+Ans+Ans