mein code bis jetzt:

$crystal = 8000000
$baud = 31250

Config Portd = Output

Main:

Waitms 100
Print &H90 ; &H3C ; &H7F;
Waitms 100

End