Part of a MS Visual Basic routine to print Teletext characters using Minitel fonts

   picPic1.ForeColor = RGB(255, 255, 255)
For J = 0 To 23: F = 1
For I = 1 To 40: Get #gFileNum, I + (J) * 40, D: D = D And 127
    If (D > 0 And D < 8) Then F = 1
    If (D > 16 And D < 24) Then F = 2
If F = 2 Then picPic1.Font = "Arial Alternative Symbol"
If F = 1 Then picPic1.Font = "Arial Alternative"
picPic1.Print Chr(gA(F, D));
Next: picPic1.Print: Next
   picPic1.ForeColor = RGB(0, 0, 0)