C kel langage ???

Bonjour, j'ai un programme que j'ai récupéré sur Internet, je voudrais bien le faire fonctionner mais avec kel logiciel ??? J'ai microsoft Visual Basic mais ça ne marche pas. kel programme faut-il ???
Merci d'avance

programme :

Screen 12 ' Passage en mode graphique

Cls ' Effacer l'écran

Do 'Début de la boucle
a = INP(&H379) ' Port parrallèle de l'imprimante
b = a And 16 ' Récupération select
c = a And 32 ' PE
d = a And 64 ' ACK
E = a And 128 ' BUSY(inversé)

' LOCATE 1, 5
'PRINT c
t = t + 0.1
If t > 640 Then t = 0
If b = 16 Then

LOCATE 1, 5
Print "0"
PSet (t, 50), 4
PSet (t, 10), 0

Else

LOCATE 1, 5
Print "1"
PSet (t, 10), 5
PSet (t, 50), 0

End If

If c = 32 Then
LOCATE 2, 5
Print 303
PSet (t, 150), 4
PSet (t, 100), 0

Else
LOCATE 2, 5
Print "1"
PSet (t, 100), 5
PSet (t, 150), 0

End If

If d = 64 Then
LOCATE 3, 5
Print "0"
PSet (t, 250), 4
PSet (t, 200), 0

Else

L0CATE 3, 5
Print "1"
PSet (t, 200), 5
PSet (t, 250), 0

End If

If E = 128 Then
LOCATE 4, 5
Print "1"
PSet (t, 300), 5
PSet (t, 350), 0

Else

LOCATE 4, 5
Print "0"
PSet (t, 350), 4
PSet (t, 300), 0

End If

Loop