home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / T / TurboT folder / Sample Program.p < prev   
Encoding:
Text File  |  1989-12-17  |  1.3 KB  |  38 lines  |  [TEXT/TPAS]
  1. program TestProgram;
  2.  
  3. { HelloTurboTabby, has been complied as a Unit and should be  }
  4. { moved into your Turbo Pascal Enviroment using unit mover,   }
  5. { provided with Turbo Pascal.  Be sure to include it on your  }
  6. { USES line.                                                  }
  7.  
  8. { See HelloTurboTabby.p for detials on what is happening.     }
  9.  
  10.  
  11. {$R HelloTurbo.RSRC }                    {This is the Resource file to use.}
  12. {$B+}                                 { if compiled to disk, bundle bit on }
  13. {$T APPLxxxx}       { if compiled to disk, file gets this type and creator }
  14.                     { xxxx is your application creator                     }
  15. {$U-}               { Disable startup window and cancel standard units     }
  16.                     { Remove this if you plan to use built in Turbo Pacal  }
  17.                     { Procedures, like readln, writeln and so on.          }
  18.  
  19. uses MemTypes,QuickDraw,OSIntf,ToolIntf,PackIntf,HelloTurboTabby;
  20.  
  21.  
  22.  begin
  23.  
  24.     { ••••
  25.  
  26.           Your Program Here
  27.  
  28.                           •••• }
  29.  
  30.     
  31.     { Place this code at the end of your Main Module or where you plan to }
  32.     { exit the application .                                              }
  33.  
  34.     HelloTurboTabby;                                                    
  35.     if NextLaunch <> '' then                                            
  36.        LaunchNextAppl
  37.                                                 
  38.  end.