Skeleton Form


       PROGRAM ProgramName ;

          {$B+}                 { Global - set prior to declaration part }
          {$C+}                 { Global - set prior to declaration part }
          {$F16}                { Global - set prior to declaration part }
          {$G512}               { Global - set prior to declaration part }
          {$P512}               { Global - set prior to declaration part }

       LABEL
          Target1,
          Target2,
          Target3;

       TYPE
          PointerType = Integer;

       CONST
          UnTyped               = 'Untyped string message';
          Typed   : String [80] = 'Typed string message'  ;

       VAR
          IntVar  : Integer     ;
          StrVar  : String [80] ;
          RealVar : Real        ;
          ByteVar : Byte        ;
          CharVar : Char        ;

       BEGIN
       END.