Update SamplePBcode.Bas

The PowerBASIC sample source code was previously typed in off the top of my head.  It didn't actually compile.  Various modifications were made so that it now compiles as-is.